|
styrochem -> RE: Criteria Restricted Subwindow Form (6/16/2004 12:10:24)
|
Here is how the code now looks on the results page---- I just now need to make an a form where they can update the information and submit it to the database. <%
'If the session variable is False or does not exsist then redirect the user to the unauthorized user page
If Session("blnIsUserGood") = False or IsNull(Session("blnIsUserGood")) = True then
'Redirect to unathorized user page
Response.Redirect"..\..\..\protected\unauthorized_user_page.htm"
End If
%>
<html>
<head>
<% ' FP_ASP -- ASP Automatically generated by a Frontpage Component. Do not Edit.
FP_CharSet = "windows-1252"
FP_CodePage = 1252 %>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>Minton Purchase Order Center</title>
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
</head>
<body bgcolor="#FFFFFF">
<!--webbot bot="PurpleText" PREVIEW="-Important- If you modify this Database Results region using the Database Results Wizard, then your Database Editor will no longer work. If you accidentally open the Database Results Wizard, simply click Cancel to exit without regenerating the Database Results region." -->
<!--webbot bot="DatabaseRegionStart" s-columnnames="PurchaseOrder,Requestor,Vendor,Created,NotToExceed,ConfirmedSignedPurchaseReq,EnteredBy,EnteredIntoManMan,POStatus,Comments,DateofManManEntry,DatePOClosed" s-columntypes="3,202,202,202,202,202,202,202,202,203,202,202" s-dataconnection="Purchase_Orders" b-tableformat="FALSE" b-menuformat="FALSE" s-menuchoice s-menuvalue b-tableborder="TRUE" b-tableexpand="TRUE" b-tableheader="TRUE" b-listlabels="TRUE" b-listseparator="FALSE" i-listformat="5" b-makeform="FALSE" s-recordsource="tblPurchaseOrders_Minton_PO" s-displaycolumns="PurchaseOrder,Requestor,Vendor,Created,NotToExceed,EnteredBy,EnteredIntoManMan,POStatus" s-criteria="{PurchaseOrder} EQ {PurchaseOrder} +" s-order s-sql="SELECT * FROM tblPurchaseOrders_Minton_PO WHERE (PurchaseOrder = ::PurchaseOrder::)" b-procedure="FALSE" clientside suggestedext="asp" s-defaultfields="PurchaseOrder=0" s-norecordsfound="No records returned." i-maxrecords="1" i-groupsize="0" botid="0" u-dblib="../../_fpclass/fpdblib.inc" u-dbrgn1="../../_fpclass/fpdbrgn1.inc" u-dbrgn2="../../_fpclass/fpdbrgn2.inc" tag="BODY" preview="<table border=0 width="100%"><tr><td bgcolor="#FFFF00" align="left"><font color="#000000">This is the start of a Database Results region. The page must be fetched from a web server with a web browser to display correctly; the current web is stored on your local disk or network.</font></td></tr></table>" startspan --><!--#include file="../../_fpclass/fpdblib.inc"-->
<% if 0 then %>
<SCRIPT Language="JavaScript">
document.write("<div style='background: yellow; color: black;'>The Database Results component on this page is unable to display database content. The page must have a filename ending in '.asp', and the web must be hosted on a server that supports Active Server Pages.</div>");
</SCRIPT>
<% end if %>
<%
fp_sQry="SELECT * FROM tblPurchaseOrders_Minton_PO WHERE (PurchaseOrder = ::PurchaseOrder::)"
fp_sDefault="PurchaseOrder=0"
fp_sNoRecords="No records returned."
fp_sDataConn="Purchase_Orders"
fp_iMaxRecords=1
fp_iCommandType=1
fp_iPageSize=0
fp_fTableFormat=False
fp_fMenuFormat=False
fp_sMenuChoice=""
fp_sMenuValue=""
fp_sColTypes="&PurchaseOrder=3&Requestor=202&Vendor=202&Created=202&NotToExceed=202&ConfirmedSignedPurchaseReq=202&EnteredBy=202&EnteredIntoManMan=202&POStatus=202&Comments=203&DateofManManEntry=202&DatePOClosed=202&"
fp_iDisplayCols=8
fp_fCustomQuery=False
BOTID=0
fp_iRegion=BOTID
%>
<!--#include file="../../_fpclass/fpdbrgn1.inc"-->
<!--webbot bot="DatabaseRegionStart" endspan --><table BORDER="1">
<tr>
<td><b>PurchaseOrder:</b></td>
<td>
<!--webbot bot="DatabaseResultColumn" s-columnnames="PurchaseOrder,Requestor,Vendor,Created,NotToExceed,ConfirmedSignedPurchaseReq,EnteredBy,EnteredIntoManMan,POStatus,Comments,DateofManManEntry,DatePOClosed" s-column="PurchaseOrder" b-tableformat="FALSE" b-hashtml="FALSE" b-makelink="FALSE" clientside b-MenuFormat preview="<font size="-1"><<</font>PurchaseOrder<font size="-1">>></font>" startspan --><%=FP_FieldVal(fp_rs,"PurchaseOrder")%><!--webbot bot="DatabaseResultColumn" endspan --></td>
</tr>
<tr>
<td><b>Requestor:</b></td>
<td>
<!--webbot bot="DatabaseResultColumn" s-columnnames="PurchaseOrder,Requestor,Vendor,Created,NotToExceed,ConfirmedSignedPurchaseReq,EnteredBy,EnteredIntoManMan,POStatus,Comments,DateofManManEntry,DatePOClosed" s-column="Requestor" b-tableformat="FALSE" b-hashtml="FALSE" b-makelink="FALSE" clientside b-MenuFormat preview="<font size="-1"><<</font>Requestor<font size="-1">>></font>" startspan --><%=FP_FieldVal(fp_rs,"Requestor")%><!--webbot bot="DatabaseResultColumn" endspan --></td>
</tr>
<tr>
<td><b>Vendor:</b></td>
<td>
<!--webbot bot="DatabaseResultColumn" s-columnnames="PurchaseOrder,Requestor,Vendor,Created,NotToExceed,ConfirmedSignedPurchaseReq,EnteredBy,EnteredIntoManMan,POStatus,Comments,DateofManManEntry,DatePOClosed" s-column="Vendor" b-tableformat="FALSE" b-hashtml="FALSE" b-makelink="FALSE" clientside b-MenuFormat preview="<font size="-1"><<</font>Vendor<font size="-1">>></font>" startspan --><%=FP_FieldVal(fp_rs,"Vendor")%><!--webbot bot="DatabaseResultColumn" endspan --></td>
</tr>
<tr>
<td><b>Created:</b></td>
<td>
<!--webbot bot="DatabaseResultColumn" s-columnnames="PurchaseOrder,Requestor,Vendor,Created,NotToExceed,ConfirmedSignedPurchaseReq,EnteredBy,EnteredIntoManMan,POStatus,Comments,DateofManManEntry,DatePOClosed" s-column="Created" b-tableformat="FALSE" b-hashtml="FALSE" b-makelink="FALSE" clientside b-MenuFormat preview="<font size="-1"><<</font>Created<font size="-1">>></font>" startspan --><%=FP_FieldVal(fp_rs,"Created")%><!--webbot bot="DatabaseResultColumn" endspan --></td>
</tr>
<tr>
<td><b>NotToExceed:</b></td>
<td>
<!--webbot bot="DatabaseResultColumn" s-columnnames="PurchaseOrder,Requestor,Vendor,Created,NotToExceed,ConfirmedSignedPurchaseReq,EnteredBy,EnteredIntoManMan,POStatus,Comments,DateofManManEntry,DatePOClosed" s-column="NotToExceed" b-tableformat="FALSE" b-hashtml="FALSE" b-makelink="FALSE" clientside b-MenuFormat preview="<font size="-1"><<</font>NotToExceed<font size="-1">>></font>" startspan --><%=FP_FieldVal(fp_rs,"NotToExceed")%><!--webbot bot="DatabaseResultColumn" endspan --></td>
</tr>
<tr>
<td><b>EnteredBy:</b></td>
<td>
<!--webbot bot="DatabaseResultColumn" s-columnnames="PurchaseOrder,Requestor,Vendor,Created,NotToExceed,ConfirmedSignedPurchaseReq,EnteredBy,EnteredIntoManMan,POStatus,Comments,DateofManManEntry,DatePOClosed" s-column="EnteredBy" b-tableformat="FALSE" b-hashtml="FALSE" b-makelink="FALSE" clientside b-MenuFormat preview="<font size="-1"><<</font>EnteredBy<font size="-1">>></font>" startspan --><%=FP_FieldVal(fp_rs,"EnteredBy")%><!--webbot bot="DatabaseResultColumn" endspan --></td>
</tr>
<tr>
<td><b>EnteredIntoManMan:</b></td>
<td>
<!--webbot bot="DatabaseResultColumn" s-columnnames="PurchaseOrder,Requestor,Vendor,Created,NotToExceed,ConfirmedSignedPurchaseReq,EnteredBy,EnteredIntoManMan,POStatus,Comments,DateofManManEntry,DatePOClosed" s-column="EnteredIntoManMan" b-tableformat="FALSE" b-hashtml="FALSE" b-makelink="FALSE" clientside b-MenuFormat preview="<font size="-1"><<</font>EnteredIntoManMan<font size="-1">>></font>" startspan --><%=FP_FieldVal(fp_rs,"EnteredIntoManMan")%><!--webbot bot="DatabaseResultColumn" endspan --></td>
</tr>
<tr>
<td><b>POStatus:</b></td>
<td>
<!--webbot bot="DatabaseResultColumn" s-columnnames="PurchaseOrder,Requestor,Vendor,Created,NotToExceed,ConfirmedSignedPurchaseReq,EnteredBy,EnteredIntoManMan,POStatus,Comments,DateofManManEntry,DatePOClosed" s-column="POStatus" b-tableformat="FALSE" b-hashtml="FALSE" b-makelink="FALSE" clientside b-MenuFormat preview="<font size="-1"><<</font>POStatus<font size="-1">>></font>" startspan --><%=FP_FieldVal(fp_rs,"POStatus")%><!--webbot bot="DatabaseResultColumn" endspan --></td>
</tr>
</table>
<!--webbot bot="DatabaseRegionEnd" b-tableformat="FALSE" b-menuformat="FALSE" u-dbrgn2="../../_fpclass/fpdbrgn2.inc" i-groupsize="0" clientside tag="BODY" preview="<table border=0 width="100%"><tr><td bgcolor="#FFFF00" align="left"><font color="#000000">This is the end of a Database Results region.</font></td></tr></table>" startspan --><!--#include file="../../_fpclass/fpdbrgn2.inc"-->
<!--webbot bot="DatabaseRegionEnd" endspan -->
</body>
</html>
|
|
|
|