<%@ 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 "PR2002", 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

Press Releases - 2002

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

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

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

<% objRecordset.Close Set objRecordset = Nothing %>