<% Response.buffer = True inTP = Request("TP") inID = Request("ID") inKW = Request("KW") inLang = Request("Lang") inLNG = Request("LNG") inTitle = Request("Title") inSubTitle = Request("SubTitle") %>

<% GetRows inID, inKW, "", inLang, "", "", "", 7, 1000, "", "", "D", "" %>
<% if len(inSubTitle) > 0 then Response.Write " " & inSubTitle %>