problema eof....bof

[oliweb]

ho il seguente script per elencare delle news però vorrei che stampasse a video la scritta "non ci sono news diponibili" adesso quando nn ci sono news mi da errore eof...bof:

<%
dim news
news=""
While Not rs.eof And rowcount < rs.pagesize

news = news & "<tr><td width=15>"
news = news & "[img]../img/news.gif[/img]</td>"
news = news & "<td width=30>" & rs("data") & "</td>"
news = news & "<td><a href=javascript:apri('../news_eng.asp?id=" & rs("id") &"')>" & rs("titolo") & "</a></td>"
news = news & "</tr>"

rs.movenext
rowcount = rowcount + 1
Wend

response.write news
%>

come posso fare modificare questo script?

grazie

[Roby_72]

<%
dim news
news=""
if Not rs.eof then
While Not rs.eof And rowcount < rs.pagesize

news = news & "<tr><td width=15>" 
news = news & "[img]../img/news.gif[/img]</td>"
news = news & "<td width=30>" & rs("data") & "</td>"
news = news & "<td><a href=java-script:apri('../news_eng.asp?id=" & rs("id") &"')>" & rs("titolo") & "</a></td>"
news = news & "</tr>"

rs.movenext
rowcount = rowcount + 1
Wend
else
news = "Non ci sono news"
end if
response.write news
%>

Roby

[oliweb]

mi da questo errore:

ADODB.Recordset error '800a0bcd'

Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record.

news.asp, line 19

line 19:

rs.absolutepage = CINT(current_page)

CONST adOpenStatic = 3, adLockReadOnly = 1, adCmdText = &H0001

Dim current_page ,rowcount ,i
current_page = TRIM(request("current_page"))

If current_page = "" Then
current_page = 1
End If

Set rs = Server.CreateObject("ADODB.Recordset")
sql="SELECT news.id, news.titolo, news.piattaforma, news.data FROM news WHERE news.piattaforma = 'ENGlastminute' order by news.data desc, news.id desc"
rs.Open sql, db, adOpenStatic, adLockReadOnly, adCmdText
num = rs.RecordCount

rs.pagesize = 40
rs.absolutepage = CINT(current_page)
rowcount = 0

come posso risolverlo?
grazie

[Roby_72]

if not rs.EOF then
num = rs.RecordCount

Roby

[oliweb]

mi da lo stesso errore!!!

dim news
news=""
if not rs.EOF then
num = rs.RecordCount
While Not rs.eof And rowcount < rs.pagesize

news = news & "<tr><td width=15>"
news = news & "[img]../img/news.gif[/img]</td>"
news = news & "<td width=30>" & rs("data") & "</td>"
news = news & "<td><a href=java-script:apri('../news_eng.asp?id=" & rs("id") &"')>" & rs("titolo") & "</a></td>"
news = news & "</tr>"

rs.movenext
rowcount = rowcount + 1
Wend
else
news = "<td colspan=3>Non ci sono news</td>"
end if
response.write news

[Roby_72]

E questo...

rs.pagesize = 40

dove l'hai lasciato?

Roby

[oliweb]

li ho provati tutti ad uno ad uno però mi da lo stesso errore!!!

dim news
news=""
if not rs.EOF then
num = rs.RecordCount
rs.pagesize = 40
rs.absolutepage = CINT(current_page)
rowcount = 0
While Not rs.eof And rowcount < rs.pagesize

news = news & "<tr><td width=15>"
news = news & "[img]../img/news.gif[/img]</td>"
news = news & "<td width=30>" & rs("data") & "</td>"
news = news & "<td><a href=java-script:apri('../news_eng.asp?id=" & rs("id") &"')>" & rs("titolo") & "</a></td>"
news = news & "</tr>"

rs.movenext
rowcount = rowcount + 1
Wend
else
news = "<td colspan=3>Non ci sono news</td>"
end if
response.write news

[Roby_72]

Vediamo lo script intero, la riga dell'errore e l'errore.

Roby

[oliweb]

CONST adOpenStatic = 3, adLockReadOnly = 1, adCmdText = &H0001

Dim current_page ,rowcount ,i
current_page = TRIM(request("current_page"))

If current_page = "" Then
current_page = 1
End If

Set rs = Server.CreateObject("ADODB.Recordset")
sql="SELECT news.id, news.titolo, news.piattaforma, news.data FROM news WHERE news.piattaforma = 'ENGlastminute' order by news.data desc, news.id desc"
rs.Open sql, db, adOpenStatic, adLockReadOnly, adCmdText
num = rs.RecordCount

rs.pagesize = 40
rs.absolutepage = CINT(current_page)
rowcount = 0

line 19

rs.absolutepage = CINT(current_page)

dim news
news=""
if not rs.EOF then
num = rs.RecordCount
rs.pagesize = 40
rs.absolutepage = CINT(current_page)
rowcount = 0
While Not rs.eof And rowcount < rs.pagesize

news = news & "<tr><td width=15>"
news = news & "[img]../img/news.gif[/img]</td>"
news = news & "<td width=30>" & rs("data") & "</td>"
news = news & "<td><a href=java-script:apri('../news_eng.asp?id=" & rs("id") &"')>" & rs("titolo") & "</a></td>"
news = news & "</tr>"

rs.movenext
rowcount = rowcount + 1
Wend
else
news = "<td colspan=3>Non ci sono news</td>"
end if
response.write news

di seguti lo script per la paginazione:

<table width="100%" border="0" cellspacing="0" cellpadding="4">
<form name=form2 method=post action="index_news.asp">
<tr>

<td align=center>
<%if Cint(current_page)<rs.pagecount then%>
<a href="index_news.asp?current_page=<%=(Cint(current _page)+1)%>&l=<%=request("l")%>">Pagina
successiva </a> -
<%end if%>
<span class="body">Pagina: <%=current_page%>
- Vai a pagina:</span>
<select name=current_page class="body" onChange="document.form2.submit()">
<option value="">Seleziona</option>
<% for i =1 to rs.pagecount %>
<option value="<%=i%>"><%=i%></option>
<% Next %>
</select> </td>
</tr>
</form>
</table>

Grazie!

[Roby_72]

Vedo ancora questa roba qui...

num = rs.RecordCount

rs.pagesize = 40
rs.absolutepage = CINT(current_page)
rowcount = 0


mentre le modifiche ti avevo messo io prevedevano PRIMA un

if not rs.EOF then...

Roby