Problema con formularios en asp y sql 2000

zack · #1 (**permalink**) 21/05/2008, 12:09

Hola a todos , la verdad es que he tratado de solucionar el problema y la verdad es que me ha sido imposible , tengo un formulario realizado en html al cual envio los datos a una pagina de registros en asp , no me recoge los valores del formulario y tampoco me ingresa a la bd de sql 2000 , ojala que me puedan ayudar porque de verdad no se que hacer

aqui van los codigos

pagina usuarios
----------------------------------------------------------------------------------------------

<center>
</center>

<center><h2>Registro de usuario</h2></center> <br><br>
<form action="registro_usuarios.asp" method="post"> <center>
<table border="1" bordercolor="#004080" cellspacing="0" style="font-family: verdana; color:
#000000; font-size: 12px; font-weight: bold" cellpadding="0"
bgcolor="#e8e8d8">
<tr>
<td>Login: </td><td><input name="login" type="textlogin" value="" size="30"></td> </tr> <tr>
<td>Password: </td> <td><input name="password" type="textpassword" value="" size="30"></td> </tr> <tr>
<td>Nombres: </td> <td><input name="nombres" type="textnombres" value="" size="30"></td> </tr> <tr>
<td>Apellido Paterno: </td> <td><input name="apellidop" type="" value="" size="30"></td> </tr><tr>
<td>Apellido Materno: </td> <td><input name="apellidom" type="" value="" size="30"></td><tr>
<td>Nivel de acceso: </td> <td><input name="Nivel_acceso" type="" value="" size="30"></td></tr>
</table> <div align="center"><input type="submit" name="submit" class="button" value="Enviar" /> </center>
</form>

---------------------------------------------------------------------------------------------

registro usuarios

<body bgcolor="#FFFFFF">
<%

Dim cnn
Dim str

textlogin = Request.Form("Login")
textpassword = Request.Form("Password")
textnombres = Request.Form("Nombres")
textapellidop = Request.Form("ApellidoP")
textapellidom = Request.Form("ApellidoM")
textacceso = Request.Form("Nivel_Acceso")

Set cnn=CreateObject("ADODB.Connection")
str="Driver={SQL Server};SERVER=antonio;DATABASE=PROYECTOSINF;APP=P rogramaTest;"
str=Str & "User ID=sa;Password="

Cnn.Open str

SQL="INSERT INTO ta_usuarios (Login,Password,Nombres,ApellidoP,ApellidoM,Nivel_ Acceso) VALUES('"&textLogin&"','"&textPassword&"','"&textn ombres&"','"&textapellidop&"','"&textapellidom&"', '"&textnivel_acceso&"')"
cnn.execute(SQL)
cnn.close

%>

<%
%>

</BODY>

--------------------------------------------------------------------------------------------

Desde ya muchas gracias , he seguido manuales , ejemplos y aun no logro dar con el error o porque me sucede eso , gracias

Myakire · #2 (**permalink**) 21/05/2008, 12:24

Cita:

no me recoge los valores del formulario y tampoco me ingresa a la bd de sql 2000

Algún error?
La instruccion SQL se forma correctamente? la haz impreso en pantalla para constatarlo?
los request llegan vacíos?
tienes SkyPe instalado? esta en el puerto 8080?

datos, más datos

Shiryu_Libra · #3 (**permalink**) 21/05/2008, 13:16

otra mas

te da algun error????

zack · #4 (**permalink**) 21/05/2008, 16:10

la verdad es que no me da error y no la he impreso por pantalla , ¿ como lo puedo hacer? , no tengo instalado el skype, gracias por responder

Lebennin · #5 (**permalink**) 22/05/2008, 02:09

Vamos a ver, antes de nada comprueba que todo se realiza correctamente, es decir, probar los posibles errores:

Error 1: Que no recoja valores

Para eso haz lo siguiente en la página de recogida de valores. Elimina todas las lineas desde la ultima recogida de datos e imprime los valores, es decir

Cita:

registro usuarios

<body bgcolor="#FFFFFF">
<%

Dim cnn
Dim str

textlogin = Request.Form("Login")
textpassword = Request.Form("Password")
textnombres = Request.Form("Nombres")
textapellidop = Request.Form("ApellidoP")
textapellidom = Request.Form("ApellidoM")
textacceso = Request.Form("Nivel_Acceso")

Response.Write(textlogin & "<br />" & textpassword & "<br />" & textnombres & "<br/> " textapellidop & "<br />" & textapellidom & "<br />" & textacceso) %>

</BODY>

Pueden ocurrir varias cosas:

No imprime nada - No esta recuperando bien los valores del formulario y ahi esta el ppal problema

O imprime todo - La recogida de valores es correcta y por tanto esa parte de codigo esta correcta.

Paso 2. Comprobar que la instruccion SQL se genera correctamente. Para eso, desde el punto de partida de tu código y eliminadole unas cuantas filas, el código sería el siguiente:

Cita:

registro usuarios

<body bgcolor="#FFFFFF">
<%

Dim cnn
Dim str

textlogin = Request.Form("Login")
textpassword = Request.Form("Password")
textnombres = Request.Form("Nombres")
textapellidop = Request.Form("ApellidoP")
textapellidom = Request.Form("ApellidoM")
textacceso = Request.Form("Nivel_Acceso")

SQL="INSERT INTO ta_usuarios (Login,Password,Nombres,ApellidoP,ApellidoM,Nivel_ Acceso) VALUES('"&textLogin&"','"&textPassword&"','"&textn ombres&"','"&textapellidop&"','"&textapellidom&"', '"&textnivel_acceso&"')"

Response.Write(SQL)

%>

<%
%>

</BODY>

Es decir, en vez de conectar a la BBDD y ejecutar la consulta solo queremos comprobar que la sentencia SQL se realiza correctamente. Tres posibles resultados:

No imprime nada - No lo entenderia XDD

Las otras dos es comprobar si la sentencia SQL es correcta, es decir, si te falta algún espacio en algún lado. Eso sí, copia el resultado que te de y desde el analizador de consultas de SQL Server la ejecutas y compruebas si te da resultados o te da error.

Paso 3. Si hemos llegado hasta aquí, es "fácil", es decir, es un problema con la conexión a la base de datos. Comprueba la cadena de conexión e incluso antes de realizar un Insert, para probar la conexión realiza un select y recuperalo en un recordset, a ver si con suerte te sale el error de la conexión.

Espero que valga de algo esto.

zack · #6 (**permalink**) 22/05/2008, 10:02

Hola nuevamente: He probado el primero y me sale un error que me falta un '( y no se a que se refiere eso , aun no lo he probado del todo porque no me ha resultado del todo

zack · #7 (**permalink**) 22/05/2008, 10:03

pero lo seguiremos intentando , siempre las cosas valen de algo , gracias por la ayuda

Lebennin · #8 (**permalink**) 22/05/2008, 10:16

Es un error en mi response.Write

Cita:

Response.Write(textlogin & "<br />" & textpassword & "<br />" & textnombres & "<br/> " textapellidop & "<br />" & textapellidom & "<br />" & textacceso)

Falta el & antes de textapellidop, es decir :

Cita:

Response.Write(textlogin & "<br />" & textpassword & "<br />" & textnombres & "<br/> " & textapellidop & "<br />" & textapellidom & "<br />" & textacceso)

Este ultimo es correcto.

zack · #9 (**permalink**) 22/05/2008, 11:43

Vale , lo probaremos ahora , muchas gracias por la paciencia y el apoyo

zack · #10 (**permalink**) 22/05/2008, 11:49

Ahora lo acabo de probar en la pagina , el primer ejemplo y no imprime nada , solo se queda l pagina en blanco , no esta recuperando los datos del formulario , gracias otra vez