Aggiornamento

[andreathedove]

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

[Roby_72]

conn.Execute("UPDATE varie set show=yes where id="& rs("id"))

Anche se forse la condizione (sull'uguaglianza di data) dovresti metterla nella prima query evitandoti di estrarre record inutili sin dall'inizio.

Roby

[andreathedove]

Ciao Roby,
ma il codice, dopo aver fatto la tua correzzzione, va bene ?

mi puoi mostrare dove inserire la tua istruzione ?

Andrea

[Roby_72]

Ho solo modificato la tua...

Roby

[andreathedove]

Non riesco a capire dove cambiare l'inserimento...

[Roby_72]

Ho modificato la query che hai fatto tu, null'altro.

Roby

[andreathedove]

Ciao Roby,
ho porvato è funziona...

ora il problema sta nel show=yes che mi scarica tutti i records autorizzati...

con i records funziiona ma il porblema e che lo tiene conto anche if ... in pratica psassa via il False e non guarda la data quindi mi aggiorna in yes se ci fosse il bisogno:

SQL = "SELECT * FROM varie where show=yes"

Andrea

[Roby_72]

Mi credi se ti dico che non sto capendo un H di quello che dici??


Roby

[andreathedove]

Nel db ho i records:

id contatore
img memo
Show Button radio True/False
data formato 27/08/2004

Allora io vorrei inserie delle immagini che si visualizzino nelle pagine quando la data è uguale a oggi oppure minore ad oggi, se maggiore quindi non visualizzo niente...

per fare questo vorrei che il campo Show si sposti su yes (si visualizza) quando la data sarà uguale o minore ad oggi.

In breve un esempio...

Data inserimento 26/08/2004 show yes
Data inserimento 27/08/2004 shoe yes
data inserimento 28/08/2004 show no

Le prime due si devo visualizzare mentre la terna no.
Domani si visualizzano tutte e tre ecc...

Il codice:

<%
database= Server.MapPath("mdb-database/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 where show=yes "

rs.Open SQL, Conn, 1, 3

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

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

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

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

%>


<%=rs("img")%>

<%
rs.movenext
loop
%>


In questo modo non mi funzina, e non mi aggiorna i campi...
xche ? dove sbaglio ?

Andrea

[Roby_72]

Ma scusa il controllo tu devi farlo sul confronto delle date... a cosa ti serve il campo show???? Non capisco...

Roby