<%@ LANGUAGE=VBSCRIPT %> <%Option Explicit%> <% Dim MyName Dim DB_CONNECTIONSTRING Dim objRecordset Dim EventToShow %> <% MyName = Session("Firstname") & " " & Session("LastName") DB_CONNECTIONSTRING = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.Mappath("/restricted/db/ruthweb.mdb") & ";" Set objRecordset = Server.CreateObject("ADODB.Recordset") objRecordset.Open "PR2008", DB_CONNECTIONSTRING, adOpenStatic, adLockPessimistic, adCmdTable EventToShow = CInt(Request.QueryString("ID")) If Not objRecordset.EOF Then objRecordset.MoveFirst Do Until objRecordset.Fields("ID") = EventToShow objRecordset.MoveNext Loop End If Session("EventToEdit") = EventToShow %> Press Releases 2008

Press Releases - 2008

Home Page > Press Releases: <%= objRecordset.Fields("pressTitle") %>

Date <%= objRecordset.Fields("pressDate") %>

<%= objRecordset.Fields("pressContent") %>

<% objRecordset.Close Set objRecordset = Nothing %>