Fejl i kode.....
Hej eksperter......dene kode siger at den ikke kan finde nogen af rs2 elementerne, kan i hjælpe ?:
strSQL = "Select Distinct [svar_id] From svar Where bruger_id = " & Request.Querystring("id")
set rs = conn.execute(strSQL)
response.write "<table width='100%' cellpadding='0' cellspacing='0'>"
response.write "<tr><td colspan='4' height='10px'></td></tr>"
response.write "<tr><td width='20px'></td><td width='150px'><h5>Titel</h5></td><td width='150px'><h5>Kategori</h5></td><td width='30px' align='right'><h5>Point</h5></td><td width='160px'><h3> </h3></td></tr>"
response.write "<tr><td colspan='4' height='10px'><img src='tabbulator.gif' width='501' height='2'></td></tr>"
if not rs.eof then
do
strSQL2 = "Select * From spm where id =" & rs("svar_id")
set rs2 = conn.execute(strSQL2)
strSQL3 = "Select COUNT(*) as ialt From svar Where svar_type='s' and status='mulig' and svar_id=" & rs("svar_id")
set rs3= conn.execute(strSQL3)
response.write "<tr><td width='20px'>"
if rs2("accepteret") = "ja" Then
response.write "<img src='blo.gif' width='10' height='10'>"
else
if rs3("ialt") then
response.write "<img src='gron.gif' width='10' height='10'>"
else
response.write "<img src='orange.gif' width='10' height='10'>"
end if
end if
response.write "</td><td width='150px'><h3><a class='link' href='forumspm.asp?id=" & rs2("id") & "'>"
dim titttel
titttel = rs2("titel")
titttel = Server.HTMLEncode(titttel)
response.write(titttel)
response.write "</a></h3></td><td width='150px'><h3>" & rs2("kategori") & "</h3></td><td width='30px' align='right'><h3>" & rs2("point") & "</h3></td><td width='160px'><h3> </h3></td></tr>"
rs.movenext
loop while not rs.eof
response.write "</table>"
end if
rs3.close
set rs3 = nothing
rs2.close
set rs2 = nothing
rs.close
set rs = nothing
mvh.
www.questis.dk
