<% dim db, rs, tempsql Set db = Server.CreateObject("ADODB.Connection") db.Open "DSN=occontractor", "occontractor", "scopas" ' 'Update Clients Post Due Number ' Set rs = Server.CreateObject("ADODB.Recordset") tempsql = "SELECT * FROM pic" rs.Open tempsql,db,2,3,1 %> OC Contractor - Orange County Bathroom Remodeling Contractor Since 1972, Photo Gallery

Click Photo to Enlarge


<% Dim nextline, todisplay, endof todisplay = 4 nextline = 0 endof = 0 %> <%do while not rs.eof%> <% endof = endof + 1 %> <% If nextline = todisplay Then %> <% nextline = 0 %> <% End If %> <% nextline = nextline + 1 %> <% rs.MoveNext %> <% loop %>
 
" title="<%response.Write(rs("pic_title"))%>">" alt="<%response.Write(rs("pic_title"))%>" width="90" height="90" class="img_border" />