<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
on error resume next
Dim MyBody
Dim MyCDONTSMail
%>
<%
If Request.Form("action")="register" Then
' set the variables and values submitted in the forms
Set MyCDONTSMail = CreateObject("CDONTS.NewMail")
'set the from varaible
MyCDONTSMail.From= Request.Form("email")
'if you wanted to send this directly to you then just replace with your email address like
'MyCDONTSMail.To="me@myemail.com"
'otherwise use
'MyCDONTSMail.To=Request.Form("to")
'MyCDONTSMail.CC=Request.Form("email")
MyCDONTSMail.To= "tfc@makstudios.co.uk"
'set the subject can be forced like...
'MyCDONTSMail.Subject=""
'otherwise
'MyCDONTSMail.Subject= Request.Form("subject")
'then just remove the ftext box from overleaf
MyCDONTSMail.Subject= "The-Frock-Exchange Enquiry"
'start the email
MyBody = "The-Frock-Exchange Enquiry" & vbCrLf
MyBody = MyBody & "-------------------------------------------------------" & vbCrLf
MyBody = MyBody & "Some one filled in your contact form, here are the details:" & vbCrLf & vbCrLf
'reads in inthe info from the text area
MyBody = MyBody & "-------------------------------------------------------" & vbCrLf & vbCrLf
MyBody = MyBody & "Name: "
MyBody = MyBody & Request.Form("name") & vbCrLf
MyBody = MyBody & "Email: "
MyBody = MyBody & Request.Form("email") & vbCrLf
MyBody = MyBody & "Telephone: "
MyBody = MyBody & Request.Form("telephone") & vbCrLf
MyBody = MyBody & "Address: "
MyBody = MyBody & Request.Form("address") & vbCrLf
MyBody = MyBody & "Enquiry: "
MyBody = MyBody & Request.Form("enquiry") & vbCrLf & vbCrLf
MyCDONTSMail.Body= MyBody
MyCDONTSMail.Send
set MyCDONTSMail=nothing
'set this to the page which you redirect to like "thankyou.asp" once the email has been sent
Response.Redirect "ThankYou.htm"
end if
%>
The-Frock-Exchange - Contact us, Frocks, Clothes, Special Occasions, Party's, Dresses, Functions, Birmingham
Contact
us
Address:
8 South Street,
Harborne,
Birmingham B17 ODB
