Salve a tutti... non so se a qualcuno è capitato lo stesso mio problema.
Coi miei amici, stiamo programmando un piccolo manageriale di calcio per divertirci tra noi.
L'homepage si carica correttamente ma, dopo un paio di minuti di non utilizzo della pagina (e anche sulle altre), si genera questo errore:
ADODB.Field error '800a0bcd'
Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record.
/home.asp, line 19
Ho fatto varie prove per capire ed ovviare al problema ma non ci riesco!
Quale potrebbe essere secondo voi il problema e, di conseguenza, una soluzione?
Vi posto di seguito il codice (in grassetto la linea incriminata)...
_____
<%
Session.LCID=1040
varcdc=(Session("cdc"))
vardataserver=(Date)
'----- RECUPERO DATI GENERALI -----
Set dbconn = Server.CreateObject("ADODB.Connection")
mMapPath = Server.MapPath("./mdb-database/dati.mdb")
dbconn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & mMapPath & ";"
sql="select * from dati where id like '" & 1 &"'"
Set RS=dbconn.Execute(sql)
varimg=rs("home")
vargiornataincorso=rs("giornataincorso")
'----- RECUPERO DATI SQUADRA -----
Set dbconn = Server.CreateObject("ADODB.Connection")
mMapPath = Server.MapPath("./mdb-database/squadre.mdb")
dbconn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & mMapPath & ";"
sql="select * from squadre where cdc like '"& varcdc &"'"
Set RS=dbconn.Execute(sql)
varsqdr=(rs("squadra"))
varid=(rs("id"))
varcdcid=(varcdc & varid)
varcategoria=(rs("categoria"))
varcapitale=(rs("capitale"))
varMagliaStile=(rs("MagliaStile"))
varMagliaModello=(rs("MagliaModello"))
varmaglia=("maglie/stile" & varMagliaStile & "/" & varMagliamodello & ".gif")
%>
<html>
<head>
<title>Calcio Manager</title>
<link rel="stylesheet" type="text/css" href="aspstyle.css">
<meta name="viewport" content="width=device-width">
</head>
<body class="font_style" bgcolor="#000000" background="img/<%response.write(varimg)%>">
<div align="center">
<table border="0" width="500" height="300">
<tr>
<td align="center">
<table border="0" cellspacing="0" cellpadding="0">
<tr>
<td align="center">
<table width="200" border="0" cellspacing="0" cellpadding="0">
<tr>
<td align="center">
<img border="0" src="<%response.write(varmaglia)%>" width="70" height="70">
</td>
<td align="center">
<font class="bianco_grassetto_grande"><%response.write(varsqdr)%></font><br>
<font class="bianco_grassetto"><%response.write(varmanager)%></font><br>
<%Set dbconn = Server.CreateObject("ADODB.Connection")
mMapPath = Server.MapPath("./mdb-database/squadre.mdb")
dbconn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & mMapPath & ";"
sql="select * from stadio where squadra like '" & varsqdr &"'"
Set RS=dbconn.Execute(sql)
varStadio=(rs("stadio"))
varPosti=(rs("posti"))
varLivello=(rs("livello"))
varBiglietto=(rs("biglietto"))%>
<font class="bianco_semplice_piccolo"><%response.write(varStadio)%></font><br>
<font class="bianco_semplice_piccolo">(<%response.write(varPosti)%> posti)</font><br>
</td>
</tr>
<tr>
<td align="center" colspan="2" height="10">
</td>
<tr>
<tr>
<td align="center" bgcolor="#EEEEEE" background="menubar.gif" colspan="2">
<font class="nero_grassetto">Info</font>
</td>
</tr>
<tr>
<td bgcolor="#EEEEEE" align="center" colspan="2">
<img border="0" src="img/ico/soldi.png" width="15" height="15"><font class="nero_semplice"> <%response.write(varcapitale/100)%> M</font>
<%Set dbconn = Server.CreateObject("ADODB.Connection")
mMapPath = Server.MapPath("./mdb-database/staff.mdb")
dbconn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & mMapPath & ";"
sql="select * from giocatori where sqdr like '" & varsqdr &"' order by id"
Set RS=dbconn.Execute(sql)
dim varmediasquadra
varmediasquadra=0
dim varnumgioc
varnumgioc=0
dim varprezzogioc
varprezzogioc=0
do while not rs.eof
varmedia=rs("media")
varvalore=rs("valore")
varmediasquadra=varmediasquadra+varmedia
varnumgioc=varnumgioc+1
varprezzogioc=(varprezzogioc+varvalore)
rs.movenext
loop%>
<font class="nero_semplice"><br>Valore squadra: <%response.write(varprezzogioc/100)%> M</font><br>
<font class="nero_semplice">Media: </font>
<%
mediasquadra=(varmediasquadra/varnumgioc)/1000
n = 2 ' cifre da arrotondare
numero = mediasquadra ' numero da arrotondare
stelle=(mediasquadra/20)
sText = stelle
iMaxChar = 1
sResult = Left(sText, iMaxChar)
If Len(sText) > iMaxChar Then
End If
varStelleImmagine=("img/Bkg200x20.png")
Dim i
i = 1
For i = 1 To sResult%>
<img border="0" src="img/Stella.png" width="12" height="12">
<%Next%>
<font class="nero_semplice">(<%Response.write Round(numero, n)%>)<br><br></font>
</td>
</tr>
</table>
</td>
<td width="10">
</td>
</tr>
</table>
</td>
</tr>
</table>
</div>
</body>
</html>
<%RS.Close
dbconn.Close
Set RS = Nothing
set dbconn = Nothing%>
Coi miei amici, stiamo programmando un piccolo manageriale di calcio per divertirci tra noi.
L'homepage si carica correttamente ma, dopo un paio di minuti di non utilizzo della pagina (e anche sulle altre), si genera questo errore:
ADODB.Field error '800a0bcd'
Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record.
/home.asp, line 19
Ho fatto varie prove per capire ed ovviare al problema ma non ci riesco!
Quale potrebbe essere secondo voi il problema e, di conseguenza, una soluzione?
Vi posto di seguito il codice (in grassetto la linea incriminata)...
_____
<%
Session.LCID=1040
varcdc=(Session("cdc"))
vardataserver=(Date)
'----- RECUPERO DATI GENERALI -----
Set dbconn = Server.CreateObject("ADODB.Connection")
mMapPath = Server.MapPath("./mdb-database/dati.mdb")
dbconn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & mMapPath & ";"
sql="select * from dati where id like '" & 1 &"'"
Set RS=dbconn.Execute(sql)
varimg=rs("home")
vargiornataincorso=rs("giornataincorso")
'----- RECUPERO DATI SQUADRA -----
Set dbconn = Server.CreateObject("ADODB.Connection")
mMapPath = Server.MapPath("./mdb-database/squadre.mdb")
dbconn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & mMapPath & ";"
sql="select * from squadre where cdc like '"& varcdc &"'"
Set RS=dbconn.Execute(sql)
varsqdr=(rs("squadra"))
varid=(rs("id"))
varcdcid=(varcdc & varid)
varcategoria=(rs("categoria"))
varcapitale=(rs("capitale"))
varMagliaStile=(rs("MagliaStile"))
varMagliaModello=(rs("MagliaModello"))
varmaglia=("maglie/stile" & varMagliaStile & "/" & varMagliamodello & ".gif")
%>
<html>
<head>
<title>Calcio Manager</title>
<link rel="stylesheet" type="text/css" href="aspstyle.css">
<meta name="viewport" content="width=device-width">
</head>
<body class="font_style" bgcolor="#000000" background="img/<%response.write(varimg)%>">
<div align="center">
<table border="0" width="500" height="300">
<tr>
<td align="center">
<table border="0" cellspacing="0" cellpadding="0">
<tr>
<td align="center">
<table width="200" border="0" cellspacing="0" cellpadding="0">
<tr>
<td align="center">
<img border="0" src="<%response.write(varmaglia)%>" width="70" height="70">
</td>
<td align="center">
<font class="bianco_grassetto_grande"><%response.write(varsqdr)%></font><br>
<font class="bianco_grassetto"><%response.write(varmanager)%></font><br>
<%Set dbconn = Server.CreateObject("ADODB.Connection")
mMapPath = Server.MapPath("./mdb-database/squadre.mdb")
dbconn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & mMapPath & ";"
sql="select * from stadio where squadra like '" & varsqdr &"'"
Set RS=dbconn.Execute(sql)
varStadio=(rs("stadio"))
varPosti=(rs("posti"))
varLivello=(rs("livello"))
varBiglietto=(rs("biglietto"))%>
<font class="bianco_semplice_piccolo"><%response.write(varStadio)%></font><br>
<font class="bianco_semplice_piccolo">(<%response.write(varPosti)%> posti)</font><br>
</td>
</tr>
<tr>
<td align="center" colspan="2" height="10">
</td>
<tr>
<tr>
<td align="center" bgcolor="#EEEEEE" background="menubar.gif" colspan="2">
<font class="nero_grassetto">Info</font>
</td>
</tr>
<tr>
<td bgcolor="#EEEEEE" align="center" colspan="2">
<img border="0" src="img/ico/soldi.png" width="15" height="15"><font class="nero_semplice"> <%response.write(varcapitale/100)%> M</font>
<%Set dbconn = Server.CreateObject("ADODB.Connection")
mMapPath = Server.MapPath("./mdb-database/staff.mdb")
dbconn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & mMapPath & ";"
sql="select * from giocatori where sqdr like '" & varsqdr &"' order by id"
Set RS=dbconn.Execute(sql)
dim varmediasquadra
varmediasquadra=0
dim varnumgioc
varnumgioc=0
dim varprezzogioc
varprezzogioc=0
do while not rs.eof
varmedia=rs("media")
varvalore=rs("valore")
varmediasquadra=varmediasquadra+varmedia
varnumgioc=varnumgioc+1
varprezzogioc=(varprezzogioc+varvalore)
rs.movenext
loop%>
<font class="nero_semplice"><br>Valore squadra: <%response.write(varprezzogioc/100)%> M</font><br>
<font class="nero_semplice">Media: </font>
<%
mediasquadra=(varmediasquadra/varnumgioc)/1000
n = 2 ' cifre da arrotondare
numero = mediasquadra ' numero da arrotondare
stelle=(mediasquadra/20)
sText = stelle
iMaxChar = 1
sResult = Left(sText, iMaxChar)
If Len(sText) > iMaxChar Then
End If
varStelleImmagine=("img/Bkg200x20.png")
Dim i
i = 1
For i = 1 To sResult%>
<img border="0" src="img/Stella.png" width="12" height="12">
<%Next%>
<font class="nero_semplice">(<%Response.write Round(numero, n)%>)<br><br></font>
</td>
</tr>
</table>
</td>
<td width="10">
</td>
</tr>
</table>
</td>
</tr>
</table>
</div>
</body>
</html>
<%RS.Close
dbconn.Close
Set RS = Nothing
set dbconn = Nothing%>
