Problem om Tråd inte finns...

Hej

Har en fil i mitt forum,. den som listar tråden man valt:

strSQL= "SELECT * FROM tbl_forum_subj WHERE ID = " & id & ";"
Set oRec = Server.CreateObject("ADODB.Recordset")

Set oRec = oConn.Execute(strSQL)

Response.Write("<table width='100%' border='0'><tr><td height='10' width='50%' align='left' bgcolor='#FCFDCD'></td><td height='10' width='25%' align='right' bgcolor='#FCFDCD'><b><u><a href='ny_trad.asp?action=form' target='_self'>Skriv En Ny Fråga</a></u></b></td><td height='10' width='25%' align='right' bgcolor='#FCFDCD'><b><u><a href='javascript:history.go(-1)' target='_self'>Tillbaka</a></u></b></td></tr></table>")

Response.Write("<table width='100%' border='0'><tr><td align='left' bgcolor='#FCFDCD'><font color='#000000' face='Verdana' size='2'><b>" & oRec("Amne") & "</b></td><td align='right' bgcolor='#FCFDCD'>Av: " & oRec("Skribent") & " den " & oRec("Datum") & "&nbsp;&nbsp;<i>" & oRec("Ipadress") & "</i></font></td></tr><tr><td width='100%' colspan='2'><font color='000000' face='Verdana' size='2'><br>" & oRec("Inlagg") & "</td></tr><tr><td width='100%' colspan='2'  bgcolor='#FCFDCD'></font></td></tr><tr><td width='100%' colspan='2'><hr noshade='noshade' style='height: 1px; color: #ccc' /></td></tr>")

Set oRec = NOTHING
Set strSQL = NOTHING

'_____________________________________________________________

strSQL2= "SELECT * FROM tbl_forum_sv WHERE Svar_ID = " & id & ";"
Set oRec2 = Server.CreateObject("ADODB.Recordset")

oRec2.Open strSQL2, oConn, 1, 3

oRec2.PageSize = 10 '<-- Här bestämmer du hur många inlägg det ska finnas på sidan
oRec2.AbsolutePage = nextPage

Do until oRec2.EOF OR rowCount = oRec2.PageSize
rowCount = rowCount + 1

	Response.Write("<tr><td align='left' bgcolor='#FCFDCD'></td><td align='right' bgcolor='#FCFDCD'>Av: " & oRec2("Skribent") & " den " & oRec2("Datum") & "&nbsp;&nbsp;<i>" & oRec2("Ipadress") & "</i></font></td></tr><tr><td width='100%' colspan='2'><font color='000000' face='Verdana' size='2'><br>" & oRec2("Inlagg") & "</td></tr><tr><td width='100%' colspan='2'  bgcolor='#FCFDCD'></font></td></tr><tr><td width='100%' colspan='2' height='20'><hr noshade='noshade' style='height: 1px; color: #ccc' /></td></tr>")
	
	oRec2.MoveNext

Loop

	Response.Write("<table width='100%' border='0'><tr><td height='10' width='50%' align='left' bgcolor='#FCFDCD'>")

IF oRec2.PageCount > 1 THEN 

FOR a = 1 to oRec2.PageCount
IF a <> cINT( nextPage ) THEN 
Response.Write "&nbsp;<a href='ladda_trad.asp?nextPage="& a & "&id=" & id & "'>[ "& a &" ]</a>&nbsp;"
ELSE 
Response.Write "&nbsp;<b>"& a & "</b>&nbsp;"

END IF 
NEXT 
END IF
Response.Write("</td><td height='10' width='25%' align='right' bgcolor='#FCFDCD'><b><u><a href='ny_trad.asp?action=form' target='_self'>Skriv En Ny Fråga</a></u></b></td><td height='10' width='25%' align='right' bgcolor='#FCFDCD'><b><u><a href='javascript:history.go(-1)' target='_self'>Tillbaka</a></u></b></td></tr></table>")

Set oConn = NOTHING
Set oRec2 = NOTHING
Set strSQL2 = NOTHING

Det här är loopen / looparna som den första, som plockar ut själva frågan, den andra loopen plcokar ut alla svar till tråden.

Nu nmåste jag ha in en ifsats ovan för den undre loopen, som kollar om det finns ngn tråd där.

Lite hjälp med detta vore toppen.

Kan man inte ha:

If NOT oRec2.EOF Then
'Det finns inga trådar....
Else
Loopen...
End If

Kan det funka?? Eller hur ksall jag göra.?