<%@ CodePage=65001 %> <% Const EW_PAGE_ID = "view" Const EW_TABLE_NAME = "Clubs" %> <% Session.Timeout = 100 %> <% Response.Expires = 0 Response.ExpiresAbsolute = Now() - 1 Response.AddHeader "pragma", "no-cache" Response.AddHeader "cache-control", "private, no-cache, no-store, must-revalidate" %> <% ' Open connection to the database Dim conn Set conn = Server.CreateObject("ADODB.Connection") conn.Open EW_DB_CONNECTION_STRING %> <% Dim Security Set Security = New cAdvancedSecurity %> <% If Not Security.IsLoggedIn() Then Call Security.AutoLogin() If Not Security.IsLoggedIn() Then Call Security.SaveLastUrl() Call Page_Terminate("login.asp") End If %> <% ' Common page loading event (in userfn60.asp) Call Page_Loading() %> <% ' Page load event, used in current page Call Page_Load() %> <% Response.Buffer = True If Request.QueryString("ID").Count > 0 Then Clubs.ID.QueryStringValue = Request.QueryString("ID") Else Call Page_Terminate("Clubslist.asp") ' Return to list page End If ' Get action If Request.Form("a_view").Count > 0 Then Clubs.CurrentAction = Request.Form("a_view") Else Clubs.CurrentAction = "I" ' Display form End If Select Case Clubs.CurrentAction Case "I" ' Get a record to display If Not LoadRow() Then ' Load record based on key Session(EW_SESSION_MESSAGE) = "No records found" ' Set no record message Call Page_Terminate("Clubslist.asp") ' Return to list End If End Select ' Set return url Clubs.ReturnUrl = "Clubsview.asp" ' Render row Clubs.RowType = EW_ROWTYPE_VIEW Call RenderRow() %>

View TABLE: Clubs

Back to List  <% If Security.IsLoggedIn() Then %> Add  <% End If %> <% If Security.IsLoggedIn() Then %> Edit  <% End If %> <% If Security.IsLoggedIn() Then %> Copy  <% End If %> <% If Security.IsLoggedIn() Then %> Delete  <% End If %>

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

<%= Session(EW_SESSION_MESSAGE) %>

<% Session(EW_SESSION_MESSAGE) = "" ' Clear message End If %>

> ><%= Clubs.ID.ViewValue %> > ><%= Clubs.Name.ViewValue %> > ><%= Clubs.City.ViewValue %> > ><%= Clubs.Country.ViewValue %> > ><%= Clubs.Email.ViewValue %> > ><%= Clubs.Contact_Person.ViewValue %> > ><%= Clubs.Telephone.ViewValue %> > ><%= Clubs.Mobile.ViewValue %> > ><%= Clubs.Address.ViewValue %> > ><%= Clubs.Fax.ViewValue %>
ID
Name
City
Country
Email
Contact Person
Telephone
Mobile
Address
Fax

<% ' If control is passed here, simply terminate the page without redirect Call Page_Terminate("") ' ----------------------------------------------------------------- ' Subroutine Page_Terminate ' - called when exit page ' - clean up ADO connection and objects ' - if url specified, redirect to url, otherwise end response ' Sub Page_Terminate(url) ' Page unload event, used in current page Call Page_Unload() ' Global page unloaded event (in userfn60.asp) Call Page_Unloaded() conn.Close ' Close Connection Set conn = Nothing Set Security = Nothing Set Clubs = Nothing ' Go to url if specified If url <> "" Then Response.Clear Response.Redirect url End If ' Terminate response Response.End End Sub ' ' Subroutine Page_Terminate (End) ' ---------------------------------------- %> <% ' Load row based on key values Function LoadRow() Dim rs, sSql, sFilter sFilter = Clubs.SqlKeyFilter If Not IsNumeric(Clubs.ID.CurrentValue) Then LoadRow = False ' Invalid key, exit Exit Function End If sFilter = Replace(sFilter, "@ID@", ew_AdjustSql(Clubs.ID.CurrentValue)) ' Replace key value ' Call Row Selecting event Call Clubs.Row_Selecting(sFilter) ' Load sql based on filter Clubs.CurrentFilter = sFilter sSql = Clubs.SQL Set rs = Server.CreateObject("ADODB.Recordset") rs.Open sSql, conn If rs.Eof Then LoadRow = False Else LoadRow = True rs.MoveFirst Call LoadRowValues(rs) ' Load row values ' Call Row Selected event Call Clubs.Row_Selected(rs) End If rs.Close Set rs = Nothing End Function ' Load row values from recordset Sub LoadRowValues(rs) Clubs.ID.DbValue = rs("ID") Clubs.Name.DbValue = rs("Name") Clubs.City.DbValue = rs("City") Clubs.Country.DbValue = rs("Country") Clubs.Email.DbValue = rs("Email") Clubs.Contact_Person.DbValue = rs("Contact_Person") Clubs.Telephone.DbValue = rs("Telephone") Clubs.Mobile.DbValue = rs("Mobile") Clubs.Address.DbValue = rs("Address") Clubs.Fax.DbValue = rs("Fax") End Sub %> <% ' Render row values based on field settings Sub RenderRow() ' Call Row Rendering event Call Clubs.Row_Rendering() ' Common render codes for all row types ' ID Clubs.ID.CellCssStyle = "" Clubs.ID.CellCssClass = "" ' Name Clubs.Name.CellCssStyle = "" Clubs.Name.CellCssClass = "" ' City Clubs.City.CellCssStyle = "" Clubs.City.CellCssClass = "" ' Country Clubs.Country.CellCssStyle = "" Clubs.Country.CellCssClass = "" ' Email Clubs.Email.CellCssStyle = "" Clubs.Email.CellCssClass = "" ' Contact_Person Clubs.Contact_Person.CellCssStyle = "" Clubs.Contact_Person.CellCssClass = "" ' Telephone Clubs.Telephone.CellCssStyle = "" Clubs.Telephone.CellCssClass = "" ' Mobile Clubs.Mobile.CellCssStyle = "" Clubs.Mobile.CellCssClass = "" ' Address Clubs.Address.CellCssStyle = "" Clubs.Address.CellCssClass = "" ' Fax Clubs.Fax.CellCssStyle = "" Clubs.Fax.CellCssClass = "" If Clubs.RowType = EW_ROWTYPE_VIEW Then ' View row ' ID Clubs.ID.ViewValue = Clubs.ID.CurrentValue Clubs.ID.CssStyle = "" Clubs.ID.CssClass = "" Clubs.ID.ViewCustomAttributes = "" ' Name Clubs.Name.ViewValue = Clubs.Name.CurrentValue Clubs.Name.CssStyle = "" Clubs.Name.CssClass = "" Clubs.Name.ViewCustomAttributes = "" ' City Clubs.City.ViewValue = Clubs.City.CurrentValue Clubs.City.CssStyle = "" Clubs.City.CssClass = "" Clubs.City.ViewCustomAttributes = "" ' Country If Not IsNull(Clubs.Country.CurrentValue) And Clubs.Country.CurrentValue <> "" Then sSqlWrk = "SELECT [countryname] FROM [Countrylist] WHERE [ID] = " & ew_AdjustSql(Clubs.Country.CurrentValue) & "" sSqlWrk = sSqlWrk & " ORDER BY [countryname] Asc" Set rswrk = conn.Execute(sSqlWrk) If Not rswrk.Eof Then Clubs.Country.ViewValue = rswrk("countryname") Else Clubs.Country.ViewValue = Clubs.Country.CurrentValue End If rswrk.Close Set rswrk = Nothing Else Clubs.Country.ViewValue = Null End If Clubs.Country.CssStyle = "" Clubs.Country.CssClass = "" Clubs.Country.ViewCustomAttributes = "" ' Email Clubs.Email.ViewValue = Clubs.Email.CurrentValue Clubs.Email.CssStyle = "" Clubs.Email.CssClass = "" Clubs.Email.ViewCustomAttributes = "" ' Contact_Person Clubs.Contact_Person.ViewValue = Clubs.Contact_Person.CurrentValue Clubs.Contact_Person.CssStyle = "" Clubs.Contact_Person.CssClass = "" Clubs.Contact_Person.ViewCustomAttributes = "" ' Telephone Clubs.Telephone.ViewValue = Clubs.Telephone.CurrentValue Clubs.Telephone.CssStyle = "" Clubs.Telephone.CssClass = "" Clubs.Telephone.ViewCustomAttributes = "" ' Mobile Clubs.Mobile.ViewValue = Clubs.Mobile.CurrentValue Clubs.Mobile.CssStyle = "" Clubs.Mobile.CssClass = "" Clubs.Mobile.ViewCustomAttributes = "" ' Address Clubs.Address.ViewValue = Clubs.Address.CurrentValue If Not IsNull(Clubs.Address.ViewValue) Then Clubs.Address.ViewValue = Replace(Clubs.Address.ViewValue, vbLf, "
") End If Clubs.Address.CssStyle = "" Clubs.Address.CssClass = "" Clubs.Address.ViewCustomAttributes = "" ' Fax Clubs.Fax.ViewValue = Clubs.Fax.CurrentValue Clubs.Fax.CssStyle = "" Clubs.Fax.CssClass = "" Clubs.Fax.ViewCustomAttributes = "" ' ID ' *** view refer script Clubs.ID.HrefValue = "" ' Name ' *** view refer script Clubs.Name.HrefValue = "" ' City ' *** view refer script Clubs.City.HrefValue = "" ' Country ' *** view refer script Clubs.Country.HrefValue = "" ' Email ' *** view refer script Clubs.Email.HrefValue = "" ' Contact_Person ' *** view refer script Clubs.Contact_Person.HrefValue = "" ' Telephone ' *** view refer script Clubs.Telephone.HrefValue = "" ' Mobile ' *** view refer script Clubs.Mobile.HrefValue = "" ' Address ' *** view refer script Clubs.Address.HrefValue = "" ' Fax ' *** view refer script Clubs.Fax.HrefValue = "" ElseIf Clubs.RowType = EW_ROWTYPE_ADD Then ' Add row ElseIf Clubs.RowType = EW_ROWTYPE_EDIT Then ' Edit row ElseIf Clubs.RowType = EW_ROWTYPE_SEARCH Then ' Search row End If ' Call Row Rendered event Call Clubs.Row_Rendered() End Sub %> <% ' Set up Starting Record parameters based on Pager Navigation Sub SetUpStartRec() Dim nPageNo ' Exit if nDisplayRecs = 0 If nDisplayRecs = 0 Then Exit Sub ' Check for a START parameter If Request.QueryString(EW_TABLE_START_REC).Count > 0 Then nStartRec = Request.QueryString(EW_TABLE_START_REC) Clubs.StartRecordNumber = nStartRec ElseIf Request.QueryString(EW_TABLE_PAGE_NO).Count > 0 Then nPageNo = Request.QueryString(EW_TABLE_PAGE_NO) If IsNumeric(nPageNo) Then nStartRec = (nPageNo-1)*nDisplayRecs+1 If nStartRec <= 0 Then nStartRec = 1 ElseIf nStartRec >= ((nTotalRecs-1)\nDisplayRecs)*nDisplayRecs+1 Then nStartRec = ((nTotalRecs-1)\nDisplayRecs)*nDisplayRecs+1 End If Clubs.StartRecordNumber = nStartRec Else nStartRec = Clubs.StartRecordNumber End If Else nStartRec = Clubs.StartRecordNumber End If ' Check if correct start record counter If Not IsNumeric(nStartRec) Or nStartRec = "" Then ' Avoid invalid start record counter nStartRec = 1 ' Reset start record counter Clubs.StartRecordNumber = nStartRec ElseIf CLng(nStartRec) > CLng(nTotalRecs) Then ' Avoid starting record > total records nStartRec = ((nTotalRecs-1)\nDisplayRecs)*nDisplayRecs+1 ' Point to last page first record Clubs.StartRecordNumber = nStartRec ElseIf (nStartRec-1) Mod nDisplayRecs <> 0 Then nStartRec = ((nStartRec-1)\nDisplayRecs)*nDisplayRecs+1 ' Point to page boundary Clubs.StartRecordNumber = nStartRec End If End Sub %> <% ' Page Load event Sub Page_Load() '***Response.Write "Page Load" End Sub ' Page Unload event Sub Page_Unload() '***Response.Write "Page Unload" End Sub %>