Prøv med:
If (loRS("id") = "") OR IsNull(loRS("id") OR IsEmpty(loRS("id")) Then Response.Write("ingen resultater")
Jeg får stadig samme fejl: 80020009
Kom med noget kode.
Du tester vel for om du har et recordset før du referere til det. Ikke?
Men lad os se din kode.
Prøv:
If (loRS("id")&"" = "") OR IsNull(loRS("id") OR IsEmpty(loRS("id")) Then Response.Write("ingen resultater")
Kode:
SQL = "exec spsearch '" & sSearchString & "', null,"& iPage &", "& iNewsPerPage
Set loRS = oConNews.Execute(SQL)
If (loRS("id") = "") OR IsNull(loRS("id") OR IsEmpty(loRS("id"))) Then Response.Write("ingen resultater")
%>
<table cellpadding="0" cellspacing="0" border="0">
<% Do while not loRS.EOF %>
<tr>
<td class="newsheader">
<b><a href="default.asp?page=3&articleid=<%= loRS("id") %>"><%= Server.HTMLEncode(MaxLen(loRS("Title"), 50))%></a></b><br />
<span style="font-weight:bold; color:#6f6f6f;"><%= FormaterKortDatoTid(loRS("published_time"))%> - <%= loRS("CategoryName") %></span>
</td>
</tr>
<tr>
<td style="padding:0px; margin:0px;">
<%= MaxLen(loRS("contents"), 200) %>
</td>
</tr>
<% loRS.MoveNext
If sAlt = "tbl_row" Then
sAlt = "tbl_altrow"
Else
sAlt = "tbl_row"
End If
Loop %>
Mortvader, stadig samme fejl: 80020009
Det kunne godt lyde som det med recordset, men hvordan skal man gøre det? Jeg er ikke mega haj til ASP, jeg er i gang med at lære det. :)
Prøv det her. Først skal du teste for EOF, hvis ikke EOF, så kør løkke ellers hop til ELSE blokken.
SQL = "exec spsearch '" & sSearchString & "', null,"& iPage &", "& iNewsPerPage
Set loRS = oConNews.Execute(SQL)
%>
<table cellpadding="0" cellspacing="0" border="0">
<% If NOT loRS.EOF Then ' hvis dataset er tomt, så fortsæt til ELSE
<% Do while not loRS.EOF %>
<tr>
<td class="newsheader">
<b><a href="default.asp?page=3&articleid=<%= loRS("id") %>"><%= Server.HTMLEncode(MaxLen(loRS("Title"), 50))%></a></b><br />
<span style="font-weight:bold; color:#6f6f6f;"><%= FormaterKortDatoTid(loRS("published_time"))%> - <%= loRS("CategoryName") %></span>
</td>
</tr>
<tr>
<td style="padding:0px; margin:0px;">
<%= MaxLen(loRS("contents"), 200) %>
</td>
</tr>
<% loRS.MoveNext
If sAlt = "tbl_row" Then
sAlt = "tbl_altrow"
Else
sAlt = "tbl_row"
End If
Loop %>
<% else %>
<tr><td>ingen resultater</td></tr>
<% end if %>