Invio email con id

[Gio&Ste]

Inserisco dei dati nel db in questo modo:

 <%	
	SqlInsert = "Insert Into comunica" &_ 
	" (titolo,sottotitolo,Articolo,Autore,Data_Inserimento," &_ 
	"Inserita_da,email,tipo,keys,Fonte) VALUES(" &_ 
	"'" & Titolo & "','" & Sottotitolo & "','" & strMessage  & "','" & Autore & "',#" & Data_inserimento & "#," &_ 
	"'" & Inserita_da & "','" & email & "','" & Tipo & "','" & keys & "','" & Fonte & "')"
	objConn.Execute(SqlInsert)
	objConn.Close
	set objConn = Nothing
%>

Vorrei prima di chiudere la connessione inviare una mail ad una mailing list in cui inserisco solo il Titolo e il link per poter leggerlo. Pensavo di fare in questo modo, ma non riesco a capire come recuperare l'id

     strFrom = "webmaster@miosito.it"
     strTxt = "Salve,
" 
     strTxt = strTxt & "" & Request.Form("Titolo") & "
"
     strTxt = strTxt & htpp://www.miosito.it/articolo.asp?id=???? & "

"
   	 strTxt = strTxt & "Notizia inserita da:" & Request.Form("Inserita_da") & "
"
   	 strTxt = strTxt & "Per cancellarsi dalla mailing list inviare una email a mail-unsubscribe@miosito.it lasciando l'oggetto ed il testo del messaggio vuoti.
"
	 strTxt = strTXT & "Riceverai una email in cui ti sará chiesto di confermare la tua cancellazione dalla lista (ció serve per evitare che un'utente venga cancellato da altri a propria insaputa). 
"

Set objMail = Server.CreateObject("CDONTS.NewMail") 
    objMail.From = strFrom 
    objMail.To = "mail@miosito.it"
    objMail.Subject = "ML " & Request.Form("Titolo")
	objMail.BodyFormat = 0 
	objMail.MailFormat = 0 
	objMail.Body = strTxt 
	objMail.Importance = 1 
    objMail.Send 
set objMail = nothing

[Roby_72]

http://freeasp.html.it/script/view_script.asp?id=280

Roby