aggiornare un record secondo la data

[optime]

ti ho detto di fare la conn.execute... dov'è?
poi, che db usi?

[serpiko]

ho provato anche così ma lo stesso non restituisce errori ma non cambia nemmeno la categoria!:

'---------------------inizio riga per cambiare la categoria-------------------------------
if objRS("scadenza") > date() then
Dim Conn
Set Conn=Server.CreateObject("ADODB.Connection")
Conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="& server.MapPath("db/db.mdb")	
SQL="UPDATE db SET cat=scaduto WHERE scadenza > date()"
Conn.Execute(SQL)
end if
'---------------------fine riga per cambiare la categoria-------------------------------

[serpiko]

Mi spiego meglio adesso il codice è così:

<%
			
			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("cat") = "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-------------------------------
if objRS("scadenza") > date() then
Dim Conn
Set Conn=Server.CreateObject("ADODB.Connection")
Conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="& server.MapPath("db/db.mdb")	
SQL="UPDATE db SET cat=scaduto WHERE scadenza > date()"
Conn.Execute(SQL)
end if
'---------------------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
			%>

non restituisce errori ma nemmeno cambia la categoria del record!

[serpiko]

Niente non capisco dove sbaglio!
aiutatemi! potete? mé!

[serpiko]

ditemi dove sbaglio... come fare 'nsomma!
up!!!!!!!!

[optime]

sorry, la fretta

UPDATE tabella SET campo=scaduto WHERE scadenza < oggi

[serpiko]

beh si! effettivamente è decisamente meglio < che maggiore in ogni caso sono ancora fermo... non riesco quale dei codici che ho postato poco prima va bene secondo voi!? perché continua a non effettuare nessuna modifica al record!

[optime]

in che formato è il campo 'scadenza' ?

[serpiko]

data/ora
se può tornarti utile all'inizio del post ho specificato tutta la struttura della tabella

[serpiko]

ops... forse intendevi questo:
il formato è gg/mm/aaaa