jo takker =) hæ hæ men jeg skal bryyge systemet sammen med
<%
set conn=server.createobject("adodb.connection")
conn.open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & server.mappath("databasen")
%>
<!-- #include file ="online_user.asp" -->
<HTML>
<HEAD>
<TITLE>..::. CopyFree - Free links 2 Free sites .::..</TITLE>
<!-- #include file="style.asp" -->
</HEAD>
<BODY onload="init(" class="myBody" text=#000000 vLink=#990000 aLink=#ff9900 link=#990000 bgColor=#305C94 leftMargin=0 background="" topMargin=0 marginheight="0" marginwidth="0">
<TABLE height="100%" cellSpacing=0 cellPadding=0 width=750 align=center bgcolor=#F1F6FF border=0>
<TBODY>
<TR>
<TD vAlign=top height="100%">
<TABLE cellSpacing=0 cellPadding=0 width="750" border=0 bgcolor=#F1F6FF>
<TBODY>
<TR>
<TD>
<TD vAlign=top height=60><a href="
http://www.webgud.dk/daniel/copyfree/"><img src="copyfreelogo.jpg" border=0></a></TD>
<TD width=468><!--#include virtual="daniel/copyfree/banner/include/admentor2.asp"--><%=AdMentor_GetAdASP("F=1&Z=5&N=1")%></TD>
</TR>
</TBODY>
</TABLE>
<TABLE cellSpacing=3 cellPadding=0 width="100%" border=0 bgcolor=#F1F6FF>
<TBODY>
<TR>
<TD>
<TABLE height="100%" cellSpacing=5 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD vAlign=top width=120>
<div class="topicheader">Bruger</div>
<div class="topicbox"><div class="text">
<%
''Vis brugeren er logget ind
if session("brugerid")<>"" then
%>
- <a href="status.asp">Status</a><br>
- <a href="retbruger.asp">Ret Profil</a><br>
- <a href="tpoint.asp">Tjen CF Point</a><br>
- <a href="bpoint.asp">Brug CF Point</a><br>
- <a href="bruger.asp">Bruger Liste</a><br>
- <a href="download.asp">Downloads</a><br>
- <a href="logout.asp">Log af</a><br>
<%
else
''Vis bruger ikke er logget ind
%>
- <a href="add.asp">Opret</a><br>
- <a href="login.asp">Login</a><br>
<%
end if
%>
</div>
</div>
<%
set toprs=server.createobject("adodb.recordset")
toprs.open "select * from kategori order by prioritet",conn
do while not toprs.eof
response.write "<div class=""topicheader""><br><b>"&toprs("kategori")&"</b></div>"
response.write "<div class=""topicbox""><div class=""text"">"
set subrs=server.createobject("adodb.recordset")
subrs.open "select * from emne where kategori="&toprs("id") & " order by emne asc",conn
do while not subrs.eof
response.write "- <a href=""kategori.asp?emne="&subrs("id")&""">"&subrs("emne")&"</a><br>"
subrs.movenext
loop
subrs.close
set subrs=nothing
response.write "</div></div>"
toprs.movenext
loop
toprs.close
set toprs=nothing
%>
<BR>
</TD>
<TD width=1 bgColor=#000000><IMG height=1 src="" width=1></TD>
<TD vAlign=top>
<TD class=down vAlign=top width=350 bgColor=#F1F6FF>