conta click un po particolare

[Partisan75]

Scusate ma non riesco a capire perché non funziona. Vorrei fare tipo un contaclick ma che conta all'apertura della pagina e cioè:

 <%
   Dim SQLclick, RSclick, Urlclick, click_attuali, clicknuovo
   
   Urlclick = Request.QueryString("id")
   'Response.write Urlclick QUESTO FUNZIONA
 
   SQLclick = "SELECT * FROM click WHERE url = '"& Urlclick &"'" 
   Set RSclick = Conn.Execute(SQLclick)
   If Not RSclick.EOF Then
   
   ID = RSclick("ID")
   click_attuali = RSclick("clicks")
   'Response.write ID QUESTO FUNZIONA
   
   clicknuovo = (click_attuali + 1)
   SQLclick = " UPDATE click Set clicks = '" & clicknuovo & "' WHERE ID = "& ID 
   
   else
   
   SQLclick = " INSERT INTO click (url, clicks) VALUES ("&Urlclick&", '1') "
   end if
   
   RSclick.Close
   
 %>

Forse non va perché non c'è un evento ? io non so più che prove fare...
Grazie in anticipo

[Vincent.Zeno]

trattare numeri come testo è sempre una cosa da verificare...

cosa non ti funziona?

le query di aggiornamento le esegui? nel tuo esempio non si vede l'esecuzione.

[Partisan75]

Ciao grazie per la risposta,

riposto il codice, fino a Response.write clicknuovo funzione bene, cioè mi restituisce il numero della somma di quello che c'è nel database +1.
Sto provando a fare tutto con numeri, nel db sia la cella url che clicks ora sono numeriche ed ovviamente anche l'ID che è la chiave primaria.

Lo posso rendere numerico perche il link praticamente è un numero, cioè il numero ID del prodotto

<%
Dim SQLclick, RSclick, Urlclick, click_attuali, clicknuovo

Urlclick = Request.QueryString("id")
'Response.write Urlclick

SQLclick = "SELECT * FROM click WHERE url = "&Urlclick
Set RSclick = Conn.Execute(SQLclick)
If Not RSclick.EOF Then

ID = RSclick("ID")
click_attuali = RSclick("clicks")
'Response.write ID
'Response.write click_attuali
clicknuovo = (click_attuali + 1)
Response.write clicknuovo

SQLclick = " UPDATE click Set clicks = " & clicknuovo & " WHERE ID = "& ID

else

end if
RSclick.Close

%>

Quindi non mi fa l'aggiornamento, poi vediamo per l'insert che neanche funzionava...
Grazie in anticipo

[Vincent.Zeno]

le query di aggiornamento le esegui? nel tuo esempio non si vede l'esecuzione.

edit: consiglio comunque di cambiarle nome per distinguerla

riedit: e di accertarsi che Urlclick sia numerico

[Partisan75]

Grazie ho cambiato i nomi per distinguerle tutte ed ora funziona, thanks

Scusa ultima cosa, se provo a chiudere però la prima connessione come sotto non mi funziona e dice:

L'operazione non è consentita se l'oggetto è chiuso

Dove bisogna chiudere RSclick.Close?
inoltre è importante chiederle tutte ?
Grazie

SQLclickup = " UPDATE click SET clicks = '"& clicknuovo &"' WHERE ID = "& IDclick
Set RSclickup = Conn.Execute(SQLclickup)
RSclickup.Close

else

SQLclickIn = " INSERT INTO click (url, clicks) VALUES ("&Urlclick&", '1') "
Set RSclickIn = Conn.Execute(SQLclickIn)
RSclickIn.Close
end if
RSclick.Close
%>

[Vincent.Zeno]

chiudere tutti gli oggetti e connessioni è importante per liberare le risorse, altrimenti rischi anche di piantare il server.
ma tu hai un po' esagerato.

posta il codice completo che te lo correggo

[Partisan75]

grazie ancora. Ecco il codice, vorrei capire bene per poter essere autonomo.

<%
Dim SQLclick, RSclick, Urlclick, click_attuali, clicknuovo, IDclick, SQLclickup, RSclickup, SQLclickIn, RSclickIn

Urlclick = Request.QueryString("id")
'Response.write Urlclick

SQLclick = "SELECT * FROM click WHERE url = "&Urlclick
Set RSclick = Conn.Execute(SQLclick)
If Not RSclick.EOF Then

IDclick = RSclick("ID")
click_attuali = RSclick("clicks")
'Response.write ID
'Response.write click_attuali
clicknuovo = (click_attuali + 1)
'Response.write clicknuovo

SQLclickup = " UPDATE click SET clicks = '"& clicknuovo &"' WHERE ID = "& IDclick
Set RSclickup = Conn.Execute(SQLclickup)

else

SQLclickIn = " INSERT INTO click (url, clicks) VALUES ("&Urlclick&", '1') "
Set RSclickIn = Conn.Execute(SQLclickIn)
end if

%>

[Vincent.Zeno]

ho tralasciato la dichiarazione delle variabili

Urlclick = Request.QueryString("id")

if isNumeric(Urlclick) then

SQLclick = "SELECT * FROM click WHERE url = "&Urlclick
Set RSclick = Conn.Execute(SQLclick)

If Not RSclick.EOF Then

    IDclick = RSclick("ID")
    click_attuali = RSclick("clicks")
    clicknuovo = (click_attuali + 1)
    
    SQLclickup = " UPDATE click SET clicks = "& clicknuovo &" WHERE ID = "& IDclick 
    Conn.Execute(SQLclickup)

else

    SQLclickIn = " INSERT INTO click (url, clicks) VALUES ("&Urlclick&", 1) "
    Conn.Execute(SQLclickIn)

end if

RSclick.close
set RSclick = nothing

end if

[Partisan75]

che bellezza avere del codice pulito ed il minimo indispensabile, sono un fanatico dell'ordine. Ultima richiesta: potersti per cortesia darmi solo qualche spiegazione per Conn.Execute(SQLclickup)? Grazie ancora e buon we

[Vincent.Zeno]

spiegazione di che? è così chiaro che basta leggerlo.

chiamilaconnessionealdb.ledicidieseguire(quelchest aqui)