auto e-mail

[markosana]

Ciao, premetto che sono un artdirector e non un developer...sto costruendo questa "registrazione" per richiesta info e popolamento di un db ma vorrei che inviasse anche una e-mail in automatico di ringraziamento a chi compila il form....
Ho provato a guardare vari esempi di codice in giro ma non riesco a farlo funzionare insieme al mio supersporco codice generato ad dreamweaver...qualche aiuto, guida, tutorial?

<%
Dim MM_editAction
MM_editAction = CStr(Request.ServerVariables("SCRIPT_NAME"))
If (Request.QueryString <> "") Then
MM_editAction = MM_editAction & "?" & Server.HTMLEncode(Request.QueryString)
End If

' boolean to abort record edit
Dim MM_abortEdit
MM_abortEdit = false
%>
<%
' *** Redirect if username exists
MM_flag = "MM_insert"
If (CStr(Request(MM_flag)) <> "") Then
Dim MM_rsKey
Dim MM_rsKey_cmd

MM_dupKeyRedirect = "useresiste.asp"
MM_dupKeyUsernameValue = CStr(Request.Form("E-mail"))
Set MM_rsKey_cmd = Server.CreateObject ("ADODB.Command")
MM_rsKey_cmd.ActiveConnection = MM_connessione_STRING
MM_rsKey_cmd.CommandText = "SELECT [E-mail] FROM tbl_Users WHERE [E-mail] = ?"
MM_rsKey_cmd.Prepared = true
MM_rsKey_cmd.Parameters.Append MM_rsKey_cmd.CreateParameter("param1", 200, 1, 50, MM_dupKeyUsernameValue) ' adVarChar
Set MM_rsKey = MM_rsKey_cmd.Execute
If Not MM_rsKey.EOF Or Not MM_rsKey.BOF Then
' the username was found - can not add the requested username
MM_qsChar = "?"
If (InStr(1, MM_dupKeyRedirect, "?") >= 1) Then MM_qsChar = "&"
MM_dupKeyRedirect = MM_dupKeyRedirect & MM_qsChar & "requsername=" & MM_dupKeyUsernameValue
Response.Redirect(MM_dupKeyRedirect)
End If
MM_rsKey.Close
End If
%>
<%
If (CStr(Request("MM_insert")) = "form_registrazione") Then
If (Not MM_abortEdit) Then
' execute the insert
Dim MM_editCmd

Set MM_editCmd = Server.CreateObject ("ADODB.Command")
MM_editCmd.ActiveConnection = MM_connessione_STRING
MM_editCmd.CommandText = "INSERT INTO tbl_Users (Sesso, Nome, Cognome, [E-mail], Nazione, Citta, Provincia, Indirizzo, Cap, Msg) VALUES (?, ?, ?, ?, ?, ?, ?, ?, ?, ?)"
MM_editCmd.Prepared = true
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param1", 202, 1, 50, Request.Form("Sesso")) ' adVarWChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param2", 202, 1, 50, Request.Form("Nome")) ' adVarWChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param3", 202, 1, 50, Request.Form("Cognome")) ' adVarWChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param4", 202, 1, 50, Request.Form("E-mail")) ' adVarWChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param5", 202, 1, 50, Request.Form("Nazione")) ' adVarWChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param6", 202, 1, 50, Request.Form("Citta")) ' adVarWChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param7", 202, 1, 50, Request.Form("Provincia")) ' adVarWChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param8", 202, 1, 50, Request.Form("Indirizzo")) ' adVarWChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param9", 202, 1, 50, Request.Form("Cap")) ' adVarWChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param10", 202, 1, 254, Request.Form("Note")) ' adVarWChar
MM_editCmd.Execute
MM_editCmd.ActiveConnection.Close

' append the query string to the redirect URL
Dim MM_editRedirectUrl
MM_editRedirectUrl = "benvenuto.asp"
If (Request.QueryString <> "") Then
If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0) Then
MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString
Else
MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString
End If
End If
Response.Redirect(MM_editRedirectUrl)
End If
End If
%>

[markosana]

vedo che non è un argomento così semplice dato che non c'è stata nessuna risposta, non pensavo...cmq ho provato così
non mi risponde con nessuno errore ma manco arriva l'e-mail...

<%


if Request.QueryString("invia") = "true" AND Request.Form("submit") = "invia" then

Dim objMail, objConfig
Set objMail = CreateObject("CDO.Message")

Set objConfig = Server.CreateObject ("CDO.Configuration")


With objConfig

.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.evtel.com"


.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25


.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2


.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
.Fields.Update
End With


Set objMail.Configuration = objConfig


objMail.From = "xx@libero.it" //' Mittente
objMail.To = Request.Form("E-mail") //' Destinatario
objMail.Subject = Request.Form("oggetto") //' Oggetto
objMail.HTMLBody = Request.Form("messaggio") //' Messaggio


objMail.Send()

Set objMail = Nothing

Response.Write(Request.Form("E-mail"))

else %>
<% end if %>]

[weppos]

Quale oggetto email hai sul server?
CDONTS? CDOSYS?

[markosana]

Un anima pia...grazie:

Windows 2003 Server e viene utilizzato CDOSYS

[weppos]

Ecco un esempio http://www.weppos.com/asp/script/scr....asp?script=17
e la documentazione http://www.weppos.com/asp/script/scr....asp?script=15

[markosana]

Mitttico, grazie.
Ieri sera riflettendoci ho deciso di far passare i dati a benvenuto.asp mantenendo la sessione. Cosi dopo scritti sul Db faccio inviare l'email...mi sembra che cosi sia piu comodo. cmq grazie per la preziosa documentazione me la spolpando.

buona giornata!