<%@ Language=VBScript %> <% 'Response.Write Request("celda1") 'Response.End 'select consumomixto,aceleracion0a100,velocidadmax from cochecompleto where idcoche=8398 Function LeerArchivo(nombreArchivo) nombreArchivo = "D:\XVRT\km77.com\Html\includes/keywords/marcas/" & nombreArchivo Set fso = Server.CreateObject("Scripting.FileSystemObject") set f = fso.openTextFile(nombreArchivo) contenidoArchivo = f.readall set f = nothing set fs = nothing LeerArchivo = contenidoArchivo end function dim szNombreInclude szNombreInclude=Request("NombreInclude") if Trim(szNombreInclude)<>"" and not isnull(szNombreInclude) then '???response.write(LeerArchivo(szNombreInclude)) end if 'Response.Write Request("NombreInclude") 'Response.end dim szTitle szTitle=Request("Titulo") dim szIdCoche dim aszIdCoche dim aszIdCocheTotal szIdCoche=Request("IdCoche") aszIdCocheTotal=Split(szIdCoche,";") Set conn = Server.CreateObject("ADODB.Connection") dim szSql dim szWhere %> <% conn.CursorLocation=3 conn.open (conn_str) dim rs set rs=server.CreateObject("ADODB.RecordSet") %> <%=szTitle%> <% for lCnt=0 to ubound(aszIdCocheTotal) szSql="" szWhere="" aszIdCoche=Split(aszIdCocheTotal(lCnt),",") szSql="select marca,denominacion,consumomixto,aceleracion0a100,velocidadmax,CAST(parado1000m AS decimal(10,1)) as parado1000m,idcoche from cochecompleto a, marcas b " for i=0 to ubound(aszIdCoche) szWhere=szWhere & aszIdCoche(i) & "," next szSql=szSql & "Where a.idmarcas=b.idmarcas and idcoche in ("& mid(szWhere,1,len(szWhere)-1) &")" rs.open szSql, conn, 1,2 if not rs.EOF then rs.MoveFirst end if %> <% for i=0 to ubound(aszIdCoche) rs.MoveFirst do until rs.EOF if trim(aszIdCoche(i))=trim(rs.Fields("idcoche").Value) then %> <%if not isnull(rs.Fields(2).Value) and trim(rs.Fields(2).Value)<>"" then if instr(1,trim(rs.Fields(2).Value),",")>0 then%> <%else%> <%end if else %> <%end if%> <%if not isnull(rs.Fields(3).Value) and trim(rs.Fields(3).Value)<>"" then if instr(1,trim(rs.Fields(3).Value),",")>0 then%> <%else%> <%end if else %> <%end if%> <%if not isnull(rs.Fields(5).Value) and trim(rs.Fields(5).Value)<>"" then if instr(1,trim(rs.Fields(5).Value),",")>0 then%> <%else%> <%end if else %> <%end if%> <% rs.MoveLast end if rs.MoveNext Loop next%>
<%=replace(Trim(Request("celda1")),"2 2","2+2")%> Consumo medio
(l/100 km)		 Aceleración
0-100 km/h (s)		 Aceleración 0-1000 m (s) Velocidad máxima (km/h)
<%=trim(rs.Fields(0).Value) &" "& trim(rs.Fields(1).Value)%><%=trim(rs.Fields(2).Value)%><%=trim(rs.Fields(2).Value) & ",0"%>--<%=trim(rs.Fields(3).Value)%><%=trim(rs.Fields(3).Value) & ",0"%>--<%=trim(rs.Fields(5).Value)%><%=trim(rs.Fields(5).Value) & ",0"%>--<%=trim(rs.Fields(4).Value)%>

<% rs.Close Next%>

Cerrar ventana