Error en ASP

Cony28 · #1 (**permalink**) 13/04/2005, 07:27

Tengo una pagina que llama pagina3.asp, pero al ejecutarla en el internet explorer me llama otra pagina que se llamaba pagina1.asp, porque ya la borre.
¿que puedo hacer?
Si alguien me puede ayudar...Gracias.

trasgukabi · #2 (**permalink**) 13/04/2005, 07:31

pues lo primero, ver lo que tienes dentro de pagina3.asp. y si no lo ves claro, ponerlo aqui y procuraremos echarte una mano.

Cony28 · #3 (**permalink**) 13/04/2005, 07:37

<%
Dim usuario, password, dBase, rs
If Request.Form("usuario") = "" OR Request.Form("password") = "" then
Response.Redirect "pagina1.asp"
Else
usuario = Trim(Request.Form("usuario"))
password = Trim(Request.Form("password"))
usuario = Replace(usuario,"'","''")
password = Replace(password,"'","''")

Set dBase = Server.CreateObject ("ADODB.Connection")
dBase.Open ("login")

sql = "SELECT * FROM tabla2 WHERE usuario = '"& usuario &"'"
Set RS = Server.CreateObject ("ADODB.RecordSet")
RS.Open sql, dBase

If (RS.EOF = true) then
Response.Write "Ese usuario no existe"
ElseIf RS.Fields("password") = password then
Response.Write "Te logueaste con exito... Bienvenido "& usuario &""
Else
Response.Write "Esa contraseña no concuerda con el usuario ingresado"
End If

RS.Close
dBase.Close
Set RS = Nothing
Set dBase = Nothing
End If
%>

trasgukabi · #4 (**permalink**) 13/04/2005, 07:50

Response.Redirect "pagina1.asp"
eso es lo que te manda a pagina1.asp

Cony28 · #5 (**permalink**) 13/04/2005, 08:08

tengo el siguiente codigo:

Dim usuario, password, dBase, rs
If Request.Form("usuario") = "" OR Request.Form("password") = "" then
Response.Redirect "pagina2.asp"
Else
usuario = Trim(Request.Form("usuario"))
password = Trim(Request.Form("password"))
usuario = Replace(usuario,"'","''")
password = Replace(password,"'","''")

Set dBase = Server.CreateObject ("ADODB.Connection")
dBase.Open ("Login")

sql = "SELECT * FROM tabla2 WHERE usuario = '"& usuario &"'"
Set RS = Server.CreateObject ("ADODB.RecordSet")
RS.Open sql, dBase

If (RS.EOF = true) then
Response.Write "Ese usuario no existe"
ElseIf RS.Fields("password") = password then
Response.Write "Te logueaste con exito... Bienvenido "& usuario &""
Else
Response.Write "Esa contraseña no concuerda con el usuario ingresado"
End If

RS.Close
dBase.Close
Set RS = Nothing
Set dBase = Nothing
End If

Me tira el siguiente Error en la linea 29:
No se encontró el elemento en la colección que corresponde con el nombre o el ordinal pedido.

Si alguien me puede ayudar...Gracias.

trasgukabi · #6 (**permalink**) 13/04/2005, 08:12

podrías al menos decir cómo te ha ido con los dos posts anteriores que has puesto en media hora?

y cual es la linea 29? la de rs("password")?

Cony28 · #7 (**permalink**) 13/04/2005, 08:16

Me fue bien con los anteriores, la linea 29 es :

ElseIf RS.Fields("password") = password then

.gracias.

trasgukabi · #8 (**permalink**) 13/04/2005, 08:17

el error es descriptivo a más no poder: no existe un campo en la tabla que se llame password. controla que no se llame passw, pwd o lo que sea

Cony28 · #9 (**permalink**) 13/04/2005, 09:08

le cambie el campo pero me tira el mismo error, ahora tengo lo siguiente:

<%
Dim usuario, contrasena, dBase, RS
If Request.Form("usuario") = "" OR Request.Form("contrasena") = "" then
Response.Redirect "pagina2.asp"
Else
usuario = Trim(Request.Form("usuario"))
contrasena = Trim(Request.Form("contrasena"))
usuario = Replace(usuario,"'","''")
contrasena = Replace(contrasena,"'","''")

Set dBase = Server.CreateObject ("ADODB.Connection")
dBase.Open ("Login")

sql = "SELECT * FROM tabla2 WHERE usuario = '"& usuario &"'"
Set RS = Server.CreateObject ("ADODB.RecordSet")
RS.Open sql, dBase

If (RS.EOF = true) then
Response.Write "Ese usuario no existe"
ElseIf RS.Fields("contrasena") = contrasena then
Response.Write "Te logueaste con exito... Bienvenido "& usuario &""
Else
Response.Write "Esa contraseña no concuerda con el usuario ingresado"
End If

RS.Close
dBase.Close
Set RS = Nothing
Set dBase = Nothing
End If
%>

Cony28 · #10 (**permalink**) 13/04/2005, 09:31

Dim usuario, contrasena, dBase, RS
If Request.Form("usuario") = "" OR Request.Form("contrasena") = "" then
Response.Redirect "pagina2.asp"
Else
usuario = Trim(Request.Form("usuario"))
contrasena = Trim(Request.Form("contrasena"))
usuario = Replace(usuario,"'","''")
contrasena = Replace(contrasena,"'","''")

Set dBase = Server.CreateObject ("ADODB.Connection")
dBase.Open ("Login")

sql = "SELECT * FROM tabla2 WHERE usuario = '"& usuario &"'"
Set RS = Server.CreateObject ("ADODB.RecordSet")
RS.Open sql, dBase

If (RS.EOF = true) then
Response.Write "Ese usuario no existe"
ElseIf RS.Fields("contrasena") = contrasena then
Response.Write "Te logueaste con exito... Bienvenido "& usuario &""
Else
Response.Write "Esa contraseña no concuerda con el usuario ingresado"
End If

RS.Close
dBase.Close
Set RS = Nothing
Set dBase = Nothing
End If

No se encontró el elemento en la colección que corresponde con el nombre o el ordinal pedido en la linea 29, que es esta:

ElseIf RS.Fields("contrasena") = contrasena then

ya verifique los campos de la Base de datos y esta bien¿que tiene?
Si alguien me puede ayudar...Gracias.

pablinweb · #11 (**permalink**) 13/04/2005, 09:50

La verdad que el mensaje de error es porque no reconoce "contrasena" en la consulta de la tabla2, porqué no pruebas poner:

SELECT contrasena FROM tabla2 WHERE usuario = '"& usuario &"'"

para ver si te dá error cuando abres el recordset...

javopereira · #12 (**permalink**) 13/04/2005, 10:03

te sigue tirando el "mismo" error en la linea donde dice RS.Fields("contrasena") ???
Si el error es ese. controla bien que en la tabla2 exista el campo contrasena.

pablinweb · #13 (**permalink**) 13/04/2005, 10:20

Cony28, no habras más de un post con el mismo tema, yo te contesté en el otro y ya no sé en que quedó ni a cual seguir...

Cony28 · #14 (**permalink**) 13/04/2005, 10:34

tengo el siguiente codigo:
Dim usuario, contrasena, dBase, RS
If Request.Form("usuario") = "" OR Request.Form("contrasena") = "" then
Response.Redirect "pagina2.asp"
Else
usuario = Trim(Request.Form("usuario"))
contrasena = Trim(Request.Form("contrasena"))
usuario = Replace(usuario,"'","''")
contrasena = Replace(contrasena,"'","''")

Set dBase = Server.CreateObject ("ADODB.Connection")
dBase.Open ("Login")

sql = "SELECT contrasena FROM tabla2 WHERE usuario = '"& usuario &"'"
Set RS = Server.CreateObject ("ADODB.RecordSet")
RS.Open sql, dBase

If (RS.EOF = true) then
Response.Write "Ese usuario no existe"
ElseIf RS.Fields("contrasena") = contrasena then
Response.Write "Te logueaste con exito... Bienvenido "& usuario &""
Else
Response.Write "Esa contraseña no concuerda con el usuario ingresado"
End If

RS.Close
dBase.Close
Set RS = Nothing
Set dBase = Nothing
End If
Pero me sale el siguiente error en esta linea:

RS.Open sql, dBase
y me dice lo siguiente:
Pocos parámetros. Se esperaba 1.
Si alguien me puede ayudar...Gracias.!!!

u_goldman · #15 (**permalink**) 13/04/2005, 10:47

Bueno, para mi, pueden ser unas cuantas cosas:

sql = "SELECT contrasena FROM tabla2 WHERE usuario = '"& usuario &"'"

1.- Verifica que los nombres de tus campos se llamen de esa manera
2.- Verifica que valor tiene la variable usuario(si tiene alguno)

Esto lo puedes hacer imprimiendo la variable sql y después deteniendo la ejecución de comandos mediante un response.end

3.- Al momento de abrir el recordset, utiliza un cursor y un cerrojo, vamos a decir 3,3: RS.Open sql, dBase, 3, 3
4.- Verifica que realmente estés haciendo la conexión con la base de datos adecuadamente.

Salu2,

pablinweb · #16 (**permalink**) 13/04/2005, 13:19

Cony28, basta de postear lo mismo, mantené un solo hilo es el 5º post con lo mismo...