|
|
<%
if request.form("DataAction") = "Send" then
name = trim(request.form("name"))
emailfrom = trim(request.form("emailfrom"))
address = trim(request.form("address"))
city = trim(request.form("city"))
phone = trim(request.form("phone"))
emailto = "susan@kwikkleaninc.com"
subject = "Website Inquiry"
service = trim(request.form("service"))
message = trim(request.form("message"))
if name = "" then
N="Required Field"
end if
if emailfrom = "" or instr(1,emailfrom,"@","1") = 0 then
F="Vaild Email Address Required"
end if
if address = "" then
A="Required Field"
end if
if city = "" then
Y="Required Field"
end if
if phone = "" then
P="Required Field"
end if
if service = "" then
X="Required Field"
end if
if message = "" then
M="Required Field"
end if
if N = "" and F = "" and C = "" and A = "" and Y = "" and P = "" and X = "" and M = "" then
sch = "http://schemas.microsoft.com/cdo/configuration/"
Set cdoConfig = CreateObject("CDO.Configuration")
With cdoConfig.Fields
.Item(sch & "sendusing") = 2 ' cdoSendUsingPort
.Item(sch & "smtpserver") = "nateserv"
.update
End With
Set cdoMessage = CreateObject("CDO.Message")
With cdoMessage
Set .Configuration = cdoConfig
.From = emailfrom
.To = emailto
.Subject = subject
.TextBody = name & vbcrlf & company & vbcrlf & address & vbcrlf & city & vbcrlf & phone & vbcrlf & service & vbcrlf & message
.Send
End With
Set cdoMessage = Nothing
Set cdoConfig = Nothing
%>
Contact KWIK KLEAN
Thank You for emailing us. We will respond to your request as soon as possible. |
|
|
|
|
|
|
|
|
|
|
|
|
Contact KWIK KLEAN
Use the form below to contact us via email. We will respond to your request shortly. |
|
|
|
|
|
|
|
|
|
|
|
|