<% 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 %>

<%=Wallpapers%>

<%=wallpapertitle%>

<%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 rswall.movenext loop set rswall=nothing %>