<%
L_PAGETITLETXT = "Edit News Offline Search"
L_QUERYRESULTTXT ="Your query has been updated."
L_QUERYFAILEDTXT = "Your query has been deleted."
%>
<%= L_PAGETITLETXT %>
<%if Request.Form("editdelete") = "edit" then%>
<%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 guid = session("guid")%>
<% set x = querybase.ItemX(guid)
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_QUERYRESULTTXT %>
<%else%>
<%end if%>
<%else%>
<%end if%>
<%else%>
<%end if%>
<%else%>
<%end if%>
<%else
set querybase=Server.CreateObject("req.req.1")
set guid=session("guid")
querybase.Delete(guid)%>
<%= L_QUERYFAILEDTXT %>
<%end if%>