<%
'*************************************************************
' Language subroutines
' VP-ASP 5.0
' May 9, 2003 demo version
'***********************************************************
'**********************************************************************
' creates dropdown list of languages
'*********************************************************************
Sub Navigateshowlanguages
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("langcount")
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
  catSQL="SELECT lang from languages GROUP BY lang"
  set catrs=conn.execute(catsql)
  While Not catrs.EOF and langcount<maxlangs
   name=catrs("lang")
   languages(langcount)=name
   langcount=langcount+1
   catrs.MoveNext
  Wend
  setsessa "AllLanguages",languages
  setsess "AllLangCount",langcount
  catrs.Close
  set catrs=nothing
  ShopCloseDatabase conn
end if
end sub
%>