<% Accion = trim(Request.QueryString("Accion")) Id = trim(Request.QueryString("Id")) cmbClave=trim(Request.QueryString("cmbClave")) '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 sql = "SELECT * FROM Contenido Order by Id" Set rs = Server.CreateObject("ADODB.Recordset") rs.Open sql, conn 'Ejecuta la Sentencia Sql If cmbClave = "" or cmbClave = "0" then Select case accion case "0" case "1" rs.MoveFirst case "2" do while not rs.eof ultimo = rs("Id") rs.movenext loop rs.movefirst do while not rs.eof if ultimo = rs("Id") then exit do rs.movenext loop case "3" rs.movefirst do while not rs.eof if id = cstr(rs("id")) then rs.movenext exit do end if rs.MoveNext loop case else rs.MoveFirst end select else rs.movefirst do while not rs.eof if cmbClave = cstr(rs("id")) then exit do rs.MoveNext loop end if %> Dable - Actualizacion de Contenido

 

<% Id = rs("id") %>

Id:

" size="9">
Nombre: " size="30">
Descripcion: " size="80">
Linea: " size="1">
Area: " size="1">
Dibujo Chico: " size="20">
Dibujo Grande: " size="20">
Hipervinculo: " size="30">
Fecha: " size="20">


Inicio Ultimo Siguiente

Lineas
Areas
<% sql = "SELECT * FROM Linea Order by Linea" Set rs = Server.CreateObject("ADODB.Recordset") rs.Open sql, conn rs.movefirst do while not rs.eof Response.Write(rs("Linea") & " - " & rs("Nombre") & "
") rs.movenext loop %>
<% sql = "SELECT * FROM Area Order by Area" Set rs = Server.CreateObject("ADODB.Recordset") rs.Open sql, conn rs.movefirst do while not rs.eof Response.Write(rs("Area") & " - " & rs("Nombre") & "
") rs.movenext loop %>