<James Thompson>
<% if request.form("thanks") = "true" then Dim sBodyText sBodyText = vbcrlf & vbcrlf & _ "Name: " & request.form("name") & vbcrlf & _ "Telephone: " & request.form("telephone") & vbcrlf & _ "Email: " & request.form("email") & vbcrlf & _ "Products Interested In: " & request.form("product") & vbcrlf & _ "Type of Building: " & request.form("buildingtype") & vbcrlf & _ "Location of Building : " & request.form("buildinglocation") & vbcrlf & _ "Age of Building: " & request.form("buildingage") & vbcrlf & _ "If New what Stage: " & request.form("stage") & vbcrlf & _ "How Many Rooms: " & request.form("rooms") & vbcrlf & _ "Measurement of Rooms: " & request.form("measure") & vbcrlf & _ "Furniture in Rooms: " & request.form("furniture") & vbcrlf & _ "Can it be moved out: " & request.form("move") & vbcrlf & _ "Height of Ceilings: " & request.form("height") & vbcrlf & _ "Walls Ceilings Painted: " & request.form("wall") & vbcrlf & _ "How quickly is it needed: " & request.form("timeneeded") & vbcrlf & _ "Looking for: " & request.form("fitandsupply") & vbcrlf & _ vbcrlf & vbcrlf & _ "Sender: [" & request.serverVariables("HTTP_REFERER") & "]" & vbcrlf 'Set Mail=Server.CreateObject("CDONTS.NewMail") 'Mail.To="info@jtpm.ie" 'Mail.From= request.form("email") 'Mail.Subject="New Quote Request" 'Mail.Body=sBodyText 'Mail.Send 'Set Mail=nothing varEmailTo ="info@jtpm.ie" varEmailFrom =request.form("email") varSubject ="New Quote Request" varBody =sBodyText cdoConfigUrl = "http://schemas.microsoft.com/cdo/configuration/" cdoSendUsingMethod = cdoConfigUrl & "sendusing" cdoServer = cdoConfigUrl & "smtpserver" cdoServerPort = cdoConfigUrl & "smtpserverport" Dim objConfig Dim objMessage Dim Fields Set objConfig = Server.CreateObject("CDO.Configuration") Set Fields = objConfig.Fields With Fields .Item(cdoSendUsingMethod) = 2 ' .Item(cdoServer) = "mail.realssl.com" .Item(cdoServer) = "localhost" .Item(cdoServerPort) = 25 .Update End With Set objMessage = Server.CreateObject("CDO.Message") Set objMessage.Configuration = objConfig With objMessage .To = varEmailTo .From = varEmailFrom .Subject = varSubject '.HTMLBody = varBody .TextBody = varBody .send End With 'If not objMessage.Send then 'end if Set Fields = Nothing Set objMessage = Nothing Set objConfig = Nothing %>

Thank you for Requesting a Quote

We will be in contact with you soon

<% else %>

Request a Quote

Name:
Contact No.:
Email:
Which product(s) are you enquiring about:
What type of building i.e. House, Commercial, Hotel etc.:
Location of building(s):
Approximate age of building:
If new, what stage is it at:
How many rooms:
Measurement of rooms:
Is there furniture in rooms: Yes No
Can furniture be moved out: Yes No
Height of ceilings:
Are Walls/ceilings painted: Yes No
When is the work required?
Which service do you require: Fit and Supply Supply
 
<% ' end thanks not equal true end if %>

 

 

Drumbiggle Road, Ennis, Co. Clare, Ireland :::|::: T. 065 682 07 97 :::|::: F. 065 682 85 21 :::|::: E. info@jtpm.ie

Designed by Edgewater Graphics | info@egraphics.ie | www.egraphics.ie