i have change this and i get this noe
Microsoft VBScript compilation error '800a0401'
Expected end of statement
/test/inc_functions.asp, line 43
strTempScript = lcase(strTempScript)Select Case strTempScriptCase "topic.asp"strTempTopic = request.querystring("TOPIC_ID")if not(strTempTopic = "") then
------------------------------------^
this is the line 43 ...
strTempScript = arrTempScript(Ubound(arrTempScript))
strTempScript = lcase(strTempScript)Select Case strTempScriptCase "topic.asp"strTempTopic = request.querystring("TOPIC_ID")if not(strTempTopic = "") then <------- line 43
if request.querystring("archive") = "true" then