Type mismatch: 'RS'
/3dgames/guardar.asp, line 33
El ke kiere decir este error? si es necesario ke ponga el codigo me lo pedis y lo pongo...
Salu2 y THX
16/07/2002, 18:33
| |||
| |||
| alguien me puede explicar este error? Microsoft VBScript runtime error '800a000d' Type mismatch: 'RS' /3dgames/guardar.asp, line 33 El ke kiere decir este error? si es necesario ke ponga el codigo me lo pedis y lo pongo... Salu2 y THX |
|
16/07/2002, 18:35
| ||||
| ||||
| Re: alguien me puede explicar este error? mm esta de más la pregunta de que nos pongas el código, es decir, lo necesitamos para ver mas o menos que puede ser. Saludos yamvoy <center> <a href=http://comunidadguru.com><img border=0 src=http://comunidadguru.com/urjose.gif></a> </center> |
|
16/07/2002, 19:05
| |||
| |||
| Re: alguien me puede explicar este error? Bueno pues aquí te pongo el codigo ke yo supongo ke sera una "cagada" porke aun estoy empezando con estoy y me kise poner a probar aver si conseguia acer algo: <% usuario = Trim(Request.Form("usuario")) password = Trim(Request.Form("password")) IdMensaje = Request.QueryString("IdMEnsaje") email = RS("email") titulo = Trim(Request.Form("titulo")) juego = Trim(Request.Form("juego")) mensaje = Request.Form("noticia") If usuario = "" OR password = "" OR titulo = "" OR juego = "" OR noticia = "" then Response.Write "<BR><BR>Faltan datos en el formulario vuelva atras y recuerda rellenar los campos marcados con un *." ELse Set oConn = Server.CreateObject ("ADODB.Connection") oConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="&Server.MapPath("\3dgames\db\ba sedatos.mdb") Set RS = Server.CreateObject ("ADODB.RecordSet") sql = "SELECT * FROM usuarios WHERE usuario='"&usuario&"'" RS.Open sql, oConn,1,1 If RS.EOF = True then Response.Write "Ese usuario no existe" ElseIF RS.Fields("password") = password then If IdMensaje = "" then oConn.Execute "INSERT INTO noticias (usuario, email, titulo, juego, mensaje, fecha) VALUES ('"&usuario&"', '"&email&"', '"&titulo&"', '"&juego&"', '"&mensaje&"', '"& Now()&"')" Else oConn.Execute "INSERT INTO noticias (nombre, email, titulo, juego, mensaje, fecha, IdCabeza) VALUES ('"&usuario&"', '"&email&"', '"&titulo&"', '"&juego&"', '"&mensaje&"', '"& Now()&"', "&IdMensaje&")" Set RS2 = Server.CreateObject("ADODB.RecordSet") sql2 = "SELECT respuestas FROM noticias WHERE IdMensaje="&IdMensaje&"" RS2.Open sql2, oConn, 2 ,2 oConn.Execute "UPDATE noticias SET Respuestas=("&RS("Respuestas")+ 1&") WHERE IdMensaje="&IdMensaje&" " RS2.Close Set RS2 = Nothing End If Else Response.Write "Escribiste mal la contraseña vuelva a escribirla" End IF RS.Close oConn.Close Set RS = nothing Set oConn = nothing End IF %> |
|
16/07/2002, 19:10
| |||
| |||
| Re: alguien me puede explicar este error? Con ese codigo lo ke pretendo es ke al rellenar un formulario te llebe a esa pagina donde se añaden los datos a la base de datos, pero con varias condiciones: 1º El ke escribe el mensaje a de estar registrado por eso al principio compruebo en la tabla usuarios ke existe y ke esta bien su contraseña. 2º Tienen ke estar todos los campos rellenados. Entonces lo ke ago es ke si es la respuesta a un mensaje se añada el mensaje como respuesta al mensaje y si es un nuevo mensaje se añada como nuevo mensaje... Supongo ke tendre muxos errores porke komo te e contao ace poco ke empeze con esto y ya me puse a intentar acer algo Salu2 y gracias por contestar :) |
|
16/07/2002, 19:23
| ||||
| ||||
| Re: alguien me puede explicar este error? El mismacth lo que quiere decir es que el tipo de datos que estas instroduciendo en la base de datos con concide con el tipo de datos que tiene declarado el campo. Por Ej. SI tratas de grabar texto en un campo numerico... :P .::RsOfT::. --El que se aferra a lo conocido, nunca conocerá lo desconocido-- --Es intentando lo imposible como se realiza lo posible-- --Es de pesimo gusto contentarse con algo mediocre cuando lo excelente esta a nuestro alcance-- |
