<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% Dim MM_editAction MM_editAction = CStr(Request.ServerVariables("SCRIPT_NAME")) If (Request.QueryString <> "") Then MM_editAction = MM_editAction & "?" & Server.HTMLEncode(Request.QueryString) End If ' boolean to abort record edit Dim MM_abortEdit MM_abortEdit = false %> <% ' IIf implementation Function MM_IIf(condition, ifTrue, ifFalse) If condition = "" Then MM_IIf = ifFalse Else MM_IIf = ifTrue End If End Function %> <% If (CStr(Request("MM_insert")) = "form1") Then If (Not MM_abortEdit) Then ' execute the insert Dim MM_editCmd Set MM_editCmd = Server.CreateObject ("ADODB.Command") MM_editCmd.ActiveConnection = MM_cn_DO_email_STRING MM_editCmd.CommandText = "INSERT INTO tblContacts (ContactName, EmailAddress, SubgroupC) VALUES (?, ?, ?)" MM_editCmd.Prepared = true MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param1", 202, 1, 50, Request.Form("contact")) ' adVarWChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param2", 202, 1, 50, Request.Form("email")) ' adVarWChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param3", 202, 1, 50, Request.Form("Receive")) ' adVarWChar MM_editCmd.Execute MM_editCmd.ActiveConnection.Close ' append the query string to the redirect URL Dim MM_editRedirectUrl MM_editRedirectUrl = "thanks.asp" If (Request.QueryString <> "") Then If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0) Then MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString Else MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString End If End If Response.Redirect(MM_editRedirectUrl) End If End If %> <% Dim rs_contact Dim rs_contact_cmd Dim rs_contact_numRows Set rs_contact_cmd = Server.CreateObject ("ADODB.Command") rs_contact_cmd.ActiveConnection = MM_cn_DO_email_STRING rs_contact_cmd.CommandText = "SELECT * FROM tblContacts" rs_contact_cmd.Prepared = true Set rs_contact = rs_contact_cmd.Execute rs_contact_numRows = 0 %> KFCS Email Contacts

Website Translation

 

KFCS District Contact Emai Form

If you wish to receive KFCS information by email, please complete the form below. Your email will be held in confidence, only accessible by office administration.

 
Contact Name
Contact Email Address
   

<% rs_contact.Close() Set rs_contact = Nothing %>