No introduce datos en la Bd

[neo]

No me introduce datos en la Bd, os agraqdecería cualquier sugerencia, aquí os muestro el código de las 2 páginas que consta el sistema que uso pa la tarea. (Lo pruebo desde Windows 98 con Dreamweaver). Gracias por adelantado.




PÁGINA 1º


<Form action="PRUEBA-2.ASP" METHOD="post">

INTRODUCIR NOMBRE POR FAVOR:
<INPUT TYPE="TEXT" NAME="nombre" SIZE=38>
<INPUT TYPE="SUBMIT" NAME="submit1" VALUE="VALIDAR"></font>
</FORM>



PÁGINA 2º

sql = "insert into Tabla1(Nombre) values ('" & request.form("nombre") & "')"
Dim Conex
Set Conex = Server.CreateObject ("ADODB.Connection")
Conex.open ("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=C:\windows\escritorio\prueba\prueba-db1.mdb"))
Conex.Execute (sql)
Conex.close
Set Conex = nothing

Response.Redirect("PRUEBA-1.ASP")
%>

[bakanzipp]

soy enemigo del dreamweaver y editores que te agregan conectores y quizas que cuantas cosas mas...

¿al ejecutar la pagina 2 te arroja algun error?

[neo]

No, la verdad es que no me saca ningún error, (la conexión a la base de datos la creo yo manualmente ) hay una cosa curiosa también, y es que además del código para la base de datos, incluyo un response.redirect que me tendría que llevar a la 1º PÁGINA y pasa de él olímpicamente, empiezo a dudar del Dreamweaver para probar páginas ASP.
Porque por otro lado, se supone que en windows 98 sin PWS pero con el dreamweaver se han de poder probar estas webs y funcionar ¿verdad?

Gracias de nuevo por la ayuda.

[GustavoPY]

No neo!

Necesitas instalar PWS para poder probar tus páginas ASP.
Lo de Dreamweaver, digamos, sirve para que él mismo "reconozca" las palabras reservadas que se usan en ASP.

Tengo PWS instalado en Windows 98. Para agregar datos a una DB realizo lo siguiente!

***************
PRUEBA-2.ASP
***************

<%

Dim str_nombre, sqltxt

str_nombre = Request.Form("nombre")

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db/files.mdb"))
set rs = CreateObject("ADODB.Recordset")

sqltxt "insert into Tabla1(Nombre) values ('" & str_nombre & "')"

rs.Open sqltxt, conn

Pruebalo y luego cuentame cómo te ha ido!!

Saludos!

[GustavoPY]

Me olvidé de escribir "%>" al final del código!!

Saludos!!