Conexion de Bd---------> estoy frito!!

[Tino28]

vereis tengo una web colgada co esta direccion: http://www.samec.es, y en el apartado demos he puesto un acceso (solo para clientes), basado en lo tipico de usuario/password,mediante un pekeño formulario que conecta con una pagina *.asp , que me debe comprobar:
1- ke los campos del formulario esten rellenos
2- Ke conecte con la base de datos
3- que coincidan los campos, etc
4- si OK redirect to......
5- si no ok redirect to....

El caso es que la BD esta alojada en un directorio superior al del html, y los asp los coloco en el correspondiente directorio apto para ejecutar asp.

que ocurre cuando ingreso datos en formulario y ejecuto:
al introducir datos, ya sean verdaderos o falsos, o sin datos me muestra:

""No se puede mostrar la página
Hay un problema con la página solicitada y no puede ser mostrada.. ""

Os pongo en codigo ke utilizo para ver si veis el fallo, porke me duele la cabeza del tema este. (que conste ke me he pateado un monton de sites con tutoriales de asp, sin conseguir juntar las piezas del puzzle.

os paso el codigo:

[Tino28]

formulario:

<form method="POST" action="com.asp">
con todo el html pertinente:

com.asp

<%
If Request.Form("usuario") = "" OR Request.Form("password") = "" then
Response.Write "<BR>Introduzca todos los datos</BR>"
Response.Redirect "login.asp"

Else
Dim usuario, password, oConn, RS
'Guardamos los datos del Form en variables.
usuario = Trim(Request.Form("usuario"))
password = Trim(Request.Form("password"))
'Conectamos a nuestra BD.
Set oConn = Server.CreateObject ("ADODB.Connection")
oConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ= "miDSN"
'Seleccionamos de la tabla solo los registros que concuerden con el usuario del Form.
If RS.EOF = True then
Response.Write "<BR>Ese usuario no existe</BR>"
'Si el campo de la tabla es igual a nuestra variable, estas logueado.
ElseIf RS.Fields("password") = password then
Response.Redirect "area_protegida.asp"
'Otra cosa, seria cuando el password no es la que seleccionamos.
Else
Response.Redirect "login.asp"
End If
'Limpiamos y cerramos.
oConn.Close
Set oConn = Nothing
End If
%>

[URSU]

Como primera observacion creo que primero debes declarar las varibles y despues asignarle el valor, por lo qeu veo en tu codigo lo estas haciendo al reves.- ;)

[URSU]

Fijate que me parece que el error esta en el primer if, donde haces un write y despues un redirect, sino me equivoco eso no se ppuede hacer escribir mientras la estas redireccionando.-
Espero te sirva de algo mi observacion.-

[bakanzipp]

citando....

'Conectamos a nuestra BD.
Set oConn = Server.CreateObject ("ADODB.Connection")
oConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ= "miDSN"
'Seleccionamos de la tabla solo los registros que concuerden con el usuario del Form.
If RS.EOF = True then

hiciste la conexion a la base de dato...pero cuando llenaste el registro RS..?
despues del Oconn.Open gralmente viene una consulta sql...algo asi

Código:

  
SQL="SELECT USER,PASSWORD FROM USUARIO WHERE USER='"& REQUEST("USER") &"' AND PASSWORD='"& REQUEST("PASSWORD") &"'"
SET RS=OCONN.EXECUTE(SQL)

IF RS.EOF 'NO LO ENCONTRO
  ....
ELSE
  RESPONSE.REDIRECT ....
END IF

;)

[Tino28]

He probado modificando tus notas bakanzip pero sigo igual, me sale siempre: "hay un problema con la pagina, y no puede ser mostrada"

<%
If Request.Form("usuario") = "" OR Request.Form("password") = "" then
Response.Redirect "login.asp"
Else
Dim usuario, password, oConn, RS
usuario = Trim(Request.Form("usuario"))
password = Trim(Request.Form("password"))
Set oConn = Server.CreateObject ("ADODB.Connection")
Set RS = Server.CreateObject ("ADODB.RecordSet")
oConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("miDNS ")
SQL="SELECT USER,PASSWORD FROM USUARIO WHERE USER='"& REQUEST("USER") &"' AND PASSWORD='"& REQUEST("PASSWORD") &"'"
SET RS=OCONN.EXECUTE(SQL)
RS.Open sql, oConn, 1, 1
If RS.EOF = True then
Response.Write "<BR>Ese usuario no existe</BR>"
ElseIf RS.Fields("password") = password then
Response.Redirect "area_protegida.asp"
Else
Response.Write "<BR>Esa contraseña no concuerda con el usuario ingresado"
End If
RS.Close
oConn.Close
Set RS = Nothing
Set oConn = Nothing
End If
%>

[rmilano]

Tino28

Solo que por no dejar donde estas corriendo la aplicacion????

[bakanzipp]

a ver amigo...todavia veo algunos detalles en tu codigo

citando...

SET RS=OCONN.EXECUTE(SQL)
RS.Open sql, oConn, 1, 1 *******
If RS.EOF = True then
Response.Write "<BR>Ese usuario no existe</BR>"
ElseIf RS.Fields("password") = password then ****

lo que esta con **** puede causarte problemas

elimina la linea donde haces un RS.open, basta con la linea anterior

la otra linea si enocntraste al user ..usa solo el

Código:

  
else
 response.redirect

pero no se por que me da la impresion que ademas es el 1er sql que ejecutas en tu maquina...esat seguro de que tu maquina esta bien configurada para soportar ASP?...la has probado antes con otras paginas de ejemplo?

[yomero]

prueba con una página que sólo contenga una linea donde envies un mensaje.

Saluditos

[rmilano]

Tino28

A lo que se refiere bakanzipp es a lo mismo a que me referia, a donde corres el programa, hace tiempo tenia mal configurado el PWS en mi maquina local, y me ocurria lo mismo que te ocurre a ti...

Con respecto al codigo, el original lo veo bien, los comentarios que te han hecho los compañeros aqui, son otras formas de hacer las cosas.

En contacto,
RMO
;)

[Tino28]

Bueno al fin di con el problema. El codigo esta bien, y el tema del PWS tambien estaba bien. Sabeis el "problemo"? esta aqui:

oConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("miDNS ")

al hablar con mi server me indico que esta instruccion no era necesaria, solo debia poner:

oConn.Open "miDNS"

Tan facil como eso, es decir me sobraba todo lo anterior.

De todas formas me habeis ilustrado.

Muchas gracias

[bakanzipp]

jejjeee...

app...bueno tino para lograr una conexion con la base de datos de puede hacer de muchas maneras...una es como tu la estabas haciendo pero generalmente se usan para pruebas...

EL DSN se crea via ODBC32 y asi el resto de los usuarios pueden acceder a tu base de datos...pero amigo....mientras mas cuestan las cosas mas aprende uno.

suerte