<% Response.Write(" " & chr(13) & chr(10)) Response.Write "" & chr(13) & chr(10) Response.Write "" & chr(13) & chr(10) Response.Write "" & chr(13) & chr(10) Dim cst cst = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" Dim strPath strPath=LCase(Server.MapPath("database\Decoform.mdb")) cst = cst & strPath Dim adoConnection Set adoConnection = Server.CreateObject("ADODB.Connection") adoConnection.ConnectionString=cst adoConnection.Open dim i Dim obco 'Set adoConnection = Server.CreateObject("ADODB.Connection") 'adoConnection.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Development\Mediamax\Decoform\Database\Decoform.mdb;Persist Security Info=False" 'adoConnection.Open Set obco=Server.CreateObject("ADODB.Recordset") set obco.ActiveConnection= adoConnection obco.Open "SELECT Project_id,ProjectName FROM Project " ,adoConnection obco.MoveFirst i=1 while i<=9 while not obco.EOF and i<=9 Response.Write(" " & chr(13) & chr(10)) if CInt(Request.QueryString("id")) = obco.Fields("project_id").Value then Response.Write "" & chr(13) & chr(10) Response.Write "" & chr(13) & chr(10) Response.Write "" & chr(13) & chr(10) Response.Write "" & chr(13) & chr(10) obco.MoveNext i=i+1 wend if i<=9 then Response.Write(" " & chr(13) & chr(10)) Response.Write "" & chr(13) & chr(10) Response.Write "" & chr(13) & chr(10) Response.Write "" & chr(13) & chr(10) end if i=i+1 wend obco.Close set obco=nothing %>
" & chr(13) & chr(10) Response.Write "" & chr(13) & chr(10) Response.Write "
" & chr(13) & chr(10) Response.Write "" & obco.Fields("ProjectName").Value & "" & chr(13) & chr(10) else Response.Write "" & chr(13) & chr(10) Response.Write "" & obco.Fields("ProjectName").Value & "" & chr(13) & chr(10) end if Response.Write "
" & chr(13) & chr(10) Response.Write "" & chr(13) & chr(10) Response.Write "
 <%if not Request.QueryString("id")="" then %>
<% Dim rsThumbNails if not Request.QueryString("id") = "" then Response.Write "" Set rsThumbNails=Server.CreateObject("ADODB.Recordset") rsThumbNails.Open "Select count(*) as iRows from Gallery where project_id=" & Request.QueryString("id"),adoConnection RecordCount=rsThumbNails.Fields("iRows").Value if RecordCount>0 then rsThumbNails.Close rsThumbNails.Open "Select * from Gallery where project_id=" & Request.QueryString("id"),adoConnection dim iRows dim iCols if RecordCount>6 then RecordCount=6 end if if RecordCount<3 then iCols=RecordCount iRows=1 else iCols=3 end if dim j j=1 rsThumbNails.MoveFirst for i=1 to RecordCount Response.Write "" & chr(13) & chr(10) rsThumbNails.MoveNext j=j+1 if j>iCols then j=1 Response.Write "" & chr(13) & Chr(10) & "" end if next Response.Write "" & chr(13) & Chr(10) end if rsThumbNails.Close set rsThumbNails=nothing end if %> <%if not Request.QueryString("photoid")="" then %> <%else if not Request.QueryString("id")="" then %> <%end if end if%>
" Response.Write "" Response.Write "" & "

Click large picture on right for more detail.

Click on any thumbnail above for larger picture.
<% Dim rsPhoto if not Request.QueryString("photoid") = "" then Set rsPhoto=Server.CreateObject("ADODB.Recordset") rsPhoto.Open "Select * from Gallery where gallery_id=" & Request.QueryString("photoid"),adoConnection if not rsPhoto.EOF then Response.Write " " Response.Write "" & chr(13) & chr(10) Response.Write "" & "" & chr(13) & chr(10) Response.Write "" & chr(13) & Chr(10) end if rsPhoto.Close set rsPhoto=nothing else if not Request.QueryString("id")="" then Dim rsProject Set rsProject=Server.CreateObject("ADODB.Recordset") rsProject.Open "Select * from Project where project_id=" & Request.QueryString("id"),adoConnection if not rsProject.EOF then Response.Write " " Response.Write "" & chr(13) & Chr(10) end if rsProject.Close set rsProject=nothing end if end if adoConnection.Close set adoConnection=nothing %>
" 'Response.Write "" & "
" Response.Write "

" & rsPhoto.Fields("BigLegend").value & "

" Response.Write "

" & rsProject.Fields("GeneralDescription").Value & "
<%else Dim rsProjectFirst Dim fromRecNo Dim iRecCount Dim ii set rsProjectFirst=Server.CreateObject("ADODB.Recordset") rsProjectFirst.Open "Select * from ProjectFirst",adoConnection,2,3 if Request.QueryString("FROM")="" then fromRecNo=1 else fromRecNo=Cint(Request.QueryString("FROM")) end if %> <%if not (rsProjectFirst.BOF and rsProjectFirst.EOF) then %> <% rsProjectFirst.MoveFirst iRecCount=0 while not rsProjectFirst.EOF iRecCount=iRecCount+1 rsProjectFirst.MoveNext wend rsProjectFirst.MoveFirst for ii=1 to fromRecNo-1 rsProjectFirst.MoveNext next %> <%rsProjectFirst.MoveNext if not rsProjectFirst.EOF then%> <% rsProjectFirst.MoveNext else%> <%end if%> <% if not rsProjectFirst.EOF then%> <%else%> <%end if%> <% rsProjectFirst.MoveFirst for ii=1 to fromRecNo-1 rsProjectFirst.MoveNext next %> <%if not rsProjectFirst.EOF then %> <% rsProjectFirst.MoveNext else%> <%end if%> <%if not rsProjectFirst.EOF then %> <% rsProjectFirst.MoveNext else%> <%end if%> <%if not rsProjectFirst.EOF then %> <% rsProjectFirst.MoveNext else%> <%end if%> <%end if%>
">" width=150>">" width=150>">" width=150>
<%=rsProjectFirst.Fields("Title").Value%>
<%=rsProjectFirst.Fields("Comments").Value%>
 
 
<%=rsProjectFirst.Fields("Title").Value%>
<%=rsProjectFirst.Fields("Comments").Value%>
 
 
<%=rsProjectFirst.Fields("Title").Value%>
<%=rsProjectFirst.Fields("Comments").Value%>
 
 
<%if (fromRecNo-3)> 0 then%> Previous <%end if%> <%if (fromRecNo+3)<=iRecCount then %> Next <%end if%>
<%end if%>
Client Login