Jeg burde næsten have point, bare for fed kode, hehe :-)
Here goes: (den er 700 linier lang)
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
' Begin buffering the HTML
' Note this MUST happen before the initial <HTML> tag.
Response.Buffer = True
%>
<html>
<head>
<title>...::: Userforum :::...</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<meta http-equiv="pragma" content="no-cache">
<link href="../Styles/Style.css" rel="stylesheet" type="text/css">
</head>
<%
'Randomize, dBConn
'Write
'Put
'Login
'Show
'Showuser
'Checklogin
'Loggedin
'Changepass
'Passcheck
'Userdata
'Changecomment
'Updatecomment
'Insertavatar
'Removeavatar
'AvatarOK
'Forbidden
'Validateavatar
'Logout
Randomize
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "driver={MySQL};server=localhost;uid=zkiifreak_dk;pwd=58Uneo6T;database=zkiifreak_dk;option=NUM"
Conn.Open DSN
'__________________________________________________________________________________________________
if request.QueryString("mode") = "write" then
%>
<script language="JavaScript" type="text/javascript">
<!--
function Time(){
var months=new Array(13);
months[1]="januar";
months[2]="februar";
months[3]="marts";
months[4]="april";
months[5]="maj";
months[6]="juni";
months[7]="juli";
months[8]="august";
months[9]="september";
months[10]="oktober";
months[11]="november";
months[12]="december";
var t = new Date();
var dato = t.getDate();
var maaned = months[t.getMonth() + 1];
var year = t.getFullYear();
var hours = t.getHours();
var minutes = t.getMinutes();
var seconds = t.getSeconds();
if (minutes == 1 || minutes == 2 || minutes == 3 || minutes == 4 || minutes == 5 || minutes == 6 || minutes == 7 || minutes == 8 || minutes == 9 || minutes == 0)
minutes = "0" + minutes;
if (seconds == 1 || seconds == 2 || seconds == 3 || seconds == 4 || seconds == 5 || seconds == 6 || seconds == 7 || seconds == 8 || seconds == 9 || seconds == 0)
seconds = "0" + seconds;
document.Time.d.value = dato;
document.Time.month.value = maaned;
document.Time.y.value = year;
}
-->
</script>
<body onLoad="Time();">
<form action="user.asp?mode=put" method="post" name="Time">
<table width="75%" border="0" align="center">
<tr>
<td><font class="stdtext">Fornavn</font></td>
<td><center><input type="text" name="fornavn" size="55" class="felter" value="Skriv dit fornavn her" onFocus='this.value=""'></center><br></td>
</tr>
<tr>
<td><font class="stdtext">Efternavn</font></td>
<td><center><input type="text" name="efternavn" size="55" class="felter" value="Skriv dit efternavn her" onFocus='this.value=""'></center><br></td>
</tr>
<tr>
<td><font class="stdtext">Email</font></td>
<td><center><input type="text" name="email" size="55" class="felter" value="Skriv din email her" onFocus='this.value=""'></center><br></td>
</tr>
<tr>
<td><font class="stdtext">Brugernavn</font></td>
<td><center><input type="text" name="username" size="55" class="felter" value="Skriv ønsket brugernavn her" onFocus='this.value=""'></center><br></td>
</tr>
<tr>
<td><font class="stdtext">Password</font></td>
<td><center><input type="password" name="pass" size="55" class="felter" value="" onFocus='this.value=""'></center><br></td>
</tr>
<tr>
<td><font class="stdtext">Gentag password</font></td>
<td><center><input type="password" name="check" size="55" class="felter" ></center><br></td>
</tr>
<tr>
<td><font class="stdtext">Evt. beskrivelse</font></td>
<td><center><input type="text" name="comment" size="55" class="felter" value="Evt Beskrivelse af dig selv" onFocus='this.value=""'></center><br></td>
</tr>
</table>
<input type="hidden" name="d"><input type="hidden" name="y"><input type="hidden" name="month">
<center><input type="submit" value="Opret bruger"></center>
</form>
</body>
<%
end if
'__________________________________________________________________________________________________
if request.QueryString("mode") = "put" then
if not request.Form("username") = "Skriv ønsket brugernavn her" then
if not request.Form("email") = "Skriv din email her" then
if not request.Form("fornavn") = "Skriv dit fornavn her" then
if not request.Form("efternavn") = "Skriv dit efternavn her" then
if request.Form("pass") = request.Form("check") and not request.Form("pass") = "" then
Set ForumData = Server.CreateObject( "ADODB.Recordset" )
call ForumData.Open("SELECT username FROM userforum ORDER BY username DESC", Conn)
tmp = request.Form("username")
if inStr(tmp, "Æ") then
tmp = (replace(tmp, "Æ", "Ae"))
replaced = TRUE
end if
if inStr(tmp, "Ø") then
tmp = (replace(tmp, "Ø", "Oe"))
replaced = TRUE
end if
if inStr(tmp, "Å") then
tmp = (replace(tmp, "Å", "Aa"))
replaced = TRUE
end if
if inStr(tmp, "æ") then
tmp = (replace(tmp, "æ", "ae"))
replaced = TRUE
end if
if inStr(tmp, "ø") then
tmp = (replace(tmp, "ø", "oe"))
replaced = TRUE
end if
if inStr(tmp, "å") then
tmp =(replace(tmp, "å", "aa"))
replaced = TRUE
end if
while NOT ForumData.EOF
if ForumData("username") = tmp then
userexists = TRUE
end if
ForumData.MoveNext()
wend
if request.Form("comment") = "Evt Beskrivelse af dig selv" then
comment = ""
else
comment = request.Form("comment")
end if
if not userexists then
strSQL = "Insert into userforum ("
strSQL = strSQL & " date,"
strSQL = strSQL & " fornavn,"
strSQL = strSQL & " efternavn,"
strSQL = strSQL & " email,"
strSQL = strSQL & " username,"
strSQL = strSQL & " pass,"
strSQL = strSQL & " comment)"
strSQL = strSQL & " values("
strSQL = strSQL & "'"
strSQL = strSQL & request.Form("d") & ". " & request.Form("month") & " " & request.Form("y")
strSQL = strSQL & "',"
strSQL = strSQL & "'"
strSQL = strSQL & request.Form("fornavn")
strSQL = strSQL & "',"
strSQL = strSQL & "'"
strSQL = strSQL & request.Form("efternavn")
strSQL = strSQL & "',"
strSQL = strSQL & "'"
strSQL = strSQL & request.Form("email")
strSQL = strSQL & "',"
strSQL = strSQL & "'"
strSQL = strSQL & tmp
strSQL = strSQL & "',"
strSQL = strSQL & "'"
strSQL = strSQL & request.Form("pass")
strSQL = strSQL & "',"
strSQL = strSQL & "'"
strSQL = strSQL & comment
strSQL = strSQL & "')"
Conn.Execute(strSQL)
ForumData.Close
call ForumData.Open("SELECT * FROM userforum WHERE username = '" & tmp & "'", Conn)
session("loginOK") = TRUE
session("username") = tmp
session("ID") = ForumData("ID")
session("useremail") = ForumData("email")
ForumData.Close
if replaced then
response.Write("Efterdi dit brugenavn indeholdte æ ,ø og/eller å, er det blevet ændret til:" & tmp)
response.Write("Klik ")%><a href="user.asp?mode=show">her</a><%response.Write(" for at logge automatisk ind.")
else
response.Clear
response.Redirect("user.asp?mode=show")
end if
else
response.Write("<center><font class=")%>"Bold"<%response.Write(">Fejl!</font></center>")
response.Write("<center>Brugernavn eksisterer allerede, vælg et andet.</center>")
response.Write("<center><a href=")%>"java script:history.go(-1)"<%response.Write(">Tryk her for at gå tilbage</a></center>")
end if
else
response.Write("<center><font class=")%>"Bold"<%response.Write(">Fejl!</font></center>")
response.Write("<center>De indtastede passwords er ikke ens, eller du har ikke indtastet noget password.</center>")
response.Write("<center><a href=")%>"java script:history.go(-1)"<%response.Write(">Tryk her for at gå tilbage</a></center>")
end if
else
fail = 1
end if
else
fail = 1
end if
else
fail = 1
end if
else
fail = 1
end if
if fail = 1 then
%>
<body>
<font class="stdtext">Du skal udfylde alle felterne!<br></font>
<font class="stdtext"><a href="java script:history.go(-1)">Tryk her for gå tilbage</a></font>
</body>
<%
end if
end if
'__________________________________________________________________________________________________
if request.QueryString("mode") = "login" then
if not session("loginOK") then
%>
<body>
<form method="post" action="user.asp?mode=checklogin">
<table class="stdtext" border="0">
<tr><td><font class="stdtext">Brugernavn:</font></td><td><input type="text" name="bruger" class="felter"></td></tr>
<tr><td><font class="stdtext">Password:</font></td><td><input type="password" name="password" class="felter"></td></tr>
<tr><td><input type="submit" value="Send"></td></tr>
</table>
<br>
<br>
<font class="stdtext"><a href="user.asp?mode=write">Opret bruger</a></font>
<!-- <font class="stdtext"><a href="user.asp?mode=forgotpass">Glemt brugernavn / password</a></font>-->
</form>
</body>
<%
else
response.Redirect("user.asp?mode=loggedin")
end if
end if
'__________________________________________________________________________________________________
if request.QueryString("mode") = "show" then
tmp = 0
Set ForumData = Server.CreateObject( "ADODB.Recordset" )
call ForumData.Open("SELECT * FROM userforum ORDER BY username ASC", Conn)
response.Write("<center><font class=")%>"bold"<%response.Write(">Brugere</font></center><br><br>")
if not session("loginOK") then
response.Write("<center><a href=")%>"user.asp?mode=write"<%response.Write(">Klik her for at oprette dig som bruger</a></center><br>")
end if
response.Write("<center>Registrerede bruger af zkiifreak.dk:</center><br><br>")
response.Write("<table width=100% border=0 cellpadding=1 cellspacing=1>")
While NOT ForumData.EOF
tmp = tmp +1
if (tmp mod 2) = 0 then
response.Write("<tr><td width=" & "100%" & "><a href=user.asp?mode=showuser&user=" & ForumData("ID") & " class=")%>"guestbook"<%response.Write(">" & ForumData("username") & "</a>" & "")
else
response.Write("<tr bgcolor=#C0C0C0><td width=" & "100%" & "><a href=user.asp?mode=showuser&user=" & ForumData("ID") & " class=")%>"guestbook"<%response.Write(">" & ForumData("username") & "</a>" & "")
end if
ForumData.MoveNext()
Wend
response.Write("</table>")
end if
'__________________________________________________________________________________________________
if request.QueryString("mode") = "showuser" then
if session("loginOK") then
set userdataout = Server.CreateObject("ADODB.RecordSet")
call userdataout.Open("SELECT * FROM userforum WHERE ID = '" & request.QueryString("user") & "' ORDER BY username DESC", Conn)
if userdataout("avatar") = 1 then
avatar = "avatars/" + userdataout("username") + ".jpg"
else
avatar = "avatars/default.jpg"
end if
%>
<body>
<table width="100%">
<tr>
<td width="160"><img src="<%response.Write(avatar)%>?<%response.Write(Rnd)%>" width="150"></td>
<td width="*" valign="top">
<table width="100%" border="0">
<tr bgcolor=#C0C0C0>
<td>
<%
response.Write("<font class=")%>"username"<%response.Write(">" & userdataout("username") & "</font>")
%>
</td>
</tr>
<tr>
<td><font class="stdtext">Navn: <%response.Write(userdataout("fornavn") & " " & userdataout("efternavn"))%></font></td>
</tr>
<tr>
<td><font class="stdtext">Email: <a href="mailto:<%response.Write(userdataout("email"))%>"><%response.Write(userdataout("email"))%></a></font></td>
</tr>
<tr>
<td><font class="stdtext">Oprettet på zkiifreak.dk: <%response.Write(userdataout("date")) %></font></td>
</tr>
<tr>
<td><font class="stdtext">Beskrivelse: <%response.Write(userdataout("comment")) %></font></td>
</tr>
</table>
<%
%>
</body>
<%
else
response.Write("<font class=")%>"stdtext"<%response.Write(">Du skal være logget ind for at bruge denne funktion</font>")
end if
end if
'__________________________________________________________________________________________________
if request.QueryString("mode") = "checklogin" then
if not request.Form("password") = "" then
set testobject = Server.CreateObject("ADODB.RecordSet")
session("LoginOK") = False
session("username") = nothing
call testobject.Open("SELECT * FROM userforum ORDER BY username DESC", Conn)
while not testobject.EOF
if request.Form("bruger") = testobject("username") then
username = testobject("username")
userID = testobject("ID")
pass = testobject("pass")
session("username") = username
session("ID") = userID
session("useremail") = testobject("email")
end if
testobject.MoveNext
wend
if pass = request.Form("password") then
session("LoginOK") = true
response.redirect("user.asp?mode=loggedin")
else
session("LoginOK") = False
response.Redirect("user.asp?mode=forbidden")
end if
else
response.Redirect("user.asp?mode=forbidden")
end if
end if
'__________________________________________________________________________________________________
if request.QueryString("mode") = "loggedin" then
response.Write("Du er nu logget ind som " & session("username") & ". Herunder finder du dine muligheder for at benytte ZkiiFreak.dk")
%>
<center><br><br>
<table border="1" bordercolor="blue" cellpadding="2">
<tr><td width="150"><font class="stdtext">Kontrolpanel for <%response.Write(session("username"))%></font></td></tr>
</table>
<table border="1" bordercolor="blue" cellpadding="2">
<tr><td width="150"><font class="stdtext"><a href="user.asp?mode=userdata">Dine kontodetaljer</a></font></td></tr>
</table>
<table border="1" bordercolor="blue" cellpadding="2">
<tr><td width="150"><font class="stdtext"><a href="user.asp?mode=show">Vis brugere</a></font></td></tr>
</table>
<table border="1" bordercolor="blue" cellpadding="2">
<tr><td width="150"><font class="stdtext"><a href="forum.asp">Forum</a></font></td></tr>
</table>
<table border="1" bordercolor="blue" cellpadding="2">
<tr><td width="150"><font class="stdtext"><a href="user.asp?mode=logout">Log out</a></font></td></tr>
</table>
</center>
<%
end if
'__________________________________________________________________________________________________
if request.QueryString("mode") = "changepass" then
%>
<body>
<form method="post" action="user.asp?mode=passcheck">
<table class="stdtext" border="0">
<tr><td><font class="stdtext">Gammelt password:</font></td><td><input type="password" class="felter" name="oldpass"></td></tr>
<tr><td><font class="stdtext">Nyt Password:</font></td><td><input type="password" class="felter" name="newpass"></td></tr>
<tr><td><font class="stdtext">Gentag nyt Password:</font></td><td><input type="password" class="felter" name="newpasscheck"></td></tr>
<tr><td><input type="submit" value="Send"></td></tr>
</table>
</form>
</body>
<%
end if
'__________________________________________________________________________________________________
if request.QueryString("mode") = "passcheck" then
set testobject = Server.CreateObject("ADODB.RecordSet")
call testobject.Open("SELECT * FROM userforum WHERE ID = '" & session("ID") & "' ORDER BY ID DESC", Conn)
if request.Form("oldpass") = testobject("pass") then
if request.Form("newpass") = request.Form("newpasscheck") then
strSQL = "UPDATE userforum SET"
strSQL = strSQL & " pass = "
strSQL = strSQL & "'"
strSQL = strSQL & request.Form("newpass")
strSQL = strSQL & "'"
strSQL = strSQL & " WHERE ID = "
strSQL = strSQL & "'"
strSQL = strSQL & session("ID")
strSQL = strSQL & "'"
Conn.Execute(strSQL)
response.write("Dit password er nu ændret! Tryk ")
%><font class="stdtext"><a href="user.asp?mode=userdata">her</a></font><%
response.Write(" for at gå til din profil.")
else
response.Write("Dit nye password var ikke ens ved begge indtastninger...")
%><font class="stdtext"><a href="java script:history.go(-1)">her</a></font><%
response.Write(" for at gå tilbage.")
end if
else
response.Write("Det indtastede gamle password er forkert... Tryk ")
%><font class="stdtext"><a href="java script:history.go(-1)">her</a></font><%
response.Write(" for at gå tilbage.")
end if
end if
'__________________________________________________________________________________________________
if request.QueryString("mode") = "userdata" then
if session("loginOK") then
userID = session("ID")
set userdataout = Server.CreateObject("ADODB.RecordSet")
call userdataout.Open("SELECT * FROM userforum WHERE ID = '" & userID & "' ORDER BY username DESC", Conn)
if userdataout("avatar") = 1 then
session("avatar") = "avatars/" + userdataout("username") + ".jpg"
else
session("avatar") = "avatars/default.jpg"
end if
%>
<body>
<table width="100%">
<tr>
<td width="160"><img src="<%response.Write(session("avatar"))%>?<%response.Write(Rnd)%>" width="150"><br>
<font class="stdtext"><a href="user.asp?mode=insertavatar">Indsæt / skift billede til profil</a></font><br>
<font class="stdtext"><a href="user.asp?mode=changepass">Skift password</a></font><br>
<font class="stdtext"><a href="user.asp?mode=changecomment">Skift beskrivelse</a></font><br>
</td>
<td width="*" valign="top">
<table width="100%" border="0">
<tr bgcolor=#C0C0C0>
<td>
<%
response.Write("<font class=")%>"username"<%response.Write(">" & userdataout("username") & "</font>")
%>
</td>
</tr>
<tr>
<td><font class="stdtext">Navn: <%response.Write(userdataout("fornavn") & " " & userdataout("efternavn"))%></font></td>
</tr>
<tr>
<td><font class="stdtext">Email: <a href="mailto:<%response.Write(userdataout("email"))%>"><%response.Write(userdataout("email"))%></a></font></td>
</tr>
<tr>
<td><font class="stdtext">Oprettet på zkiifreak.dk: <%response.Write(userdataout("date")) %></font></td>
</tr>
<tr>
<td><font class="stdtext">Beskrivelse: <%response.Write(userdataout("comment")) %></font></td>
</tr>
</table>
</td>
</tr>
</table>
<%
%>
</body>
<%
else
response.Write("<font class=")%>"stdtext"<%response.Write(">Du er ikke logget ind</font>")
end if
end if
'__________________________________________________________________________________________________
if request.QueryString("mode") = "changecomment" then
set userdataout = Server.CreateObject("ADODB.RecordSet")
call userdataout.Open("SELECT * FROM userforum WHERE ID = '" & session("ID") & "' ORDER BY ID ASC", Conn)
%>
<font class="stdtext">
<%
response.Write(session("username") & "<br>" & "Din nuværende beskrivelse:<br>")
response.Write(userdataout("comment"))
%>
<br>
<FORM ACTION="user.asp?mode=updatecomment" METHOD="POST">
Ny beskrivelse: <INPUT TYPE="text" class="felter" NAME="newcomment" size="40"><br>
<input type="submit" value="Skift beskrivelse">
</FORM>
</font>
<%
end if
'__________________________________________________________________________________________________
if request.QueryString("mode") = "updatecomment" then
if request.QueryString("sure") = 1 then
strSQL = "UPDATE userforum SET"
strSQL = strSQL & " comment = "
strSQL = strSQL & "'"
strSQL = strSQL & ""
strSQL = strSQL & "'"
strSQL = strSQL & " WHERE ID = "
strSQL = strSQL & "'"
strSQL = strSQL & session("ID")
strSQL = strSQL & "'"
Conn.Execute(strSQL)
response.write("Din beskrivelse er nu ændret! Tryk ")
%><font class="stdtext"><a href="user.asp?mode=userdata">her</a></font><%
response.Write(" for at gå til din profil.")
else
if not request.Form("newcomment") = "" then
strSQL = "UPDATE userforum SET"
strSQL = strSQL & " comment = "
strSQL = strSQL & "'"
strSQL = strSQL & request.Form("newcomment")
strSQL = strSQL & "'"
strSQL = strSQL & " WHERE ID = "
strSQL = strSQL & "'"
strSQL = strSQL & session("ID")
strSQL = strSQL & "'"
Conn.Execute(strSQL)
response.write("Din beskrivelse er nu ændret! Tryk ")
%><font class="stdtext"><a href="user.asp?mode=userdata">her</a></font><%
response.Write(" for at gå til din profil.")
else
response.Write("Du skrev ingen ny kommentar... Er du sikker på at du ingen kommentar vil have?<br>")
%><center><font class="stdtext"><a href="user.asp?mode=updatecomment&sure=1"> Ja </a> / <a href="user.asp?mode=changecomment">Nej, gå tilbage</a></font></center><%
end if
end if
end if
'__________________________________________________________________________________________________
if request.QueryString("mode") = "insertavatar" then
response.Write(session("username") & "<br>" & "Dit nuværende billede:<br>")
%>
<img src="<%response.Write(session("avatar"))%>?<%response.Write(Rnd)%>" width="150"><br>
<br>
<FORM ACTION="user.asp?mode=validateavatar" METHOD="POST" ENCTYPE="multipart/form-data">
Nyt billede: <INPUT TYPE="FILE" NAME="FILE" size="40"><br>
<input type="submit" value="Skift billede">
</FORM>
<%
end if
'__________________________________________________________________________________________________
if request.QueryString("mode") = "removeavatar" then
set fileRemove = server.CreateObject("Scripting.FileSystemObject")
strSQL = "UPDATE userforum SET"
strSQL = strSQL & " avatar = "
strSQL = strSQL & ""
strSQL = strSQL & "NULL"
strSQL = strSQL & ""
strSQL = strSQL & " WHERE ID = "
strSQL = strSQL & "'"
strSQL = strSQL & session("ID")
strSQL = strSQL & "'"
Conn.Execute(strSQL)
'fileRemove.GetFile("avatars/" & session("username") & ".jpg")
fileRemove.DeleteFile("avatars/" & session("username") & ".jpg")
response.Write("Dit billede er nu udskiftet med standardbilledet.<br>")
%>
<center><font class="stdtext"><a href="user.asp?mode=userdata">Klik her for at se din profil</a></font></center>
<%
end if
'__________________________________________________________________________________________________
if request.QueryString("mode") = "avatarOK" then
response.Write("Dit billede er nu ændret!<br>")
%>
<center><font class="stdtext"><a href="user.asp?mode=userdata">Klik her for at se din profil</a></font></center>
<%
end if
'__________________________________________________________________________________________________
if request.QueryString("mode") = "forbidden" then
response.Write("Det går ikke gamle ven!")
end if
'__________________________________________________________________________________________________
if request.QueryString("mode") = "validateavatar" then
saveDir = "avatars/"
set imgBan = Server.CreateObject("Chili.Upload.1")
On Error Resume Next 'If image size exceeds ASP Server Limit(will keep this script running)
theSaveFile = saveDir & session("username") & ".jpg"
if imgBan.FileSize <= 0 then
response.write("Fejl: Der blev ikke angivet noget billede. Ønsker du at skifte dit billede ud til standard billedet?")%><font class="stdtext"><a href="user.asp?mode=removeavatar"> Ja </a> / <a href="user.asp?mode=insertavatar">Nej, gå tilbage</a></font><%
elseif imgBan.FileSize > 51200 then
response.write("Fejl: Billedet er for stort (tilladt størrelse: mellem 4KB og 50KB)")
elseif imgBan.FileSize > 0 AND imgBan.FileSize <= 4096 then
response.write("Fejl: Billedet er for lille (tilladt størrelse: mellem 4KB og 50KB)")
elseif not lcase(imgBan.SourceFileExtension) = ".jpg" then
response.write "Billedet SKAL være i JPEG format"
elseif imgBan.FileSize > 4096 AND imgBan.FileSize <= 308224 then
if lcase(imgBan.SourceFileExtension) = ".jpg" then
imgBan.SaveToFile(Server.mapPath(theSaveFile))
strSQL = "UPDATE userforum SET"
strSQL = strSQL & " avatar = "
strSQL = strSQL & "'"
strSQL = strSQL & "1"
strSQL = strSQL & "'"
strSQL = strSQL & " WHERE ID = "
strSQL = strSQL & "'"
strSQL = strSQL & session("ID")
strSQL = strSQL & "'"
Conn.Execute(strSQL)
response.Write("Dit billede er nu ændret!<br>")%><center><font class="stdtext"><a href="user.asp?mode=userdata">Klik her for at se din profil</a></font></center><%
else
response.write("Must be a JPEG image")
end if
else
response.write("Fejl!!! Kontakt webmaster!")
end if
end if
'__________________________________________________________________________________________________
if request.QueryString("mode") = "logout" then
if session("LoginOK") = False then
response.Write("Du er overhovedet ikke logget ind, så det nytter ikke at logge ud!")
else
session("LoginOK") = False
response.Write("Du er nu logget ud af systemet, " & session("username") & ".")
session("username") = nothing
end if
end if
'__________________________________________________________________________________________________
' Luk databaseforbindelse
Conn.Close
Set Conn = Nothing
%>
</html>
