Ver Mensaje Individual
  #9 (permalink)  
Antiguo 02/07/2009, 09:42
arquimedes
 
Fecha de Ingreso: marzo-2009
Mensajes: 13
Antigüedad: 15 años, 1 mes
Puntos: 0
Respuesta: Ayuda en instalación de IIS en Win Server 2003

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.