<%
'---DATABASE INFO
message=""
MM_redirectLoginSuccess="secureInstructorResources.asp"
MM_redirectLoginFailed="member_logininval.asp"
' *** Validate request to log in to this site.
if request("email")<>"" then
if request("password")="" then
message = "Please enter a password"
else
DBServer = "jupiter.sierratech.com"
DBName = "email_jordanValley"
DBUserID = "sa"
DBPassword = "administrator"
DataSource = "Driver={SQL Server}; Server=" & DBServer & "; DATABASE=" & DBName
DataSource=DataSource&";UID=" & DBUserID & ";Password=" & DBPassword
'response.write datasource & "
"
Set Conn = Server.CreateObject("ADODB.Connection")
conn.open dataSource
sql = "select id from customer where [email address*] = '"&request("email") & "'"
sql = sql & " and [*~password*] = '"&request("Password") & "'"
'response.write sql
set rs = conn.execute(sql)
if not rs.eof then
Session("MM_Username") = request("email")
response.redirect "secureInstructorResources.asp"
else
message = "Incorrect Login"
end if
end if
elseif request("password")<>"" then
message = "You didn't enter an email address"
else
message = "Please enter a email address and password"
end if
%>
LearnXRF.com
