<%
'tk 20050118
'Invia un messaggio di posta elettronica tramite CDONTS
Public Sub SendMail(sTo, sSubject, sBody)
Dim MyCDO
If Len(sTo) > 0 Then
Set MyCDO = Server.CreateObject("CDONTS.NewMail")
If IsObject (MyCDO) Then
MyCDO.From = "www.fotoba.com"
MyCDO.To = sTo
MyCDO.Subject = sSubject
MyCDO.Body = sBody
MyCDO.Importance = 2
MyCDO.Send
Set MyCDO = nothing
'Response.Write("Messaggio inviato")
Else
Response.Write("Impossibile creare l'oggetto CDONTS!
")
End if
End If
End Sub
Private Function CheckboxToString(sCheckVal)
If sCheckVal = "ON" Then
CheckboxToString = "SI"
Else
CheckboxToString = "NO"
End If
End Function
Dim sThankYouPage, sBody
sThankYouPage = "modulo_inviato.htm"
'controllo se il modulo č da inviare
If Request.Querystring("MODE") = "SEND" Then
'invio
sBody = ""
sBody = sBody & "Nome: " & Request.Form("txtNome") & vbCrLf
sBody = sBody & "Cognome: " & Request.Form("txtCognome") & vbCrLf
sBody = sBody & "Ditta: " & Request.Form("txtCompany") & vbCrLf
sBody = sBody & "Indirizzo: " & Request.Form("txtIndirizzo") & vbCrLf
sBody = sBody & "Citta': " & Request.Form("txtCitta") & vbCrLf
sBody = sBody & "Telefono: " & Request.Form("txtTelefono") & vbCrLf
sBody = sBody & "E-Mail: " & Request.Form("txtEMail") & vbCrLf
sBody = sBody & "Settore di attivita' " & vbCrLf
sBody = sBody & " - Graphic Art: " & CheckboxToString(Request.Form("C1")) & vbCrLf
sBody = sBody & " - Photo Lab: " & CheckboxToString(Request.Form("C2")) & vbCrLf
sBody = sBody & " - Ink Jet: " & CheckboxToString(Request.Form("C3")) & vbCrLf
sBody = sBody & " - Minilab: " & CheckboxToString(Request.Form("C4")) & vbCrLf
sBody = sBody & " - Print Service: " & CheckboxToString(Request.Form("C5")) & vbCrLf
sBody = sBody & " - Sign: " & CheckboxToString(Request.Form("C6")) & vbCrLf
sBody = sBody & " - Wide Format: " & CheckboxToString(Request.Form("C7")) & vbCrLf
sBody = sBody & " - Silk Screen: " & CheckboxToString(Request.Form("C8")) & vbCrLf
sBody = sBody & "Prodotto di interesse " & vbCrLf
sBody = sBody & " - Wide Rollcut Series: " & CheckboxToString(Request.Form("C9")) & vbCrLf
sBody = sBody & " - Digitrim: " & CheckboxToString(Request.Form("C10")) & vbCrLf
sBody = sBody & " - XYAutodigitrim: " & CheckboxToString(Request.Form("C11")) & vbCrLf
sBody = sBody & " - XL Superwide Automatic Cutters: " & CheckboxToString(Request.Form("C12")) & vbCrLf
sBody = sBody & " - Software: " & CheckboxToString(Request.Form("C13")) & vbCrLf
sBody = sBody & "Azione richiesta " & vbCrLf
sBody = sBody & " - Richiediamo offerta: " & CheckboxToString(Request.Form("C14")) & vbCrLf
sBody = sBody & " - Vogliamo essere contattati dal distributore pių vicino : " & CheckboxToString(Request.Form("C15")) & vbCrLf
sBody = sBody & " - Desideriamo distribuire i vs prodotti : " & CheckboxToString(Request.Form("C16")) & vbCrLf
sBody = sBody & " - Contattateci direttamente: " & CheckboxToString(Request.Form("C17")) & vbCrLf
Call SendMail("info@fotoba.com","Invio modulo da sito web Fotoba",sBody)
'Response.Write("
" & sBody & "
")
'Response.Write("Modulo inviato con successo")
Response.Redirect(sThankYouPage)
End If
%>
::Fotoba::
