%@ Language=VBScript %>
<%
option explicit
dim objConn, objRS, strSQL, strConnection, Counter, SearchType, SearchTown, SearchPostCode,strEmail,strName1,strName2,strTel,strFax,strCompany
dim objMail, strString,strText
dim XMLDoc, rootNode, nQty, strTemp, Item, nPrice, tmpOrder, nDiscount
' Final Version
strEmail = Request.Form("email").Item
strText = Request.Form("textarea").Item
strName1 = Request.Form("fname").Item
strName2 = Request.Form("sname").Item
strTel = Request.Form("telephone").Item
strFax = Request.Form("Fax").Item
strCompany = Request.Form("cname").Item
if not isempty(strEmail) then
SendEmail "website@kingstown.co.uk"
sendemail strEmail
out "
You will enquiry has been sent - please press 'BACK' in you browser to continue
"
Response.End
else
%>
Kingstown Furniture Limited
y
<% end if %>