Urgente, No se insertan los datos en la BD ¿xq?

[Laika]

Hola,

Tengo un formulario en el que hay varias cajas de texto.
Cuando le doy al boton enviar, los datos de las cajas van a una página .asp en la que se recogen los datos, se envian por mail y pasan a una base de datos.

La parte de que me lleguen por mail funciona perfectamente pero no me pasan los datos a la base de datos y no se porqué.
Esta es la parte del codigo que debería de meter los datos en la tabla.

Haber si me podeis ayudar porque no veo el fallo.

Saludos

Laika

Set Conn = Server.Createobject("ADODB.Connection")
Set Ob_RS = Server.CreateObject ("ADODB.RecordSet")
Conn.Open "bd.eduardolaborde.com"
Ob_RS.Open "pedidos",Conn,3,3

Ob_RS.AddNew

Ob_RS ("nombre")= Request("nombre")
Ob_RS ("contacto")= Request("contacto")
Ob_RS ("direccion")= Request("direccion")
Ob_RS ("cp")= Request("cp")
Ob_RS ("poblacion")= Request("ciudad")
Ob_RS ("provincia")= Request("provincia")
Ob_RS ("pais")= Request("pais")
Ob_RS ("fijo")= Request("fijo")
Ob_RS ("movil")= Request("movil")
Ob_RS ("email")= Request("email")
Ob_RS ("comentarios")= Request("comentarios")

Ob_RS.Update
Ob_RS.Close
Conn.Close()

[RootK]

Ob_RS.Open "pedidos",Conn,3,3

porque no lo cambias por...

Ob_RS.Open "pedidos",Conn,1,3

Saludos

[Laika]

asi tampoco funciona, que raro!! no?

[Radar]

Prueba a hacer esto.:

Código PHP:

   
dim con,rs,sql 
Set con = Server.CreateObject("ADODB.Connection") 
 
con.open "Provider=Microsoft.Jet.OleDb.4.0;Data source=" & Server.MapPath("tu_bd.mdb") 
 
Set rs = Server.CreateObject("ADODB.Recordset") 
 
sql = "Select * From Pedidos" 
Ob_RS.open sql,Conn,3,3  
   

Saludos.

[RootK]

Set Conn = Server.Createobject("ADODB.Connection")
Set Ob_RS = Server.CreateObject ("ADODB.RecordSet")
Conn.Open "bd.eduardolaborde.com" Ob_RS.Open "pedidos",Conn,3,3

Ob_RS.AddNew

Creo que tu cadena de conexion no está correcta... sería mas bien:

si es acces:
strConn = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("\xxxxx\db\myb.mdb")

si es sql server
strConn = "Driver={SQL Server};Description=sqldemo;SERVER=127.0.0.1; UID=LoginID;PWD=Password;DATABASE=Database_Name"

Conn.Open strConn

set rs=createobject("ADODB.Recordset")
rs.CursorType = adOpenKeyset
rs.LockType = adLockOptimistic

rs.open "pedidos",Conn
rs.AddNew
...
...
etc


Espero que ese sea tu error..

Saludos

[Gurrutello]

hola
1- teda algun error ??? o 2- simplemente no hace nada???

1- Pon el error que te da
si expeciicas el error sera mas facil saber la solucion

2 - Pon el codigo completo
Si o muestra nada puede ser que lo tengas entre if ... y else ...
o sabe dios que!!

como los mensajes anteriores cada uno da una solucion, pero sin ver el tipo de conexion que tienes.

otra seria intentar el introducir los datos sin hacer el envio de emails a ver si te funciona

saludos

[evoarte]

Otro posible motivo del error puede venir por el tipo de campo que utilices en tu base de datos, los campos ntext dan problemas cuando existe mas de 1 en la tabla.

Recuerdo que tuve un problema con una tabla con 2 ntext, la inserción en el primer campo la hacia y no en el segundo, cambie, y ahora utilizo nvarchar.

Salud2.