if XXX = XXX then
Kan nogen hjælpe til at det her fungerer ordenligt?<%
Response.Buffer = True
%>
<html>
<head>
<title>Community</title>
</head>
<body link="#000000" vlink="#000000" alink="#000000">
<font face="Tahoma" size="2">
<b>Velkommen! ;-)</b>
<%
Set myConn = Server.CreateObject("ADODB.Connection")
myConn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("com123.mdb")
strSQL = "SELECT * FROM brugere"
Set rs = myConn.Execute(strSQL)
%>
<%
If Session("login") = true Then
Response.Write "<p>Du er logget på som " & Session("brugernavn") & "</p>"
Response.Write "<p>Brugernavn: " & Session("brugernavn") & "</p>"
Response.Write "<p><a href='profil.asp?id=" & Session("id") & "'>Brugerinformation</a></p>"
Response.Write "<p><a href='funktioner/visbyt.asp'>Gå til byt/salg systemet</a></p>"
Response.Write "<p><a href='funktioner/vis_tag.asp'>Gå til tagwallen</a></p>"
Response.Write "<p><a href='rediger.asp'>Rediger profil</a></p>"
Response.Write "<p><a href='logoff.asp'>Log af</a></p>"
Else
Response.Write "<p>Du er <u>ikke</u> logget ind</p>"
Response.Write "<p><a href='login.asp'>Log ind</a></p>"
End If
Response.Write "<p><a href='list.asp'>Profil-oversigt</a></p>"
If ??? = ??? Then
Response.Write "<p><b>Admin funktioner:</b></p>"
Response.Write "<p><a href='adminlist.asp'>Profil-oversigt for admin</a></p>"
Else
Response.Write ""
End If
%>
</font>
</body>
</html>
