<% ' 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 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("contactus1_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(15) Dim arFormDBFields0(15) Dim arFormValues0(15) arFormFields0(0) = "SUBJECT" arFormDBFields0(0) = "SUBJECT" arFormValues0(0) = Request("SUBJECT") arFormFields0(1) = "STATUS" arFormDBFields0(1) = "STATUS" arFormValues0(1) = Request("STATUS") arFormFields0(2) = "GENDER" arFormDBFields0(2) = "GENDER" arFormValues0(2) = Request("GENDER") arFormFields0(3) = "OKTOSHARE" arFormDBFields0(3) = "OKTOSHARE" arFormValues0(3) = Request("OKTOSHARE") arFormFields0(4) = "MESSAGETYPE" arFormDBFields0(4) = "MESSAGETYPE" arFormValues0(4) = Request("MESSAGETYPE") arFormFields0(5) = "OKTOMAIL" arFormDBFields0(5) = "OKTOMAIL" arFormValues0(5) = Request("OKTOMAIL") arFormFields0(6) = "EMAIL" arFormDBFields0(6) = "EMAIL" arFormValues0(6) = Request("EMAIL") arFormFields0(7) = "PHONE" arFormDBFields0(7) = "PHONE" arFormValues0(7) = Request("PHONE") arFormFields0(8) = "COMMENTS" arFormDBFields0(8) = "COMMENTS" arFormValues0(8) = Request("COMMENTS") arFormFields0(9) = "CITY" arFormDBFields0(9) = "CITY" arFormValues0(9) = Request("CITY") arFormFields0(10) = "AGE" arFormDBFields0(10) = "AGE" arFormValues0(10) = Request("AGE") arFormFields0(11) = "ZIP" arFormDBFields0(11) = "ZIP" arFormValues0(11) = Request("ZIP") arFormFields0(12) = "NAME" arFormDBFields0(12) = "NAME" arFormValues0(12) = Request("NAME") arFormFields0(13) = "STATE" arFormDBFields0(13) = "STATE" arFormValues0(13) = Request("STATE") arFormFields0(14) = "ADDRESS" arFormDBFields0(14) = "ADDRESS" arFormValues0(14) = 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 Session("FP_SavedFields")=arFormFields0 Session("FP_SavedValues")=arFormValues0 Session.CodePage = Session("FP_OldCodePage") Session.LCID = Session("FP_OldLCID") Response.Redirect "thankyou.asp" End If End If Session.CodePage = Session("FP_OldCodePage") Session.LCID = Session("FP_OldLCID") %> THE BODYSHAPING WEBSITE

Send your comments to the producers of BodyShaping,

Co-ed Training, Fitness Beach and Flex Magazine Workout.

What type of comment would you like to send?

Praise  Complaint   Question   Suggestion

 

What about us do you want to comment on?

 

Tell us how to get in touch with you:

 

FULL NAME

E-MAIL

 

 

Optional Info:

 

PHONE

ADDRESS

CITY

STATE

ZIP CODE

 

 

AGE

GENDER

MARITAL STATUS

 

 

Enter your comments in the space provided below:

 

 

Additional Info (optional):

 

 

Yes, BodyShaping may send me information on products, services and special offers that may be of interest to me.

Yes, BodyShaping may permit its affiliates and selected other companies to send me information on products, services and special offers that may be of interest to me.