<% strPageTitle = Application("STORE_NAME") & " Feedback" %>
<%
if lcase(request("action")) = "send" then
'Send our Email
Dim bolContinue
bolContinue = True
if request("name") <> "" then
else
strMsg = strMsg & "Please provide your Name "
bolContinue = False
end if
if request("email") <> "" then
else
strMsg = strMsg & "Please provide your email address "
bolContinue = False
end if
if request("comment") <> "" then
else
strMsg = strMsg & "Please provide your Comment "
bolContinue = False
end if
if bolContinue = True Then
'Prepare our email fields
Dim strBody
Dim strSubject
Dim strFrom
Dim strTo
strFrom = request("name") & " <" & request("email") & ">"
strTo = Application("STORE_OWNER_EMAIL_ADDRESS")
strBody = request("comment")
'Send our Email
fSendMail strFrom, strTo, "Online Feedback " & Application("STORE_NAME"), strBody
response.Redirect(fGenerateLink("default.asp?strMsg=Email Sent Successfully") )
end if
end if
%>
<% strPageKeywords = Application("STORE_NAME")%>
