############################################################
HTML siden:
############################################################
<html>
<head>
<meta http-equiv="Content-Language" content="da">
<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>Ban En IP</title>
</head>
<body>
<form method="GET" action="banip.asp?from=<% " & request.form("from") & " %>">
IP:<br>
<input type="text" name="ip" size="20"></p>
<p>Årsag:<br>
<textarea rows="2" name="reason" cols="20"></textarea></p>
<p>Hvor Længe:<br>
<select size="1" name="D1">
<option value="1">1 Time</option>
<option value="2">10 Timer</option>
<option value="3">1 Dag</option>
<option value="4">7 Dage</option>
<option value="5">1 Måned</option>
<option value="6">6 Måneder</option>
<option value="7">For Altid</option>
</select></p>
<p><input type="submit" value="Ban IP" name="B1"></p>
</form>
</body>
</html>
####################################################################
banip.asp
####################################################################
<%
MyDay = Day(Now)
MyMonth = Month(Now)
MyHour = Hour(Now)
MyMinute = Minute(Now)
MySecond = Second(Now)
If len(MyDay) < 2 then strD = "0" else strD = "" end if
If len(MyMonth) < 2 then strM = "0" else strM = "" end if
If len(MyHour) < 2 then strH = "0" else strH = "" end if
If len(MyMinute) < 2 then strMi = "0" else strMi = "" end if
If len(MySecond) < 2 then strS = "0" else strS = "" end if
strLigeNu = strD & Day(Now) & "-" & strM & Month(Now) & "-" & Year(Now) & " " & strH & Hour(Now) & ":" & strMi & Minute(Now) & ":" & strS & Second(Now)
strLigeNow = strD & Day(Now) & "-" & strM & Month(Now) & "-" & Year(Now)
if request.form("banTime") = "1" then
banTime = dateadd("h",1,now())
elseif request.form("banTime") = "2" then
banTime = dateadd("h",10,now())
elseif request.form("banTime") = "3" then
banTime = dateadd("d",1,now())
elseif request.form("banTime") = "4" then
banTime = dateadd("d",7,now())
elseif request.form("banTime") = "5" then
banTime = dateadd("d",31,now())
elseif request.form("banTime") = "6" then
banTime = dateadd("d",186,now())
elseif request.form("banTime") = "7" then
banTime = dateadd("d",999999999999999,now())
End If
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("database/ban.mdb")
Conn.Open DSN
strSQL = "INSERT INTO banning ip,reason,dato,expire,from VALUES('request.form("ip")','request.form("reason")','strLigeNu','banTime','request.form("from")')"
Conn.Execute(strSQL)
%>
################################
koder slut
################################
Er jeg gået helt forkert i byen ?
