Hvad er der galt med dette udtræk
<%gren = Request.QueryString(\"gren\")
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath (\"spejder.mdb\")
strSQL = \"select funktioner.funktion as f,brugere.navn as n,brugere.email as e,brugere.id as i from brugere,funktioner where funktioner.gren=\" & gren & \" and funktioner.gruppe=\'divisiononen\' and brugere.id=funktioner.refid\"
set rs = Conn.execute(strSQL)
if rs.EOF then
Response.write \"Der er igen fra styrelsen i databasen\"
else
Do Until rs.EOF
Response.Write(\"<table BORDER=0 CELLSPACING=0><TR><TD width=250><span class=normal><IMG SRC=images/pil.gif BORDER=0 WIDTH=5 HEIGHT=10 ALIGN=bottom> <a href=default.asp?side=medlem&subside=info&id=\" & rs(\"i\") & \">\" & rs(\"n\") & \"</a></span></TD>\")
Response.Write(\"<TD width=200><span class=normal><span class=normal>\" & rs(\"f\") & \"</span></td>\")
Response.Write(\"<TD width=150><span class=normal><span class=normal>\" & rs(\"e\") & \"</span></td></tr><tr><TD colspan=3 class=tabel1 width=1></TD></tr></TABLE>\")
RS.MoveNext
Loop
end if
Conn.Close
Set Conn = Nothing
%>
-------------------------
Den skriver at der er problemer i linie 16:
set rs = Conn.execute(strSQL)
Det har virket fint, men efter jeg skulle lave sådan så udtrækket varriere alt efter hvad gren er, har det ikke virket!
