Hi Boris,
You'll need to add an additional section for each of the querystring attributes that affect the headers.
eg. If your custompage.asp script displays different content based on the value of the par variable, you'd probably want to update the script like:
<%
'SET THE META TAGS FOR NON STANDARD PAGES
dim currenturl, compareurl, qsvar
currenturl = request.ServerVariables("URL")
compareurl = mid(currenturl, InStrRev(currenturl, "/")+1)
qsvar = cleanchars(request.querystring("par"))
if lcase(compareurl) = "custompage.asp" then
if qsvar = "value1" then
setsess "dynamictitle", "TITLE"
setsess "dynamicdescription", "DESCRIPTION"
setsess "dynamickeywords", "KEYWORDS"
elseif qsvar = "value2" then
setsess "dynamictitle", "TITLE"
setsess "dynamicdescription", "DESCRIPTION"
setsess "dynamickeywords", "KEYWORDS"
else
setsess "dynamictitle", "TITLE"
setsess "dynamicdescription", "DESCRIPTION"
setsess "dynamickeywords", "KEYWORDS"
end if
end if
%>
Hope this helps.
Regards
Michael Dunkley
Creative Chaos
http://www.creativechaos.com.au