home *** CD-ROM | disk | FTP | other *** search
/ Chip 1998 February / CHIP_2_98.iso / software / pelne / optionp / ins.cab / addres.asp < prev    next >
Text File  |  1997-10-12  |  3KB  |  76 lines
  1. <%
  2.  REM localization
  3.  
  4.  L_PAGETITLE_HTMLTitle            = "News Offline Search Admin"
  5.  L_NEWSOFFLINESEARCH_StaticText    = "Your query has been added."
  6.  L_ENTERREPLYMODE_StaticText    = "You must specify at least one reply mode.  Use the browser back button to go back."
  7.  L_ENTEREMAILADDRESS_StaticText    = "You must specify an email address to use the email reply mode.  Use the browser button to go back."
  8.  L_ENTERNEWSGROUP_StaticText     = "You must specify a news group to use the news reply mode.  Use the browser button to go back."
  9.  L_ENTERSEARCHFREQ_StaticText    = "The search frequency must be a number.  Use the browser button to go back."
  10.  
  11.  rem END LOCALIZATION
  12.  
  13.  %>
  14.  
  15. <!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML//EN">
  16. <html>
  17.  
  18. <head>
  19. <meta http-equiv="Content-Type"
  20. content="text/html; charset=iso-8859-1">
  21. <meta name="GENERATOR" content="Microsoft FrontPage 2.0">
  22. <title><%= L_PAGETITLE_HTMLTitle %></title>
  23. </head>
  24. <body background="images\gnback.gif" text="white">
  25. <%if IsNumeric( Request.Form("search_frequency") ) = true or Request.Form("search_frequency") = "" then%> 
  26. <%if (Request.Form("by_news") = "on" and Request.Form("news_group") <> "") or Request.Form("by_news") <> "on" then%>
  27. <%if (Request.Form("by_mail") = "on" and Request.Form("email_address") <> "") or Request.Form("by_mail") <> "on" then%>
  28. <%if Request.Form("by_mail") <> "" or Request.Form("by_news") <> "" then%>
  29. <%Set querybase = Server.CreateObject("req.req.1")%>
  30. <% set x = querybase.NewX
  31.    x.EmailAddress = Request.Form("email_address")
  32.    x.QueryString = Request.Form("query_string")
  33.    x.LastDate = Request.Form("last_date")
  34.    x.SearchFrequency = Request.Form("search_frequency")
  35.    x.Message_Template = Request.Form("message_template")
  36.    x.URL_Template = Request.Form("url_template")
  37.    x.NewsGroup = Request.Form("news_group")
  38.    if  Request.Form("by_mail") = "on" and Request.Form("by_news") = "on" then
  39.            x.ReplyMode = "both"
  40.    else
  41.           if Request.Form("by_mail") = "on" then
  42.                x.ReplyMode = "mail"
  43.        else
  44.                if Request.Form("by_news") = "on" then
  45.                    x.ReplyMode = "news"
  46.             else
  47.                 x.ReplyMode = "mail"
  48.             end if
  49.        end if
  50.    end if
  51.    querybase.Save(x)
  52. %>
  53. <p align="center"><font size="4"><strong><%= L_NEWSOFFLINESEARCH_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. </body>
  75. </html>
  76.