<%@ CodePage=65001 %> <% Const EW_PAGE_ID = "view" Const EW_TABLE_NAME = "Coaches" %> <% 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 Coaches.ID.QueryStringValue = Request.QueryString("ID") Else Call Page_Terminate("Coacheslist.asp") ' Return to list page End If ' Get action If Request.Form("a_view").Count > 0 Then Coaches.CurrentAction = Request.Form("a_view") Else Coaches.CurrentAction = "I" ' Display form End If Select Case Coaches.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("Coacheslist.asp") ' Return to list End If End Select ' Set return url Coaches.ReturnUrl = "Coachesview.asp" ' Render row Coaches.RowType = EW_ROWTYPE_VIEW Call RenderRow() %>

View TABLE: Coaches

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 %>

> ><%= Coaches.ID.ViewValue %> > ><%= Coaches.FullName.ViewValue %> > <% If Coaches.Picture.HrefValue <> "" Then %> <% If Not IsNull(Coaches.Picture.Upload.DbValue) Then %> " border=0<%= Coaches.Picture.ViewAttributes %>> <% End If %> <% Else %> <% If Not IsNull(Coaches.Picture.Upload.DbValue) Then %> " border=0<%= Coaches.Picture.ViewAttributes %>> <% End If %> <% End If %> > ><%= Coaches.Club.ViewValue %> > ><%= Coaches.Telephone.ViewValue %> > ><%= Coaches.eMail.ViewValue %> > ><%= Coaches.Address.ViewValue %> > ><%= Coaches.City.ViewValue %> > ><%= Coaches.Country.ViewValue %> > ><%= Coaches.Height.ViewValue %> > ><%= Coaches.Weight.ViewValue %> > <% If Coaches.CV_English.HrefValue <> "" Then %> <% If Not IsNull(Coaches.CV_English.Upload.DbValue) Then %> <%= Coaches.CV_English.ViewValue %> <% End If %> <% Else %> <% If Not IsNull(Coaches.CV_English.Upload.DbValue) Then %> <%= Coaches.CV_English.ViewValue %> <% End If %> <% End If %> > <% If Coaches.CV_Portuguese.HrefValue <> "" Then %> <% If Not IsNull(Coaches.CV_Portuguese.Upload.DbValue) Then %> <%= Coaches.CV_Portuguese.ViewValue %> <% End If %> <% Else %> <% If Not IsNull(Coaches.CV_Portuguese.Upload.DbValue) Then %> <%= Coaches.CV_Portuguese.ViewValue %> <% End If %> <% End If %> > <% If Coaches.CV_Arabic.HrefValue <> "" Then %> <% If Not IsNull(Coaches.CV_Arabic.Upload.DbValue) Then %> <%= Coaches.CV_Arabic.ViewValue %> <% End If %> <% Else %> <% If Not IsNull(Coaches.CV_Arabic.Upload.DbValue) Then %> <%= Coaches.CV_Arabic.ViewValue %> <% End If %> <% End If %> > <% If Coaches.CV_Russian.HrefValue <> "" Then %> <% If Not IsNull(Coaches.CV_Russian.Upload.DbValue) Then %> <%= Coaches.CV_Russian.ViewValue %> <% End If %> <% Else %> <% If Not IsNull(Coaches.CV_Russian.Upload.DbValue) Then %> <%= Coaches.CV_Russian.ViewValue %> <% End If %> <% End If %> > <% If Coaches.CV_Korean.HrefValue <> "" Then %> <% If Not IsNull(Coaches.CV_Korean.Upload.DbValue) Then %> <%= Coaches.CV_Korean.ViewValue %> <% End If %> <% Else %> <% If Not IsNull(Coaches.CV_Korean.Upload.DbValue) Then %> <%= Coaches.CV_Korean.ViewValue %> <% End If %> <% End If %> > ><%= Coaches.VideoFileName.ViewValue %> > ><%= Coaches.Mobile.ViewValue %>
ID
Full Name
Photo
Club
Telephone
e Mail
Address
City
Country
Height
Weight
CV English
CV Portuguese
CV Arabic
CV Russian
CV Korean
Video File Name
Mobile

<% ' 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 Coaches = 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 = Coaches.SqlKeyFilter If Not IsNumeric(Coaches.ID.CurrentValue) Then LoadRow = False ' Invalid key, exit Exit Function End If sFilter = Replace(sFilter, "@ID@", ew_AdjustSql(Coaches.ID.CurrentValue)) ' Replace key value ' Call Row Selecting event Call Coaches.Row_Selecting(sFilter) ' Load sql based on filter Coaches.CurrentFilter = sFilter sSql = Coaches.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 Coaches.Row_Selected(rs) End If rs.Close Set rs = Nothing End Function ' Load row values from recordset Sub LoadRowValues(rs) Coaches.ID.DbValue = rs("ID") Coaches.FullName.DbValue = rs("FullName") Coaches.Picture.Upload.DbValue = rs("Picture") Coaches.Club.DbValue = rs("Club") Coaches.Telephone.DbValue = rs("Telephone") Coaches.eMail.DbValue = rs("eMail") Coaches.Address.DbValue = rs("Address") Coaches.City.DbValue = rs("City") Coaches.Country.DbValue = rs("Country") Coaches.Height.DbValue = rs("Height") Coaches.Weight.DbValue = rs("Weight") Coaches.CV_English.Upload.DbValue = rs("CV_English") Coaches.CV_Portuguese.Upload.DbValue = rs("CV_Portuguese") Coaches.CV_Arabic.Upload.DbValue = rs("CV_Arabic") Coaches.CV_Russian.Upload.DbValue = rs("CV_Russian") Coaches.CV_Korean.Upload.DbValue = rs("CV_Korean") Coaches.VideoFileName.DbValue = rs("VideoFileName") Coaches.Mobile.DbValue = rs("Mobile") End Sub %> <% ' Render row values based on field settings Sub RenderRow() ' Call Row Rendering event Call Coaches.Row_Rendering() ' Common render codes for all row types ' ID Coaches.ID.CellCssStyle = "" Coaches.ID.CellCssClass = "" ' FullName Coaches.FullName.CellCssStyle = "" Coaches.FullName.CellCssClass = "" ' Picture Coaches.Picture.CellCssStyle = "" Coaches.Picture.CellCssClass = "" ' Club Coaches.Club.CellCssStyle = "" Coaches.Club.CellCssClass = "" ' Telephone Coaches.Telephone.CellCssStyle = "" Coaches.Telephone.CellCssClass = "" ' eMail Coaches.eMail.CellCssStyle = "" Coaches.eMail.CellCssClass = "" ' Address Coaches.Address.CellCssStyle = "" Coaches.Address.CellCssClass = "" ' City Coaches.City.CellCssStyle = "" Coaches.City.CellCssClass = "" ' Country Coaches.Country.CellCssStyle = "" Coaches.Country.CellCssClass = "" ' Height Coaches.Height.CellCssStyle = "" Coaches.Height.CellCssClass = "" ' Weight Coaches.Weight.CellCssStyle = "" Coaches.Weight.CellCssClass = "" ' CV_English Coaches.CV_English.CellCssStyle = "" Coaches.CV_English.CellCssClass = "" ' CV_Portuguese Coaches.CV_Portuguese.CellCssStyle = "" Coaches.CV_Portuguese.CellCssClass = "" ' CV_Arabic Coaches.CV_Arabic.CellCssStyle = "" Coaches.CV_Arabic.CellCssClass = "" ' CV_Russian Coaches.CV_Russian.CellCssStyle = "" Coaches.CV_Russian.CellCssClass = "" ' CV_Korean Coaches.CV_Korean.CellCssStyle = "" Coaches.CV_Korean.CellCssClass = "" ' VideoFileName Coaches.VideoFileName.CellCssStyle = "" Coaches.VideoFileName.CellCssClass = "" ' Mobile Coaches.Mobile.CellCssStyle = "" Coaches.Mobile.CellCssClass = "" If Coaches.RowType = EW_ROWTYPE_VIEW Then ' View row ' ID Coaches.ID.ViewValue = Coaches.ID.CurrentValue Coaches.ID.CssStyle = "" Coaches.ID.CssClass = "" Coaches.ID.ViewCustomAttributes = "" ' FullName Coaches.FullName.ViewValue = Coaches.FullName.CurrentValue Coaches.FullName.CssStyle = "" Coaches.FullName.CssClass = "" Coaches.FullName.ViewCustomAttributes = "" ' Picture If Not IsNull(Coaches.Picture.Upload.DbValue) Then Coaches.Picture.ViewValue = Coaches.Picture.Upload.DbValue Coaches.Picture.ImageAlt = "" Else Coaches.Picture.ViewValue = "" End If Coaches.Picture.CssStyle = "" Coaches.Picture.CssClass = "" Coaches.Picture.ViewCustomAttributes = "" ' Club If Not IsNull(Coaches.Club.CurrentValue) And Coaches.Club.CurrentValue <> "" Then sSqlWrk = "SELECT [Name], [Contact_Person] FROM [Clubs] WHERE [ID] = " & ew_AdjustSql(Coaches.Club.CurrentValue) & "" sSqlWrk = sSqlWrk & " ORDER BY [Name] Asc" Set rswrk = conn.Execute(sSqlWrk) If Not rswrk.Eof Then Coaches.Club.ViewValue = rswrk("Name") Coaches.Club.ViewValue = Coaches.Club.ViewValue & ew_ValueSeparator(0) & rswrk("Contact_Person") Else Coaches.Club.ViewValue = Coaches.Club.CurrentValue End If rswrk.Close Set rswrk = Nothing Else Coaches.Club.ViewValue = Null End If Coaches.Club.CssStyle = "" Coaches.Club.CssClass = "" Coaches.Club.ViewCustomAttributes = "" ' Telephone Coaches.Telephone.ViewValue = Coaches.Telephone.CurrentValue Coaches.Telephone.CssStyle = "" Coaches.Telephone.CssClass = "" Coaches.Telephone.ViewCustomAttributes = "" ' eMail Coaches.eMail.ViewValue = Coaches.eMail.CurrentValue Coaches.eMail.CssStyle = "" Coaches.eMail.CssClass = "" Coaches.eMail.ViewCustomAttributes = "" ' Address Coaches.Address.ViewValue = Coaches.Address.CurrentValue If Not IsNull(Coaches.Address.ViewValue) Then Coaches.Address.ViewValue = Replace(Coaches.Address.ViewValue, vbLf, "
") End If Coaches.Address.CssStyle = "" Coaches.Address.CssClass = "" Coaches.Address.ViewCustomAttributes = "" ' City Coaches.City.ViewValue = Coaches.City.CurrentValue Coaches.City.CssStyle = "" Coaches.City.CssClass = "" Coaches.City.ViewCustomAttributes = "" ' Country If Not IsNull(Coaches.Country.CurrentValue) And Coaches.Country.CurrentValue <> "" Then sSqlWrk = "SELECT [countryname] FROM [Countrylist] WHERE [ID] = " & ew_AdjustSql(Coaches.Country.CurrentValue) & "" sSqlWrk = sSqlWrk & " ORDER BY [countryname] Asc" Set rswrk = conn.Execute(sSqlWrk) If Not rswrk.Eof Then Coaches.Country.ViewValue = rswrk("countryname") Else Coaches.Country.ViewValue = Coaches.Country.CurrentValue End If rswrk.Close Set rswrk = Nothing Else Coaches.Country.ViewValue = Null End If Coaches.Country.CssStyle = "" Coaches.Country.CssClass = "" Coaches.Country.ViewCustomAttributes = "" ' Height Coaches.Height.ViewValue = Coaches.Height.CurrentValue Coaches.Height.CssStyle = "" Coaches.Height.CssClass = "" Coaches.Height.ViewCustomAttributes = "" ' Weight Coaches.Weight.ViewValue = Coaches.Weight.CurrentValue Coaches.Weight.CssStyle = "" Coaches.Weight.CssClass = "" Coaches.Weight.ViewCustomAttributes = "" ' CV_English If Not IsNull(Coaches.CV_English.Upload.DbValue) Then Coaches.CV_English.ViewValue = Coaches.CV_English.Upload.DbValue Else Coaches.CV_English.ViewValue = "" End If Coaches.CV_English.CssStyle = "" Coaches.CV_English.CssClass = "" Coaches.CV_English.ViewCustomAttributes = "" ' CV_Portuguese If Not IsNull(Coaches.CV_Portuguese.Upload.DbValue) Then Coaches.CV_Portuguese.ViewValue = Coaches.CV_Portuguese.Upload.DbValue Else Coaches.CV_Portuguese.ViewValue = "" End If Coaches.CV_Portuguese.CssStyle = "" Coaches.CV_Portuguese.CssClass = "" Coaches.CV_Portuguese.ViewCustomAttributes = "" ' CV_Arabic If Not IsNull(Coaches.CV_Arabic.Upload.DbValue) Then Coaches.CV_Arabic.ViewValue = Coaches.CV_Arabic.Upload.DbValue Else Coaches.CV_Arabic.ViewValue = "" End If Coaches.CV_Arabic.CssStyle = "" Coaches.CV_Arabic.CssClass = "" Coaches.CV_Arabic.ViewCustomAttributes = "" ' CV_Russian If Not IsNull(Coaches.CV_Russian.Upload.DbValue) Then Coaches.CV_Russian.ViewValue = Coaches.CV_Russian.Upload.DbValue Else Coaches.CV_Russian.ViewValue = "" End If Coaches.CV_Russian.CssStyle = "" Coaches.CV_Russian.CssClass = "" Coaches.CV_Russian.ViewCustomAttributes = "" ' CV_Korean If Not IsNull(Coaches.CV_Korean.Upload.DbValue) Then Coaches.CV_Korean.ViewValue = Coaches.CV_Korean.Upload.DbValue Else Coaches.CV_Korean.ViewValue = "" End If Coaches.CV_Korean.CssStyle = "" Coaches.CV_Korean.CssClass = "" Coaches.CV_Korean.ViewCustomAttributes = "" ' VideoFileName Coaches.VideoFileName.ViewValue = Coaches.VideoFileName.CurrentValue Coaches.VideoFileName.CssStyle = "" Coaches.VideoFileName.CssClass = "" Coaches.VideoFileName.ViewCustomAttributes = "" ' Mobile Coaches.Mobile.ViewValue = Coaches.Mobile.CurrentValue Coaches.Mobile.CssStyle = "" Coaches.Mobile.CssClass = "" Coaches.Mobile.ViewCustomAttributes = "" ' ID ' *** view refer script Coaches.ID.HrefValue = "" ' FullName ' *** view refer script Coaches.FullName.HrefValue = "" ' Picture ' *** view refer script Coaches.Picture.HrefValue = "" ' Club ' *** view refer script Coaches.Club.HrefValue = "" ' Telephone ' *** view refer script Coaches.Telephone.HrefValue = "" ' eMail ' *** view refer script Coaches.eMail.HrefValue = "" ' Address ' *** view refer script Coaches.Address.HrefValue = "" ' City ' *** view refer script Coaches.City.HrefValue = "" ' Country ' *** view refer script Coaches.Country.HrefValue = "" ' Height ' *** view refer script Coaches.Height.HrefValue = "" ' Weight ' *** view refer script Coaches.Weight.HrefValue = "" ' CV_English ' *** view refer script If Not IsNull(Coaches.CV_English.Upload.DbValue) Then Coaches.CV_English.HrefValue = ew_UploadPathEx(False, "cvs/") & ew_IIf(Coaches.CV_English.ViewValue<>"", Coaches.CV_English.ViewValue, Coaches.CV_English.CurrentValue) If Coaches.Export <> "" Then Coaches.CV_English.HrefValue = ew_ConvertFullUrl(Coaches.CV_English.HrefValue) Else Coaches.CV_English.HrefValue = "" End If ' CV_Portuguese ' *** view refer script If Not IsNull(Coaches.CV_Portuguese.Upload.DbValue) Then Coaches.CV_Portuguese.HrefValue = ew_UploadPathEx(False, "cvs/") & ew_IIf(Coaches.CV_Portuguese.ViewValue<>"", Coaches.CV_Portuguese.ViewValue, Coaches.CV_Portuguese.CurrentValue) If Coaches.Export <> "" Then Coaches.CV_Portuguese.HrefValue = ew_ConvertFullUrl(Coaches.CV_Portuguese.HrefValue) Else Coaches.CV_Portuguese.HrefValue = "" End If ' CV_Arabic ' *** view refer script If Not IsNull(Coaches.CV_Arabic.Upload.DbValue) Then Coaches.CV_Arabic.HrefValue = ew_UploadPathEx(False, "cvs/") & ew_IIf(Coaches.CV_Arabic.ViewValue<>"", Coaches.CV_Arabic.ViewValue, Coaches.CV_Arabic.CurrentValue) If Coaches.Export <> "" Then Coaches.CV_Arabic.HrefValue = ew_ConvertFullUrl(Coaches.CV_Arabic.HrefValue) Else Coaches.CV_Arabic.HrefValue = "" End If ' CV_Russian ' *** view refer script If Not IsNull(Coaches.CV_Russian.Upload.DbValue) Then Coaches.CV_Russian.HrefValue = ew_UploadPathEx(False, "cvs/") & ew_IIf(Coaches.CV_Russian.ViewValue<>"", Coaches.CV_Russian.ViewValue, Coaches.CV_Russian.CurrentValue) If Coaches.Export <> "" Then Coaches.CV_Russian.HrefValue = ew_ConvertFullUrl(Coaches.CV_Russian.HrefValue) Else Coaches.CV_Russian.HrefValue = "" End If ' CV_Korean ' *** view refer script If Not IsNull(Coaches.CV_Korean.Upload.DbValue) Then Coaches.CV_Korean.HrefValue = ew_UploadPathEx(False, "cvs/") & ew_IIf(Coaches.CV_Korean.ViewValue<>"", Coaches.CV_Korean.ViewValue, Coaches.CV_Korean.CurrentValue) If Coaches.Export <> "" Then Coaches.CV_Korean.HrefValue = ew_ConvertFullUrl(Coaches.CV_Korean.HrefValue) Else Coaches.CV_Korean.HrefValue = "" End If ' VideoFileName ' *** view refer script Coaches.VideoFileName.HrefValue = "" ' Mobile ' *** view refer script Coaches.Mobile.HrefValue = "" ElseIf Coaches.RowType = EW_ROWTYPE_ADD Then ' Add row ElseIf Coaches.RowType = EW_ROWTYPE_EDIT Then ' Edit row ElseIf Coaches.RowType = EW_ROWTYPE_SEARCH Then ' Search row End If ' Call Row Rendered event Call Coaches.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) Coaches.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 Coaches.StartRecordNumber = nStartRec Else nStartRec = Coaches.StartRecordNumber End If Else nStartRec = Coaches.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 Coaches.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 Coaches.StartRecordNumber = nStartRec ElseIf (nStartRec-1) Mod nDisplayRecs <> 0 Then nStartRec = ((nStartRec-1)\nDisplayRecs)*nDisplayRecs+1 ' Point to page boundary Coaches.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 %>