Compañeros! tengo un errorsote pero no se que sucede, soy nueva con esto,
------------
Microsoft JET Database Engine error '80040e10'
No value given for one or more required parameters.
/ValUser.asp, line 20
----------------------
lo que trae esta pag asp es esto
LA LINEA QUE ESTA EN ROJO ES LA LINEA 20, QUE PUEDO HACER? ME FALTARA ALGO ?
Código:
<%
dim sUser
dim SPwd
dim sQuery
dim cn
dim rs
dim DNS
sUser = Request.Form("txtUsuario")
sPwd = Request.Form("txtPassword")
' DNS= "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&server.mappath("\cgi-bin\userevm.mdb")&";Persist Security Info=False"
set cn= server.createobject("ADODB.Connection")
cn.Open ("Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&server.mappath("\cgi-bin\userevm.mdb")&";Persist Security Info=False")
set rs= server.createobject("ADODB.Recordset")
sQuery = "Select * From userevm where username = '" & sUser & "'"
' rs.Open sQuery
set rs = cn.Execute(sQuery)
If rs.BOF and rs.EOF then
Application("ValidUser") = 1
Response.Redirect("login.asp")
Else
if trim(sPwd) = trim(rs.fields("pass").value) then
Application("ValidUser") = 0
Session("User")=sUser
Session("Pwd")=sPwd
Response.Redirect("prueba.htm")
else
Application("ValidUser") = 1
Response.Redirect("login.asp")
end if
End If
rs.Close
Set rs = Nothing
cn.close
set cn = Nothing
%>