home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1998 July & August / Pcwk78a98.iso / Micrsoft / VJ / COMMON / WIZARD98 / VIWZ1.DLL / 1033 / HTMX / 5715 < prev    next >
Text File  |  1998-02-24  |  944b  |  29 lines
  1.     <TR>
  2.         <TD BGCOLOR=#FFFFCC COLSPAN=3>
  3.             <FONT SIZE=-1>  
  4.             <%
  5.             If Not IsEmpty(Session("rs<%#TableShortName#%>_Status")) And Session("rs<%#TableShortName#%>_Status") <>"" Then
  6.                 Response.Write Session("rs<%#TableShortName#%>_Status")
  7.                 Session("rs<%#TableShortName#%>_Status") = ""
  8.             Else
  9.                 Select Case strFormMode
  10.                     Case "Edit"
  11.                         If IsEmpty(Session("rs<%#TableShortName#%>_Filter")) Then
  12.                             Response.Write "Current Filter: None"
  13.                         Else
  14.                             If Session("rs<%#TableShortName#%>_Filter") <> "" Then
  15.                                 Response.Write "Current Filter: " & Session("rs<%#TableShortName#%>_FilterDisplay")
  16.                             Else
  17.                                 Response.Write "Current Filter: None"
  18.                             End If
  19.                         End If
  20.                     Case "Filter"
  21.                         Response.Write "Status: Ready for filter criteria"
  22.                     Case "New"
  23.                         Response.Write "Status: Ready for new record"
  24.                 End Select
  25.             End If 
  26.             %>
  27.             </FONT>
  28.         </TD>
  29.     </TR>