if not recset.eof then
'jippi
else
response.write "det finns inga poster, juh."
end if
------------------
can i borrow your goat?
[Redigerat av @nders den 18 aug 2001]
Frågan#1
<%Hamta = "SELECT * FROM inlagg WHERE ID = " & Request.QueryString("id") & " "
RecSet.Open Hamta, Connect, adOpenStatic, adLockOptimistic %>
<%Do While Not RecSet.EOF %>
<small>
Inlägget skrivet av: <b><a href="mailto:<% =RecSet("E-post") %>" class="link"><% =RecSet("Namn") %></a></b><br>
Datum: <b><% =RecSet("Datum") %></b><br><br>
<b><% =RecSet("Rubrik") %></b></small><br>
<% =RecSet("Inlagg") %>
<% RecSet.MoveNext
Loop
RecSet.Close %>
<br><br><br>
<b>Svar på det här inlägget:</b>
<%Hamta = "SELECT * FROM inlagg WHERE SvarsID = '" & Request.QueryString("id") & "' "
RecSet.Open Hamta, Connect, adOpenStatic, adLockOptimistic
Do While Not RecSet.EOF %>
<a href="#<% =RecSet("rubrik") %>" class="link"><% =RecSet("rubrik") %></a><br>
<% RecSet.MoveNext
Loop
RecSet.MoveFirst%>
<%Do While Not RecSet.EOF%>
<hr width="100%" color="#003399" size="0">
<small><a name="<%=RecSet("rubrik")%>">
Inlägget skrivet av: <b><a href="mailto:<% =RecSet("E-post") %>" class="link"><% =RecSet("Namn") %></a></b><br>
Datum: <b><% =RecSet("Datum") %></b><br><br>
<b><% =RecSet("Rubrik") %></b></small><br>
<% =RecSet("Inlagg") %>
<%RecSet.MoveNext
Loop
RecSet.Close %>
Hur gör jag om jag inte vill att felmeddelandet "Antingen är BOF eller EOF satt..." ska komma upp om det inte finns några svar?
------------------
Man kan ta den säkra vägen: Göra en stilren sida, snygg men lätt.
Eller så kan man ta den svåra: Mycket grafik och flashiga ting, och riskera att mislyckas.