home *** CD-ROM | disk | FTP | other *** search
/ io Programmo 9 / IOPROG_9.ISO / contrib / iis4 / ins.cab / editres.asp < prev    next >
Encoding:
Text File  |  1997-08-16  |  2.7 KB  |  78 lines
  1. <%
  2. L_PAGETITLETXT            = "Edit News Offline Search"
  3. L_QUERYRESULTTXT        ="Your query has been updated."
  4. L_QUERYFAILEDTXT        = "Your query has been deleted."
  5. %>
  6.  
  7. <!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML//EN">
  8. <html>
  9.  
  10. <head>
  11. <meta http-equiv="Content-Type"
  12. content="text/html; charset=iso-8859-1">
  13. <meta name="GENERATOR" content="Microsoft FrontPage 2.0">
  14. <title><%= L_PAGETITLETXT %></title>
  15. </head>
  16.  
  17. <body background="images\gnback.gif" text="white">
  18. <%if Request.Form("editdelete") = "edit" then%>
  19. <%if IsNumeric( Request.Form("search_frequency") ) = true or Request.Form("search_frequency") = "" then %>
  20. <%if (Request.Form("by_news") = "on" and Request.Form("news_group") <> "") or Request.Form("by_news") <> "on" then%>
  21. <%if (Request.Form("by_mail") = "on" and Request.Form("email_address") <> "") or Request.Form("by_mail") <> "on" then%>
  22. <%if Request.Form("by_mail") <> "" or Request.Form("by_news") <> "" then%>
  23. <%Set querybase = Server.CreateObject("req.req.1")%>
  24. <%set guid = session("guid")%>
  25. <% set x = querybase.ItemX(guid)
  26.    x.EmailAddress = Request.Form("email_address")
  27.    x.QueryString = Request.Form("query_string")
  28.    x.LastDate = Request.Form("last_date")
  29.    x.SearchFrequency = Request.Form("search_frequency")
  30.    x.Message_Template = Request.Form("message_template")
  31.    x.URL_Template = Request.Form("url_template")
  32.    x.NewsGroup = Request.Form("news_group")
  33.    if  Request.Form("by_mail") = "on" and Request.Form("by_news") = "on" then
  34.            x.ReplyMode = "both"
  35.    else
  36.           if Request.Form("by_mail") = "on" then
  37.                x.ReplyMode = "mail"
  38.        else
  39.            if Request.Form("by_news") = "on" then
  40.                   x.ReplyMode = "news"
  41.            else
  42.                x.ReplyMode = "mail"
  43.            end if
  44.        end if
  45.    end if
  46.  
  47.    querybase.Save(x)
  48. %>
  49. <p align="center"><font size="4"><strong><%= L_QUERYRESULTTXT %></strong></font></p>
  50. <%else%>
  51.       <script language="javascript">
  52.           alert("You must specifiy at least one reply mode.  Use browser back botton to go back.")
  53.       </script>
  54. <%end if%>
  55. <%else%>
  56.       <script language="javascript">
  57.             alert("You must enter email address if you want email reply. Use browser back botton to go back.")
  58.       </script>
  59. <%end if%>
  60. <%else%>
  61.       <script language="javascript">
  62.             alert("You must enter news group if you want news reply. Use browser back botton to go back.")
  63.       </script>
  64. <%end if%>
  65. <%else%>
  66.       <script language="javascript">
  67.             alert("Search frequency must be a number! Use browser back botton to go back.")
  68.       </script>
  69. <%end if%>
  70. <%else
  71.   set querybase=Server.CreateObject("req.req.1")
  72.   set guid=session("guid")
  73.   querybase.Delete(guid)%>
  74. <p align="center"><font size="4"><strong><%= L_QUERYFAILEDTXT %></strong></font></p>
  75. <%end if%>
  76. </body>
  77. </html>
  78.