Me volveré loko kon un error, alguien me puede ayudar ??

Anakin · #1 (**permalink**) 17/04/2003, 12:27

Hola foro

Tengo un pequeño error que me està volviendo loko de remate

y no enquentro el error.

el error es este:

ADODB.Recordset (0x800A0BCD)
El valor de BOF o EOF es True, o el actual registro se eliminó; la operación solicitada requiere un registro actual.
/ad/ad_d.asp, línea 58

el còdigo de la pàgina es este:

Código:

pgid = request("id")
adtype = request("type")

Function adnormal()
	
	Randomize()
	rndnmsrv = Int((3 * rnd))
	
	If rndnmsrv="0" then
		'Seleccionat el servidor de Cleopatra Adversting
		
		SET rs = Server.CreateObject("ADODB.RecordSet")
		sqb = "SELECT * FROM ad_db WHERE ad_type='"&adtype&"' AND pagines='%"&pgid&"%' AND ad_max_visual <> 0"
		rs.open sqb, "DSN=cleopatra.data.bol.adserv", 3, 1
		
		totalads = rs.RecordCount
		
		seladaleat = Int((totalads * rnd))
		rs.move seladaleat
		
		If rs("ad_format")="gif" then
		
			sbn = "<html><a href='http://www.banyolesonline.com/ad/adgo.asp?tabindex=1&id="&rs("bn_id")&"&pagina="&pgid&"' target='"&rs("target")&"'><img src='"&rs("bn_image")&"' border='0' width='"&rs("ad_x_size")&"' height='"&rs("ad_y_size")&"'></a></html>"
			
		elseIf rs("ad_format") = "flash" then
		
			response.write "normal_cleopatra adserv_flash"
			
		else
			response.write"<font face=verdana size=1><b>ERROR:</b> S'ha produit un error quan s'executava el programa.<br>Error: 148965x16 -- <i>El banner té un format incompatible amb el servei</i><br><hr>Cleopatra Network Solutions.<br><i>Adverstiment Solutions Server 2.0</i></font>"
		End If
End Function

Alguien me puede ayudar ???

E comprovado que en la base de datos hay información:

id=2
id_bn=1803654154adxbol
ad_name=Xat BanyolesOnline ad_image=http://www.banyolesonline.com/ad/imatges/018036541...
ad_link=http://www.banyolesonline.com/xats/default.asp
ad_target=_self
pagines=home,noticies,canals,portal
ad_type=normal
ad_format=gif
ad_clicks=0
ad_max_visual=1000000
ad_max_date=2010-01-01
ad_x_size=470
ad_y_size=60

Gracias de todos modos
Saludos a todos

Anakin · #2 (**permalink**) 17/04/2003, 12:29

Ups, he visto k faltan unos End If, no hagais caso d esto, en el escript original ya salen.

:-p

mazingerz · #3 (**permalink**) 17/04/2003, 15:40

aver, no estoy seguro pero deberia ser problema que la variable que usas no traiga nada o no sea el tipo correcto

pgid = request("id")
adtype = request("type")

deberia ser....

pgid = cstr(Request.Form("id"))
adtype = cstr(Request.Form("type"))

o bien
pgid = cstr(Request.QueryString("id"))
adtype = cstr(Request.QueryString("type"))

Anakin · #4 (**permalink**) 17/04/2003, 16:44

lo siento

pero no es esto

Si sirve d algo, creo que el error se enquentra en la consulta, ya que e comprovado que el valor del RecordCount me sale -1. E revisado la consulta xro no enquentro el error.

gracias d todas formas.

CHuLoSoY · #5 (**permalink**) 17/04/2003, 17:05

Tal vez el problema sea que no encuentra ningún registro en la base que corresponda con lo que le proporcionas. La cláusula where indica que la variable ad_type debería ser igual que lo que introduces en el formulario, y a su vez que coincida con la variable pagines, que también parece ser que lo recoges del formulario. A la vez que estas dos cosas, la consulta deberá coincidir con que la variable ad_max_visual sea menor o mayor que 0. Comprueba que todo esto coincide y nos cuentas.

mazingerz · #6 (**permalink**) 17/04/2003, 17:14

por que no le haces una traza al codigo,
response.write sqb
y documenta el resto y tiralo al browser

ve que la sql este completa y que el tipio de dato sea,,,

Anakin · #7 (**permalink**) 22/04/2003, 14:10

Ola grupo

Mirad e encontrado el error en la secuecia sql tiene que ser esta:

sqb = "SELECT * FROM ad_db WHERE ad_type='normal' AND ad_max_visual <> 0 AND pagines Like '%portal%'"

Pero el problema persiste, el RecordCount me sigue dando -1

E comprovado la consulta utilizando phpmysqladmin para mysql, y la consulta me la lleva a cavo correctamente y sin ningun error.

Como és que con asp pasa esto ?????????

Gracias por todo a todos

deww