<% ' 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("gueststories_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(4) Dim arFormDBFields0(4) Dim arFormValues0(4) arFormFields0(0) = "Name" arFormDBFields0(0) = "Name" arFormValues0(0) = Request("Name") arFormFields0(1) = "Address" arFormDBFields0(1) = "Address" arFormValues0(1) = Request("Address") arFormFields0(2) = "YourStory" arFormDBFields0(2) = "YourStory" arFormValues0(2) = Request("YourStory") arFormFields0(3) = "Privacy" arFormDBFields0(3) = "Privacy" arFormValues0(3) = Request("Privacy") FP_SaveFormFields fp_rs, arFormFields0, arFormDBFields0 fp_rs.Update FP_DumpError strErrorUrl, "Cannot update the database" fp_rs.Close fp_conn.Close FP_FormConfirmationFromArrays "text/html; charset=windows-1252",_ "Form Confirmation",_ "Thank you for submitting the following information:",_ "GuestStories.asp",_ "Return to the form.",_ arFormDBFields0,_ arFormValues0 End If End If Session.CodePage = Session("FP_OldCodePage") Session.LCID = Session("FP_OldLCID") %> <% Response.Buffer = True %>
Guest Stories Entry Form
Museum Logo
WHITE SANDS MISSILE
RANGE MUSEUM

Privacy and
Security Notice

MUSEUM HOME

GENERAL
INFORMATION

MISSILE PARK

OTHER MISSILES

INSIDE EXHIBITS

HALL OF FAME

ARCHIVES

GUEST STORIES

WHITE SANDS
COMMANDERS

RANGE HISTORY

WHAT? WHO?

OLD-TIMERS
BULLETIN
BOARD


MISSILE  RANGE
HISTORICAL
FOUNDATION

WHITE  SANDS
PIONEER GROUP


WHITE SANDS
MISSILE RANGE
Home Page

US ARMY
CENTER OF
MILITARY HISTORY

OTHER LINKS


E-Mail: Museum Director
E-Mail: Webmaster

 

   

Stories
Submission Form
Read Stories Page



Full Name
 

E-Mail Address
 

Your Story  

    Private Entry
 Select "True" if you don't want your story shown on the Read Stories page.