<%
'This file is part of e-Merchant Pro 1.0, an ecommerce application developed and sold by GWS(Global Web Solutions) LLC. e-Merchant Pro 1.0, its source code, the e-Merchant Pro 1.0 name and logo are property of GWS(Global Web Solutions), LLC. Copyright 2001-2003. All rights reserved. You are not allowed to use, alter, distribute and/or resell any parts of e-Merchant Pro 1.0's source code without the written consent of GWS(Global Web Solutions). To contact GWS(Global Web Solutions), please visit www.globalwsolutions.com.
%>
<% response.Buffer=true %>
<%
on error resume next
pcStrPageName = "contact.asp"
'Check to see if store has been turned off by admin, then display message
If scStoreOff="1" then
response.redirect "msg.asp?message=59"
End If
dim conntemp, query, rs, rs2, ErrCheckEmail, emailBody
call openDb()
pIdCustomer=session("idCustomer")
msg=getUserInput(request.querystring("msg"),0)
pcv_isNameRequired=True
pcv_isCompanyRequired=True
pcv_isEmailRequired=True
pcv_isBodyRequired=True
if request.form("updatemode")="1" then
'//set error to zero
pcv_intErr=0
pcs_ValidateEmailField "FromEmail", pcv_isEmailRequired, 0
pcs_ValidateTextField "FromName", pcv_isNameRequired, 70
pcs_ValidateTextField "Company", pcv_isCompanyRequired, 70
pcs_ValidateTextField "MsgBody", pcv_isBodyRequired, 350
'//Email error for page
if Session("ErrFromEmail")=1 then
pcv_strGenericPageError = server.URLEncode(dictLanguage.Item(Session("language")&"_sendpassword_1"))
else
'//generic error for page
pcv_strGenericPageError = server.URLEncode(dictLanguage.Item(Session("language")&"_Custmoda_18"))
end if
'/////////////////////////////////////////////////////
'// Check for Validation Errors
'/////////////////////////////////////////////////////
If pcv_intErr>0 Then
response.redirect pcStrPageName&"?msg="&pcv_strGenericPageError
else
session("News_MsgType")="1"
Dim email
Dim name, company
Dim address1, address2, phone
Dim city, zipCode, country
Dim enquiry
name = Request.Form("FromName")
company = Request.Form("Company")
address1 = Request.Form("Address1")
address2 = Request.Form("Address2")
city = Request.Form("City")
zipCode = Request.Form("ZipCode")
country = Request.Form("Country")
email = Request.Form("FromEmail")
phone = Request.Form("Phone")
enquiry = Request.Form("MsgBody")
emailBody = "
" & scContactEmail
emailbody="Thank you for contacting Teknon. We will be in touch shortly."
MsgTitle="Enquiry Response from Teknon"
call sendmail ("Teknon",scFrmEmail,email,MsgTitle,emailBody)
End If
End If
%>
Contact Teknon
If you cannot find what you are looking for please get in touch and we will try to help.
<% If msg<>"" then %>
<%=msg%>
<% end if %>
Please complete fhe following form and click the Continue button