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

View TABLE: Players

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

> ><%= players.ID.ViewValue %> > ><%= players.FullName.ViewValue %> > <% If players.Picture.HrefValue <> "" Then %> <% If Not IsNull(players.Picture.Upload.DbValue) Then %> " border=0<%= players.Picture.ViewAttributes %>> <% End If %> <% Else %> <% If Not IsNull(players.Picture.Upload.DbValue) Then %> " border=0<%= players.Picture.ViewAttributes %>> <% End If %> <% End If %> > ><%= players.Position_ID.ViewValue %> > ><%= players.Club_Id.ViewValue %> > ><%= players.Height.ViewValue %> > ><%= players.Weight.ViewValue %> > <% If players.CV.HrefValue <> "" Then %> <% If Not IsNull(players.CV.Upload.DbValue) Then %> <%= players.CV.ViewValue %> <% End If %> <% Else %> <% If Not IsNull(players.CV.Upload.DbValue) Then %> <%= players.CV.ViewValue %> <% End If %> <% End If %> > ><%= players.VideoFileName.ViewValue %>
ID
Full Name
Picture
Position
Club
Height
Weight
CV
Video File Name

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