Ho modificato così:
codice:
<%
iPageSize = 10 'NUMERO RECORD PER PAGINA
If Request.QueryString("page") = "" Then
iPageCurrent = 1
Else
iPageCurrent = CInt(Request.QueryString("page"))
End If
strSQL = "SELECT * FROM db where cat = 'bandi' or cat = 'Avvisi' order by data DESC"
Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.PageSize = iPageSize
objRS.CacheSize = iPageSize
objRS.Open strSQL, objConn, adOpenStatic, adLockReadOnly, adCmdText
reccount = objRS.recordcount
iPageCount = objRS.PageCount
If iPageCurrent > iPageCount Then iPageCurrent = iPageCount
If iPageCurrent < 1 Then iPageCurrent = 1
If iPageCount = 0 Then
Response.Write "
<table><td><font face='verdana' size='2' color='#000000'>Non sono stati trovati dati.</td></table></p>"
Else
objRS.AbsolutePage = iPageCurrent
iRecordsShown = 0
%>
<table>
<%
cont=1
Do While iRecordsShown < iPageSize And Not objRS.EOF
dim colore, colore2, scadenza, rsEventi
colore="#ff0000"
colore2="#000000"
If objRS("pcat") = "Bandi" Then
Response.Write "<tr><td>[img]immagini/jpg/zipimage_p.jpg[/img]<span class=""titolonews"">"&objRS("nome")&"</span>
"& vbCrlf
Response.Write "<font color='"& Colore2 &"' face='Verdana' size='1'>Inserito il [" & objRS("data") & "] </font>
[img][/img]</td></tr>"
Else
Response.write " <TR><TD bgcolor=""#FF0000""><div align=""center""><font color=""#FFFFFF"" size=""2"" face=""Geneva, Arial, Helvetica, sans-serif"">AVVISO</font></div></TD></TR>"
Response.Write "<tr><td>[img]immagini/jpg/zipimage_p.jpg[/img]<span class=""titolonews"">"&objRS("nome")&"</span>
"& vbCrlf
Response.Write "<font color='"& Colore &"' face='Verdana' size='1'>Inserito il [" & objRS("data") & "] </font>
</td></tr>"
Response.Write "<TR><TD bgcolor=""#FF0000""><div align=""center""></div></TD></TR>"
end if
'---------------------inizio riga per cambiare la categoria-------------------------------
UPDATE db SET cat=scaduto WHERE scadenza > date()
'---------------------fine riga per cambiare la categoria-------------------------------
Cont = Cont + 1
'POSIZIONAMENTO ALLA RIGA SUCCESSIVA DEL DB
iRecordsShown = iRecordsShown + 1
objRS.MoveNext
Loop
'PULIZIA DEGLI OGGETTI ADO
objRS.Close
Set objRS = Nothing
%>
</table>
<%End if%>
<%If ipagecount <> 1 Then%>
</p>
<table>
<tr>
<td width="50%"><font face="verdana" size="1" color="#000000">
[
<%if iPageCurrent-2 > 0 and iPageCurrent > 2 then%>
[img]images/first.gif[/img]
<%end if%>
<%if iPageCurrent > 1 then%>
[img]images/pre.gif[/img]
<%end if%>
<%if iPageCount > 2 then
if iPageCurrent-2 < 1 then da_pag = 1 else da_pag = iPageCurrent-2
if iPageCurrent+2 > iPageCount then fino_a_pag = iPageCount else fino_a_pag = iPageCurrent+2
else
da_pag = 1
fino_a_pag = iPageCount
end if%>
<%for i = da_pag to fino_a_pag%>
<%if i = iPageCurrent then%>
<font color="red"> <%=i%> </font>
<%else%>
<a href="bandi.asp?page=<%=i%>"> <%=i%>
</a>
<%end if%>
<%next%>
<%if iPageCurrent > 0 and iPageCurrent < iPageCount then%>
[img]images/next.gif[/img]
<%end if%>
<%if iPageCurrent+1 < iPageCount then%>
[img]images/last.gif[/img]
<%end if%>
] </font></td>
</tr>
<tr>
<td colspan="2" align="left"><font face="verdana" size="1" color="#000000">
Pagina <font color="#FF0000"> <%=iPageCurrent%>
</font> di <font color="#FF0000">
<%=iPageCount%> </font> </font></td>
</tr>
</table>
<%end if%>
<%
objConn.Close
Set objConn = Nothing
%>
e mi restituisce questo errore:
Prevista fine istruzione
/prova/bandi.asp, line 187, column 16
UPDATE db SET cat=scaduto WHERE scadenza > date()
Ho provato a metterlo virgolettato così:
codice:
''---------------------inizio riga per cambiare la categoria-------------------------------
"UPDATE db SET cat=scaduto WHERE scadenza > date()"
'---------------------fine riga per cambiare la categoria-------------------------------
e niente stesso errore
Ho provato così:
codice:
''---------------------inizio riga per cambiare la categoria-------------------------------
SQL= "UPDATE db SET cat=scaduto WHERE scadenza > date()"
'---------------------fine riga per cambiare la categoria-------------------------------
e non mi restituisce nessun errore ma neppure funziona il record rimane uguale, cioè la categoria rimane "Bandi" e non " scaduto"
Rispondi quotando
