20/01/2002, 13:24
|
| | | Fecha de Ingreso: enero-2002
Mensajes: 27
Antigüedad: 23 años, 3 meses Puntos: 0 | |
| Este codigo no funciona Socorro!
Hola Un compañero del foro me ha pasado este codigo y no me funciona es para insetar registr.
Tengo que decir que la base de datos esta creada y la pase por el OBDC, puese el archivo ADOVBS.inc y le cree un directorio virtual con e PWP del w2000, DESESPERO!
----
<BODY>
<!-- #INCLUDE FILE="ADOVBS.inc" -->
<%IF (Request.Form <> "") THEN
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="sumar.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>
--------------------------
Me urge un poco muchas gracias. |