%@ LANGUAGE="VBSCRIPT"%>
Books & Videos By Companions of the Naval Order of the United States
<%
If (Request.Form("name") = "") Then
%>
|
Naval Order of the United States
Post Office Box 2714
Merrifield, VA 22116-2741
NavalOrder@aol.com
|
Naval Order Job Submission Form
Please provide the information requested below:
The Naval Order homepage
is managed under the direction of CAPT James F. Brooke III, USNR (Ret.), Past
Commander General.
Produced courtesy of Marlene Fox-McIntyre and Athene,
Inc.
This page was last updated January 8, 2002
© 1999 - 2002 Naval Order of the United States. All rights reserved.
<%
Else
strName = Request.Form("name")
strAddress = Request.Form("address")
strCity = Request.Form("city")
strState = Request.Form("state")
strZip = Request.Form("zip")
strPhone = Request.Form("phone")
strFax = Request.Form("fax")
strWphone = Request.Form("wphone")
strEmail = Request.Form("email")
strWsite = Request.Form("wsite")
strMessage = Request.Form("message")
strClientText = sampText
strClientName = strFirstname & vbTab & strLastname
strFilePath = Server.MapPath("jobs.txt")
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objTextStream = objFSO.OpenTextFile(strFilePath, 8)
objTextStream.WriteLine(strName)
objTextStream.WriteLine(strAddress)
objTextStream.WriteLine(strCity)
objTextStream.WriteLine(strState)
objTextStream.WriteLine(strZip)
objTextStream.WriteLine(strPhone)
objTextStream.WriteLine(strFax)
objTextStream.WriteLine(strWphone)
objTextStream.WriteLine(strEmail)
objTextStream.WriteLine(strWsite)
objTextStream.WriteLine(strMessage)
objTextStream.Close
Set objTextStream = Nothing
Set objFSO = Nothing
%>
Thank you, <%=strName %>, for the information.
Click here to view
listings.
<%
End If
%>