21/01/2002, 15:05
|
| | | Fecha de Ingreso: enero-2002
Mensajes: 27
Antigüedad: 23 años, 3 meses Puntos: 0 | |
| No consigo que funcione !
Hola a todos lo primero alguien pe podria revisar este codigo y decirme por que no funciona?
Desesperado!
O si alguien me hiciese el fabor se lo mandaria por correo en .zip , por que ya no se si es lo de l ODBC o lo de Ad.Per. de web
------------------INSERTAR
<HTML>
<TITLE> Insertar un registro </TITLE>
<BODY>
<!-- #INCLUDE FILE="ADOVBS.inc" -->
<%
<%If (Request.Form("Nombre") = "gonzalo") then
'IF (Request.Form <> "") THEN este tambien lo use y nada
Set Ob_Conn = Server.CreateObject ("ADODB.Connection")
Set Ob_RS = Server.CreateObject ("ADODB.RecordSet")
Ob_Conn.Open "EjemploBD"
Ob_RS.Open "Fichas", Ob_Conn, adOpenStatic, adCmdTable
Ob_RS.AddNew
Ob_RS ("DNI")= CLng (Request.Form("DNI"))
Ob_RS ("Nombre")= Request.Form("NOMBRE")
Ob_RS ("Apellidos")= Request.Form("APELLIDOS")
Ob_RS ("Dirección") = Request.Form("DIRECCION")
Ob_RS ("Teléfono")= Request.Form("TELEFONO")
Ob_RS.Update
Ob_RS.Close
Ob_Conn.Close
Response.Write "<H3>" & "Datos insertados" & "<H3>"
ELSE %>
<H3> ESCRIBA SUS DATOS PERSONALES </H3> <BR>
<FORM METHOD="Post" ACTION="Insertar.asp">
DNI: <INPUT NAME="DNI" SIZE=10> <BR>
NOMBRE: <INPUT NAME="Nombre" SIZE=15> <BR>
APELLIDOS: <INPUT NAME="Apellidos" SIZE=30> <BR>
DIRECCION: <INPUT NAME="Direccion" SIZE=30> <BR>
TELEFONO: <INPUT NAME="Telefono" SIZE=15> <BR>
<INPUT TYPE="Submit" VALUE="Enviar datos">
<INPUT TYPE="Reset" VALUE="Borrar">
</FORM>
<% END IF %>
</BODY>
</HTML>
|