<% id=trim(Request.QueryString("Id")) Nombre=trim(Request.QueryString("Nombre")) Descripcion=trim(Request.QueryString("Descripcion")) Linea=trim(Request.QueryString("Linea")) Area=trim(Request.QueryString("Area")) DibujoChico=trim(Request.QueryString("DibujoChico")) DibujoGrande=trim(Request.QueryString("DibujoGrande")) hipervinculo=trim(Request.QueryString("Hipervinculo")) fecha=trim(Request.QueryString("Fecha")) '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 = "Update Contenido Set " & _ "Nombre = '" & Nombre & " ', " & _ "Descripcion = '" & Descripcion & " ', " & _ "Linea = '" & Linea & " ', " & _ "Area = '" & Area & " ', " & _ "DibujoChico = '" & DibujoChico & " ', " & _ "DibujoGrande = '" & DibujoGrande & " ', " & _ "hipervinculo = '" & Hipervinculo & " ' " & _ "Where Id = " & Id & " " Set RS = Conn.Execute(Sql) %> Dable - Registro Actualizado

 

La Información Ha sido Actualizada, para continuar precione aqui