Forum Moderators: open
<%
dim strMsg, userName, pass, hdnSaveValue
userName = Request.Form("username")
userName = replace(userName, "'", "''")
pass = Request.Form("password")
pass = replace(pass, "'", "''")
hdnSaveValue = Request.Form("hdnSaveValue")
strMsge=""
if(hdnSaveValue="1") then
sql = "SELECT * from MyTable WHERE cUser = '" & userName & "' AND cPass = '" & pass & "'"
Set rsOuter = Server.CreateObject("ADODB.RecordSet")
Set cnn = Server.CreateObject("ADODB.Connection")
cnn.open dBaseCon
counter = 0
rsOuter.Open sql,cnn,0,1
if NOT rsOuter.EOF then
session("sessUser") = rsOuter("cUser")
session("sessPass") = rsOuter("cPass")
response.redirect("logged.asp")
else
strMsg = "***Error: Invalid Username or password, Please retry***"
end if
end if
%>
P.S
I think you might want to read up how to protect your site from SQL Injection Attacks. The link below should provide a start to help you protect your site.
[4guysfromrolla.com...]
I also have this javascript checking code as part of it. So that fixes up the hdnSaveValue... doesn't it?
<script language="javascript" type="text/javascript" >
function CheckValidForm()
{
var userName = document.getElementById("username");
var pass = document.getElementById("password");
var hdnSaveValue = document.getElementById("hdnSaveValue");
hdnSaveValue.value="0";
var canPost = false;
if(userName.value=="")
{
alert("Please enter user name");
userName.focus();
userName.select();
return false;
}
if(!checkEmail(userName))
return false;
if(pass.value=="")
{
alert("Please enter your password");
pass.focus();
pass.select();
return false;
}
else
canPost = true;
if(canPost)
{
hdnSaveValue.value="1";
document.frmLogin.submit();
}
}
</script>
<%
dim strMsg, userName, pass, hdnSaveValue
userName = Request.Form("username")
userName = replace(userName, "'", "''")
pass = Request.Form("password")
pass = replace(pass, "'", "''")
hdnSaveValue = Request.Form("hdnSaveValue")
strMsge=""
'''' debug '''
RESPONSE.WRITE "<fieldset>User:"& userName &"<br>Pass:"& pass &"<br>Hidden:"& hdnSaveValue &"</fieldset>"
if(hdnSaveValue="1") then
sql = "SELECT * from MyTable WHERE cUser = '" & userName & "' AND cPass = '" & pass & "'"
Set rsOuter = Server.CreateObject("ADODB.RecordSet")
Set cnn = Server.CreateObject("ADODB.Connection")
cnn.open dBaseCon
counter = 0
rsOuter.Open sql,cnn,0,1
if NOT rsOuter.EOF then
session("sessUser") = rsOuter("cUser")
session("sessPass") = rsOuter("cPass")
response.redirect("logged.asp")
else
strMsg = "***Error: Invalid Username or password, Please retry***"
end if
end if
%>