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

View TABLE: Languages

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

> ><%= Languages.id.ViewValue %> > ><%= Languages.Language_Name.ViewValue %> > ><%= Languages.Lang_Short_Name.ViewValue %> > ><%= Languages.Left_To_Right_Language.ViewValue %> > ><%= Languages.Lang_LCID.ViewValue %> > ><%= Languages.Code_Page.ViewValue %> > ><%= Languages.View_Order.ViewValue %> > <% If Languages.Hide.CurrentValue&"" = "1" Then %> <% Else %> <% End If %> > ><%= Languages.Website_Consultants.ViewValue %> > ><%= Languages.Useful_Links.ViewValue %> > ><%= Languages.Wallpapers.ViewValue %> > ><%= Languages.More_Wall_Papers.ViewValue %> > ><%= Languages.Read_More.ViewValue %> > ><%= Languages.More_News.ViewValue %> > ><%= Languages.More_videos.ViewValue %> > ><%= Languages.Coming_Soon.ViewValue %> > ><%= Languages.Read_my_latest_news.ViewValue %> > ><%= Languages.Watch_my_latest_videos.ViewValue %> > ><%= Languages.Comments_and_Suggestions.ViewValue %> > ><%= Languages.Please_Click_and_add_your_comments.ViewValue %> > ><%= Languages.Newsletter_Subscription.ViewValue %> > ><%= Languages.To_receive_my_newsletter.ViewValue %> > ><%= Languages.Subscribe_Now.ViewValue %> > ><%= Languages.Licensed_Player27s_Agent_Fifa_CBF.ViewValue %> > ><%= Languages.Click_the_image_to_view_the_video.ViewValue %>
id
Language Name
Lang Short Name
Left To Right Language
Lang LCID
Code Page
View Order
Hide
Website Consultants
Useful Links
Wallpapers
More Wall Papers
Read More
More News
More videos
Coming Soon
Read my latest news
Watch my latest videos
Comments and Suggestions
Please Click and add your comments
Newsletter Subscription
To receive my newsletter
Subscribe Now
Licensed Player 's Agent Fifa CBF
Click the image to view the video

<% ' 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 Languages = 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 = Languages.SqlKeyFilter If Not IsNumeric(Languages.id.CurrentValue) Then LoadRow = False ' Invalid key, exit Exit Function End If sFilter = Replace(sFilter, "@id@", ew_AdjustSql(Languages.id.CurrentValue)) ' Replace key value ' Call Row Selecting event Call Languages.Row_Selecting(sFilter) ' Load sql based on filter Languages.CurrentFilter = sFilter sSql = Languages.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 Languages.Row_Selected(rs) End If rs.Close Set rs = Nothing End Function ' Load row values from recordset Sub LoadRowValues(rs) Languages.id.DbValue = rs("id") Languages.Language_Name.DbValue = rs("Language_Name") Languages.Lang_Short_Name.DbValue = rs("Lang_Short_Name") Languages.Left_To_Right_Language.DbValue = ew_IIf(rs("Left_To_Right_Language"), "1", "0") Languages.Lang_LCID.DbValue = rs("Lang_LCID") Languages.Code_Page.DbValue = rs("Code_Page") Languages.View_Order.DbValue = rs("View_Order") Languages.Hide.DbValue = ew_IIf(rs("Hide"), "1", "0") Languages.Website_Consultants.DbValue = rs("Website_Consultants") Languages.Useful_Links.DbValue = rs("Useful_Links") Languages.Wallpapers.DbValue = rs("Wallpapers") Languages.More_Wall_Papers.DbValue = rs("More_Wall_Papers") Languages.Read_More.DbValue = rs("Read_More") Languages.More_News.DbValue = rs("More_News") Languages.More_videos.DbValue = rs("More_videos") Languages.Coming_Soon.DbValue = rs("Coming_Soon") Languages.Read_my_latest_news.DbValue = rs("Read_my_latest_news") Languages.Watch_my_latest_videos.DbValue = rs("Watch_my_latest_videos") Languages.Comments_and_Suggestions.DbValue = rs("Comments_and_Suggestions") Languages.Please_Click_and_add_your_comments.DbValue = rs("Please_Click_and_add_your_comments") Languages.Newsletter_Subscription.DbValue = rs("Newsletter_Subscription") Languages.To_receive_my_newsletter.DbValue = rs("To_receive_my_newsletter") Languages.Subscribe_Now.DbValue = rs("Subscribe_Now") Languages.Licensed_Player27s_Agent_Fifa_CBF.DbValue = rs("Licensed_Player's_Agent_Fifa_CBF") Languages.Click_the_image_to_view_the_video.DbValue = rs("Click_the_image_to_view_the_video") End Sub %> <% ' Render row values based on field settings Sub RenderRow() ' Call Row Rendering event Call Languages.Row_Rendering() ' Common render codes for all row types ' id Languages.id.CellCssStyle = "" Languages.id.CellCssClass = "" ' Language_Name Languages.Language_Name.CellCssStyle = "" Languages.Language_Name.CellCssClass = "" ' Lang_Short_Name Languages.Lang_Short_Name.CellCssStyle = "" Languages.Lang_Short_Name.CellCssClass = "" ' Left_To_Right_Language Languages.Left_To_Right_Language.CellCssStyle = "" Languages.Left_To_Right_Language.CellCssClass = "" ' Lang_LCID Languages.Lang_LCID.CellCssStyle = "" Languages.Lang_LCID.CellCssClass = "" ' Code_Page Languages.Code_Page.CellCssStyle = "" Languages.Code_Page.CellCssClass = "" ' View_Order Languages.View_Order.CellCssStyle = "" Languages.View_Order.CellCssClass = "" ' Hide Languages.Hide.CellCssStyle = "" Languages.Hide.CellCssClass = "" ' Website_Consultants Languages.Website_Consultants.CellCssStyle = "" Languages.Website_Consultants.CellCssClass = "" ' Useful_Links Languages.Useful_Links.CellCssStyle = "" Languages.Useful_Links.CellCssClass = "" ' Wallpapers Languages.Wallpapers.CellCssStyle = "" Languages.Wallpapers.CellCssClass = "" ' More_Wall_Papers Languages.More_Wall_Papers.CellCssStyle = "" Languages.More_Wall_Papers.CellCssClass = "" ' Read_More Languages.Read_More.CellCssStyle = "" Languages.Read_More.CellCssClass = "" ' More_News Languages.More_News.CellCssStyle = "" Languages.More_News.CellCssClass = "" ' More_videos Languages.More_videos.CellCssStyle = "" Languages.More_videos.CellCssClass = "" ' Coming_Soon Languages.Coming_Soon.CellCssStyle = "" Languages.Coming_Soon.CellCssClass = "" ' Read_my_latest_news Languages.Read_my_latest_news.CellCssStyle = "" Languages.Read_my_latest_news.CellCssClass = "" ' Watch_my_latest_videos Languages.Watch_my_latest_videos.CellCssStyle = "" Languages.Watch_my_latest_videos.CellCssClass = "" ' Comments_and_Suggestions Languages.Comments_and_Suggestions.CellCssStyle = "" Languages.Comments_and_Suggestions.CellCssClass = "" ' Please_Click_and_add_your_comments Languages.Please_Click_and_add_your_comments.CellCssStyle = "" Languages.Please_Click_and_add_your_comments.CellCssClass = "" ' Newsletter_Subscription Languages.Newsletter_Subscription.CellCssStyle = "" Languages.Newsletter_Subscription.CellCssClass = "" ' To_receive_my_newsletter Languages.To_receive_my_newsletter.CellCssStyle = "" Languages.To_receive_my_newsletter.CellCssClass = "" ' Subscribe_Now Languages.Subscribe_Now.CellCssStyle = "" Languages.Subscribe_Now.CellCssClass = "" ' Licensed_Player's_Agent_Fifa_CBF Languages.Licensed_Player27s_Agent_Fifa_CBF.CellCssStyle = "" Languages.Licensed_Player27s_Agent_Fifa_CBF.CellCssClass = "" ' Click_the_image_to_view_the_video Languages.Click_the_image_to_view_the_video.CellCssStyle = "" Languages.Click_the_image_to_view_the_video.CellCssClass = "" If Languages.RowType = EW_ROWTYPE_VIEW Then ' View row ' id Languages.id.ViewValue = Languages.id.CurrentValue Languages.id.CssStyle = "" Languages.id.CssClass = "" Languages.id.ViewCustomAttributes = "" ' Language_Name Languages.Language_Name.ViewValue = Languages.Language_Name.CurrentValue Languages.Language_Name.CssStyle = "" Languages.Language_Name.CssClass = "" Languages.Language_Name.ViewCustomAttributes = "" ' Lang_Short_Name Languages.Lang_Short_Name.ViewValue = Languages.Lang_Short_Name.CurrentValue Languages.Lang_Short_Name.CssStyle = "" Languages.Lang_Short_Name.CssClass = "" Languages.Lang_Short_Name.ViewCustomAttributes = "" ' Left_To_Right_Language If Languages.Left_To_Right_Language.CurrentValue = "1" Then Languages.Left_To_Right_Language.ViewValue = "Yes" Else Languages.Left_To_Right_Language.ViewValue = "No" End If Languages.Left_To_Right_Language.CssStyle = "" Languages.Left_To_Right_Language.CssClass = "" Languages.Left_To_Right_Language.ViewCustomAttributes = "" ' Lang_LCID Languages.Lang_LCID.ViewValue = Languages.Lang_LCID.CurrentValue Languages.Lang_LCID.CssStyle = "" Languages.Lang_LCID.CssClass = "" Languages.Lang_LCID.ViewCustomAttributes = "" ' Code_Page Languages.Code_Page.ViewValue = Languages.Code_Page.CurrentValue Languages.Code_Page.CssStyle = "" Languages.Code_Page.CssClass = "" Languages.Code_Page.ViewCustomAttributes = "" ' View_Order If Not IsNull(Languages.View_Order.CurrentValue) Then Select Case Languages.View_Order.CurrentValue Case "1" Languages.View_Order.ViewValue = "1" Case "2" Languages.View_Order.ViewValue = "2" Case "3" Languages.View_Order.ViewValue = "3" Case "4" Languages.View_Order.ViewValue = "4" Case "5" Languages.View_Order.ViewValue = "5" Case "6" Languages.View_Order.ViewValue = "6" Case "7" Languages.View_Order.ViewValue = "7" Case "8" Languages.View_Order.ViewValue = "8" Case "9" Languages.View_Order.ViewValue = "9" Case "10" Languages.View_Order.ViewValue = "10" Case Else Languages.View_Order.ViewValue = Languages.View_Order.CurrentValue End Select Else Languages.View_Order.ViewValue = Null End If Languages.View_Order.CssStyle = "" Languages.View_Order.CssClass = "" Languages.View_Order.ViewCustomAttributes = "" ' Hide If Languages.Hide.CurrentValue = "1" Then Languages.Hide.ViewValue = "Yes" Else Languages.Hide.ViewValue = "No" End If Languages.Hide.CssStyle = "" Languages.Hide.CssClass = "" Languages.Hide.ViewCustomAttributes = "" ' Website_Consultants Languages.Website_Consultants.ViewValue = Languages.Website_Consultants.CurrentValue If Not IsNull(Languages.Website_Consultants.ViewValue) Then Languages.Website_Consultants.ViewValue = Replace(Languages.Website_Consultants.ViewValue, vbLf, "
") End If Languages.Website_Consultants.CssStyle = "" Languages.Website_Consultants.CssClass = "" Languages.Website_Consultants.ViewCustomAttributes = "" ' Useful_Links Languages.Useful_Links.ViewValue = Languages.Useful_Links.CurrentValue If Not IsNull(Languages.Useful_Links.ViewValue) Then Languages.Useful_Links.ViewValue = Replace(Languages.Useful_Links.ViewValue, vbLf, "
") End If Languages.Useful_Links.CssStyle = "" Languages.Useful_Links.CssClass = "" Languages.Useful_Links.ViewCustomAttributes = "" ' Wallpapers Languages.Wallpapers.ViewValue = Languages.Wallpapers.CurrentValue If Not IsNull(Languages.Wallpapers.ViewValue) Then Languages.Wallpapers.ViewValue = Replace(Languages.Wallpapers.ViewValue, vbLf, "
") End If Languages.Wallpapers.CssStyle = "" Languages.Wallpapers.CssClass = "" Languages.Wallpapers.ViewCustomAttributes = "" ' More_Wall_Papers Languages.More_Wall_Papers.ViewValue = Languages.More_Wall_Papers.CurrentValue If Not IsNull(Languages.More_Wall_Papers.ViewValue) Then Languages.More_Wall_Papers.ViewValue = Replace(Languages.More_Wall_Papers.ViewValue, vbLf, "
") End If Languages.More_Wall_Papers.CssStyle = "" Languages.More_Wall_Papers.CssClass = "" Languages.More_Wall_Papers.ViewCustomAttributes = "" ' Read_More Languages.Read_More.ViewValue = Languages.Read_More.CurrentValue If Not IsNull(Languages.Read_More.ViewValue) Then Languages.Read_More.ViewValue = Replace(Languages.Read_More.ViewValue, vbLf, "
") End If Languages.Read_More.CssStyle = "" Languages.Read_More.CssClass = "" Languages.Read_More.ViewCustomAttributes = "" ' More_News Languages.More_News.ViewValue = Languages.More_News.CurrentValue If Not IsNull(Languages.More_News.ViewValue) Then Languages.More_News.ViewValue = Replace(Languages.More_News.ViewValue, vbLf, "
") End If Languages.More_News.CssStyle = "" Languages.More_News.CssClass = "" Languages.More_News.ViewCustomAttributes = "" ' More_videos Languages.More_videos.ViewValue = Languages.More_videos.CurrentValue If Not IsNull(Languages.More_videos.ViewValue) Then Languages.More_videos.ViewValue = Replace(Languages.More_videos.ViewValue, vbLf, "
") End If Languages.More_videos.CssStyle = "" Languages.More_videos.CssClass = "" Languages.More_videos.ViewCustomAttributes = "" ' Coming_Soon Languages.Coming_Soon.ViewValue = Languages.Coming_Soon.CurrentValue If Not IsNull(Languages.Coming_Soon.ViewValue) Then Languages.Coming_Soon.ViewValue = Replace(Languages.Coming_Soon.ViewValue, vbLf, "
") End If Languages.Coming_Soon.CssStyle = "" Languages.Coming_Soon.CssClass = "" Languages.Coming_Soon.ViewCustomAttributes = "" ' Read_my_latest_news Languages.Read_my_latest_news.ViewValue = Languages.Read_my_latest_news.CurrentValue If Not IsNull(Languages.Read_my_latest_news.ViewValue) Then Languages.Read_my_latest_news.ViewValue = Replace(Languages.Read_my_latest_news.ViewValue, vbLf, "
") End If Languages.Read_my_latest_news.CssStyle = "" Languages.Read_my_latest_news.CssClass = "" Languages.Read_my_latest_news.ViewCustomAttributes = "" ' Watch_my_latest_videos Languages.Watch_my_latest_videos.ViewValue = Languages.Watch_my_latest_videos.CurrentValue If Not IsNull(Languages.Watch_my_latest_videos.ViewValue) Then Languages.Watch_my_latest_videos.ViewValue = Replace(Languages.Watch_my_latest_videos.ViewValue, vbLf, "
") End If Languages.Watch_my_latest_videos.CssStyle = "" Languages.Watch_my_latest_videos.CssClass = "" Languages.Watch_my_latest_videos.ViewCustomAttributes = "" ' Comments_and_Suggestions Languages.Comments_and_Suggestions.ViewValue = Languages.Comments_and_Suggestions.CurrentValue If Not IsNull(Languages.Comments_and_Suggestions.ViewValue) Then Languages.Comments_and_Suggestions.ViewValue = Replace(Languages.Comments_and_Suggestions.ViewValue, vbLf, "
") End If Languages.Comments_and_Suggestions.CssStyle = "" Languages.Comments_and_Suggestions.CssClass = "" Languages.Comments_and_Suggestions.ViewCustomAttributes = "" ' Please_Click_and_add_your_comments Languages.Please_Click_and_add_your_comments.ViewValue = Languages.Please_Click_and_add_your_comments.CurrentValue If Not IsNull(Languages.Please_Click_and_add_your_comments.ViewValue) Then Languages.Please_Click_and_add_your_comments.ViewValue = Replace(Languages.Please_Click_and_add_your_comments.ViewValue, vbLf, "
") End If Languages.Please_Click_and_add_your_comments.CssStyle = "" Languages.Please_Click_and_add_your_comments.CssClass = "" Languages.Please_Click_and_add_your_comments.ViewCustomAttributes = "" ' Newsletter_Subscription Languages.Newsletter_Subscription.ViewValue = Languages.Newsletter_Subscription.CurrentValue If Not IsNull(Languages.Newsletter_Subscription.ViewValue) Then Languages.Newsletter_Subscription.ViewValue = Replace(Languages.Newsletter_Subscription.ViewValue, vbLf, "
") End If Languages.Newsletter_Subscription.CssStyle = "" Languages.Newsletter_Subscription.CssClass = "" Languages.Newsletter_Subscription.ViewCustomAttributes = "" ' To_receive_my_newsletter Languages.To_receive_my_newsletter.ViewValue = Languages.To_receive_my_newsletter.CurrentValue If Not IsNull(Languages.To_receive_my_newsletter.ViewValue) Then Languages.To_receive_my_newsletter.ViewValue = Replace(Languages.To_receive_my_newsletter.ViewValue, vbLf, "
") End If Languages.To_receive_my_newsletter.CssStyle = "" Languages.To_receive_my_newsletter.CssClass = "" Languages.To_receive_my_newsletter.ViewCustomAttributes = "" ' Subscribe_Now Languages.Subscribe_Now.ViewValue = Languages.Subscribe_Now.CurrentValue If Not IsNull(Languages.Subscribe_Now.ViewValue) Then Languages.Subscribe_Now.ViewValue = Replace(Languages.Subscribe_Now.ViewValue, vbLf, "
") End If Languages.Subscribe_Now.CssStyle = "" Languages.Subscribe_Now.CssClass = "" Languages.Subscribe_Now.ViewCustomAttributes = "" ' Licensed_Player's_Agent_Fifa_CBF Languages.Licensed_Player27s_Agent_Fifa_CBF.ViewValue = Languages.Licensed_Player27s_Agent_Fifa_CBF.CurrentValue If Not IsNull(Languages.Licensed_Player27s_Agent_Fifa_CBF.ViewValue) Then Languages.Licensed_Player27s_Agent_Fifa_CBF.ViewValue = Replace(Languages.Licensed_Player27s_Agent_Fifa_CBF.ViewValue, vbLf, "
") End If Languages.Licensed_Player27s_Agent_Fifa_CBF.CssStyle = "" Languages.Licensed_Player27s_Agent_Fifa_CBF.CssClass = "" Languages.Licensed_Player27s_Agent_Fifa_CBF.ViewCustomAttributes = "" ' Click_the_image_to_view_the_video Languages.Click_the_image_to_view_the_video.ViewValue = Languages.Click_the_image_to_view_the_video.CurrentValue If Not IsNull(Languages.Click_the_image_to_view_the_video.ViewValue) Then Languages.Click_the_image_to_view_the_video.ViewValue = Replace(Languages.Click_the_image_to_view_the_video.ViewValue, vbLf, "
") End If Languages.Click_the_image_to_view_the_video.CssStyle = "" Languages.Click_the_image_to_view_the_video.CssClass = "" Languages.Click_the_image_to_view_the_video.ViewCustomAttributes = "" ' id ' *** view refer script Languages.id.HrefValue = "" ' Language_Name ' *** view refer script Languages.Language_Name.HrefValue = "" ' Lang_Short_Name ' *** view refer script Languages.Lang_Short_Name.HrefValue = "" ' Left_To_Right_Language ' *** view refer script Languages.Left_To_Right_Language.HrefValue = "" ' Lang_LCID ' *** view refer script Languages.Lang_LCID.HrefValue = "" ' Code_Page ' *** view refer script Languages.Code_Page.HrefValue = "" ' View_Order ' *** view refer script Languages.View_Order.HrefValue = "" ' Hide ' *** view refer script Languages.Hide.HrefValue = "" ' Website_Consultants ' *** view refer script Languages.Website_Consultants.HrefValue = "" ' Useful_Links ' *** view refer script Languages.Useful_Links.HrefValue = "" ' Wallpapers ' *** view refer script Languages.Wallpapers.HrefValue = "" ' More_Wall_Papers ' *** view refer script Languages.More_Wall_Papers.HrefValue = "" ' Read_More ' *** view refer script Languages.Read_More.HrefValue = "" ' More_News ' *** view refer script Languages.More_News.HrefValue = "" ' More_videos ' *** view refer script Languages.More_videos.HrefValue = "" ' Coming_Soon ' *** view refer script Languages.Coming_Soon.HrefValue = "" ' Read_my_latest_news ' *** view refer script Languages.Read_my_latest_news.HrefValue = "" ' Watch_my_latest_videos ' *** view refer script Languages.Watch_my_latest_videos.HrefValue = "" ' Comments_and_Suggestions ' *** view refer script Languages.Comments_and_Suggestions.HrefValue = "" ' Please_Click_and_add_your_comments ' *** view refer script Languages.Please_Click_and_add_your_comments.HrefValue = "" ' Newsletter_Subscription ' *** view refer script Languages.Newsletter_Subscription.HrefValue = "" ' To_receive_my_newsletter ' *** view refer script Languages.To_receive_my_newsletter.HrefValue = "" ' Subscribe_Now ' *** view refer script Languages.Subscribe_Now.HrefValue = "" ' Licensed_Player's_Agent_Fifa_CBF ' *** view refer script Languages.Licensed_Player27s_Agent_Fifa_CBF.HrefValue = "" ' Click_the_image_to_view_the_video ' *** view refer script Languages.Click_the_image_to_view_the_video.HrefValue = "" ElseIf Languages.RowType = EW_ROWTYPE_ADD Then ' Add row ElseIf Languages.RowType = EW_ROWTYPE_EDIT Then ' Edit row ElseIf Languages.RowType = EW_ROWTYPE_SEARCH Then ' Search row End If ' Call Row Rendered event Call Languages.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) Languages.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 Languages.StartRecordNumber = nStartRec Else nStartRec = Languages.StartRecordNumber End If Else nStartRec = Languages.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 Languages.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 Languages.StartRecordNumber = nStartRec ElseIf (nStartRec-1) Mod nDisplayRecs <> 0 Then nStartRec = ((nStartRec-1)\nDisplayRecs)*nDisplayRecs+1 ' Point to page boundary Languages.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 %>