Como hago este password?

[gonzaloj]

Hola no se como hacerlo, es un password de para acceder a una pagina checkeando el nombre y elpassword de una base de datos

<%
nombre_usu=Request.Form("nombre")
password_usu=Request.Form("password")

Set Conn = Server.CreateObject("ADODB.Connection")
set rs = server.CreateObject("ADODB.Recordset")

Do While Not RS.Eof
if(nombre_usu=RS("nombre") & password_usu=RS("password")) then
Response.Redirect("principal.htm")

End If


RS.MoveNext
Loop
Conn.Close %>

[akela]

Este es un código que me funciona muy bien:
según yo te hace falta abrir tu base de datos que es la línea que te pongo en negritas.

usuario = request.form("user")
password = request.form("clave")
Set Conn = Server.CreateObject("ADODB.Connection")
Set Rs = Server.CreateObject ("ADODB.Recordset")

dsn = "DBQ=" & Server.Mappath("colaboredores.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};"
Conn.Open dsn

SQL = "SELECT * FROM Registros where password='"& password &"' and usuario='"& usuario & "'"
rs.open sql,conn

if rs.eof and rs.bof then
response.write "<center><b>Usuario Inválido!</b></center>"
else
if request.form("User")<> "" then
'aqui pones lo que quieras hacer si es válido el usuario y pass
end if
end if