Examples of our work

<% Response.CacheControl = "no-cache" Response.AddHeader "Pragma", "no-cache" Response.Expires = -1 %> <% Dim oConn Dim oRc Dim oRm Dim sSQL Dim sqlc Dim nFileID Dim filenum Dim tname(20) Dim tidx(20) Dim tbs(200) dim pidx(20,500) dim ptab(20,500) dim ppath(20,500) dim ppic(20,500) dim palt(20,500) dim ptitle(20,500) dim plink(20,500) 'dim pprice(500) 'dim pinumber(500) 'dim pnote(500) dim midx(20) dim mcnt(20) dim cll(20) mscnt = 0 todo = 20 msgtxt = "" qt = chr(34) for tyy = 0 to 20 midx(tyy) = 0 mcnt(tyy) = 0 Next filenum = 0 Randomize xx = 1 pxx = 1 SMPath = Server.MapPath("gallery.mdb") SMPath = Replace(SMPath,"\admin\","\") Set oConn = Server.CreateObject("ADODB.Connection") Set oRc = Server.CreateObject("ADODB.Recordset") ' Sometimes I personally have errors with one method on different servers, but the other works. ' oConn.Open "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & Server.MapPath("gallery.mdb") oConn.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & SMPath sqlc = "SELECT * FROM tabs where tpos > 0 order by tpos asc" oRc.Open sqlc, oConn , 3 , 3 rcount = oRc.RecordCount do while not oRc.EOF tname(xx) = oRc("tname") tidx(xx) = oRc("tidx") mzz = Cint(tidx(xx)) tbs(mzz) = tname(xx) midx(mzz) = 1 mcnt(mzz) = 0 cll(xx) = "" if xx = 1 then cll(xx) = "class=" & qt & "active" & qt xx = xx + 1 oRc.MoveNext loop oRc.Close sqlc = "SELECT * FROM pics order by ptab asc ,pidx asc" oRc.Open sqlc, oConn , 3 , 3 prcount = oRc.RecordCount do while not oRc.EOF ptabraw = oRc("ptab") pz = Cint(ptabraw) pidx(pz,midx(pz)) = oRc("pidx") ptab(pz,midx(pz)) = oRc("ptab") ppath(pz,midx(pz)) = oRc("ppath") ppic(pz,midx(pz)) = oRc("ppic") ' palt(pz,midx(pz)) = oRc("palt") ptitle(pz,midx(pz)) = oRc("ptitle") plink(pz,midx(pz)) = oRc("plink") ' pprice(pz,midx(pz)) = oRc("pprice") ' pinumber(pz,midx(pz)) = oRc("pinumber") ' pnote(pz,midx(pz)) = oRc("pnote") midx(pz) = midx(pz) + 1 mcnt(pz) = mcnt(pz) + 1 pxx = pxx + 1 oRc.MoveNext loop oRc.Close set oRc = nothing oConn.Close Set oConn = Nothing Set oConn = Server.CreateObject("ADODB.Connection") Set oRc = Server.CreateObject("ADODB.Recordset") ' Sometimes I personally have errors with one method on different servers, but the other works. ' oConn.Open "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & Server.MapPath("gallery.mdb") oConn.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & SMPath sqlc = "SELECT * FROM config where cfgidx = 1" oRc.Open sqlc, oConn , 3 , 3 nstab = oRc("nstab") nstext = oRc("nstext") seltext = oRc("seltext") selbackg = oRc("selbackg") picborder = oRc("picborder") picwidth = oRc("picwidth") picheight = oRc("picheight") nsbackg = oRc("nsbackg") nsborder = oRc("nsborder") boxheight = oRc("boxheight") boxwidth = oRc("boxwidth") thheight = oRc("thheight") thwidth = oRc("thwidth") boxtop = oRc("boxtop") boxside = oRc("boxside") tbwidth = oRc("tbwidth") oRc.Close set oRc = nothing oConn.Close Set oConn = Nothing %> Examples of our work

		Blue Sky Galleries

	<% for ty = 1 to rcount zdx = Cint(tidx(ty)) zname = tname(ty) %> ><%= zname %> <% for tz = 1 to (midx(zdx) -1 ) ppname = ppath(zdx,tz) & "/" & ppic(zdx,tz)%> <% next %> <% next %>
	home about Bluesky services galleries design landscape hardscape maintenance garden tips jobs