<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%response.buffer = true%>
[an error occurred while processing this directive]
<%
Response.Buffer = True
on error resume next
%>
<%
'DEFINE VARIABLES FOR PAGE REDIRECT ON ERROR
if request.form("username") <> "" then
var_username=request.form("username")
end if
if request.form("password") <> "" then
var_password=request.form("password")
end if
if request.form("login") <> "" then
var_login=request.form("login")
end if
if request.querystring("username") <> "" then
var_username=request.querystring("username")
end if
if request.querystring("password") <> "" then
var_password=request.querystring("password")
end if
if request.querystring("login") <> "" then
var_login=request.querystring("login")
end if
var_validateyear=year(now())-18
var_redirect=request.querystring("redirect")
%>
<%
'start the login process if the web visitor clicked the Login button
if request.form("login") <> "" then
If Request.form("login") = "YES" and request.form("username") <> "" and request.form("password") <> "" then
ProcessLogin
end if
end if
if request.querystring("login") <> "" then
If Request.querystring("login") = "YES" and request.querystring("username") <> "" and request.querystring("password") <> "" then
ProcessLogin
end if
end if
Sub ProcessLogin()
'build an ADO connection string
'LOGIN REGULAR USER
'on error resume next
Set cnLogin = Server.CreateObject ("ADODB.Connection")
cnStringLogin= "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("/database/KNJDB.mdb") & ";Jet OLEDB:Database Password=knj15usa21;" & "User ID=;"
cnLogin.mode = 3 'adModeReadWrite
cnLogin.open cnStringLogin
'cnLogin.open "DSN=SIIJS"
if err.number <> 0 then
err.clear
scr = Request.ServerVariables("SCRIPT_NAME")
loc = instrRev(scr,"/")
scr = mid(scr, loc+1, len(scr) - loc)
'response.redirect(request.servervariables("URL"))
response.redirect(scr) & "?username=" & var_username & "&password=" & var_password & "&login=" & var_login & "&redirect=" & var_redirect
end if
Set rsLogin = Server.CreateObject("ADODB.Recordset")
if request.form("username") <> "" then
'create and open an ADO Recordset object
sql= "SELECT tblsecurity.* " & _
"FROM tblsecurity " & _
"WHERE (uid = '" & ucase(Request("username")) & "') " & _
"AND pwid = '" & ucase(request.form("password")) & "' " & _
"AND (logintype='ADMIN' " & _
"OR logintype='USER'); "
end if
if request.querystring("username") <> "" then
'create and open an ADO Recordset object
sql= "SELECT tblsecurity.* " & _
"FROM tblsecurity " & _
"WHERE (uid = '" & ucase(Request.querystring("username")) & "') " & _
"AND pwid = '" & ucase(request.querystring("password")) & "' " & _
"AND (logintype='ADMIN' " & _
"OR logintype='USER'); "
end if
rsLogin.Open sql , cnLogin , adOpenDynamic , adLockOptimistic
'login web visitor
if err.number <> 0 then
err.clear
scr = Request.ServerVariables("SCRIPT_NAME")
loc = instrRev(scr,"/")
scr = mid(scr, loc+1, len(scr) - loc)
'response.redirect(request.servervariables("URL"))
response.redirect(scr) & "?username=" & var_username & "&password=" & var_password & "&login=" & var_login & "&redirect=" & var_redirect
end if
If rsLogin.EOF then
Response.Redirect "memberlogin.asp?redirect=" & var_redirect
else
loggedIn=true
Session("firstname") = rsLogin("fname")
Session("lastname") = rsLogin("lname")
Session("logintype") = rsLogin("logintype")
end if
'exit subroutine if a fatal error has occurred
If fMsg <> "" then
exit sub
end if
'if a successful login has occured send visitor to main menu
If loggedIn then
if request.form("username") <> "" then
Session("Login") = ucase(Request ("username"))
end if
if request.querystring("username") <> ""then
Session("Login") = ucase(Request.querystring ("username"))
end if
if request.form("password") <> "" then
Session("password") = ucase(request.form("password"))
end if
if request.querystring("password") <> "" then
Session("password") = ucase(request.querystring("password"))
end if
Session.Timeout = 30
'TRACK LOGIN
Set cnTrackLogin_add = Server.CreateObject ("ADODB.Connection")
cnStringTrackLogin_add= "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("/database/KNJDB.mdb") & ";Jet OLEDB:Database Password=knj15usa21;" & "User ID=;"
cnTrackLogin_add.mode = 3 'adModeReadWrite
cnTrackLogin_add.open cnStringTrackLogin_add
'cnTrackLogin_add.open "DSN=SIIJS"
if err.number <> 0 then
err.clear
scr = Request.ServerVariables("SCRIPT_NAME")
loc = instrRev(scr,"/")
scr = mid(scr, loc+1, len(scr) - loc)
'response.redirect(request.servervariables("URL"))
response.redirect(scr) & "?username=" & var_username & "&password=" & var_password & "&login=" & var_login & "&redirect=" & var_redirect
end if
'create and open an ADO Recordset object
sql= "SELECT * " & _
"FROM tbllogintrack ;"
Set rsTrackLogin_add = Server.CreateObject("ADODB.Recordset")
RSTrackLogin_add.Open sql , cnTrackLogin_add, adOpenDynamic , adLockOptimistic
if err.number <> 0 then
err.clear
scr = Request.ServerVariables("SCRIPT_NAME")
loc = instrRev(scr,"/")
scr = mid(scr, loc+1, len(scr) - loc)
'response.redirect(request.servervariables("URL"))
response.redirect(scr) & "?username=" & var_username & "&password=" & var_password & "&login=" & var_login & "&redirect=" & var_redirect
end if
rsTrackLogin_add.addnew
rsTrackLogin_add.fields("fname") = Session("firstname")
rsTrackLogin_add.fields("lname") = Session("lastname")
rsTrackLogin_add.fields("logintype") = Session("logintype")
rsTrackLogin_add.fields("logintime") = dateadd("h",3,Now())
rsTrackLogin_add.update
if rsTracklogin_add.State = adStateOpen Then
rsTrackLogin_add.close
SET CLOSE = NOTHING
' CLOSE THE CONNECTION
cnTrackLogin_add.CLOSE
SET cnTrackLogin_add = NOTHING
end if
Set cnid = Server.CreateObject ("ADODB.Connection")
cnStringid= "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("/database/KNJDB.mdb") & ";Jet OLEDB:Database Password=knj15usa21;" & "User ID=;"
cnid.mode = 3 ' adModeReadWrite
cnid.open cnStringid
'cnid.open "DSN=SIIJS"
if err.number <> 0 then
err.clear
scr = Request.ServerVariables("SCRIPT_NAME")
loc = instrRev(scr,"/")
scr = mid(scr, loc+1, len(scr) - loc)
'response.redirect(request.servervariables("URL"))
response.redirect(scr) & "?username=" & var_username & "&password=" & var_password & "&login=" & var_login & "&redirect=" & var_redirect
end if
'create and open an ADO Recordset object
sql= "SELECT Last(tbllogintrack.id) AS myid " &_
"FROM tbllogintrack " & _
"WHERE tbllogintrack.fname='" & session("firstname") & "' " & _
"AND tbllogintrack.lname='" & session("lastname") & "' " & _
"AND tbllogintrack.logintype='" & session("logintype") & "'; "
Set rsid = Server.CreateObject("ADODB.Recordset")
rsid.Open sql , cnid , adOpenDynamic , adLockOptimistic
if err.number <> 0 then
err.clear
scr = Request.ServerVariables("SCRIPT_NAME")
loc = instrRev(scr,"/")
scr = mid(scr, loc+1, len(scr) - loc)
'response.redirect(request.servervariables("URL"))
response.redirect(scr) & "?username=" & var_username & "&password=" & var_password & "&login=" & var_login & "&redirect=" & var_redirect
end if
Session("loginid")=rsid.fields("myid")
if rsid.State = adStateOpen Then
rsid.close
SET CLOSE = NOTHING
' CLOSE THE CONNECTION
cnid.CLOSE
SET cnid = NOTHING
end if
if var_redirect = "" then
Response.Redirect("thekeynewsjournal.asp")
else
Response.Redirect(var_redirect & ".asp")
end if
end if
if rsLogin.State = adStateOpen Then
rsLogin.Close
SET CLOSE = NOTHING
' CLOSE THE CONNECTION
cnLogin.CLOSE
SET cnLogin = NOTHING
end if
End Sub
%>
LexTown Publications
This brief survey should take only a minute or two to fill out because we respect your time and your privacy. We are only asking for this information because we need to begin collecting data for our advertisers who help keep all of our publications FREE! Thanks and come back to the site often!
