<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% dim idcategoria idcategoria="1" if not request("idcategoria")="" then idcategoria=request("idcategoria") end if set adors= createobject("ADODB.Recordset") Set objConn = Server.CreateObject("ADODB.Connection") objConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & rutadir & ";" 'objConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath ("/dmp/directorio.mdb") & ";" objConn.open comandosql="SELECT rubro.codigo_rubro, rubro.nombre, rubro.banner1, rubro.banner2, rubro.banner3, rubro.imagen1, rubro.imagen2, rubro.imagen3, rubro.idcategoria FROM rubro order by rubro.nombre" adors.open comandosql, objConn Do while not adors.EOF lista=lista & "" if "" & adors.fields("codigo_rubro")=frubro then titulo=adors.fields("nombre") end if adors.MoveNext loop adors.close %> CRIMSON SINCLAIR


Resolución 1024x768 - Diseño: LEAL PRODUCCIONES