home *** CD-ROM | disk | FTP | other *** search
/ Australian Personal Computer 1999 July / APC47-1.ISO / workshop / win95 / pws / iis4_02.cab / qbe.asp < prev    next >
Encoding:
Text File  |  1997-09-26  |  2.5 KB  |  72 lines
  1. <%
  2. DIM intprivate
  3.  if (request("private") = "-1") then 
  4.     intprivate = "True" 
  5.  elseif request("private") = "0" then 
  6.     intprivate = "False" 
  7.  else 
  8.     intprivate = "False" 
  9.  end if
  10. %>
  11. <HTML>
  12. <HEAD>
  13. <TITLE>View your guest book</TITLE>
  14. <!--#include virtual = "/iissamples/homepage/sub.inc" -->
  15. </HEAD>
  16. <BODY TopMargin=0 Leftmargin="0" BGColor="#FFFFFF">
  17. <FORM name="qbeform" action="admin.asp" method="POST">
  18. <TABLE  border=1 width="100%" height="100%" cellspacing=5 cellpadding=5 rules=box>
  19. <TR>
  20. <TD Background="msg.gif" Colspan="5">
  21. <FONT FACE="arial","helvetica" SIZE="-1">
  22.     To administer your guest book, enter values for the fields below
  23.      and press the <B>'Submit Query'</B> button</FONT></TD></TR>
  24.     <TR><TD align="right" valign="top">
  25.     <TT><FONT FACE="arial","helvetica" SIZE="-1">MessageDate</font>: </TT>
  26.     </TD>
  27.     <TD align="left" valign="top">
  28.     <SELECT NAME="MessageDateLimit" SIZE="1">
  29.     <OPTION value="less than">less than
  30.     <OPTION value="equal to">equal to
  31.     <OPTION value="greater than">greater than
  32.     </SELECT>
  33.     </TD>
  34.     <TD align="left" valign="top">
  35.     <INPUT NAME="MessageDate" SIZE="27" MAXLENGTH="254" VALUE="<% response.write (month( now ) & "/" & day( now ) & "/" & year( now ) & " " & time()) %>"></TD></TR>
  36.     <TR><TD align="right" valign="top">
  37.     <TT><FONT FACE="arial","helvetica" SIZE="-1">MessageFrom</font>: </TT>
  38.     </TD>
  39.     <TD align="left" valign="top">
  40.      <SELECT NAME="MessageFromLimit" SIZE="1">
  41.       <OPTION VALUE="begins with" >begins with
  42.       <OPTION VALUE="contains" >contains
  43.       <OPTION VALUE="ends with" >ends with
  44.       <OPTION VALUE="equal to">equal to
  45.      </SELECT></TD>
  46.     <TD align="left" valign="top">
  47.     <INPUT NAME="MessageFrom" VALUE="" SIZE="27" MAXLENGTH="254" VALUE="">
  48.     </TD></TR>
  49.     <TR><TD align="right" valign="top">
  50.     <TT><FONT FACE="arial","helvetica" SIZE="-1">MessageSubject</font>: </TT>
  51.     </TD>
  52.     <TD align="left" valign="top">
  53.      <SELECT NAME="MessageSubjectLimit" SIZE="1">
  54.       <OPTION VALUE="begins with" >begins with
  55.       <OPTION VALUE="contains" >contains
  56.       <OPTION VALUE="ends with" >ends with
  57.       <OPTION VALUE="equal to">equal to
  58.      </SELECT></TD>
  59.     <TD align="left" valign="top">
  60.      <INPUT NAME="MessageSubject" VALUE="" SIZE="27" VALUE=""></B>
  61.     </TD></TR>
  62.     <TR><TD Colspan="3">
  63.     <INPUT TYPE="SUBMIT" VALUE="Submit Query"> 
  64.     <INPUT TYPE="RESET" VALUE="Reset Defaults"></TD></TR>
  65.     <TR><TD Colspan="3">
  66.     <B><A HREF="default.asp">Web Site</A></B>
  67.     </TD></TR> 
  68. </TABLE>
  69. <INPUT NAME="private" TYPE="hidden" VALUE="<% response.write intprivate %>">
  70. </FORM>
  71. </BODY>
  72. </HTML>