Conexion a base de datos

Carlos150 · #1 (**permalink**) 17/08/2002, 12:20

Hola, tengo un formulario conectacdo a una base de datos, pero al rellenar los datos y pulso enviar me da mensaje de error. El servidor que utilizo es 7host.com y el código del formulario es: Gracias y un saludo.
<HTML>
<TITLE> Insertar un registro </TITLE>
<%@ LANGUAGE=JScript %>
<BODY>


<% if (Request.Form+"." != "undefined.")
{

Ob_Conn = new ActiveXObject ("ADODB.Connection")
Ob_RS = new ActiveXObject ("ADODB.RecordSet")
Ob_Conn.Open ("EjemploBD")
Ob_RS.Open ("Fichas", Ob_Conn, adOpenStatic, adCmdTable)

Ob_RS.AddNew ()
Ob_RS ("DNI")= parseInt (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="EjBD2.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>
<% } %>
</BODY>
</HTML>

maestro · #2 (**permalink**) 17/08/2002, 20:19

Te has olvidado lo mas importante "el error"

Jose Maria Fernandez
<a href="mailto:[email protected]">Webmaster @expansionweb.net</a>
<a target="_blank" href="Http://www.expansionweb.net">Http://www.expansionweb.net</a>

malex6 · #3 (**permalink**) 18/08/2002, 02:23

Como dice maestro no se cual es tu error
pero me llama la atencion que en tu inicio marcas el lenguaje como javascripts (JS)cuando debieras colocar
<%@ LANGUAGE="VBSCRIPT" %>
bueno para tratar de ayudarte te recomiendo este codigo:
<%
Response.Buffer = true
dim cnn,rst
' Creamos la conexión a la base de datos sin DSN
set cnn = Server.CreateObject("ADODB.Connection")
set rst = Server.CreateObject("ADODB.RecordSet")
cnn.Open("Provider=Microsoft.Jet.OLEDB.4.0;Da ta Source=" & _
Server.MapPath("ejemplobd.mdb"))
'aqui si quieres hacerlo con DNS solo reemplaza lo anterior a esto:
cnn.open "ejemplobd"

sqltext = "SELECT * FROM TuTABLA"
rst.Open sqltext,cnn,3,3

'Recogemos los datos y validamos que no haya ningun campo vacio
dim nombre, apellido, direccion, fecha, telefono
nombre = Request.Form("nombre")
apellido = Request.Form("apellido")
direccion = Request.Form("direccion")
fecha = Request.Form("fecha")
telefono = Request.Form("telefono")

if nombre = "" or apellido = "" or direccion = "" or telefono = "" then
error = "Debe completar todos los datos."
Response.Write error
Response.End
end if

'Si está todo correcto, procedemos a ingresar los datos a la base de datos

rst.AddNew
rst("nombre") = nombre
rst("apellido") = apellido
rst("direccion") = direccion
rst("telefono") = telefono
rst("fecha") = fecha

rst.update

'Terminamos e imprimimos un mensaje
Response.Write "El registro se ha ingresado con exito"
%>

Nota: el formulario USA EL MISMO QUE TIENES.