Rang.asp:
<%
if site = "klasse" then
if user_points < 4 then
Response.Redirect "rangview.asp?mode=minus"
End If
elseif site = "kollegiepoints" or site = "historie" then
if user_points < 15 then
Response.Redirect "rangview.asp?mode=minus"
End If
elseif site = "skoletasken" or site = "venner" then
if user_points < 150 then
Response.Redirect "rangview.asp?mode=minus"
End If
elseif site = "brugerlisten" or site = "uglepost" then
if user_points < 105 then
Response.Redirect "rangview.asp?mode=minus"
End If
elseif site = "spil" or site = "quiz" or site = "wallpapers" or site = "link" then
if user_points < 204 then
Response.Redirect "rangview.asp?mode=minus"
End If
elseif site = "bibliotek" then
if user_points < 300 then
Response.Redirect "rangview.asp?mode=minus"
End If
elseif site = "hogsmeade" then
if user_points < 400 then
Response.Redirect "rangview.asp?mode=minus"
End If
elseif site = "diagonal" then
if user_points < 350 then
Response.Redirect "rangview.asp?mode=minus"
End If
elseif site = "gringotts" then
if user_points => 600 and user_money => 50 then
Else
Response.Redirect "rangview.asp?mode=minus"
End If
else
End If
%>
top.asp:
<!--#include file="config.asp" --><%
IF Session("password-session") = "" and site <> "login" Then
Response.Redirect("login.asp")
Else
%><!--#include file="funktion.asp" --><%
Session.LCID = 1030
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath (db_users)
strSQL = "select * FROM users WHERE (Username = '" & session("password-session") & "')"
set rs = Conn.execute(strSQL)
id = rs("id")
nvn = rs("username")
users_kodeord = rs("password")
stedid = rs("id")
users_fornavn = rs("fornavn")
ar = rs("årgang")
klan = rs("klan")
life = rs("liv")
er = rs("er")
sex = rs("kon")
lvlvl = rs("level")
user_points = cint(rs("point"))
pakke_1 = rs("pakke_1")
pakke_2 = rs("pakke_2")
pakke_3 = rs("pakke_3")
godkend = rs("godkendt")
[admin] = rs("admin")
Rs.close
Set rs = Nothing
Conn.Close
set Conn = Nothing
if godkend = 0 and site <> "vigtig" then
Response.Redirect("vigtig.asp")
End If
End If
%><!--#include file="rang.asp" --><html>
<head>
<meta http-equiv="Content-Language" content="da">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>HogwartsOnline.dk</title>
</head>
<style type="text/css">
body { font-family: Verdana; }
a:link {color: #000000; text-decoration: none; }
a:visited {color: #000000; text-decoration: none; }
a:hover {color: #000000; text-decoration: underline; }
td { font-family: Verdana, Helvetica; color: #000000; font-size: 8px; }
</style>
<body topmargin="0" leftmargin="0" bgcolor="#D2DEE2">
<table border="0" cellpadding="0" cellspacing="0" width="100%">
<tr>
<td background="images/top_bg.png" align="right">
<table border="0" cellpadding="0" cellspacing="0">
<tr>
<td background="images/top_left.png" width="27" height="27"></td>
<td background="images/top_middle.png">
<b><font face="Verdana" size="1">Hosted by Potter-Info.dk - Headmester Nicolair</font></b></td>
<td background="images/top_right.png" width="24" height="27"></td>
</tr>
</table>
</td>
</tr>
<tr>
<td background="images/Banner_middle.png">
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="100%" id="AutoNumber1">
<tr>
<td width="254" height="70" background="images/Banner_left.png"></td>
<td width="*"> </td>
<td width="468"></td>
</tr>
</table>
</td>
</tr>
<tr>
<td bgcolor="#000000" height="1"></td>
</tr>
<tr>
<td bgcolor="#D2DEE2" height="3"></td>
</tr>
<tr>
<td height="2">
<table border="0" cellpadding="0" cellspacing="0" width="100%">
<tr>
<td width="106" valign="top">
<table border="0" cellpadding="0" cellspacing="0" width="106">
<tr>
<td width="106" height="19" background="images/left_top.png"></td>
</tr>
<tr>
<td background="images/left_middle.png">
<font face="Verdana" color="#000000" size="1">
<font face="Verdana" color="#000000"><b>Menu:</b><br>
<br>
-
<a href="default.asp">
Main</a><br>
-
<a href="kontakt.asp">
Kontakt</a><br>
-
<a href="information.asp">
Information</a><br>
-
<nothing href="
http://www.potter-info.dk/hogwartsonline/linkos.asp"> Link til os</a><br>
-
<a href="regler.asp">
Regler</a><br>
<br>
-
<nothing href="
http://www.potter-info.dk/hogwartsonline/chat"> Chat</a><br>
<br>
<b>Nyheds-aviser:</b> <br>
<br>
- <b>
<nothing href="
http://www.potter-info.dk/hogwartsonline/profet.asp"> Profet-Tidende</a></b><br>
- <b>
<nothing href="
http://www.potter-info.dk/hogwartsonline/heksene.asp"> Alt for Heksene</a></b><br>
-
<nothing href="
http://www.potter-info.dk/hogwartsonline/fan.asp"> Fan sektionen</a><br>
<br>
<b>Hogwarts:</b> <br>
<br>
-
<a href="storsalen.asp">
Storsalen</a><br>
-
<nothing href="
http://www.potter-info.dk/hogwartsonline/ide.asp"> Idesalen</a><br>
-
<nothing href="
http://www.potter-info.dk/hogwartsonline/hyggehjornet.asp"> HyggeHjørnet</a><br>
-
<a href="kollegiepoints.asp">
Kollegie points</a><br>
-
<a href="historie.asp">
Kollegie historie</a><br>
-
<a href="klasse.asp">
Klasser</a><br>
-
<a href="bibliotek.asp">
Biblioteket</a><br>
- Hospitalet<br>
- Quidditch banen<br>
- <b>
<nothing href="
http://www.potter-info.dk/hogwartsonline/commonroom.asp"> Opholdsstuen</a></b><br>
-
<a href="roverkortet.asp">
Røverkortet</a><br>
-
<a href="skoletasken.asp">
Skoletasken</a><br>
-
<a href="uglepost.asp">
UgleTårnet</a><br>
-
<a href="venner.asp">
Hog. Venner</a><br>
-
<nothing href="
http://www.potter-info.dk/hogwartsonline/brugerlisten.asp"> Brugerlisten</a><br>
- Rum oversigt<br>
<br>
<b>Fun:</b> <br>
<br>
-
<nothing href="
http://www.potter-info.dk/hogwartsonline/spil.asp"> Spil</a><br>
- Quiz<br>
-
<nothing href="
http://www.potter-info.dk/hogwartsonline/wallpaper.asp"> Wallpapers</a><br>
- Links<br>
<br>
<b>Butikker:</b> <br>
<br>
- Shop Markedet<br>
- Diagonalstræde<br>
-
<nothing href="
http://www.potter-info.dk/hogwartsonline/hogsmeade.asp"> Hogsmeade</a><br>
-
<nothing href="
http://www.potter-info.dk/hogwartsonline/gringotts.asp"> Gringotts</a><br>
- Din butik<br>
<br>
<b>Andet:</b> <br>
<br>
- <b>
<nothing href="
http://www.potter-info.dk/hogwartsonline/laerer.asp"> Lærerværelset</a></b><br>
-
<a href="skoven.asp">
D.F. Skov</a></font> <br>
</font></td>
</tr>
<tr>
<td background="images/left_right.png" width="106" height="37"></td>
</tr>
</table>
</td>
<td width="100%" align="center" valign="top">
<table border="0" cellpadding="0" cellspacing="0" width="90%">
<tr>
<td width="33">
<img border="0" src="images/middle_top_left.png" width="33" height="19"></td>
<td width="100%" background="images/middle_top_middle.png"> </td>
<td width="33">
<img border="0" src="images/middle_top_right.png" width="33" height="19"></td>
</tr>
<tr>
<td colspan="3">
<table border="0" cellpadding="0" cellspacing="0" width="100%">
<tr>
<td width="8" background="images/middle_middle_left.png"> </td>
<td width="*" bgcolor="#FFFFFF" align="center" style="background-image: url('images/middle_bg_<%=bg_middle%>.png'); background-attachment: scroll; background-position: left top; background-repeat:no-repeat"><br>
<table width="460" border="0" cellpadding="0" cellspacing="0"><tr><td align="center"><font face="Verdana" size="1">Velkommen <%=magicname(nvn,2)%><hr><br><br>
------------------------------------------
Det var mine koder :o)
Ny bruger
Nybegynder
Opret
Preview
