Sub Page_Load(s as object, e as eventargs)
  dim objConn as new OleDBConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:/inetpub/wwwroot/fpstudents/team2/IUser/girlscouts.mdb;")
  dim cmdEvent As OleDbCommand
  dim intEventID As Int16 = Request.QueryString("ID") 'Event ID is passed in the querystring from the search1.aspx page
  dim strgetEvent As String = "Select Evt_ID, Evt_title, Evt_date, Evt_time, Evt_loc, Evt_street, Evt_city, Evt_state, Evt_zip, Evt_troop, evt_phnum, evt_descript, evt_Comments from EventTable where Evt_ID =@Eventid"
  dim objReader As OleDBDataReader  
  		
  objConn.open
  cmdEvent= New OleDbCommand(strgetEvent, objConn)
  cmdEvent.Parameters.Add("@Eventid", intEventID)
  objReader = cmdEvent.ExecuteReader
	  		
  While objReader.Read() 
	 lblEventID.Text = objReader("Evt_ID")
	 lblTroop.Text = objReader("evt_troop")
	 lblTitle.Text = objReader("evt_title")
	 lblDate.Text = objReader("evt_Date")
	 lblTime.Text = objReader("evt_Time")
	 lblLoc.Text = objReader("evt_Loc")
  	 lblAddress.Text = objReader("evt_street")
	 lblCity.Text = objReader("evt_City")
	 lblState.Text = objReader("evt_State")
	 lblZip.Text = objReader("evt_zip")
	 lblPhone.Text = objReader("evt_Phnum")
	 lblDescription.Text = objReader("evt_Descript")
	 lblComments.Text = objReader("evt_Comments")
  End while
	
  objReader.Close()
  objConn.Close()
  objConn = Nothing	
End Sub

<form name="form1" runat="server">
  Search Results
        Event Id <asp:Label id="lblEventID" runat="server"/>
	Troop #  <asp:Label id="lbltroop" runat="server"/>
	Title	 <asp:Label id="lblTitle" runat="server"/>
	Date (mm/dd/yyyy)  <asp:Label id="lblDate" runat="server"/>
	Time (hh:mm)	<asp:Label id="lblTime" runat="server"/>
	Location	<asp:Label id="lblLoc" runat="server"/>
	Address	  <asp:Label id="lblAddress" runat="server"/>
	City	  <asp:Label id="lblCity" runat="server"/>
	State	  <asp:Label id="lblState" runat="server"/>
	Zip Code  <asp:Label id="lblZip" runat="server"/>
	Phone Number	<asp:Label id="lblPhone" runat="server"/>
	Description	 <asp:Label id="lblDescription" runat="server"/>
	Comments (optional) <asp:Label id="lblComments" runat="server"/> 
  </form>