Aqui hay una muestra del codigo que uso a veces para la autrentificacion de los usuarios.
Usando varias de las funciones que hay en la "biblioteca"
Código:
iws_login = checa_cadena(request.Form("iws_login"),1,false)
iws_password = checa_cadena(request.Form("iws_password"),0,false)
if iws_login = false or iws_password = false then
response.Redirect ("../")
termina
end if
iws_login = limpia_cadena(iws_login,2)
iws_password = limpia_cadena(iws_password,2)
str_sql = "select * from usrs where usrs_csq_id =" & iws_login
call abre_conexion()
xml = strtoxml(str_sql)
call cierra_conexion()
Set XmlDom = Server.CreateObject("MSXML2.DOMDocument")
XmlDom.loadXml(XML)
set xRow = XmlDom.getElementsByTagName("reg")
usrs_nmb_pswd = FieldFromNRecord(xRow.item(0),"usrs_nmb_pswd")
Set xRow = nothing
Set XmlDom = nothing
usrs_nmb_pswd = iws_des_encripta(usrs_nmb_pswd)
if usrs_nmb_pswd <> iws_password then
call mensaje("Usuario no Válido o Password Incorrecta")
call redireccionar("../")
call termina
end if
y la verdad es que molesto a la BD una sola vez.
