<% Response.Buffer = True Dim strBody Dim objCDOMail Dim strMyEmailAddress Dim strReturnEmailAddress strMyEmailAddress = "support@mcsainterpreter.com" strReturnEmailAddress = Request.Form("email") strBody = "

Comments From The Web-Site

" If (Request.Form("contact")) = "immediateContact" Then strBody = strBody & "

Immediate Response Required

" End If strBody = strBody & "
Name: " & Request.Form("name") strBody = strBody & "

Phone Number: " & Request.Form("phone") strBody = strBody & "

Fax Number: " & Request.Form("fax") strBody = strBody & "

E-mail: " & strReturnEmailAddress strBody = strBody & "

" & Request.Form("name") strBody = strBody & " Has A: " If (Request.Form("CommentOn")) = "suggestion" Then strBody = strBody & " Suggestion" End If If (Request.Form("CommentOn")) = "praise" Then strBody = strBody & " Praise" End If If (Request.Form("CommentOn")) = "complaint" Then strBody = strBody & " Complaint" End If If (Request.Form("CommentOn")) = "problem" Then strBody = strBody & " Problem" End If strBody = strBody & "
About: " & Request.Form("about") If (Request.Form("about")) = "other" Then strBody = strBody & ". That other is " & Request.Form("other") End If strBody = strBody & "

Comments They Have Made: " & Request.Form("comment") If Len(strReturnEmailAddress) < 5 OR NOT Instr(1, strReturnEmailAddress, " ") = 0 OR InStr(1, strReturnEmailAddress, "@", 1) < 2 OR InStrRev(strReturnEmailAddress, ".") < InStr(1, strReturnEmailAddress, "@", 1) Then strReturnEmailAddress = strMyEmailAddress End If Set objCDOMail = Server.CreateObject("CDONTS.NewMail") objCDOMail.From = Request.Form("Name") & " <" & strReturnEmailAddress & ">" objCDOMail.To = strMyEmailAddress objCDOMail.Bcc = "emd@nimblepages.co.uk" objCDOMail.Subject = "Comment from the website." objCDOMail.BodyFormat = 0 objCDOMail.MailFormat = 0 objCDOMail.Body = strBody If (Request.Form("contact")) = "immediateContact" Then objCDOMail.Importance = 2 End If If (Request.Form("contact")) = "" Then objCDOMail.Importance = 1 End If objCDOMail.Send Set objCDOMail = Nothing %>

Tell us what you think about our web site products, our Consulting Services, or anything else that comes to mind. We welcome all of your comments and suggestions.

What Kind of comment would you like to send?

Suggestion Praise Complaint Problem

What do you want to comment on?

Other

Please enter your comments in the space provided below:

Please tell us how to get in touch with you:

Name
Email
Telephone
Fax

Contact me as soon as possible regarding this matter

Use Browser Back Button to Return

Telephone: +44 (0)19755 62446

Click here to contact us

EM Diagnostics Ltd,
20 Greystone Road,
Alford, Aberdeenshire, AB33 8TY
Scotland, UK

Email: support@MCSAinterpreter.com