<%
id=request.QueryString("id")
if id=""then
id=1
end if
Set rsLanguages = Server.CreateObject("ADODB.Recordset")
rsLanguages.ActiveConnection = con_string
strlanguages="select * from Languages order by view_order"
rsLanguages.Source = strlanguages
rsLanguages.CursorType = 0
rsLanguages.CursorLocation = 2
rsLanguages.LockType = 1
rsLanguages.Open()
ctr=1
do while not rsLanguages.eof
Set rsHomepage = Server.CreateObject("ADODB.Recordset")
rsHomepage.ActiveConnection = con_string
strhome="SELECT Top_Navigation.id,Top_Navigation.isHomePage, Top_Navigation.language_id FROM Top_Navigation WHERE (((Top_Navigation.isHomePage)=True) AND ((Top_Navigation.language_id)="&rsLanguages("id")&"));"
rsHomepage.Source = strhome
rsHomepage.CursorType = 0
rsHomepage.CursorLocation = 1
rsHomepage.LockType = 1
rsHomepage.Open()
if not rsHomePage.eof then
id=rshomepage("id")
else
id=1
end if
set rshomepage=nothing
%>
|
<%
ctr=ctr+1
rsLanguages.movenext
loop
set rsLanguages=nothing
%>
|