Home

Photos

Today

<% Function FormatStr(Str) Str="" & Str Str=Replace(Str, CHR(13), "") Str=Replace(Str, CHR(10) & CHR(10),"

") Str=Replace(Str, CHR(10), "
") FormatStr = Str End Function 'Dimension variables Dim adoCon 'Holds the Database Connection Object Dim rsGallery 'Holds the recordset for the records in the database Dim strSQL 'Holds the SQL query to query the database Set adoCon = Server.CreateObject("ADODB.Connection") adoCon.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../data/quonset2005.mdb") Set rsGallery = Server.CreateObject("ADODB.Recordset") xID = Request.QueryString("id") If xID <> "" then %>

back to Today
<% strSQL = "SELECT * FROM Gallery WHERE ID =" & xID & ";" rsGallery.Open strSQL, adoCon if not rsGallery.EOF then %>
.jpg" />

<%=rsGallery("Title")%>
<% if rsGallery("Location") <> "" Then Response.Write (rsGallery("Location") & "
") end if xDesc = FormatStr(rsGallery("Description")) if xDesc <> "" Then Response.Write (xDesc & "
") end if if rsGallery("Credit") <> "" Then Response.Write ("" & rsGallery("Credit") & "
") end if end if Else %>

War Era | Today
<% strSQL = "SELECT * FROM Gallery WHERE Category = 'today' AND Active = true;" rsGallery.Open strSQL, adoCon Do While not rsGallery.EOF 'Response.Write ("
") %> <% rsGallery.MoveNext Loop End If 'Reset server objects rsGallery.Close Set rsGallery = Nothing Set adoCon = Nothing %>