Line 521: sQry = "SELECT [TOWN_Designation],[TOWN_URL],[TOWN_ID],[EVT_Event],[EVT_ID],[EVT_Date_Start],[EVT_Date_End],[EVT_Time_Start],[EVT_Time_End],[EVT_Date_Entered] FROM View_WP_Event_Diary_Latest where TOWN_ID = " & gTownID
Line 522: Dim cmd As New OleDbCommand(sQry, conn)
Line 523: Dim rdr As OleDbDataReader = cmd.ExecuteReader()
Line 524: If rdr.HasRows Then
Line 525: While (rdr.Read())
|