<%
nom=Request.Form("nom")
ape=Request.Form("ape")
email= Request.Form("email")
empr= Request.Form("empr")
web= Request.Form("web")
tel= Request.Form("Tel")
cel= Request.Form("cel")
cp= Request.Form("cp")
ac= Request.Form("ac")
po=Request.Form("po")
cnc=Request.Form("cnc")
rev= Request.Form("Rev")
tal= Request.Form("tal")
acs= Request.Form("acs")
ciu= Request.Form("ciu")
asu= Request.Form("asu")
pro= Request.Form("pro")
rec= Request.Form("rec")
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open ("PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE=" + Server.MapPath("base_instancias.mdb"))
if rec="ON" then
if nom="" then
nom="ON"
end if
if ape="" then
ape="ON"
end if
if ciu="" then
ciu="OFF"
end if
if asu="" then
asu="OFF"
end if
if cel="" then
cel="OFF"
end if
if acs="" then
acs="OFF"
end if
if email="" then
email="OFF"
end if
if web="" then
web="OFF"
end if
if tel="" then
tel="OFF"
end if
if empr="" then
empr="OFF"
end if
if pro="" then
pro="OFF"
end if
if cp="" then
cp="OFF"
end if
if ac="" then
ac="OFF"
end if
if cnc="" then
cnc="OFF"
end if
if inf="" then
inf="OFF"
end if
if rev="" then
rev="OFF"
end if
if tal="" then
tal="OFF"
end if
if regi="" then
regi="OFF"
end if
if po="" then
po="OFF"
end if
'Ahora creamos la sentencia SQL
sSQL="Update Instancias Set ape='" & ape & "',email='" & email & "', empresa='" & empr & "', web='" & web & "', tel='" & tel & "', cel='" & cel & "', cp='" & cp & "', ac='" & ac & "', acs='" & acs & "',po='" & po & "',cnc='" & cnc & "', rev='" & rev & "', tal='" & tal & "', asu='" & asu & "', ciu='" & ciu & "', pro='" & pro & "' Where nom='" & nom & "'"
'ejecutamos la orden
set RS = Conn.Execute(sSQL)
end if
sSQL="Select * From Instancias Order By nom"
set RS = Conn.Execute(sSQL)
%>