<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> Enlaces de Interés

    > 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%>