Due istruzioni sql su una connessione....problemi...

[diegoctn]

Scusate che ci trovate di strano?:

strconn="Driver={Microsoft Access Driver (*.mdb)}; dbq="&Server.MapPath("net.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("fa")
session("reparto")=rs("pre")
session("unity")=rs("unity")
session("xcucina")=rs("xcuc")
'prova del 30--07-2004
Session("utente") = lcase(trim(Request.form("Utentegal"))) 
if InStr(1, Application("Users"), Session("utente") & "|" ) = 0 then
Application.Lock
Application("Users") = Application("Users") & Session("utente") & "|"
Application.UnLock
end if 

Sintra="Insert into statistiche (utente) values ( '"&utentegal"')"
OBJconn.execute(sintra) 
Response.Redirect ("guida.asp")
Else
Response.Redirect ("riprova.htm")
End If
Set rs=Nothing
conn.close
set.Conn=Nothing

Mi dice prevista fine istruzione.......

[Roby_72]

Sintra="Insert into statistiche (utente) values ( '"&utentegal"')"
response.write (Sintra):response.end 
OBJconn.execute(sintra)

Cosa ti stampa?
In ogni caso la connessione devi chiuderla prima di fare i redirect.

Roby

[rinzi]

manca una & alla concatenazione del paramestro

così


Sintra="Insert into statistiche (utente) values ('" & utentegal & "')"

[vaargard]

strconn="Driver={Microsoft Access Driver (*.mdb)}; dbq="&Server.MapPath("net.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("fa")
	session("reparto")=rs("pre")
	session("unity")=rs("unity")
	session("xcucina")=rs("xcuc")
	'prova del 30--07-2004
	Session("utente") = lcase(trim(Request.form("Utentegal"))) 
	if InStr(1, Application("Users"), Session("utente") & "|" ) = 0 then
		Application.Lock
			Application("Users") = Application("Users") & Session("utente") & "|"
		Application.UnLock
	end if 
	
	Sintra="Insert into statistiche (utente) values ( '"&utentegal&"')" 'qui mancava la e commerciale!!!!
	'OBJconn.execute(sintra) 'cos'è objconn se la tua connessione si chiama conn?
	conn.execute(sintra)
	Response.Redirect ("guida.asp")
Else
	Response.Redirect ("riprova.htm")
End If

Set rs=Nothing
conn.close
set Conn=Nothing'qui avevi sbagliato

[diegoctn]

Adesso mi dice che è necessario l'oggetto: OBJConn.Execute("sintra")

[vaargard]

leggi ciò che ti ho scritto!!!!

[diegoctn]

Si, vargard ho letto dopo. Grazie mille adesso funziona. Sono perplesso però su quando chiudere la connessione. In effetti va prima del redirect solo che la stessa redirect è all'interno di un IF....

[Roby_72]

...
...
...if not rs.eof then
	session("utentegal")=Request.Form("utentegal")
	session("mette")=rs("log")
	session("associa")=rs("ass")
	session("farm")=rs("fa")
	session("reparto")=rs("pre")
	session("unity")=rs("unity")
	session("xcucina")=rs("xcuc")
	'prova del 30--07-2004
	Session("utente") = lcase(trim(Request.form("Utentegal"))) 
	if InStr(1, Application("Users"), Session("utente") & "|" ) = 0 then
		Application.Lock
			Application("Users") = Application("Users") & Session("utente") & "|"
		Application.UnLock
	end if 
	
	Sintra="Insert into statistiche (utente) values ( '"&utentegal&"')" 'qui mancava la e commerciale!!!!
	'OBJconn.execute(sintra) 'cos'è objconn se la tua connessione si chiama conn?
	conn.execute(sintra)
var_red="guida"	
End If

Set rs=Nothing
conn.close
set Conn=Nothing

if var_red="guida" then
Response.Redirect ("guida.asp")
else
Response.Redirect ("riprova.htm")
end if

Roby

[vaargard]

guarda roby ...

[diegoctn]

Roby mi da :
Riferimento non valido o non qualificato

su set Conn=Nothing