<%
' Website Contact Form Generator
' http://www.tele-pro.co.uk/scripts/contact_form/
' This script is free to use as long as you
' retain the credit link
' declare variables
Dim EmailFrom
Dim EmailTo
Dim Subject
Dim Name
Dim City
Dim Tel
Dim Website
Dim Title
' get posted data into variables
EmailFrom = "Artgianiamo.com"
EmailTo = "andtox84@yahoo.it"
Subject = "Messaggio"
Name = Trim(Request.Form("Name"))
City = Trim(Request.Form("City"))
Tel = Trim(Request.Form("Tel"))
Website = Trim(Request.Form("Website"))
Title = Trim(Request.Form("Title"))
' validation
Dim validationOK
validationOK=true
If (validationOK=false) Then Response.Redirect("error.htm?" & EmailFrom)
' prepare email body text
Dim Body
Body = Body & "Name: " & Name & VbCrLf
Body = Body & "City: " & City & VbCrLf
Body = Body & "Tel: " & Tel & VbCrLf
Body = Body & "Website: " & Website & VbCrLf
Body = Body & "Title: " & Title & VbCrLf
' send email
Dim mail
Set mail = Server.CreateObject("CDONTS.NewMail")
mail.To = EmailTo
mail.From = EmailFrom
mail.Subject = Subject
mail.Body = Body
mail.Send
' redirect to success page
Response.Redirect("ok.htm?" & EmailFrom)
%>
