Vanskelig opgave (måske)

Hej alle

Jeg har en opgave der giver mig grå hår på hovedet, her følger først noget kode:

<html>
<head>
<title></title>
</head>

<%
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & server.MapPath(\"medlemmer.mdb\")
SQLstmt = \"Select * From data Order By mainchar\"
SQLstmt1 = \"Select * From data Order By charname\"
Conn.Execute (SQLstmt)
Conn.Execute (SQLstmt1)
Set RS = Conn.Execute(SQLstmt)
Set RS1 = Conn.Execute(SQLstmt1)
%>

<body>
<center>
<table width=\"95%\" cellpadding=\"0\" cellspacing=\"0\" border=\"0\">
<tr>
<td width=\"50%\"><font face=\"Comic Sans MS\"><b><u>Name:</u></b></font></td>
<td width=\"10%\"><font face=\"Comic Sans MS\"><b><u>Status:</u></b></font></td>
<td width=\"10%\"><font face=\"Comic Sans MS\"><b><u>Race:</u></b></font></td>
<td width=\"10%\"><font face=\"Comic Sans MS\"><b><u>Class:</u></b></font></td>
<td width=\"10%\"><font face=\"Comic Sans MS\"><b><u>Level:</u></b></font></td>
<td width=\"10%\"><font face=\"Comic Sans MS\"><b><u>Main:</u></b></font></td>
</tr>
<tr>
<td colspan=\"6\">&nbsp;</td>
</tr>

<%
DO WHILE NOT rs.EOF
%>

<tr>
<td width=\"50%\"><font size=\"2\"><b><%=rs(\"charname\")%></b></font></td>
<td width=\"10%\"><font size=\"2\"><%=rs(\"charstatus\")%></font></td>
<td width=\"10%\"><font size=\"2\"><%=rs(\"charrace\")%></font></td>
<td width=\"10%\"><font size=\"2\"><%=rs(\"charclass\")%></font></td>
<td width=\"10%\"><font size=\"2\"><%=rs(\"charlevel\")%></font></td>
<td width=\"10%\"><font size=\"2\"><%=rs(\"mainchar\")%></font></td>
</tr>
<tr>
<td colspan=\"6\">&nbsp;</td>
</tr>
<tr>
<td colspan=\"6\"><img src=\"linie.gif\" width=\"100%\" alt=\"Adskillelseslinie med øjne\"></td>
</tr>
<tr>
<td colspan=\"6\">&nbsp;</td>
</tr>

<%
rs.MoveNext
LOOP
RS.Close
\'conn.Close
\'Set conn = nothing
Set SQLstmt = nothing
%>

</table>

<form method=\"post\" action=\"test2.asp\">
<select name=\"medlemnavn\">

<%
DO WHILE NOT rs1.EOF
%>

<option value=\"<%=rs(\"charname\")>\"><%=rs(\"charname\")>

<%
rs1.MoveNext
LOOP
RS1.Close
conn.Close
Set conn = nothing
Set SQLstmt1 = nothing
%>

</select>
<select name=\"medlemlevel\">
<option value=\"01\">01
<option value=\"02\">02
<option value=\"03\">03
<option value=\"04\">04
<option value=\"05\">05
<option value=\"06\">06
<option value=\"07\">07
<option value=\"08\">08
<option value=\"09\">09
<option value=\"10\">10
<option value=\"11\">11
<option value=\"12\">12
<option value=\"13\">13
<option value=\"14\">14
<option value=\"15\">15
<option value=\"16\">16
<option value=\"17\">17
<option value=\"18\">18
<option value=\"19\">19
<option value=\"20\">20
<option value=\"21\">21
<option value=\"22\">22
<option value=\"23\">23
<option value=\"24\">24
<option value=\"25\">25
<option value=\"26\">26
<option value=\"27\">27
<option value=\"28\">28
<option value=\"29\">29
<option value=\"30\">30
<option value=\"31\">31
<option value=\"32\">32
<option value=\"33\">33
<option value=\"34\">34
<option value=\"35\">35
<option value=\"36\">36
<option value=\"37\">37
<option value=\"38\">38
<option value=\"39\">39
<option value=\"40\">40
<option value=\"41\">41
<option value=\"42\">42
<option value=\"43\">43
<option value=\"44\">44
<option value=\"45\">45
<option value=\"46\">46
<option value=\"47\">47
<option value=\"48\">48
<option value=\"49\">49
<option value=\"50\">50
<option value=\"51\">51
<option value=\"52\">52
<option value=\"53\">53
<option value=\"54\">54
<option value=\"55\">55
<option value=\"56\">56
<option value=\"57\">57
<option value=\"58\">58
<option value=\"59\">59
<option value=\"60\">60
</select>
<input type=\"text\" name=\"kodeord\" size=\"50>
<input type=\"submit\" value=\"send\">
</form>

</center>
</body>
</html>

Det er den nederste del af koden der ikke fungerer, kan nogen give mig lidt hjælp til hvad jeg gør forkert.

Der kommer flere spørgsmål efter, men først skal jeg have koden til i det hele taget at dukke frem på skærmen.

Mvh
Søren