<% 'Variables de Entrada Area = Request.QueryString("Area") Linea = Request.QueryString("Linea") '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 'Determina la sentencia Sql Where = "" If Area <> 0 then Where = " Where Area = " & Area End If If Linea <> 0 then If len(Where) > 0 then Where = Where & " or Linea = " & Linea else Where = "Where Linea = " & Linea end if End If 'Ejecuta la Sentencia Sql sql = "SELECT * FROM Contenido " & Where & " Order by Id" 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 'Escribe el codigo HTML If len(trim(rs.Fields("Hipervinculo"))) > 0 then Response.Write("

") Response.Write("") Response.Write("") Response.Write("    ") Response.Write("") Response.Write("") Response.Write(rs.Fields("Nombre")) Response.Write("

") Response.Write(rs.Fields("Descripcion")) Response.Write("

") if len(rs.Fields("DibujoGrande")) > 0 then Response.Write("") Response.Write("") Else Response.Write(" ") end if Response.Write("


") Else Response.Write("

") Response.Write("") Response.Write("    ") Response.Write("") Response.Write(rs.Fields("Nombre")) Response.Write("

") Response.Write(rs.Fields("Descripcion")) Response.Write("

") Response.Write("

") if len(rs.Fields("DibujoGrande")) > 0 then Response.Write("") Else Response.Write(" ") End If Response.Write("


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




Page Under Construction

") Response.Write("

Please Come Back

") End If %>