Plastic Surgery Before and After Photos

<% Dim conn, rs set conn = Server.CreateObject("ADODB.Connection") conn.open = "DRIVER={MySQL ODBC 3.51 Driver}; SERVER=galjoomladrivant.db.7427245.hostedresource.com; DATABASE=galjoomladrivant; UID=galjoomladrivant;PWD=Intact123; OPTION=35;" Set rs = Server.CreateObject("ADODB.Recordset") %> <% dim n,x,pages set st = Request.QueryString("st") set n=12 set cat = Request.QueryString("Cat") strSQL = "select * from images where category=" & cat set rs = conn.Execute(strSQL) set x=Eval((Int(st)-1)*n+1) set pages=Round(rs.MaxRecords/int(n)) strSQL = "select * from category where id=" & cat set rs = conn.Execute(strSQL) %>

Photos for: <%= rs.Fields("title")%>

<% if Int(st)>1 then Response.Write("")%>
<% if cInt(pages>cInt(st)) Then Response.Write("")%>
Pages: <% if Int(st)>1 then Response.Write("" & << & " ")%> <% if Int(pages)>1 then for i=1 to pages Response.Write("" & Int(i) & " " ) next if Int(pages)>Int(st) then Response.Write("" & >> & "") %>

" & rs.Fields("title") & "

" s2 = "
" s3 = "" & rs.Fields("title") & "

") set p = 0 end if set p = p + 1 set x = x + 1 rs.MoveNext loop rs.close conn.close ' Close database connection set rs = nothing set conn = nothing 'obj variable released %>

Photo List Contact Us

ABC 7 Beverly Hills Tummy Tuck Misconceptions Women's Health