Ver Mensaje Individual
  #5 (permalink)  
Antiguo 07/02/2006, 08:29
A_girl
 
Fecha de Ingreso: febrero-2006
Mensajes: 98
Antigüedad: 19 años, 2 meses
Puntos: 0
holas

todavia tengo un problema....
kreo ke no me lee la base de datos porke antes keria mostrar los datos de un campo en un comobo box y no podia asi ke recurri a hacerlo manualmente....
ahora trato de comparar los datos del combo box y textfield kon los campos ke se encuentran en el archivo...
segun un ejemplo ke encontre en San google...y le cambie el string de conexion..
aki se los dejo:
<body>
<%Dim Usuario,Contraseña
if request.form("usuario")="" or request.form("contraseña") then
response.Redirect"form_ingresar.asp"
else
usuario=trim(request.form("usuario"))
contraseña=trim(request.form("contraseña"))
usuario=replace(usuario,"'","''")
contraseña=replace(contraseña"'","''")

<!--#include file="../misitio/adovbs.inc" -->
Set connection=Server.CreateObject("ADODB.Connection")
set rs = CreateObject("ADODB.Recordset")
connection.ConnectionString="Driver={SQL Server};Server=3333;User Id=sa; password='xxx'"
connection.Mode=3
connection.open

sql = "SELECT * FROM prueba WHERE usuario = '"& usuario &"'"
rs .open sql,connection,1,2

if (rs.eof =true) then
response.write "este usuario no existe"
else if rs.fields("password")=contraseña then
response.write"hola"
else
response.write "esta contraseña no concuerda"
response.redirect"form_ingresar.asp"
end if
end if
end if%>

</body>
</html>

toda ayuda sirve....vale!