<%@ Language="VBScript" %>
Ingreso de Datos
<%
Dim Conexion,Tabla
Set Conexion = Server.CreateObject("ADODB.Connection")
Set Tabla = Server.CreateObject("ADODB.Recordset")
Conexion.Open "Driver={Microsoft Access Driver (*.mdb)}; " & "Dbq=" & Server.MapPath("FORM1.mdb")
Dim Temp
Temp="Select * From Tabla1 Where UCase(NOMBR)='" & UCase(Request("Dato1")) & "' And UCase(APEP)='" & UCase(Request("Dato2")) & "' And UCase(APEM)='" & UCase(Request("Dato3")) & "' And UCase(EMAIL)='" & UCase(Request("Dato4")) & "' And UCase(SEXO)='" & UCase(Request("Dato5")) & "' And UCase(EDAD)='" & UCase(Request("Dato6")) & "' And UCase(PAIS)='" & UCase(Request("Dato7")) & "' And UCase(CIUDAD)='" & UCase(Request("Dato8")) & "' And UCase(NOM_PRO)='" & UCase(Request("Dato9")) & "' And UCase(TIT_LIC)='" & UCase(Request("Dato10")) & "' And UCase(TIT_MAE)='" & UCase(Request("Dato11")) & "' And UCase(DHMC)='" & UCase(Request("Dato12")) & "' And UCase(MSP)='" & UCase(Request("Dato13")) & "' And UCase(MER)='" & UCase(Request("Dato14")) & "' And UCase(MHMC)='" & UCase(Request("Dato15")) & "' And UCase(MCID)='" & UCase(Request("Dato16")) &"'"
Tabla.Open Temp,Conexion,2,3,1
If Tabla.BOF And Tabla.EOF Then
Tabla.AddNew
Tabla("NOMBR") = Request("Dato1")
Tabla("APEP") = Request("Dato2")
Tabla("APEM") = Request("Dato3")
Tabla("EMAIL") = Request("Dato4")
Tabla("SEXO") = Request("Dato5")
Tabla("EDAD") = Request("Dato6")
Tabla("PAIS") = Request("Dato7")
Tabla("CIUDAD") = Request("Dato8")
Tabla("NOM_PRO") = Request("Dato9")
Tabla("TIT_LIC") = Request("Dato10")
Tabla("TIT_MAE") = Request("Dato11")
Tabla("DHMC") = Request("Dato12")
Tabla("MSP") = Request("Dato13")
Tabla("MER") = Request("Dato14")
Tabla("MHMC") = Request("Dato15")
Tabla("MCID") = Request("Dato16")
Tabla.Update
%>
Ingreso
de datos completado
<%
Else
Response.Write "El registro ya existe"
End If
Tabla.Close
Conexion.Close
%>
Ingresar
Nuevo