Ho questo script per il sistema di votazione con le steline e funziona tutto ok, tranne che in un caso, ovvero quando si da il primo voto!!!
Questo codice è modificato rispetto all'originale (e completamente funzionante) nel fatto che i record del database contengono anche un campo memo e quindi con del testo superiore a 255 caratteri e a quanto pare questa cosa manda in tilt il codice che mi restituisce un errore 500.
Avete idea di come risolverlo o aggirare il problema?
Codice PHP:
<%
if Request.QueryString("mode") = "votato" then
%>
<html>
<head>
<title>Grazie!</title>
<script language="javascript">
function chiudireload() {
window.close();
}
</script>
</head>
<body background="../img/stripe_b.gif">
<div align="center">
<center>
<table width="270" border="0" cellspacing="0" cellpadding="0" height="175" style="border-collapse: collapse" bordercolor="#111111">
<tr>
<td align="center" height="175"><font face="Arial">Grazie per aver votato.
</font>
<form>
<font face="Arial">
<input type="button" value="Chiudi" name="B1" onclick="chiudireload()" >
</form>
</td>
</tr>
</table>
</center>
</div>
<% else %>
<%
if Request.QueryString("mode") = "vota" then
%>
<%
Dim rsLink__ID
ConnR_String = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("../mdb-database/books-prova.mdb")
Set ConnR=Server.CreateObject("ADODB.Connection")
ConnR.Open ConnR_String
rsLink__ID = "1"
if (Request.QueryString("id") <> "") then rsLink__ID = Request.QueryString("id")
%>
<%
set rsLink = Server.CreateObject("ADODB.Recordset")
rsLink.ActiveConnection = ConnR_String
rsLink.Source = "SELECT *, (LINK_RATE/NO_RATES) AS RATING FROM Libri WHERE ID = " + Replace(rsLink__ID, "'", "''") + ""
rsLink.CursorType = 0
rsLink.CursorLocation = 2
rsLink.LockType = 3
rsLink.Open()
rsLink_numRows = 0
%>
<title>Vota per: <%=(rsLink.Fields.Item("titolo_libro").Value)%></title>
<body background="../img/stripe_b.gif">
</font>
<table width="100%" border="0" cellspacing="0" cellpadding="0" style="border-collapse: collapse" bordercolor="#111111" height="158">
<tr>
<td align="center" height="43">
<script language="JavaScript">
<!-- Hide from older browsers
// Function to add the rating to the database
function Rating(star) {
if (star != "") self.location.href = "rating.asp?ID=<%=(rsLink.Fields.Item("ID").Value)%>&Input=Vota&rate_value=" + star;
return true;
}
// -->
</script>
<font face="Arial" size="2">Vota:
<%=(rsLink.Fields.Item("titolo_libro").Value)%></font>
</td>
</tr>
<tr>
<td height="115">
<table border="0" cellspacing="0" cellpadding="2" align="center">
<tr>
<td><font face="Arial">[url="JavaScript:Rating('1')"][img]star_pieno.gif[/img][img]star_vuoto.gif[/img][img]star_vuoto.gif[/img][img]star_vuoto.gif[/img][img]star_vuoto.gif[/img][/url]</font></td>
<td><font face="Arial" size="2">Mediocre</font></td>
</tr>
<tr>
<td><font face="Arial">[url="JavaScript:Rating('2')"][img]star_pieno.gif[/img][img]star_pieno.gif[/img][img]star_vuoto.gif[/img][img]star_vuoto.gif[/img][img]star_vuoto.gif[/img][/url]</font></td>
<td><font face="Arial" size="2">Sufficiente</font></td>
</tr>
<tr>
<td><font face="Arial">[url="JavaScript:Rating('3')"][img]star_pieno.gif[/img][img]star_pieno.gif[/img][img]star_pieno.gif[/img][img]star_vuoto.gif[/img][img]star_vuoto.gif[/img][/url]</font></td>
<td><font face="Arial" size="2">Discreto</font></td>
</tr>
<tr>
<td><font face="Arial">[url="JavaScript:Rating('4')"][img]star_pieno.gif[/img][img]star_pieno.gif[/img][img]star_pieno.gif[/img][img]star_pieno.gif[/img][img]star_vuoto.gif[/img][/url]</font></td>
<td><font face="Arial" size="2">Buono</font></td>
</tr>
<tr>
<td><font face="Arial">[url="JavaScript:Rating('5')"][img]star_pieno.gif[/img][img]star_pieno.gif[/img][img]star_pieno.gif[/img][img]star_pieno.gif[/img][img]star_pieno.gif[/img][/url]</font></td>
<td><font face="Arial"><font size="2">Ottimo</font></td>
</tr>
</table>
</td>
</tr>
</table>
<%
ConnR.Close
set ConnR = nothing
rsLink.Close()
%>
<%
else
%>
<%intSiteID = CInt(Request.QueryString("ID"))
if Request.Cookies("rate_value")("Site" & intSiteID) = "True" then %>
<title>Non valido!</title>
<body background="../img/stripe_b.gif">
</font>
<div align="center">
<center>
<table wIDth="270" border="0" cellspacing="0" cellpadding="0" height="185" style="border-collapse: collapse" bordercolor="#111111">
<tr>
<td align="center" height="185"><font face="Arial">Hai già votato quest'opera![b]
[/b]
</font>
<form>
[b]
<font face="Arial">
<input type="button" value="Chiudi" name="B1" onClick="window.close()">
</font>
[/b]
</form>
</td>
</tr>
</table>
</center>
</div>
<%else %>
<%
Response.Cookies("rate_value")("Site" & intSiteID) = "True"
Response.Cookies("rate_value").Expires = Now() + 1
%>
<%
Dim ConnR_String,ConnR
ConnR_String = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("../mdb-database/books-prova.mdb")
Set ConnR=Server.CreateObject("ADODB.Connection")
ConnR.Open ConnR_String
if(Request.QueryString("rate_value") <> "") then cmdRating__varRATE = Request.QueryString("rate_value")
if(Request.QueryString("id") <> "") then cmdRating__varID = Request.QueryString("id")
%>
<%
set cmdRating = Server.CreateObject("ADODB.Command")
cmdRating.ActiveConnection = ConnR_String
cmdRating.CommandText = "UPDATE Libri SET LINK_RATE = LINK_RATE + " + Replace(cmdRating__varRATE, "'", "''") + ", NO_RATES = NO_RATES + 1 WHERE ID = " + Replace(cmdRating__varID, "'", "''") + ""
cmdRating.CommandType = 1
cmdRating.CommandTimeout = 0
cmdRating.Prepared = true
cmdRating.Execute()
Response.Redirect "rating.asp?mode=votato"
ConnR.Close
set ConnR = nothing
%>
<%
End if
End if
End if
%>
Rispondi quotando
