<%@ 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 ' Load key from QueryString bCopy = True x_EVENT_CODE = Request.QueryString("EVENT_CODE") If x_EVENT_CODE = "" Or IsNull(x_EVENT_CODE) Then bCopy = False End If ' Get action sAction = Request.Form("a_add") If (sAction = "" Or IsNull(sAction)) Then If bCopy Then sAction = "C" ' Copy record Else sAction = "I" ' Display blank record End If Else ' Get fields from form x_EVENT_CODE = Request.Form("x_EVENT_CODE") x_EVENT_NAME = Request.Form("x_EVENT_NAME") x_EVENT_TEXT = Request.Form("x_EVENT_TEXT") x_DATE_START = Request.Form("x_DATE_START") x_DATE_END = Request.Form("x_DATE_END") x_VENUE_CODE = Request.Form("x_VENUE_CODE") x_VENUE_STATE = Request.Form("x_VENUE_STATE") x_SEATS_AVAILABLE = Request.Form("x_SEATS_AVAILABLE") x_SEATS_SOLD = Request.Form("x_SEATS_SOLD") x_PRICE = Request.Form("x_PRICE") x_DFRECNUM = Request.Form("x_DFRECNUM") End If ' Open connection to the database Set conn = Server.CreateObject("ADODB.Connection") conn.Open xDb_Conn_Str Select Case sAction Case "C": ' 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 Case "A": ' Add If AddData() Then ' Add New Record Session("ewmsg") = "Add New Record Successful" conn.Close ' Close Connection Set conn = Nothing Response.Clear Response.Redirect "EVENTSlist.asp" Else End If End Select %>

Add to TABLE: EVENTS

Back to List

<% If Session("ewmsg") <> "" Then %>

<%= Session("ewmsg") %>

<% Session("ewmsg") = "" ' Clear message End If %>
EVENT CODE ">
EVENT NAME ">
EVENT TEXT ">
DATE START
DATE END
VENUE CODE <% x_VENUE_CODEList = "" Response.Write x_VENUE_CODEList %>
VENUE STATE ">
SEATS AVAILABLE ">
SEATS SOLD ">
PRICE ">

<% 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 %> <% '------------------------------------------------------------------------------- ' Function AddData ' - Add Data ' - Variables used: field variables Function AddData() Dim sSql, rs, sWhere, sGroupBy, sHaving, sOrderBy Dim bCheckKey, sSqlChk, sWhereChk sSql = "SELECT * FROM [EVENTS]" sWhere = "" sGroupBy = "" sHaving = "" sOrderBy = "" ' Check for duplicate key bCheckKey = True sWhereChk = sWhere If x_EVENT_CODE = "" Or IsNull(x_EVENT_CODE) Then bCheckKey = False Else If sWhereChk <> "" Then sWhereChk = sWhereChk & " AND " sWhereChk = sWhereChk & "([EVENT_CODE] = '" & AdjustSql(x_EVENT_CODE) & "')" End If If bCheckKey Then sSqlChk = sSql & " WHERE " & sWhereChk Set rsChk = conn.Execute(sSqlChk) If Not rsChk.Eof Then Session("ewmsg") = "Duplicate value for primary key" rsChk.Close Set rsChk = Nothing AddData = False Exit Function End If rsChk.Close Set rsChk = Nothing End If ' Add New Record If sWhere <> "" Then sWhere = sWhere & " AND " sWhere = sWhere & "(0 = 1)" 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.CursorLocation = 3 rs.Open sSql, conn, 1, 2 rs.AddNew ' Field EVENT_CODE sTmp = Trim(x_EVENT_CODE) If Trim(sTmp) = "" Then sTmp = "" rs("EVENT_CODE") = sTmp ' Field EVENT_NAME sTmp = Trim(x_EVENT_NAME) If Trim(sTmp) = "" Then sTmp = "" rs("EVENT_NAME") = sTmp ' Field EVENT_TEXT sTmp = Trim(x_EVENT_TEXT) If Trim(sTmp) = "" Then sTmp = "" rs("EVENT_TEXT") = sTmp ' Field DATE_START sTmp = EW_UnFormatDateTime(x_DATE_START,7) If IsDate(sTmp) Then rs("DATE_START") = CDate(sTmp) Else rs("DATE_START") = Now End If ' Field DATE_END sTmp = EW_UnFormatDateTime(x_DATE_END,7) If IsDate(sTmp) Then rs("DATE_END") = CDate(sTmp) Else rs("DATE_END") = Now End If ' Field VENUE_CODE sTmp = Trim(x_VENUE_CODE) If Trim(sTmp) = "" Then sTmp = "" rs("VENUE_CODE") = sTmp ' Field VENUE_STATE sTmp = Trim(x_VENUE_STATE) If Trim(sTmp) = "" Then sTmp = "" rs("VENUE_STATE") = sTmp ' Field SEATS_AVAILABLE sTmp = x_SEATS_AVAILABLE If Not IsNumeric(sTmp) Then sTmp = 0 Else sTmp = CLng(sTmp) End If rs("SEATS_AVAILABLE") = sTmp ' Field SEATS_SOLD sTmp = x_SEATS_SOLD If Not IsNumeric(sTmp) Then sTmp = 0 Else sTmp = CLng(sTmp) End If rs("SEATS_SOLD") = sTmp ' Field PRICE sTmp = x_PRICE If Not IsNumeric(sTmp) Then sTmp = 0 Else sTmp = cDbl(sTmp) End If rs("PRICE") = sTmp rs.Update rs.Close Set rs = Nothing AddData = True End Function %>