<%
REM localization
L_PAGETITLETXT = "News Offline Search Admin"
L_NEWSOFFLINESEARCHTXT = "Your query has been added."
rem END LOCALIZATION
%>
<%= L_PAGETITLETXT %>
<%if IsNumeric( Request.Form("search_frequency") ) = true or Request.Form("search_frequency") = "" then%>
<%if (Request.Form("by_news") = "on" and Request.Form("news_group") <> "") or Request.Form("by_news") <> "on" then%>
<%if (Request.Form("by_mail") = "on" and Request.Form("email_address") <> "") or Request.Form("by_mail") <> "on" then%>
<%if Request.Form("by_mail") <> "" or Request.Form("by_news") <> "" then%>
<%Set querybase = Server.CreateObject("req.req.1")%>
<% set x = querybase.NewX
x.EmailAddress = Request.Form("email_address")
x.QueryString = Request.Form("query_string")
x.LastDate = Request.Form("last_date")
x.SearchFrequency = Request.Form("search_frequency")
x.Message_Template = Request.Form("message_template")
x.URL_Template = Request.Form("url_template")
x.NewsGroup = Request.Form("news_group")
if Request.Form("by_mail") = "on" and Request.Form("by_news") = "on" then
x.ReplyMode = "both"
else
if Request.Form("by_mail") = "on" then
x.ReplyMode = "mail"
else
if Request.Form("by_news") = "on" then
x.ReplyMode = "news"
else
x.ReplyMode = "mail"
end if
end if
end if
querybase.Save(x)
%>
<%= L_NEWSOFFLINESEARCHTXT %>
<%else%>
<%end if%>
<%else%>
<%end if%>
<%else%>
<%end if%>
<%else%>
<%end if%>