Hola, mira este es el codigo:
Cita: <%
Dim conexion,rs,existe
existe=False
Set conexion=Server.CreateObject("ADODB.Connection")
conexion.ConnectionString="DSN=BaseDemo.dsn"
conexion.Open
Set rs=Server.CreateObject("ADODB.Recordset")
rs.ActiveConnection=conexion
rs.Source="Alumno"
rs.LockType=adLockOptimistic
rs.Open
Do While NOT (rs.EOF OR existe)
If (StrComp(rs("Matricula"),Request.Form("Matricula") ,1)=0) Then
Response.Write "El numero de matricula " & Request.Form("Matricula") & " ya existe"
Response.Write "<BR> <A href='FormularioRegistro.html'>Volver a formulario de registro</A>"
existe=True
End If
rs.MoveNext
Loop
If NOT existe Then
rs.AddNew
rs("Nombre")=Request.Form("Nombre")
rs("ApellidoP")=Request.Form("ApellidoP")
rs("ApellidoM")=Request.Form("ApellidoM")
rs("Matricula")=Request.Form("Matricula")
rs("Plan")=Request.Form("Plan")
rs.Update
Response.Write "<H2>Test OK</H2>"
End If
rs.Close
Set rs=Nothing
conexion.Close
Set conexion=Nothing
%>
Ahora, en
Configuración de ODBC El nombre de origen de datos es:
BaseDemo Descripcion esta en blanco y en la base de datos tiene la direccion fisica de mi base de datos. No se si este bien o me haga falta algun paso.
Gracias por tus respuestas.