<% Dim strName, strEmail, strQuery, strMenu
strName = Trim(Request.Form("ClientName"))
strEmail = Trim(Request.Form("ClientEmail"))
strQuery = Trim(Request.Form("ClientQry"))
strMenu = Trim(Request.Form("ClientMenu1"))
If (strName <> "" Or strEmail <> "" Or strQuery <> "") Then
Dim objMail, objmail2, text1
Set objMail = Server.CreateObject("CDONTS.NewMail")
If isempty(Request.Form("ClientName")) Or Request.form("ClientName") = "" Then
text1 = "Attenzione, il Nome è OBBLIGATORIO !
Premi 'INDIETRO' sul tuo browser per tornare alla form.
"
elseif isempty(Request.form("ClientEmail")) Or Request.form("ClientEmail") = "" Then
text1 = "Attenzione, l'indirizzo E-mail è OBBLIGATORIO !
Premi 'INDIETRO' sul tuo browser per tornare alla form.
"
elseif instr(Request.Form("ClientEmail"), "@") = 0 Then
text1 = "Attenzione, l'indirizzo E-mail non è valido !
Premi 'INDIETRO' sul tuo browser per tornare alla form.
"
elseif instr(Request.Form("ClientEmail"), ".") = 0 Then
text1 = "Attenzione, l'indirizzo E-mail non è valido !
Premi 'INDIETRO' sul tuo browser per tornare alla form.
"
Else
objMail.From = strEmail
objMail.To = "info@tecnolegnosas.com"
objMail.Subject = "Richiesta Info da " & strName
objMail.Body = "Da: " & strName & vbcrlf & strMenu & vbcrlf &vbcrlf & strQuery
objMail.Send
Set objMail = Nothing
Set objmail2 = Server.CreateObject("CDONTS.Newmail")
objmail2.From = "info@tecnolegnosas.com"
objmail2.To = strEmail
objMail2.Subject = "Richiesta Info da Tecno Legno"
objMail2.Body = "Grazie per averci contattato, Ti risponderemo al più presto !"
objMail2.Send
Set objMail2 = Nothing
text1= "Grazie per averci contattato !"
End If
%>
