<% strName = "name = " & request.form("name") if Len(request.form("Name")) = 0 then strName = "Name = UNKNOWN" strEmail = "E-Mail = " & request.form("email") if Len(request.form("email")) = 0 then strEmail = "E-Mail = UNKNOWN" strTel = "Telephone = " & request.form("telephone") if Len(request.form("telephone")) = 0 then strTel = "Telephone = UNKNOWN" strFax = "Fax = " & request.form("fax") if Len(request.form("fax")) = 0 then strFax = "Fax = UNKNOWN" strAdd = "Address = " & request.form("address") if Len(request.form("address")) = 0 then strAdd = "Address = UNKNOWN" strDet = "Details = " & request.form("details") if Len(request.form("details")) = 0 then strCompany = "Details = UNKNOWN" strTo = "guy@pedalo.co.uk" strHeader = "Here are the results of the Paul Johnston Website Enquiry Form:" & vbCrLf & vbCrLf strFooter = "FORM submitted at " & Now() & vbCrLf & vbCrLf strFrom = request.form("name") strSubject = "Paul Johnston Website Form" strBody = strHeader & vbCrLf &_ strName & vbCrLf &_ strEmail & vbCrLf &_ strTel & vbCrLf &_ strFax & vbCrLf &_ strAdd & vbCrLf &_ strDet & vbCrLf & vbCrLf & vbCrLf & vbCrLf & vbCrLf &_ strFooter Dim objCDO Set objCDO = Server.CreateObject("CDONTS.NewMail") objCDO.To = strTo objCDO.From = strFrom objCDO.Subject = strSubject objCDO.Body = strBody objCDO.Send Set objCDO = Nothing %> Paul Johnston
books about paul contact

If you have any queries or feedback please fill in the form below or e-mail , please try and avoid asking questions that have been answered elsewhere on the site.

Name
Email
Telephone
Fax
Address
Details