gjorde så här men det funkade inte !!
<%@ LANGUAGE=VBScript%>
<!-- #include file="adovbs.inc" -->
<!-- #include file="style.css" -->
<%
' Scriptet är nerladdat från [url="http://www.fatmilk.nu/"]http://www.fatmilk.nu/[/url]
' Skrivet av Ludvig "geek" Lindblom
' geek@fatmilk.nu
Dim Con
Set Con = Server.CreateObject("ADODB.Connection")
Con.Open "DBQ=" & Server.MapPath("database/members.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};"
%>
<%
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("Database/members.mdb")&";pwd=losen"
Set RecSet2 = Server.CreateObject("ADODB.Recordset")
Addera = "Select * From members ORDER BY datum"
RecSet2.Open Addera, Connect, adOpenStatic, adLockOptimistic
%>
<%
Set Connect2 = Server.CreateObject("ADODB.Connection")
Connect2.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("Database/members.mdb")&";pwd=losen"
Set RS = Server.CreateObject("ADODB.Recordset")
%>
<html>
<head>
<title>TITTEL PÅ SIDAN</title>
</head>
<body bgcolor="#FFFFFF" text="#000000" background="Bilder/Bakgrund_rutig.gif">
<table width="500" border="0" cellspacing="2" cellpadding="2" bgcolor="#FFFFFF">
<tr>
<td bgcolor="#999999"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="1">Sök
bland medlemmarna</font></b></td>
</tr>
<tr>
<td bgcolor="#CCCCCC">
<table width="494" border="0" cellspacing="0" cellpadding="2" bgcolor="#FFFFFF">
<tr>
<td width="74"><font color="#000000" face="Verdana, Arial, Helvetica, sans-serif" size="1"><b>Lägg
till</b></font><font face="Verdana, Arial, Helvetica, sans-serif" size="1"><b><font color="#000000">?</font></b></font></td>
<td width="120" bgcolor="#FFFFFF"><font face="Verdana, Arial, Helvetica, sans-serif" size="1"><b><font color="#000000">Användarnamn:</font></b></font></td>
<td width="64"><font color="#000000" face="Verdana, Arial, Helvetica, sans-serif" size="1"><b>Kön:</b></font></td>
<td width="57"><font face="Verdana, Arial, Helvetica, sans-serif" size="1"><b>Status:</b></font></td>
<td width="149"><font face="Verdana, Arial, Helvetica, sans-serif" size="1"><b>Senast
inloggad:</b></font></td>
</tr>
<%
X = 0
DO Until RecSet2.EOF OR X = 50
X=X+1
%>
<tr>
<td width="74"><font size="1" color="#000000" face="Verdana, Arial, Helvetica, sans-serif"><a href="add_friend.asp?id2=<%=RecSet2("id")%>" target="rightFrame">Bli
kompis</a></font></td>
<td width="120"><font size="1" color="#000000" face="Verdana, Arial, Helvetica, sans-serif"><a href="whois.asp?checkid=<%=RecSet2("id")%>"><%=RecSet2("username")%></a></font></td>
<td width="64"><font size="1" color="#000000" face="Verdana, Arial, Helvetica, sans-serif"><%=RecSet2("kunskap")%></font></td>
<td width="57"><font size="1" <%if recset2("status") = "offline" then%> color="#FF0000" <%else%>color="#00CC00" <%end if%>face="Verdana, Arial, Helvetica, sans-serif" face="Verdana, Arial, Helvetica, sans-serif"><%=RecSet2("status")%></font></td>
<td width="149"><font size="1" color="#000000" face="Verdana, Arial, Helvetica, sans-serif"><%=RecSet2("datum")%></font></td>
</tr>
<%
RecSet2.MoveNext
Loop
RecSet2.Close
Connect.Close
Set RecSet2 = nothing
Set Connect = nothing
%>
</table>
</td>
</tr>
</table>
<br>
<font face="verdana" size="1">
<%
If TotalPages <> 1 Then
If (Int(onPage)) <> 1 Then
%>
<a href="onPage.asp?onPage=<%=(Int(onPage)-1)%>"><< föregående</a>
<%Else%>
<< föregående
<%End If%>
<%
Dim Pages
For Pages = 1 To TotalPages
%>
<%If (Int(Pages)) = (Int(onPage)) Then%><b><%=Pages%></b> <%Else%><a href="onPage.asp?onPage=<%=Pages%>"><%=Pages%></a> <%End If%><%Next%>
<%End If%>
<%
If (Int(onPage)) <> (Int(TotalPages)) Then
%>
<a href="onPage.asp?onPage=<%=(Int(onPage)+1)%>">nästa >></a>
<%Else%>
nästa >>
<%End If%>
</font>
<p><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><a href="javascript:history.go(-1);">Tillbaka</a>
| <a href="admin.asp">Sök efter användare</a></font></p>
</body>
</html>
<%
Con.Close
Set Con = Nothing
%>
