SDCSTORES.COM

<% refURL = Request.ServerVariables("HTTP_REFERER") %> <% 'Specify your captcha length here, this is the only configuration requirement captchaLength = 5 Function captcha(captchaLength) if captchaLength > 15 then captchaLength = 15 HighestValue = left(100000000000000,captchaLength) lowestValue = left(999999999999999,captchaLength) Randomize intHighestNumber = Int((HighestValue - LowestValue + 1) * Rnd) + LowestValue session("captcha") = Int(intHighestNumber) x = 1 response.write vbcrlf & "" & vbcrlf & vbtab & "" & vbcrlf while x <= captchaLength response.write vbtab & vbtab & "" & vbcrlf x = x + 1 wend response.write vbtab & "" & vbcrlf & "

" & vbcrlf End Function %> <% if request("action") = "process" then Dim fname, phone, dept, email, page, textarea, sent, notsent fname = CStr(Trim(Replace(Request.Form("fname"),"""",""""""))) phone = CStr(Trim(Replace(Request.Form("phone"),"""",""""""))) dept = CStr(Trim(Replace(Request.Form("dept"),"""",""""""))) email = CStr(Trim(Replace(Request.Form("email"),"""",""""""))) page = CStr(Trim(Replace(Request.Form("page"),"""",""""""))) textarea = CStr(Trim(Replace(Request.Form("textarea"),"""",""""""))) sent = "feedback-sent.html" notsent = "website-feedback.php?action=notsent" if cstr(request("captcha")) = cstr(session("captcha")) then Set Mail = CreateObject("CDO.Message") Mail.Subject="FEEDBACK-sdcstores.com" Mail.From="feedbackform@sdcstores.com" Mail.To="feedback@shakopeedakota.org" Mail.HTMLBody="

Feedback received from www.sdcstores.com processor.

Name: " & fname & "

Phone: " & phone & "

Dept: " & dept & "

Email: " & email & "

Page: " & page & "

Comments: " & textarea & "

" Mail.Send Set Mail = Nothing Response.Redirect(sent) else Response.Redirect(notsent) end if end if %>

Website Feedback
This form is used to report errors, changes or missing information, and to provide general feedback. If you have problems with this page or need to provide attachments, email feedback@shakopeedakota.org.

<% If Request.QueryString("Action") = "notsent" Then %> <% End If %>

* Sorry, the Captcha did not match. Please try again.

You came from this page: <% Response.Write(refURL) %>

*Name

Phone Number

Department

*Email Address

Page URL

*Comments

This test prevents automated submissions

<%captcha(captchaLength)%>

Enter the text that appears in above image:

*Required Fields

Click Here For Details >>