interferenze tra lettura dB e spedizione posta????

[elenaelfi]

Salve a tutti.
Mi sono imbattuta in un problema all'apparenza insolubile.
Ho bisogno di leggere i dati che provengono da una form,inserirli nel DB e poi spedire una mail con i dati come testo.
Uso ACCESS ed inserisco correttamente i dati nelDB.
Se però nella stessa pagina chiedo di inviarmi la mail, col l'object
CDONTS.NewMail
e un pezzo di codice che gira perfettamente in un'altra pagina , sembra che la posta non parta.
Il server non mi comunica nessun errore, ma non riesco a ricevre la posta.

Qualcuno sa come fare? Non posso aprire una seconda pagina perchè non riesco a passare in automatico il testo della lettera, o tutte le variabili da inserire, nè voglio aprire una sessione perchè se disabilito i cookies non gira, o no? Io li ho disabilitati e non riesco a passare i parametri da una pagina all'altra.
Grazie per l'aiuto, se avete capito il problem
elena

[elenaelfi]

Forse non era chiaro.
Aggiungo il codice, così magari capite se c'è un errore.


<%
Dim email, nome, company, indirizzo, citta, cap, provincia

email=Request.QueryString("email")
nome=Request.QueryString("nome")
company=Request.QueryString("company")
indirizzo=Request.QueryString("indirizzo")
citta=Request.QueryString("citta")
cap=Request.QueryString("cap")
provincia=Request.QueryString("provincia")

testo="Nuova iscrizione: "&_

"Nome= " & nome & VbCrLf &_
"; Company= " & Company& VbCrLf&_
"; Indirizzo= " & Indirizzo & VbCrLf&_
"; Citta= " & Citta & VbCrLf&_
"; Cap= " & Cap& VbCrLf &_
"; Provincia= " & Provincia


set conn=Server.CreateObject("ADODB.Connection")
set rs = Server.CreateObject("ADODB.Recordset")
conn.Open "DSN=-------", " ", ""
SQL ="UPDATE clienti SET nome='"&nome&"',company='"&company&"',indirizzo='" &indirizzo&"',citta='"&citta&"',cap='"&cap&"',prov incia='"&provincia&"' Where email like '"&email&"'"
rs = conn.execute(SQL)
conn.Close
%>

<%
'Spedisco le lettere
//Crea l'oggetto CDONTS per l'invio dell'email
Set objMIaEmail = Server.CreateObject("CDONTS.NewMail")
//Modificare l'indirizzo di esempio col proprio
objMIaEmail.To = "-----------------"
//Indica il mittente
objMIaEmail.From = "Marketing"
//Indica l'oggetto della mail
objMIaEmail.Subject = " Iscrizione"
//Indica il corpo dell'email
objMIaEmail.Body = testo
//Invia l'email
objMIaEmail.Send()

%>

Non capisco l'errore, il DB si aggiorna ma la posta non arriva

GRAZIE!!! sono giorni che mi sembra di esser scema!!!!

[Gioba66]

forse CDONT non è supportato su quel server
nel codice, prima di quello che hai postato, c'è un On error resume next?
se c'è, levalo o commentalo, così ti esce l'errore a video.

[santino83]

ma il server smtp per spedire la posta non deve essere specificato con cdonts?

[elenaelfi]

Scusate il silenzio, ma ho dovuto occuparmi d'urgenza di un problema improvviso e non ho più avuto il tempo di collegarmi.

Il problema è che da soli i due pezzi di codice funzionano, quando li metto in un'unica pagina, la posta non esce più.
Non c'è altro nella pagina, e se mi faccio inviare un messaggio da una pagina vuota, parte.
Dunque il server supporta CDONTS.

Ho trovato degli esempi che dicono di fare esattamente come ho fatto...che altro????


Graze e scusatemi per la sparizione

[elenaelfi]

Grazie a chi si è almeno preoccupato del problema, ho risolto il tutto.

Lo script funziona, l'errore era, credo, che non gli piaceva objMiaEmail, ho sostituito con MiaEmail e cambiato il nome della variabile da email a emailForm. Sembra che fosse tutto qui?!?!?
Grazie comunque