<% 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("" & >> & "") %>
    <% strSQL = "select * from images where category=" & cat & "order by display_order,title limit " & "." & cInt(st-1)*n & "." & "," & n; set rs = conn.Execute(strSQL) set p = 1 Do while not rs.eof 'Response.Write("" & rs.Fields("title") & "") set s1 = nothing set s2 = nothing set s3 = nothing set s4 = nothing s1 = "
  • " s2 = "" & rs.Fields("title") & "
    " s3 = "" & rs.Fields("title") & "
  • " Response.Write(s1 & s2 & s3) if p=3 Then Response.Write("

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



Rhinoplasty (nose reshaping) "My Experience...(more)

Mastopexy (breast lift) "I felt as if...(more)

Breast Augmentation (breast implants) "I am absolutely...(more)

Abdominoplasty (tummy tuck) "The quality of...(more)

Exoderm (non surgical face lift) "Before the exoderm...(more)

Read All


VI PEEL... Specials!

The effective weekend peel that addresses sun damage, acne scars and much much more... (Read More)

Los Angeles / Beverly Hills
9025 Wilshire Blvd., Suite 203
Beverly Hills, CA 90211
Tel: (310) 203-8297
Map & Directions

Lancaster
1629 W. Avenue J, Suite 107
Lancaster, CA 93534
Tel: (661) 949-0404
Map & Directions