Mi date un'occhiata a questo errore.........insert into....

[diegoctn]

Ragazzi sto tentando di visualizzare gli utenti connessi; ho visto un pò di script sulle sessioni ma per un motivo o per l'altro non mi funzionano. Allora ho pensato a fare un insert sulla pagina di login del sito. Ho costruito una tabella con nome utente e data settata a now() così almeno ho la data di ingresso degli utenti (poi penserò al resto, un passo alla volta). Il codice è questo:


utentegal=Request.Form("utentegal")
passp=Request.Form("passp")
strconn="Driver={Microsoft Access Driver (*.mdb)}; dbq="&Server.MapPath("intranet.mdb")
set Conn=Server.CreateObject("ADODB.Connection")
Conn.open strconn
Squery="SELECT * FROM notifica where password='"&passp&"' and user='"&utentegal&"'"
set rs=server.createobject("adodb.recordset")
rs.open Squery,Conn
if not rs.eof then
session("utentegal")=Request.Form("utentegal")
session("mette")=rs("log")
session("associa")=rs("ass")
session("farm")=rs("farm")
session("reparto")=rs("pre")
Response.Redirect ("guida.htm")
Else
Response.Redirect ("riprova.htm")
End If
Set rs=Nothing

set.Conn=Nothing
conn.close
'apro una nuova connessione per inserire nome utente da visualizzare
utentegal=Request.Form("utentegal")
strconn="Driver={Microsoft Access Driver (*.mdb)}; dbq="&Server.MapPath("prezziario.mdb")
set Conn=Server.CreateObject("ADODB.Connection")
Conn.open strconn
ssquery="Insert INTO visuale ("utente") values ('"&utentegal&"');"
rs.open ssquery, conn
Set rs=Nothing
set.Conn=Nothing
conn.close


Mi da però questo errore:
Errore di compilazione di Microsoft VBScript (0x800A0401)
Prevista fine istruzione
sulla ssquery.

Dove sbaglio?
Grazie ragazzi.

[Shagrat]

ssquery="Insert INTO visuale (utente) values ('"&utentegal&"');"

[diegoctn]

Il codice non mi da nessun errore però non viene inserito il nome utente. Perchè?

[Sypher]

e ci credo non la esegui la insert!

[Sypher]

Originariamente inviato da diegoctn


utentegal=Request.Form("utentegal")
passp=Request.Form("passp")
strconn="Driver={Microsoft Access Driver (*.mdb)}; dbq="&Server.MapPath("intranet.mdb")
set Conn=Server.CreateObject("ADODB.Connection")
Conn.open strconn
Squery="SELECT * FROM notifica where password='"&passp&"' and user='"&utentegal&"'"
set rs=server.createobject("adodb.recordset")
rs.open Squery,Conn
if not rs.eof then
session("utentegal")=Request.Form("utentegal")
session("mette")=rs("log")
session("associa")=rs("ass")
session("farm")=rs("farm")
session("reparto")=rs("pre")
Response.Redirect ("guida.htm")
Else
Response.Redirect ("riprova.htm")
End If
Set rs=Nothing

set.Conn=Nothing
conn.close
'apro una nuova connessione per inserire nome utente da visualizzare
utentegal=Request.Form("utentegal")
strconn="Driver={Microsoft Access Driver (*.mdb)}; dbq="&Server.MapPath("prezziario.mdb")
set Conn=Server.CreateObject("ADODB.Connection")
Conn.open strconn
ssquery="Insert INTO visuale (utente) values ('"&utentegal&"')"
Conn.Execute ssquery
Set rs=Nothing
set.Conn=Nothing
conn.close

[Shagrat]

Set rs=Nothing 
set.Conn=Nothing 
conn.close

meglio fare così

Set rs=Nothing 
conn.close 
set conn=Nothing

[Sypher]

Originariamente inviato da Shagrat

Set rs=Nothing 
set.Conn=Nothing 
conn.close

meglio fare così

Set rs=Nothing 
conn.close 
set conn=Nothing

sì forse è meglio! e dato che ci sei schioppa la terzultima riga! (Set rs=Nothing)
tanto non serve più!

[Shagrat]

Originariamente inviato da Sypher
sì forse è meglio! e dato che ci sei schioppa la terzultima riga! (Set rs=Nothing)
tanto non serve più!

sottoscrivo

[diegoctn]

Niente.....

utentegal=Request.Form("utentegal")
strconn="Driver={Microsoft Access Driver (*.mdb)}; dbq="&Server.MapPath("prezziario.mdb")
set Conn=Server.CreateObject("ADODB.Connection")
Conn.open strconn
ssquery="Insert INTO visuale (utente) values ('"&utentegal&"');"
conn.execute ssquery
set.Conn=Nothing
conn.close

Neanche così..........

[Shagrat]

utentegal=Request.Form("utentegal")
strconn="Driver={Microsoft Access Driver (*.mdb)}; dbq="&Server.MapPath("prezziario.mdb")
set Conn=Server.CreateObject("ADODB.Connection")
Conn.open strconn
ssquery="Insert INTO visuale (utente) values ('"&utentegal&"');"
conn.execute ssquery
conn.close
set Conn=Nothing

è così che si scrive