<%
If (CStr(Request("MM_insert")) <> "") Then
set datiRS = Server.CreateObject("ADODB.Recordset") ' Creo un nuovo
recordset
datiRS.ActiveConnection = MM_editCmd.ActiveConnection ' La connessione è
la stessa usata per inserire i dati
datiRS.Source = "SELECT max(id) as MaxID FROM cartoline" ' Seleziono
dalla tabella cartoline l'id più alto, ovviamente è l'ultimo inserito
datiRS.CursorType = 0
datiRS.CursorLocation = 2
datiRS.LockType = 3
datiRS.Open()
Session("idcard")=datiRS("MaxID") ' Creo la variabile di sessione
idcard e la valorizzo con l'id del record inserito
Response.Redirect(MM_editRedirectUrl) ' Indirizzo l'utente alla pagina invia.asp
end if
%>