Invio email con id

[Gio&Ste]

Dopo aver salvato i dati nel db ed aver recuperato l'id relativo in questo modo:

set objRS = Server.CreateObject("ADODB.recordset") 
strSQL = "SELECT @@IDENTITY FROM comunica" 
objRS.Open strSQL, conn
ultimo_id = objRS(0)
objRS.Close 
set objRS = nothing
objConn.Close
set objConn = Nothing

ho un piccolo problemino con l'invio della mail, nel senso che questa riga mi da errore giustamente, ma mi sto incartando con le &

  strTxt = strTxt & " www.miosito.it/prova/link.asp"& &"&id=ulimo_id" & acapo

[deivnet]

Così :

strTxt = strTxt & " www.miosito.it/prova/link.asp&id=ulimo_id" & acapo

[Gio&Ste]

ok grazie, quel problema l'ho risolto.
Ma ora ricevo questo messaggio di errore:

Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another.

e si riferisce a questa riga

objRS.Open strSQL, conn

Penso di aver fatto un pò di confusione.

Vi posto il codice:

	Set objConn = Server.CreateObject("ADODB.Connection")
	objConn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath("../mdb-database/db.mdb")

	Articolo = Request.Form("Articolo")
	Titolo = Request.Form("Titolo")
	Sottotitolo = Request.Form("Sottotitolo") & " "
	Autore = Request.Form("Autore") & " "
	Data_inserimento = Request.Form("Data_inserimento")
	Inserita_da = Request.Form("Inserita_da")
	Tipo = Request.Form("Tipo")
	keys = Request.Form("keys")
	Fonte = Request.Form("Fonte")
	email = Request.Form("email")
<%	
	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)

set objRS = Server.CreateObject("ADODB.recordset") 
strSQL = "SELECT @@IDENTITY FROM comunica" 
objRS.Open strSQL, conn
ultimo_id = objRS(0)
objRS.Close 
set objRS = nothing
objConn.Close
set objConn = Nothing

  aCapo = Chr(13) & Chr(10)
Set objMail = Server.CreateObject("CDONTS.NewMail")
     strFrom ="webmaster@miosito.it"
     strTxt = "Salve," & aCapo
     strTxt = strTxt & " http://www.miosito.lecce.i/stampa/ar...colo=ultimo_id" & acapo
     strTxt = strTxt & "Riceverai presto una risposta." & acapo
   
    objMail.From = strFrom
    objMail.Body = strTxt 
    objMail.To = "mail@mail.it"
    objMail.Subject = "Notizia aggiunta"
    objMail.Send 
set objMail = nothing 

%>

[deivnet]

esatto sbagli qui (oggetto di connessione errato)

objRS.Open strSQL, conn

devi mettere

objRS.Open strSQL, objConn

[Gio&Ste]

ultimissima cosa

nella mail che arriva ultimo_id non diventa un numero, cioè nella mail mi ritrovo www.miosito......IDArticolo=ultimo_id invece di IDArticolo=1

[deivnet]

eccoti accontentato

questa è la tua :

strTxt = strTxt & " http://www.miosito.lecce.i/stampa/ar...colo=ultimo_id" & acapo

questa è quella giusta, devi concatenare la variabile

strTxt = strTxt & " www.miosito.lecce.i/stampa/articolo...icolo="& ultimo_id & acapo

[Gio&Ste]

stamattina sono proprio rinco, dopo 10 giorni lontano dal pc si fa fatica

[deivnet]

Tranquillo .. stacci più che puoi lontano dal PC

[Gio&Ste]

ho ancora un piccolissimo problema, se il testo è troppo lungo succede che nella mail che mi arriva il link è su 2 righe e possono mancare dei parametri, come si può ovviare a questo inconveniente??

[Roby_72]

C'era un aricolo su http://www.aspitalia.com se non erro.

Roby