<%@ 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 = "rsCorpAdminIEGroup" %> <% strFormMode = "Edit" ' Initalize the default If Not IsEmpty(Request("FormMode")) Then strFormMode = Request("FormMode") If Not IsEmpty(Request("rsCorpAdminIEGroup_PagingMove")) Then strPagingMove = Trim(Request("rsCorpAdminIEGroup_PagingMove")) End If %> IEAK CorpAdmin Form <% Response.Write "
" %>
 IEAK CorpAdmin  <% If strFormMode = "Form View" then strFormMode = "Edit" Select Case strFormMode Case "Edit" %> <% If Session("rsCorpAdminIEGroup_Filter") <> "" Then %>    <% End If %>  <% Case "Filter" %>   <% Case "New" %>   <% End Select %>   
   <% If Not IsEmpty(Session("rsCorpAdminIEGroup_Status")) And Session("rsCorpAdminIEGroup_Status") <>"" Then Response.Write Session("rsCorpAdminIEGroup_Status") Session("rsCorpAdminIEGroup_Status") = "" Else Select Case strFormMode Case "Edit" If IsEmpty(Session("rsCorpAdminIEGroup_Filter")) Then Response.Write "Current Filter: None" Else If Session("rsCorpAdminIEGroup_Filter") <> "" Then Response.Write "Current Filter: " & Session("rsCorpAdminIEGroup_FilterDisplay") Else Response.Write "Current Filter: None" End If End If Case "Filter" Response.Write "Status: Ready for filter criteria" Case "New" Response.Write "Status: Ready for new record" End Select End If %>
<% fHideNavBar = False fHideNumber = False fHideRequery = False fHideRule = False stQueryString = "" fEmptyRecordset = False fFirstPass = True fNeedRecordset = False fNoRecordset = False tBarAlignment = "Left" tHeaderName = "rsCorpAdminIEGroup" tPageSize = 1 tPagingMove = "" tRangeType = "Form" tRecordsProcessed = 0 tPrevAbsolutePage = 0 intCurPos = 0 intNewPos = 0 fSupportsBookmarks = True fMoveAbsolute = False If Not IsEmpty(Request("rsCorpAdminIEGroup_PagingMove")) Then tPagingMove = Trim(Request("rsCorpAdminIEGroup_PagingMove")) End If If IsEmpty(Session("rsCorpAdminIEGroup_Recordset")) Then fNeedRecordset = True Else If Session("rsCorpAdminIEGroup_Recordset") Is Nothing Then fNeedRecordset = True Else Set rsCorpAdminIEGroup = Session("rsCorpAdminIEGroup_Recordset") End If End If If fNeedRecordset Then Set DataConn = Server.CreateObject("ADODB.Connection") DataConn.ConnectionTimeout = Session("DataConn_ConnectionTimeout") DataConn.CommandTimeout = Session("DataConn_CommandTimeout") DataConn.Open Session("DataConn_ConnectionString"), Session("DataConn_RuntimeUserName"), Session("DataConn_RuntimePassword") Set cmdTemp = Server.CreateObject("ADODB.Command") Set rsCorpAdminIEGroup = Server.CreateObject("ADODB.Recordset") cmdTemp.CommandText = "SELECT `GroupID`, `GroupName`, `INSFile` FROM `IEGroup`" cmdTemp.CommandType = 1 Set cmdTemp.ActiveConnection = DataConn rsCorpAdminIEGroup.Open cmdTemp, , 1, 3 End If On Error Resume Next If rsCorpAdminIEGroup.BOF And rsCorpAdminIEGroup.EOF Then fEmptyRecordset = True On Error Goto 0 If Err Then fEmptyRecordset = True If fNeedRecordset Then Set Session("rsCorpAdminIEGroup_Recordset") = rsCorpAdminIEGroup End If rsCorpAdminIEGroup.PageSize = tPageSize fSupportsBookmarks = rsCorpAdminIEGroup.Supports(8192) If Not IsEmpty(Session("rsCorpAdminIEGroup_Filter")) And Not fEmptyRecordset Then rsCorpAdminIEGroup.Filter = Session("rsCorpAdminIEGroup_Filter") If rsCorpAdminIEGroup.BOF And rsCorpAdminIEGroup.EOF Then fEmptyRecordset = True End If If IsEmpty(Session("rsCorpAdminIEGroup_PageSize")) Then Session("rsCorpAdminIEGroup_PageSize") = tPageSize If IsEmpty(Session("rsCorpAdminIEGroup_AbsolutePage")) Then Session("rsCorpAdminIEGroup_AbsolutePage") = 1 If Session("rsCorpAdminIEGroup_PageSize") <> tPageSize Then tCurRec = ((Session("rsCorpAdminIEGroup_AbsolutePage") - 1) * Session("rsCorpAdminIEGroup_PageSize")) + 1 tNewPage = Int(tCurRec / tPageSize) If tCurRec Mod tPageSize <> 0 Then tNewPage = tNewPage + 1 End If If tNewPage = 0 Then tNewPage = 1 Session("rsCorpAdminIEGroup_PageSize") = tPageSize Session("rsCorpAdminIEGroup_AbsolutePage") = tNewPage End If If fEmptyRecordset Then fHideNavBar = True fHideRule = True Else tPrevAbsolutePage = Session("rsCorpAdminIEGroup_AbsolutePage") Select Case tPagingMove Case "" fMoveAbsolute = True Case "Requery" rsCorpAdminIEGroup.Requery fMoveAbsolute = True Case "<<" Session("rsCorpAdminIEGroup_AbsolutePage") = 1 Case "<" If Session("rsCorpAdminIEGroup_AbsolutePage") > 1 Then Session("rsCorpAdminIEGroup_AbsolutePage") = Session("rsCorpAdminIEGroup_AbsolutePage") - 1 End If Case ">" If Not rsCorpAdminIEGroup.EOF Then Session("rsCorpAdminIEGroup_AbsolutePage") = Session("rsCorpAdminIEGroup_AbsolutePage") + 1 End If Case ">>" If fSupportsBookmarks Then Session("rsCorpAdminIEGroup_AbsolutePage") = rsCorpAdminIEGroup.PageCount End If End Select Do If fSupportsBookmarks Then rsCorpAdminIEGroup.AbsolutePage = Session("rsCorpAdminIEGroup_AbsolutePage") Else If fNeedRecordset Or fMoveAbsolute Or rsCorpAdminIEGroup.EOF Then rsCorpAdminIEGroup.MoveFirst rsCorpAdminIEGroup.Move (Session("rsCorpAdminIEGroup_AbsolutePage") - 1) * tPageSize Else intCurPos = ((tPrevAbsolutePage - 1) * tPageSize) + tPageSize intNewPos = ((Session("rsCorpAdminIEGroup_AbsolutePage") - 1) * tPageSize) + 1 rsCorpAdminIEGroup.Move intNewPos - intCurPos End If If rsCorpAdminIEGroup.BOF Then rsCorpAdminIEGroup.MoveNext End If If Not rsCorpAdminIEGroup.EOF Then Exit Do Session("rsCorpAdminIEGroup_AbsolutePage") = Session("rsCorpAdminIEGroup_AbsolutePage") - 1 Loop End If Do If fEmptyRecordset Then Exit Do If tRecordsProcessed = tPageSize Then Exit Do If Not fFirstPass Then rsCorpAdminIEGroup.MoveNext Else fFirstPass = False End If If rsCorpAdminIEGroup.EOF Then Exit Do tRecordsProcessed = tRecordsProcessed + 1 %> <% If strFormMode = "Edit" Then Response.Write "

" Response.Write "" ShowField "GroupID", "GroupID", True, Null ShowField "GroupName", "GroupName", False, Null ShowField "INSFile", "INSFile", False, Null Response.Write "
" Response.Write "

" stQueryString = "?FormMode=Edit" fHideNavBar = False fHideRule = True Else fHideNavBar = True fHideRule = True End If %> <% Loop If tRangeType = "Table" Then Response.Write "" If tPageSize > 0 Then If Not fHideRule Then Response.Write "
" If Not fHideNavBar Then %>

>

METHOD="POST"> " VALUE=" << "> " VALUE=" < "> " VALUE=" > "> <% If fSupportsBookmarks Then %> " VALUE=" >> "> <% End If %> <% If Not fHideRequery Then %> " VALUE=" Requery "> <% End If %>

<% If Not fHideNumber Then If tPageSize > 1 Then Response.Write "Page: " & Session(tHeaderName & "_AbsolutePage") & "" Else Response.Write "Record: " & Session(tHeaderName & "_AbsolutePage") & "" End If End If %>
<% End If End If %> <% If strFormMode <> "Edit" Then Response.Write "

" Response.Write "" ShowField "GroupID", "GroupID", True, Null ShowField "GroupName", "GroupName", False, Null ShowField "INSFile", "INSFile", False, Null 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("rsCorpAdminIEGroup_Recordset") = rsCorpAdminIEGroup End If %>