%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
> HOME | > CONTACTO | > TIENDA VIRTUAL | > EKONOS | > BLITZWAR |
# Enlaces de interés Interesting Links |
<% Set oConn = Server.CreateObject ("ADODB.Connection") Set RS = Server.CreateObject ("ADODB.RecordSet") Set oConn2 = Server.CreateObject ("ADODB.Connection") Set RS2 = Server.CreateObject ("ADODB.RecordSet") '''Conectamos a la conexion a la base de datos. default_DB_Path = Request.ServerVariables("APPL_PHYSICAL_PATH") & "\db\db.mdb" 'response.write "
" & default_DB_Path & "
" 'response.write "Vengo de... " & request.QueryString("subdir") & "
" DBName = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & default_DB_Path & ";" oConn.Open DBName oConn2.Open DBName sql = "SELECT * FROM tlapa" response.write("hola que tal") RS.Open sql, oConn Do While not RS.EOF response.write RS("dsapads") sql = "SELECT * FROM tllnk where cdlnkap= " & rs("cdapacd") Do While not RS2.EOF RS2.Open sql, oConn2 response.write(RS2("dslnkds") & " - " & RS2("dslnklk")) rs2.movenext loop rs2.close rs.movenext loop%>