 |
|
||||||||||||||||||||||||||||||||||||||||||||||||||||||
 |
|||||||||||||||||||||||||||||||||||||||||||||||||||||||
 |
 |
 |
 |
 |
 |
 |
 |
 |
 |
 |
 |
 |
 |
 |
|||||||||||||||||||||||||||||||||||||||||
 |
|||||||||||||||||||||||||||||||||||||||||||||||||||||||
 |
|
 |
|||||||||||||||||||||||||||||||||||||||||||||||||||||
|
<%
Const c_sWebsiteName = "GLENOVATION"
Const c_sDestinationAddress = "info@glenovation.com"
Const c_sSnailMailAddress = "Glenovation, Ballycastle"
Const c_bDebugForm = True
%>
<%
Dim debugForm
If Left(Request.ServerVariables("SERVER_NAME"),4) = "www.fslelectronics.com" Then
'# looks like we're developing...
debugForm = true
Else
'# looks like we're live...
debugForm = false
End If
If Request.Form("postenquiry") = "y" Then
'# register the variables here
Dim name, email, address, tel, companydetails, fax
Dim dst, subject, msg, body
Dim msgObj
'# set the variables equal to the values from the form
name = Request.Form("name")
email = Request.Form("email")
address = Request.Form("address")
tel = Request.Form("tel")
fax = Request.form("fax")
companydetails = Request.form("companydetails")
dst = c_sDestinationAddress
subject = Request.Form("subject")
body = Request.Form("body")
Set msgObj = Server.CreateObject("CDONTS.NewMail")
msgObj.From = email
If debugForm Then
msgObj.To = "john@glenovation.com"
Else
msgObj.To = dst
msgObj.Bcc = "john@glenovation.com"
End If
'# this is the main message info that will appear in the email
msgObj.Subject = "[Enquiry from " & c_sWebsiteName & " Website] " & subject
msg = "The following message was posted at your Website:" & vbCRLF & vbCRLF
msg = msg & "Sender : " & name & vbCRLF
msg = msg & "Email : " & email & vbCRLF
msg = msg & "Company Details : " & companydetails & vbCRLF
msg = msg & "Telephone No. : " & tel & vbCRLF
msg = msg & "Fax No. : " & fax & vbCRLF
msg = msg & vbCRLF _
& vbCRLF _
& "-------------" & vbCRLF _
& body & vbCRLF _
& "-------------" & vbCRLF _
& vbCRLF
msgObj.Body = msg
msgObj.Send
Set msgObj = Nothing
%>
Thank you
for your enquiry.
<% Else %> <% End If %>  Copyright © FSL Ltd 2004. All Rights Reserved. |
||||||||||||||||||||||||||||||||||||||||||||||||||||||
 |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
||||||||||||||||||||||||||||||||||||
