<%Response.Buffer = True%>
<html>
<head>
<%
Dim strRemoteIP
strRemoteIP = LCase(Request.ServerVariables("REMOTE_ADDR")) ' Client's IP address
%>
<meta http-equiv="Content-Language" content="en-us">
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>Login Page</title>
<script language="javascript">
function noRightClick() {
if (event.button==2) {
alert('Sorry, while viewing our website your Right Click action has been disabled.')
}
}
document.onmousedown=noRightClick
</script>
</head>
<body>
<SCRIPT LANGUAGE="vbscript" RUNAT="Server">
If Request.Form("Name") = "Someone" AND Request.Form("Password") = "TheirPassword" Then
Response.Write"<form name='SelectDen' action='next_page.asp' method='post'>"
Response.Write"<table border='0' cellpadding='0' cellspacing='0' style='border-collapse: collapse' bordercolor='#111111' width='672' id='AutoNumber1'>"
Response.Write"<tr>"
Response.Write"<td width='195'>"
Response.Write"<img border='0' src='images/yourimage.gif' width='195' height='193'></td>"
Response.Write"<td width='477' > <font size='6'><br>"
Response.Write" Cub Scouts - PACK 62</font></td>"
Response.Write"</tr>"
Response.Write"<td width='672' colspan='2'><h3 align='center'>Select your Den Number "
Dim MyArray
MyArray = array("","1","2","3","4","5","6","7")
With Response
.write "<select name='Den-No'>" &vbcrlf
' Look for matching Den Type, load option form with that type.
for each item in MyArray
.write "<option value='" & item & "'"
.write ">" & item & "</option>"
Next
End With
Response.Write"</select>"
Response.Write"</h3>"
Response.Write"</td>"
Response.Write"</tr>"
Response.Write"<tr>"
Response.Write"<td width='672' colspan='2'>"
Response.Write"<p align='center'><input type='Submit' value='Submit'>"
Response.Write"</td>"
Response.Write"</tr>"
Response.Write"</table>"
Response.Write"</form>"
Else
'Set a log file - give it a 1 hour life
If Request.Cookies("status") = "" Then
Response.Cookies("status")= 1
Response.Cookies("status").Expires=DateAdd("h",1,Now)
Else
Response.Cookies("status")= Request.Cookies("status") + 1
Response.Cookies("status").Expires=DateAdd("h",1,Now)
End If
'Determine if we ban the IP address
If Request.Cookies("status") >= 4 Then 'Ban the address
Set connupdate = Server.CreateObject( "ADODB.Connection" )
Set rec = server.CreateObject("ADODB.Recordset")
'Create connection to the table, and use OLEDB.4.0 driver
connupdate.Open "Data Source=" & Server.Mappath("mydatabase.mdb") & ";Provider=Microsoft.Jet.OLEDB.4.0;"
dim objRS
set objRS = server.CreateObject("ADODB.Recordset")
' Set the cursor location to client side (3)
objRS.CursorLocation = 3
objRs.open "Select * from tblBannedIP where RecordID = 0", connupdate, 3, 3
objRS.AddNew
objRS.Fields("IP") = strRemoteIP
objRS.Update
objrs.Close
set objrs = Nothing
connupdate.Close
set connupdate = nothing
Response.Redirect "banned.asp"
Else
Response.Write"<CENTER><FONT Color='Red' Size=6><B><U>INCORRECT LOGIN!</U><BR><BR> TRY AGAIN!</B></FONT>"
Response.Write"<P> </P>"
Response.Write"<FONT Color='Red' Size=6><A href='login.asp'>Click Here</A> to try again!</CENTER>"
End If
End If
</SCRIPT>
</body>
</html>
