<%
id=request.QueryString("id")
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%>
|
<%
ctr=ctr+1
rsLanguages.movenext
loop
set rsLanguages=nothing
%>
|