<% '************************************************************* ' Language subroutines ' VP-ASP 6.50 ' Sept 19, 2004 Fix open on navigate show languages '*********************************************************** '********************************************************************** ' creates dropdown list of languages '********************************************************************* Sub Navigateshowlanguages dim languages, langcount,force, conn, i, name dim currentlang, selected If getconfig("init")="" then exit sub currentlang=lcase(Getsess("language")) force="" Readlanguages languages, langcount,Force 'If langcount=0 then exit sub ' If langcount=1 then exit sub %>

<% dim url For i = 0 to langcount-1 name=languages(i) selected="" If lcase(name)=currentlang then selected=" selected=""selected""" end if url="shoplanguageset.asp?LG=" & server.urlencode(name) 'VP-ASP 6.50 - added code to cleanse URL input if request.QueryString > "" then dim urlbit, newqs, urldelim urldelim = "" newqs = "" for each urlbit in request.QueryString if cleanchars(request.QueryString(urlbit)) > "" then newqs = newqs & urldelim & urlbit & "=" & cleanchars(request.QueryString(urlbit)) urldelim = "&" end if next if right(newqs, 1) = "&" then newqs = left(newqs, len(newqs) - 1) end if if newqs > "" then url = url & "&" & newqs end if end if url=addwebsess(url) response.write "" & name & "" & vbcrlf next response.write "

" end sub '*************************************************************** ' Get languages from language file or array '***************************************************************** Sub Readlanguages (languages, langcount, force) dim cid, name,catSQL,i, conn dim maxlangs, catrs,mylink langcount=0 If getconfig("xlogonrequired")="Yes" then If getsess("login")="" then exit sub end if end if If getconfig("init")="" then exit sub end if langcount=getsess("Alllangcount") languages=getsessa("AllLanguages") If langcount="" then langcount=0 If force<>"" then langcount=0 end if If langcount=0 then maxlangs=20 redim languages(maxlangs) ShopOpenDatabase conn If not conn.state=adStateOpen then shopclosedatabase conn exit sub end if catSQL="SELECT lang from languages GROUP BY lang" set catrs=conn.execute(catsql) While Not catrs.EOF and langcount