<% ' FP_ASP ASP Automatically generated by a Frontpage Component. Do not Edit. On Error Resume Next Session("FP_OldCodePage") = Session.CodePage Session("FP_OldLCID") = Session.LCID Session.CodePage = 1252 Session.LCID = 1033 Err.Clear strErrorUrl = "" If Request.ServerVariables("REQUEST_METHOD") = "POST" Then If Request.Form("VTI-GROUP") = "0" Then Err.Clear Set fp_conn = Server.CreateObject("ADODB.Connection") FP_DumpError strErrorUrl, "Cannot create connection" Set fp_rs = Server.CreateObject("ADODB.Recordset") FP_DumpError strErrorUrl, "Cannot create record set" fp_conn.Open Application("contact_form_ConnectionString") FP_DumpError strErrorUrl, "Cannot open database" fp_rs.Open "Results", fp_conn, 1, 3, 2 ' adOpenKeySet, adLockOptimistic, adCmdTable FP_DumpError strErrorUrl, "Cannot open record set" fp_rs.AddNew FP_DumpError strErrorUrl, "Cannot add new record set to the database" Dim arFormFields0(7) Dim arFormDBFields0(7) Dim arFormValues0(7) arFormFields0(0) = "mailto" arFormDBFields0(0) = "mailto" arFormValues0(0) = Request("mailto") arFormFields0(1) = "comments" arFormDBFields0(1) = "comments" arFormValues0(1) = Request("comments") arFormFields0(2) = "City" arFormDBFields0(2) = "City" arFormValues0(2) = Request("City") arFormFields0(3) = "Code" arFormDBFields0(3) = "Code" arFormValues0(3) = Request("Code") arFormFields0(4) = "Name" arFormDBFields0(4) = "Name" arFormValues0(4) = Request("Name") arFormFields0(5) = "State" arFormDBFields0(5) = "State" arFormValues0(5) = Request("State") arFormFields0(6) = "Address" arFormDBFields0(6) = "Address" arFormValues0(6) = Request("Address") FP_SaveFormFields fp_rs, arFormFields0, arFormDBFields0 If Request.ServerVariables("HTTP_USER_AGENT") <> "" Then FP_SaveFieldToDB fp_rs, Request.ServerVariables("HTTP_USER_AGENT"), "Browser_type" End If If Request.ServerVariables("REMOTE_HOST") <> "" Then FP_SaveFieldToDB fp_rs, Request.ServerVariables("REMOTE_HOST"), "Remote_computer_name" End If FP_SaveFieldToDB fp_rs, Now, "Timestamp" If Request.ServerVariables("REMOTE_USER") <> "" Then FP_SaveFieldToDB fp_rs, Request.ServerVariables("REMOTE_USER"), "User_name" End If fp_rs.Update FP_DumpError strErrorUrl, "Cannot update the database" fp_rs.Close fp_conn.Close FP_FormConfirmation "text/html; charset=windows-1252",_ "Form Confirmation",_ "Thank you for submitting the following information:",_ "contact_form.asp",_ "Return to the form." End If End If Session.CodePage = Session("FP_OldCodePage") Session.LCID = Session("FP_OldLCID") %> <% ' FP_ASP -- ASP Automatically generated by a Frontpage Component. Do not Edit. FP_CharSet = "windows-1252" FP_CodePage = 1252 %> FrontPage theme <% ' FP_ASP -- ASP Automatically generated by a Frontpage Component. Do not Edit. FP_LCID = 1033 %> Tell Us What You Think!
<% if 0 then %> <% end if %> <% fp_sQry="SELECT * FROM Results" fp_sDefault="" fp_sNoRecords="" fp_sDataConn="contact_form" fp_iMaxRecords=256 fp_iCommandType=1 fp_iPageSize=5 fp_fTableFormat=True fp_fMenuFormat=False fp_sMenuChoice="" fp_sMenuValue="" fp_sColTypes="&ID=3&mailto=202&Name=202&Address=202&City=202&State=202&Code=202&comments=203&Remote_computer_name=202&User_name=202&Browser_type=202&Timestamp=135&" fp_iDisplayCols=12 fp_fCustomQuery=False BOTID=0 fp_iRegion=BOTID %>
ID mailto Name Address City State Code comments Remote_computer_name User_name Browser_type Timestamp
No records returned.
<%=FP_FieldVal(fp_rs,"ID")%> <%=FP_FieldVal(fp_rs,"mailto")%> <%=FP_FieldVal(fp_rs,"Name")%> <%=FP_FieldVal(fp_rs,"Address")%> <%=FP_FieldVal(fp_rs,"City")%> <%=FP_FieldVal(fp_rs,"State")%> <%=FP_FieldVal(fp_rs,"Code")%> <%=FP_FieldVal(fp_rs,"comments")%> <%=FP_FieldVal(fp_rs,"Remote_computer_name")%> <%=FP_FieldVal(fp_rs,"User_name")%> <%=FP_FieldVal(fp_rs,"Browser_type")%> <%=FP_FieldVal(fp_rs,"Timestamp")%>

 

Home

Contact Form
Up

 

Senator Norment values the input he receives from constituents.

Please note: Due to the volume of emails and letters received, priority is given to residents of the Third Senatorial District and to those who provide their complete name and address. To ensure a timely response, please be sure to include your complete name and address below.

 

Have a question or comment for Senator Norment?

Do you want the Norment News
delivered directly to your email address?

Please fill out the following form if you want to receive periodic email newsletters from Senator Norment. If you have a question or comment for Senator Norment, please include it below and you will receive a written response as soon as possible.

E-Mail address:
Name:
Address:
City:
State:
Zip:
Questions,
Comments,
Suggestions:



   

 

[ About Tommy ] [ Third Senate District ] [ Photo Gallery ] [ Links ] [ Upcoming Events ] [ Norment News ] [ Contact ]

Home Up

 

Authorized by Thomas K. Norment, Jr. Paid for by Friends of Tommy Norment.