<%@ LANGUAGE="vbscript" %> <% '------------------------------------------------------------------------------- ' Microsoft Visual InterDev - Data Form Wizard ' ' Form Page ' ' (c) 1997 Microsoft Corporation. All Rights Reserved. ' ' This file is an Active Server Page that contains the form view of a Data Form. ' It requires Microsoft Internet Information Server 3.0 and can be displayed ' using any browser that supports tables. You can edit this file to further ' customize the form view. ' ' Modes: The form mode can be controlled by passing the following ' name/value pairs using POST or GET: ' FormMode=Edit ' FormMode=Filter ' FormMode=New ' Tips: - If a field contains a URL to an image and has a name that ' begins with "img_" (case-insensitive), the image will be ' displayed using the IMG tag. ' - If a field contains a URL and has a name that begins with ' "url_" (case-insensitive), a jump will be displayed using the ' Anchor tag. '------------------------------------------------------------------------------- Dim strPagingMove Dim strFormMode Dim strDFName strDFName = "rs<%#TableShortName#%>" %> <% strFormMode = "Edit" ' Initalize the default If Not IsEmpty(Request("FormMode")) Then strFormMode = Request("FormMode") If Not IsEmpty(Request("rs<%#TableShortName#%>_PagingMove")) Then strPagingMove = Trim(Request("rs<%#TableShortName#%>_PagingMove")) End If %> <%#FormName#%> Form <%#ForeignKeyRS#%> <% Response.Write "
"" METHOD=""POST"">" %> <%#StatusLine#%>
 <%#FormName#%>  <% If strFormMode = "Form View" then strFormMode = "Edit" Select Case strFormMode Case "Edit" %> <%#ActionButtons#%>  <% Case "Filter" %>   <% Case "New" %>   <% End Select %> <%#ChangeToListView#%>
<%#DataRangeHeaderHTML#%> <% If strFormMode = "Edit" Then Response.Write "

" Response.Write "" <%#DataFields#%> Response.Write "
" Response.Write "

" stQueryString = "?FormMode=Edit" fHideNavBar = False fHideRule = True Else fHideNavBar = True fHideRule = True End If %> <%#DataRangeFooterHTML#%> <% If strFormMode <> "Edit" Then Response.Write "

" Response.Write "" <%#DataFields#%> Response.Write "
" Response.Write "

" End If %> <% ' Display a message if there are no records to show If strFormMode = "Edit" And fEmptyRecordset Then Response.Write "

No Records Available

" End If ' TEMP: This is here until we get a drop of the data range that has ' the CacheRecordset property If fNeedRecordset Then Set Session("rs<%#TableShortName#%>_Recordset") = rs<%#TableShortName#%> End If %>