News

[Rocco21]

Sto cercando di cambiare una immagine quando la mia news "scade"
il codice che utilizzo e non mi da risultati è questo:
Dim dep
dep = FormatDateTime(Now(), vbShortDate)


For intRecordLoopCounter = 1 to intRecordsPerPage
If rsNews.EOF Then Exit For
If rsNews("data") < dep Then rsNews("data") = true
Else
rsNews("data") = false
end if
if rsNews("Evento") = true then
sImageURL = "1.gif"
else
sImageURL = "2.gif"
End If
%>
[img]<%=sImageURL%>[/img]

.....
<%
rsNews.MoveNext
Next
End If



%>
Qualcuno mi spiega il perchè ?

[asva]

scusa ma se il true e false lo hai su

rsnews("data")

perchè poi lo cerchi su

rsNews("Evento")

[Rocco21]

Ciao,
allora il mio ragionamento: se la data della news (inserita nel database) è inferiore alla data odierna (variabile dep) , allora la data è true, quindi l'immagine è 1.gif.
Se no la data è false è l'immagine è 2.gif

Ciao

[Rocco21]

Scusa, hai ragione mi sono accorto che ho sbagliato a trascrivere, comunque anche in questo modo non mi da nessuna soddisfazione......

Dim dep
dep = FormatDateTime(Now(), vbShortDate)


For intRecordLoopCounter = 1 to intRecordsPerPage
If rsNews.EOF Then Exit For
If rsNews("data") < dep Then rsNews("data") = true
Else
rsNews("data") = false
end if
if rsNews("data") = true then
sImageURL = "1.gif"
else
sImageURL = "2.gif"
End If
%>
[img]<%=sImageURL%>[/img]

.....
<%
rsNews.MoveNext
Next
End If



%>

[laycg]

Prova così:

For intRecordLoopCounter = 1 to intRecordsPerPage
If rsNews.EOF Then Exit For
If rsNews("data") < dep Then rsNews("evento") = true
Else
rsNews("evento") = false
end if
if rsNews("Evento") = true then
sImageURL = "1.gif"
else
sImageURL = "2.gif"
End If
%>
[img]<%=sImageURL%>[/img]

.....
<%
rsNews.MoveNext
Next
End If

[Rocco21]

No, pensavo si potesse, la pagina, aggiornare con la data odierna nel momento si richiamasse senza avere precedentemente impostata sul database.
Ma .. ...

Dodo