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
