<% 'Variables de Entrada Where = Request.QueryString("Where") 'Abre la Base de Datos If IsObject(Session("DableContenido_conn")) Then Set conn = Session("DableContenido_conn") Else Set conn = Server.CreateObject("ADODB.Connection") conn.open "DableContenido","admin","687140" Set Session("DableContenido_conn") = conn End If 'Ejecuta la Sentencia Sql sql = "SELECT * FROM Contenido " & Where & " Order by Nombre " Set rs = Server.CreateObject("ADODB.Recordset") rs.Open sql, conn %> Dable Sistemas
<% 'Arma Todos los Registros Seleccionados Cuenta=0 On Error Resume Next rs.MoveFirst do while Not rs.eof Cuenta = Cuenta + 1 'Extrae el Area (Izquierda) SqlArea = "Select * from Area Where Area = " & rs.Fields("Area") Set rsArea = Server.CreateObject("ADODB.Recordset") rsArea.Open sqlArea, conn Area=rsArea.Fields("Area") 'Extrae la Linea (Arriba) SqlLinea = "Select * from Linea Where Linea = " & rs.Fields("Linea") Set rsLinea = Server.CreateObject("ADODB.Recordset") rsLinea.Open sqlLinea, conn Linea=rsLinea.Fields("Linea") 'Escribe el codigo HTML Response.Write("

") Response.Write("") 'Si tiene Hipervinculo If len(rs.Fields("Hipervinculo")) > 0 then Response.Write("") Response.Write("") Response.Write(rs.Fields("Nombre")) Response.Write("
") else Response.Write("") Response.Write(rs.Fields("Nombre")) Response.Write("
") end if Response.Write("  ") Response.Write(rsArea.Fields("Nombre")) Response.Write("") Response.Write(" ") Response.Write(rsLinea.Fields("Nombre")) Response.Write("") Response.Write("

") 'Lee el siguiente registro rs.MoveNext loop 'Si No encontro Nada If Cuenta = 0 Then Response.Write("




Página en Construcción

") Response.Write("

Regrese Pronto

") End If Set rsArea = Nothing Set rsLinea = Nothing Set rs = Nothing %>