hvad er galt i hentning

<%
if Request.Querystring("id") = "" then
Response.Write "Du skal vælge et indlæg"'
else
' Databaseforbindelse - husk at angive sti til din database
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath ("Forum.mdb")
Conn.Open DSN

strSQL = "Select * From threads Where Id = " & Request.Querystring("id")
Set rs = Conn.Execute(strSQL)

if rs.EOF then
Response.Write "Spørgsmålet findes ikke!"
else
' Skriv personens data
Response.Write "<center>"
Response.Write "<b>" & rs("Threademne") & "<br></b> skrevet d." & rs("Threaddato") & " af: " & rs("Threadskriver") & "<br>"
Response.Write rs("Thread") & "<br>"
Response.Write "</center>"
end if

Conn.Close
Set Conn = Nothing

' Databaseforbindelse - husk at angive sti til din database
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath ("Forum.mdb")
Conn.Open DSN

strSQL = "Select * From threads Where Comid = " & Request.Querystring("id")
Set rs = Conn.Execute(strSQL)

strid = Request.Querystring("id")
if cint (session("level")) => 7 Then
Response.Write "<center><a href='admini.asp'>admin index</a> <a href='opretforum.asp'>Opret tråd</a></center>"
end if
if rs.EOF then
Response.Write "<hr color=#000000>Der er ingen kommentarer endu"
else
Do

' Skriv personens data
Response.Write "<hr color=#000000>"
if cint (session("level")) => 7 then
Response.Write "sletfor.asp?id=" & rs("Id")
Response.Write "Ip:" & rs("Comip")
end if
Response.Write "Fra: " & rs("Comskriver") & " d." & rs("Comdato") & "<br>"
Response.Write rs("Comment") & "<br>"
Response.Write "<hr color=#000000>"

Loop while NOT rs.EOF
end if
Conn.Close
Set Conn = Nothing
%>

jeg kan godt se det når der ikke er nogen kommentarer, men når der er skrevet en kommentarer får der så lang tid at der kommer timeout ind og så kan man ikke se den... hvad er problemet?