memorizzare utente accesso

[gsflash]

Buonasera a tutti, vorrei sapere come si fa esattamente per inserire l'utente che ha accesso la pagina dopo aver fatto il login?

MM_editquery3 = "insert into assegnatario where utente values ("& MM_grantAccess &")"

Non va bene questo? con MM_grantAccess avevo preso dalla restrizione di accesso, non è corretto questo?

Nella pagina contiene 2 Recordset, avevo già provato a fare l'altro Recordset per prendere il query di "utente e password" perchè volevo memorizzare l'utente che era accesso in quella pagina e così potrebbe inserire l'user nel query "archivio" con codice

MM_editquery3 = "insert into assegnatario where utente values ("& utente.Item("Cogn") &")"

E tutte e due non funziona per niente......
Attendo la vostra risposta, grazie e spero che mi rispondete, perchè l'ultimo thread che ho aperto, NESSUNO MI HANNO RISPOSTO e so che è causa mia che non scrivo bene l'italiano e alla fine ce l'ho fatta da solo per 5 ore a riprovare e pensare.
E ora spero che mi rispondete perchè ho già provato tante volte e non posso perdere i giorni che nel progetto era previsto 10 giorni da terminare e ora mi sono rimasti 3 giorni.... Spero molto che mi aiutate.
Grazie e buona serata da Gabriele

[kalosjo]

La query di insert deve essere

insert into tabella (campo1, campo2, ....) values (valore1, valore2, ....)

Ovviamente sostituendo a campo1, campo2, .... i nomi dei campi e a valore1, valore2, .... i valori (con i delimitatori propri).

Quindi credo che sia questo il problema....

[gsflash]

ho corretto con

MM_editquery3 = "insert into assegnatario.utente values ("& utente.Item(Cogn) &")"

perchè la tabella degli user si trova nel recordset "utente" e vorrei inserirlo nell'altra tabella "assegnatario" nella colonna "utente", è giusto che ho scritto assegnatario.utente?

mi da questo errore:

Tipo di errore:
Errore di run-time di Microsoft VBScript (0x800A01A8)
Necessario oggetto: ''
/gestionebadget/assegna.asp, line 132


Grazie

[kalosjo]

Posta un po' più di codice, che non so dove potrebbe essere l'errore....

Ma non tutta la pagina...

[gsflash]

Buongiorno, ieri sono dovuto uscire alle 18,30, allora ecco il codice.

MM_editQuery = "insert into " & MM_editTable & " (" & MM_tableValues & ") values (" & MM_dbValues & ") "
MM_editquery2 = "UPDATE db_badge SET stato = 'A' WHERE num_badge=" & Request.Form("cp")
'MM_editquery3 = "insert into " & Recordset1.utente & " values ("& utente.Item(Cogn) &")"
MM_editQuery3 = "INSERT INTO assegnatario SET utente = '(&session("Cogn")&'"

poi--------------------------------------------------------------

f (Not MM_abortEdit) Then
' execute the insert
Set MM_editCmd = Server.CreateObject("ADODB.Command")
MM_editCmd.ActiveConnection = MM_editConnection
MM_editCmd.CommandText = MM_editQuery
MM_editCmd.Execute
MM_editCmd.ActiveConnection.Close

Set MM_editCmd = Server.CreateObject("ADODB.Command")
MM_editCmd.ActiveConnection = MM_editConnection
MM_editCmd.CommandText = MM_editQuery2
MM_editCmd.Execute
MM_editCmd.ActiveConnection.Close

Set MM_editCmd = Server.CreateObject("ADODB.Command")
MM_editCmd.ActiveConnection = MM_editConnection
MM_editCmd.CommandText = MM_editQuery3
MM_editCmd.Execute
MM_editCmd.ActiveConnection.Close

poi ------------------------------------------------------------

<%
Dim Recordset1
Dim Recordset1_numRows

Set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = MM_autentica_STRING
Recordset1.Source = "SELECT * FROM dbo.assegnatario"
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 1
Recordset1.Open()

Recordset1_numRows = 0
%>

poi---------------------------------------------------------------

<%
Dim utente__MMColParam
utente__MMColParam = "1"
If (Session("Cogn") <> "") Then
utente__MMColParam = Session("Cogn")
End If
%>
<%
Dim utente
Dim utente_numRows

Set utente = Server.CreateObject("ADODB.Recordset")
utente.ActiveConnection = MM_autentica_STRING
utente.Source = "SELECT * FROM dbo.utente WHERE Cogn = '" + Replace(utente__MMColParam, "'", "''") + "'"
utente.CursorType = 0
utente.CursorLocation = 2
utente.LockType = 1
utente.Open()

utente_numRows = 0
%>

Bastano questi codici per capire? Spero
Grazie

[kalosjo]

Vedo che c'è un po' di confusione nella sintassi sql...

No so a cosa serva l'applicazione, ma c'è questo errore:

MM_editQuery3 = "INSERT INTO assegnatario SET utente = '(&session("Cogn")&'"

Forse è esatto quello commentato...

[gsflash]

ho messo quello commentato, mi da l'errore

Tipo di errore:
Errore di run-time di Microsoft VBScript (0x800A01A8)
Necessario oggetto: ''
/gestionebadget/assegna.asp, line 132


sigh sigh

[kalosjo]

Quale è la linea 132?

[gsflash]

MM_editquery3 = "insert into " & Recordset1.utente & " values ("& utente.Item(Cogn) &")"