<%
REM localization
L_PAGETITLE_HTMLTitle = "News Offline Search Admin"
L_NEWSOFFLINESEARCH_StaticText = "Your query has been added."
L_ENTERREPLYMODE_StaticText = "You must specify at least one reply mode. Use the browser back button to go back."
L_ENTEREMAILADDRESS_StaticText = "You must specify an email address to use the email reply mode. Use the browser button to go back."
L_ENTERNEWSGROUP_StaticText = "You must specify a news group to use the news reply mode. Use the browser button to go back."
L_ENTERSEARCHFREQ_StaticText = "The search frequency must be a number. Use the browser button to go back."
rem END LOCALIZATION
%>
<%= L_PAGETITLE_HTMLTitle %>
<%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_NEWSOFFLINESEARCH_StaticText %>
<%else%>
<%end if%>
<%else%>
<%end if%>
<%else%>
<%end if%>
<%else%>
<%end if%>