<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("_Private/userdatabase.mdb")
if session("login") <> "" then
strLevel = "select * from brugere where id = " & CInt(session("login"))
set rs = conn.execute(strLevel)
end if
if rs.bof or rs.eof then
response.write "fejl! ingen poster fundet!"
else
brugernavn = rs("brugernavn")
level = rs("level")
end if
' husk at lukke forbindelsen:
set rs = nothing
conn.close
set conn = nothing
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "
http://www.w3.org/TR/html4/loose.dtd"><html>
<head>
<title>BMWForum.dk - Online BMW community</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link rel="stylesheet" href="_Private/style.css" type="text/css">
</head>
<BR><BR>
<center>
<table width="800" height="20" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="20"><img src="_Image/corner-tl.gif" align="bottom" alt=""></td>
<td class="topmiddle" width="760"><H1 align="center" class="quicktext">BMWForum.dk </h1></td>
<td width="20"><img src="_Image/corner-tr.gif" align="bottom" alt=""></td>
</tr>
</table>
</center>
<table class="Maintable" align="center" width="800" border="0" cellspacing="0" cellpadding="0">
<tr valign="top">
<td>
<img src="_Image/banner.jpg" align="bottom" alt="">
</td>
</tr>
</table>
<table width="802" align="center" border="0" cellspacing="0" cellpadding="0" class="mainmenutable" style="background-image:_Image/table_bg_image.gif;background-repeat:repeat-x;">
<tr>
<td colspan="2">
<CENTER><H1 Class="mainmenutext">
<a Class="open" href="default.asp">Forsiden</a> |
<a Class="closed">Om BMWForum.dk</a> |
<a Class="closed">Forum</a> |
<a Class="closed">Bruger Marked</a> |
<a Class="closed">Forhandler Marked</a> |
<a Class="closed">Artikler</a> |
<a Class="closed">Bruger Biler</a> |
<a Class="closed">Galleri</a> |
<a Class="closed">Links</a></H1></CENTER>
</td>
</table>
<% if session("login") = "" then %>
<table width="802" align="center" border="0" cellspacing="0" cellpadding="0" class="usermenutable">
<tr>
<td>
<center>
<H1 Class="usermenutext">
Velkommen til BMWForum.dk du har følgende valgmuligheder
<a Class="open" href="login.asp">Login</a>
eller
<a Class="open" href="opretbruger.asp">Opret ny bruger</a>
</H1>
</center>
</td>
</tr>
</table>
<% end if %>
</td>
</tr>
</table>
<H1 Class="quickinfo">Bruger info</H1>
<H1 Class="quicktext">
Brugernavn: <%=rs("brugernavn")%> <BR>
Status: <BR>
<BR>
<a href="retbruger.asp">Ret din profil</a>
</H1>
<table align="center" width="802" border="0" bgcolor="#FFFFFF" cellspacing="10" cellpadding="10" class="Maintable">
<tr valign="top">
<td width="625">
<H1 class="headline">BMW. Entusiast. Community</H1>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr valign="top">
<td><H1 class="normal">BMWForum.dk er stedet for entusiasten og den intresserede mødes, for at snakke/diskuterer/lærer og lære fra sig. Det er
nemlig her man kan mødes med ligesindet, læse artikler, kigge på billeder. Samt mødes med de andre på forummet osv.<BR><BR>
Endvidere vil vi på siden samt team bmwforum.dk sørge for nogle møder/arrangementer og træfs vil blive stablet på benene og her er du mere end velkommen
til at deltage.</h1></td>
<td><img src="_Image/profiltacho.jpg" align="bottom" alt=""></td>
</tr>
</table>
</td>
<td class="quick" width="177">
<% if session("login") = "" then %>
<H1 Class="quickinfo">Information</H1>
<H1 Class="quicktext">Som medlem af BMWForum.dk får man nogle fordele, disse fordele kan der læses mere om
på disse sider. Vælg den side som er mest relevant for dig
<BR><BR>
Almindelig medlem<BR>
VIP medlem<BR>
Forhandler medlem</H1>
<% end if %>
<%
if session("login") <> "" then
if brugerinfo("level") = 0 then
Server.Execute("_Usermenu/defaultusermenu.asp")
elseif brugerinfo("level") = 1 then
Server.Execute("_Usermenu/defaultusermenu.asp")
elseif brugerinfo("level") = 2 then
Server.Execute("_Usermenu/defaultusermenu.asp")
elseif brugerinfo("level") = 3 then
Server.Execute("_Usermenu/defaultusermenu.asp")
elseif brugerinfo("level") = 4 then
Server.Execute("_Usermenu/defaultusermenu.asp")
elseif brugerinfo("level") = 5 then
Server.Execute("_Usermenu/defaultusermenu.asp")
elseif brugerinfo("level") = 6 then
Server.Execute("_Usermenu/defaultusermenu.asp")
elseif brugerinfo("level") = 7 then
Server.Execute("_Usermenu/defaultusermenu.asp")
elseif brugerinfo("level") = 8 then
Server.Execute("_Usermenu/defaultusermenu.asp")
elseif brugerinfo("level") = 9 then
Server.Execute("_Usermenu/defaultusermenu.asp")
end if
end if
%>
</td>
</tr>
</table>
<center>
<table width="800" height="20" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="20"><img src="_Image/corner-l.gif" align="bottom" alt=""></td>
<td class="bottommiddle" width="760"><H1 align="center" class="quicktext">Copyright © BMWForum.dk 2005 </h1></td>
<td width="20"><img src="_Image/corner-r.gif" align="bottom" alt=""></td>
</tr>
</table>
</center>
