<%@ LCID = 3081 %> <% Response.expires = 0 Response.expiresabsolute = Now() - 1 Response.addHeader "pragma", "no-cache" Response.addHeader "cache-control", "private" Response.addHeader "cache-control", "no-cache" Response.addHeader "cache-control", "no-store" Response.CacheControl = "no-cache" %> <% ewCurSec = 0 ' Initialise ' User levels Const ewAllowAdd = 1 Const ewAllowDelete = 2 Const ewAllowEdit = 4 Const ewAllowView = 8 Const ewAllowList = 8 Const ewAllowReport = 8 Const ewAllowSearch = 8 Const ewAllowAdmin = 16 %> <% ' Initialize common variables x_EVENT_CODE = Null: ox_EVENT_CODE = Null x_EVENT_NAME = Null: ox_EVENT_NAME = Null x_EVENT_TEXT = Null: ox_EVENT_TEXT = Null x_DATE_START = Null: ox_DATE_START = Null x_DATE_END = Null: ox_DATE_END = Null x_VENUE_CODE = Null: ox_VENUE_CODE = Null x_VENUE_STATE = Null: ox_VENUE_STATE = Null x_SEATS_AVAILABLE = Null: ox_SEATS_AVAILABLE = Null x_SEATS_SOLD = Null: ox_SEATS_SOLD = Null x_PRICE = Null: ox_PRICE = Null x_DFRECNUM = Null: ox_DFRECNUM = Null %> <% Response.Buffer = True x_EVENT_CODE = Request.QueryString("EVENT_CODE") If x_EVENT_CODE = "" Or IsNull(x_EVENT_CODE) Then Response.Redirect "EVENTSlist.asp" ' Get action sAction = Request.Form("a_view") If sAction = "" Or IsNull(sAction) Then sAction = "I" ' Display with input box End If ' Open connection to the database Set conn = Server.CreateObject("ADODB.Connection") conn.Open xDb_Conn_Str Select Case sAction Case "I": ' Get a record to display If Not LoadData() Then ' Load Record based on key Session("ewmsg") = "No records found" conn.Close ' Close Connection Set conn = Nothing Response.Clear Response.Redirect "EVENTSlist.asp" End If End Select %>

View TABLE: EVENTS

Back to List  ">Edit  ">Copy  ">Delete 

EVENT CODE <% Response.Write x_EVENT_CODE %>
EVENT NAME <% Response.Write x_EVENT_NAME %>
EVENT TEXT <% Response.Write x_EVENT_TEXT %>
DATE START <% If IsDate(x_DATE_START) Then Response.Write EW_FormatDateTime(x_DATE_START,7) Else Response.Write x_DATE_START End If %>
DATE END <% If IsDate(x_DATE_END) Then Response.Write EW_FormatDateTime(x_DATE_END,7) Else Response.Write x_DATE_END End If %>
VENUE CODE <% If Not IsNull(x_VENUE_CODE) Then sSqlWrk = "SELECT [VENUE_NAME] FROM [VENUES]" sTmp = x_VENUE_CODE sSqlWrk = sSqlWrk & " WHERE [VENUE_CODE] = '" & AdjustSql(sTmp) & "'" sSqlWrk = sSqlWrk & " ORDER BY [VENUE_NAME] Asc" Set rswrk = conn.Execute(sSqlWrk) If Not rswrk.Eof Then sTmp = rswrk("VENUE_NAME") End If rswrk.Close Set rswrk = Nothing Else sTmp = Null End If ox_VENUE_CODE = x_VENUE_CODE ' Backup Original Value x_VENUE_CODE = sTmp %> <% Response.Write x_VENUE_CODE %> <% x_VENUE_CODE = ox_VENUE_CODE ' Restore Original Value %>
VENUE STATE <% Response.Write x_VENUE_STATE %>
SEATS AVAILABLE <% Response.Write x_SEATS_AVAILABLE %>
SEATS SOLD <% Response.Write x_SEATS_SOLD %>
PRICE <% Response.Write x_PRICE %>
DFRECNUM <% Response.Write x_DFRECNUM %>

<% conn.Close ' Close Connection Set conn = Nothing %> <% '------------------------------------------------------------------------------- ' Function LoadData ' - Load Data based on Key Value ' - Variables setup: field variables Function LoadData() Dim sSql, rs, sWhere, sGroupBy, sHaving, sOrderBy sSql = "SELECT * FROM [EVENTS]" sWhere = "" sGroupBy = "" sHaving = "" sOrderBy = "" If sWhere <> "" Then sWhere = sWhere & " AND " sWhere = sWhere & "([EVENT_CODE] = '" & AdjustSql(x_EVENT_CODE) & "')" sSql = sSql & " WHERE " & sWhere If sGroupBy <> "" Then sSql = sSql & " GROUP BY " & sGroupBy End If If sHaving <> "" Then sSql = sSql & " HAVING " & sHaving End If If sOrderBy <> "" Then sSql = sSql & " ORDER BY " & sOrderBy End If Set rs = Server.CreateObject("ADODB.Recordset") rs.Open sSql, conn If rs.Eof Then LoadData = False Else LoadData = True rs.MoveFirst ' Get the field contents x_EVENT_CODE = rs("EVENT_CODE") x_EVENT_NAME = rs("EVENT_NAME") x_EVENT_TEXT = rs("EVENT_TEXT") x_DATE_START = rs("DATE_START") x_DATE_END = rs("DATE_END") x_VENUE_CODE = rs("VENUE_CODE") x_VENUE_STATE = rs("VENUE_STATE") x_SEATS_AVAILABLE = rs("SEATS_AVAILABLE") x_SEATS_SOLD = rs("SEATS_SOLD") x_PRICE = rs("PRICE") x_DFRECNUM = rs("DFRECNUM") End If rs.Close Set rs = Nothing End Function %>