Database udtræk

Har lavet en kode der skulle vise projekter som en kunde er tilmeldt:
Først skal den have et ID fra "projekter" hvorefter den skal gå hen og finde Info i "projekter1


intPage = Request("page")
If isNumeric(intPage) = False Or intPage < 1 Then
intPage = 1
End If

strSQL = "SELECT * FROM projekter WHERE userid = '" & session("login") & "'"
Set rj = Conn.Execute(strSQL)

Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "select * from projekter1 where id = " & rj("id") & ""
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("database.mdb")
rs.Open strSQL, strDSN, 1
If Not (rs.BOF Or rs.EOF) Then
rs.PageSize = antal
rs.AbsolutePage = intPage
intRecCount = rs.PageSize
intPageCount = rs.PageCount

%>
    <table border="1" style="border-collapse: collapse" bordercolor="#111111" width="100%">
      <tbody>
        <tr>
          <td bgcolor="#<% response.write "" & t1color & "" %>"><font size="+0"><b>&nbsp;<a href='admin.asp?mode=new'><IMG SRC="images/ny.gif" WIDTH="17" HEIGHT="11" BORDER=0     >&nbsp;</a>&nbsp;Projekter</b></font></td><td width="10%" bgcolor="#<% response.write "" & t3color & "" %>"  align="right"><font color=black><a href='admin.asp?mode=new'><IMG SRC="images/ny.gif" WIDTH="17" HEIGHT="11" BORDER=0 ALT="">&nbsp;</a></td>
        </tr>
        <tr>
          <td colspan=2 bgcolor="#<% response.write "" & t2color & "" %>" ><br><table border='0'>
</tr>
<%

if not rs.eof then

Do While Not rs.EOF And intRecCount > 0

navn = rs("firmanavn")
id = rs("id")
email = rs("demail")
dtlf = rs("dtlf")
kontakt = rs("kontaktperson")
status = rs("procent")   

If BGColor = True Then
    strBG = "#FFFFFF"
    BGColor = False
Else
    strBG = "#DBDBDB"
    BGColor = True
End If
%>
<tr bgcolor="<% response.write strBG %>">
    <td height="1" width="300"><font>&nbsp;<a href="admin.asp?mode=vprojekt&id=<% response.write id%>"><IMG SRC="images/info.gif" border="0"></a>&nbsp;<% response.write navn%></td>
    <td height="1" width="130"><font><% response.write kontakt%></td>
    <td height="1" width="120"><font><% response.write dtlf%></td>
    <td height="1" width="120"><font><% response.write "<a href='mailto:" & email & "'>" & email & "</a>"%></td>
    <% if status = "Afsluttet" then
    %>
    <td height="1" width="250"><font><table height="5" cellSpacing="0" cellPadding="0" width="100%" bgColor="#00e0">
      <tr>
        <td>&nbsp;</td>
        <td align="middle"><font size="8"><% Response.Write "" & status & "" %>&nbsp;</font></td>
      </tr>
    </table></td>
</tr>
<%
else
%>
    <td height="1" width="250"><font><table height="5" cellSpacing="0" cellPadding="0" width="<% Response.Write "" & status & "" %>%" bgColor="#00e0">
      <tr>
        <td>&nbsp;</td>
        <td align="middle"><font size="8"><% Response.Write "" & status & "" %>&nbsp;</font></td>
      </tr>
    </table></td>
</tr>
<%
end if
intRecCount = intRecCount - 1
rs.MoveNext
Loop
End If
rs.Close
Set rs = Nothing
Response.Write "<font>&nbsp;&nbsp; "
For intNum = 1 To intPageCount
Response.Write "<a href=admin.asp?mode=projekter&page=" & intNum & ">" & intNum & "</a> "
Next

Response.Write ""
If Clng(intPage) > 1 Then
Response.Write "<a href=admin.asp?mode=projekter&page=" & intPage - 1 & ">&lt;&lt;</a>"
Else
Response.Write "&lt;&lt;"
End If

Response.Write "&nbsp;"

If Clng(intPage) < Clng(intPageCount) Then
Response.Write "<a href=admin.asp?mode=projekter&page=" & intPage + 1 & ">&gt;&gt;</a>"
Else
Response.Write "&gt;&gt;"
End If

else
Response.write "<font>Ingen projekter pt."
end if