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