<%End If%>
<%If Request.form("go")<>"yes" then%>

 Contact - Please send us your query using the form below

 
Name:    
Address:    
E-mail address:  
Telephone number:    
What are you interested in?    
Brief details of your query and product code if applicable:
 
<% If Request.form("Go")="Yes" then ' Now set the important mail details.. ' Who the contents go to strTo = strFormDest ' The subject of the mail strSubject = strCompany & " Web Site Enquiry Form v1.0" ' Who is the sender - usually from the form the email box strFrom = request.form("frmFrom") ' Now lets collect it all together and tidy the data up strName = request.form("frmName") strAddress = request.form("frmAddress") strTelNo = request.form("frmTelNo") strItem = request.form("frmItem") strText = request.form("frmText") ' Check various are not empty if strName = "" then Response.Write "
Please enter your name" flgOKtoSend = 0 End if ' Else must be ok so carry on..... ' Now lastly validate the email address. Call the routine from inc/config.asp strValEmail = chkEmail (strFrom) ' Trace the response. 'Response.Write "TRACE: chkEmail = " & strValEmail 'Response.End if strValEmail = 1 then Response.Write "
Please enter a valid email address!" flgOKtoSend = 0 End if ' Else must be ok so carry on..... if strText = "" then Response.Write "
Please enter details of your enquiry" flgOKtoSend = 0 End if ' Else must be ok so carry on..... ' Set the condition if all validation passes if flgOKtoSend ="" then flgOKtoSend = 1 ' Check its Ok to send the form. if flgOKtoSend <> 0 then ' If flag is 0 then dont send the email. strData = " Customer Enquiry Form" & chr(13) strData = strData & " ---------------------" & chr(13) strData = strData & chr(13) strData = strData & " Name : " & strName & chr(13) strData = strData & " Address : " & strAddress & chr(13) strData = strData & " Tel No. : " & strTelNo & chr(13) strData = strData & " eMail : " & strFrom & chr(13) strData = strData & " Enquiry about : " & strItem & chr(13) & chr(13) strData = strData & " Enquiry Detail : " & strText & chr(13) strData = strData & chr(13) & strNoEmail 'If uncommented then you see what the submit does 'Response.Write("strFrom = " & strFrom) 'Response.Write("strTo = " & strTo) 'Response.Write("strSubject = " & strSubject) 'Response.Write("strData = " & strData) ' Call the send mail function SendNewMail strFrom, strTo, strCC, strBCC, strSubject, strData, 0 ' Once sent display the ok action Response.Write "
Your message has been sent.
Thank you for your interest. We will contact you shortly.

" End If End If %>

          Please send any attachments or logos separately via email          

 

3 High Park Avenue
Wollaston
Stourbridge
West Midlands DY8 3NJ

Email:  mail@jancraft.com
Tel/Fax: 01384 396226