Newsgroup: it.comp.www.asp
Titolo: Raggiungo EOF perchè?

Il seguente script:
<%
dim flag,color,useraction,element,myarray,t,oro,p,id,fid,tid,mio
dim sql,conn,rs
dim resFromFunc
useraction=request.querystring("action")
fid = request("fid")
select case useraction
case "search"
 
	sql = "select * from links where id>0"
 
	Set Conn = Server.CreateObject("ADODB.Connection")
	Set Rs = Server.CreateObject("ADODB.Recordset")
 
	Conn.Open dsn
 
	oro = request.form("oro")
	fid = request.form("fid")
 
	for each element in request.form
	if request.form(element)<>"" then
 
		select case element
			case "name"
				sql=sql & " and title like '%" & Request.form(element) & "%'"
			case "fsearch"
				myarray=split(Request.form(element)," ")
				if oro="" then
					for t=0 to ubound(myarray)
						sql=sql & " and sDesc like '%" & myarray(t) & "%'"
					next
				else
					p=0
					for t=0 to ubound(myarray)
						if p=0 then
							sql=sql & " and sDesc like '%" & myarray(t) & "%'"
							p=1
						else
							sql=sql & " or sDesc like '%" & myarray(t) & "%'"
						end if
					next
				end if
		end  select 
	end if
next
sql=sql & " order by id"
'response.write sql'***debug
	rs.open sql,conn
	if rs.eof and rs.bof then
		response.write "<br><b>Nessun risultato</b><br>"
		response.write "<br><b><a href='virgilio.asp'>Cerca con
Virgilio</a></b><br>"
		response.write "<br><b><a href='
http://www.google.com
'
target='_blank'>Cerca nel resto del web</a></b><br>"
	else
		response.write "<table width=400 border=0><th></th><th
align=left>Nome</th>"
		response.write "<th align=left>Categoria</TH><th align=left>Sotto
Categoria</TH>"
	mio =1
do while mio<=30
		id = rs("id")
		mio=mio+1
		if flag=0 then
			flag=1
			color="#D7D7D7"
		else
			flag=0
			color="#B0C4EC"
		end if
		response.write "<TR bgcolor="& color & "><TD><img
src=images/search.gif></td><td>"
		response.write "<a
href='
http://www.amiciamici.com/linkfoto.php?link=
"&rs("url")&"'
target='_blank'>" & RS("title") & "</a></td><td>" & "<a
href='mainCat.asp?catID="&RS("catID")&"'>" & findSubj(RS("catID")) &
"</td><td>"
		resFromFunc = findSecSubj(RS("subCatID"))
		if resFromFunc = "No sub Topic" then
			response.write resFromFunc & "</A></td></TR>"
	else
		response.write "<a href='secCat.asp?mainID=" &RS("catID")& "&catID=" &
RS("subCatID") & "'>" & resFromFunc & "</A></td></TR>"
	end if
		rs.movenext
	loop
	response.write "</table>"
	end if
end select
%>
Mi restituisce questo errore:
DODB.Field error '800a0bcd' 
Either BOF or EOF is True, or the current record has been deleted.
Requested operation requires a current record.
search.asp, line 150
A cosa è dovuto???
Grazie mille a tutti 
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 Requested operation requires a current record.
mi sembra chiaro... stai cercando di leggere all'interno di un recordset
vuoto... :))
-- 
Lino Mari [mod - it.economia.e-commerce]
http://www.ebow.it
 - e-business on web!
http://www.dev2dev.it
 - La rete ha connesso nuove particelle - d2D004
Oggi, l'organigramma è fatto di link, non di gerarchie.
Il rispetto per la conoscenza vince su quello per l'autorità astratta.

 A cosa è dovuto???
Il recordset e' vuoto. Stampati a video la stringa sql e dagli un'occhiata.
Saluti.
Luciano

 Saluti.
Il messaggio di errore mi viene mostrato prima dell'output effettivo
della ricerca con sql è quello che non mi quadra.


 della ricerca con sql è quello che non mi quadra.
Dove esattamente, non ho capito?
Cmq, dopo che hai aperto unob recordset vuoto qualsiasi operazione tenti di
farci ti da errore.
Saluti.
Luciano

	
Di solito e':
Conn.Open "NomeDelDnsDiSistema"
cioe' racchiuso tra doppi apici...
Conn.Open dsn significa che punta a una variabile di nome dsn che
nonvedo dichiarata da nessuna parte nel tuo codice.
nel senso:
Dim DSN 
DSN="nomedeldsn"
Conn.Open DSN
allora si.
Ciao :)