Ciao,
per mancaza di tempo ad occuparmi del mio sito ho deciso di creare una funzione che mi consenta di inserire testi e varie nei campi db e visualizzarli ad una data stabilita e indicata nel db.

ho provato con questo codice ma qualche cosa non funziona:

I Campi nel db:

id = automatico
Testo = Testo
Data = date()
Show = Button Radio True , False

Il codice è il seguente

<%
database= Server.MapPath("amici_allinonenet.mdb")
Set Conn= Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")
Conn.Open ("DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & database)

SQL = "SELECT * FROM varie"

rs.Open SQL, Conn, 1, 3

Dim data, img
data=rs("data")
testo=rs("testo")

data = rs("data")
dan = formatDateTIME( DATE(), vbShortDate )

If data < dan or data = dan Then
conn.Execute("UPDATE varie set show=yes ")
elseif data > dan then
show=rs("show")
rs.Field("show")=show
rs.update
End If

i=0
do until i=100 or rs.EOF
i=i+1

%>


<%=testo%>

<%
rs.movenext
loop
%>

In questo modo vede il primo records e in base a quello mi aggiorna nello stesso modo tutti gli altri records:

primo record soddisfa la condizione "yes", e magari altri records non li soddisfa, me li trasforma ugualmente tutti in yes...

Premetto che il "yes" e "no" sono nella forma Radio Button (scusate se lo scrivo male)...

Poi se scrivo SQL = "SELECT * FROM varie" nello scarico dei records me li prende tutti (naturalmente), mentre se scrivo SQL = "SELECT * FROM varie where show=yes" nella condizine ()se un records è "no") non me lo prende in considerazione...

Dove sbaglio ?

Andrea