<% Set rswall = Server.CreateObject("ADODB.Recordset") rswall.ActiveConnection = con_string strlang="select * FROM Wall_Papers" rswall.Source = strlang rswall.CursorType = 0 rswall.CursorLocation = 2 rswall.LockType = 1 rswall.Open() ctr=0 ctrall=1 %>

<%=Wallpapers%>

<%do until rswall.eof%> <%if ctr=0 then%>

<%end if%> " target="_blank">" alt="" /> <% if ctr=2 then ctr=0%>

<%else ctr=ctr+1 end if if ctrall>=6 then exit do end if ctrall=ctrall+1 rswall.movenext loop if ctrall>=6 then%>

<%=More_Wall_Papers%>

<%end if %>