|
Kage -> RE: Questions about Form Buttons and Submission (11/24/2003 15:55:46)
|
here is all of it.
<%
' 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("receivingNPR_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(3)
Dim arFormDBFields0(3)
Dim arFormValues0(3)
arFormFields0(0) = "TrackingNumber"
arFormDBFields0(0) = "TrackingNumber"
arFormValues0(0) = Request("TrackingNumber")
arFormFields0(1) = "NPR_NPR"
arFormDBFields0(1) = "NPR_NPR"
arFormValues0(1) = Request("NPR_NPR")
arFormFields0(2) = "MasterCase"
arFormDBFields0(2) = "MasterCase"
arFormValues0(2) = Request("MasterCase")
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 "DockToStockRecvConfirm.asp"
End If
End If
Session.CodePage = Session("FP_OldCodePage")
Session.LCID = Session("FP_OldLCID")
%>
<HTML>
<HEAD>
<meta HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=windows-1252">
<meta http-equiv="Content-Language" content="en-us">
<TITLE>Dock To Stock Receiving</TITLE>
</HEAD>
<BODY>
<H1> </H1>
<H1>Dock To Stock Receiving</H1>
<HR>
<FORM METHOD="POST" ACTION="--WEBBOT-SELF--" name="Dock To Stock Receiving">
<!--webbot bot="SaveDatabase" suggestedext="asp" u-asp-include-url="../_fpclass/fpdbform.inc" s-dataconnection="receivingNPR" s-recordsource="Results" u-database-url="../fpdb/receivingNPR.mdb" u-confirmation-url="DockToStockRecvConfirm.asp" s-builtin-fields="HTTP_USER_AGENT REMOTE_HOST Timestamp REMOTE_USER" s-builtin-dbfields="Browser_type Remote_computer_name Timestamp User_name" s-form-fields="TrackingNumber NPR_NPR MasterCase" s-form-dbfields="TrackingNumber NPR_NPR MasterCase" startspan --><input TYPE="hidden" NAME="VTI-GROUP" VALUE="0"><!--#include file="../_fpclass/fpdbform.inc"--><!--webbot bot="SaveDatabase" endspan i-checksum="34604" --><OL>
<LI>
<P>
Master Case:</P>
<P>
<INPUT TYPE=TEXT NAME="MasterCase" SIZE=20 MAXLENGTH=20>
<BR>
</P>
<LI>
<P>
Tracking Number:</P>
<P>
<INPUT TYPE=TEXT NAME="TrackingNumber" SIZE=50 MAXLENGTH=50>
<BR>
</P>
<LI>
<P>
NPR:</P>
<P>
<INPUT TYPE=CHECKBOX NAME="NPR_NPR" value="ON"> NPR<BR>
</P>
</OL>
<INPUT TYPE=SUBMIT VALUE="Submit Form">
<INPUT TYPE=RESET VALUE="Reset Form">
</FORM>
<HR>
Revised:
<!--WEBBOT BOT=TimeStamp
S-Type="EDITED"
S-Format="%m/%d/%y"
--></H5>
</BODY>
</HTML>
|
|
|
|
