<%@ CodePage=65001 %> <% Const EW_PAGE_ID = "add" 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 ' Load key values from QueryString Dim bCopy bCopy = True If Request.QueryString("id").Count > 0 Then Languages.id.QueryStringValue = Request.QueryString("id") Else bCopy = False End If ' Create form object Dim objForm Set objForm = New cFormObj ' Process form if post back If objForm.GetValue("a_add")&"" <> "" Then Languages.CurrentAction = objForm.GetValue("a_add") ' Get form action Call LoadFormValues() ' Load form values ' Not post back Else If bCopy Then Languages.CurrentAction = "C" ' Copy Record Else Languages.CurrentAction = "I" ' Display Blank Record Call LoadDefaultValues() ' Load default values End If End If ' Close form object Set objForm = Nothing ' Perform action based on action code Select Case Languages.CurrentAction Case "I" ' Blank record, no action required Case "C" ' Copy an existing record If Not LoadRow() Then ' Load record based on key Session(EW_SESSION_MESSAGE) = "No records found" ' No record found Call Page_Terminate(Languages.ReturnUrl) ' Clean up and return End If Case "A" ' Add new record Languages.SendEmail = True ' Send email on add success If AddRow() Then ' Add successful Session(EW_SESSION_MESSAGE) = "Add New Record Successful" ' Set up success message Call Page_Terminate(Languages.KeyUrl(Languages.ReturnUrl, "")) ' Clean up and return Else Call RestoreFormValues() ' Add failed, restore form values End If End Select ' Render row based on row type Languages.RowType = EW_ROWTYPE_ADD ' add ' Render add type Call RenderRow() %>

Add to TABLE: Languages

Go Back

<% If Session(EW_SESSION_MESSAGE) <> "" Then ' Mesasge in Session, display %>

<%= Session(EW_SESSION_MESSAGE) %>

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

> > > > > <% arwrk = Languages.Left_To_Right_Language.EditValue If IsArray(arwrk) Then rowswrk = UBound(arwrk, 2) For rowcntwrk = 0 To rowswrk If Languages.Left_To_Right_Language.CurrentValue&"" = arwrk(0, rowcntwrk)&"" Then selwrk = " checked" Else selwrk = "" End If %> <%= ew_RepeatColumnTable(rowswrk, rowcntwrk, 5, 1) %> "<%= selwrk %><%= Languages.Left_To_Right_Language.EditAttributes %>> <%= arwrk(1, rowcntwrk) %> <%= ew_RepeatColumnTable(rowswrk, rowcntwrk, 5, 2) %> <% Next End If %> > > > > > > <% If Languages.Hide.CurrentValue&"" = "1" Then selwrk = " checked" Else selwrk = "" End If %> <%= Languages.Hide.EditAttributes %>> > > > > > > > > > > > > > > > > >
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 default values Function LoadDefaultValues() Languages.Left_To_Right_Language.CurrentValue = 0 Languages.Hide.CurrentValue = 0 End Function %> <% ' Load form values Function LoadFormValues() ' Load from form Languages.Language_Name.FormValue = objForm.GetValue("x_Language_Name") Languages.Lang_Short_Name.FormValue = objForm.GetValue("x_Lang_Short_Name") Languages.Left_To_Right_Language.FormValue = objForm.GetValue("x_Left_To_Right_Language") Languages.Lang_LCID.FormValue = objForm.GetValue("x_Lang_LCID") Languages.Code_Page.FormValue = objForm.GetValue("x_Code_Page") Languages.View_Order.FormValue = objForm.GetValue("x_View_Order") Languages.Hide.FormValue = objForm.GetValue("x_Hide") Languages.Website_Consultants.FormValue = objForm.GetValue("x_Website_Consultants") Languages.Useful_Links.FormValue = objForm.GetValue("x_Useful_Links") Languages.Wallpapers.FormValue = objForm.GetValue("x_Wallpapers") Languages.More_Wall_Papers.FormValue = objForm.GetValue("x_More_Wall_Papers") Languages.Read_More.FormValue = objForm.GetValue("x_Read_More") Languages.More_News.FormValue = objForm.GetValue("x_More_News") Languages.More_videos.FormValue = objForm.GetValue("x_More_videos") Languages.Coming_Soon.FormValue = objForm.GetValue("x_Coming_Soon") Languages.Read_my_latest_news.FormValue = objForm.GetValue("x_Read_my_latest_news") Languages.Watch_my_latest_videos.FormValue = objForm.GetValue("x_Watch_my_latest_videos") Languages.Comments_and_Suggestions.FormValue = objForm.GetValue("x_Comments_and_Suggestions") Languages.Please_Click_and_add_your_comments.FormValue = objForm.GetValue("x_Please_Click_and_add_your_comments") Languages.Newsletter_Subscription.FormValue = objForm.GetValue("x_Newsletter_Subscription") Languages.To_receive_my_newsletter.FormValue = objForm.GetValue("x_To_receive_my_newsletter") Languages.Subscribe_Now.FormValue = objForm.GetValue("x_Subscribe_Now") Languages.Licensed_Player27s_Agent_Fifa_CBF.FormValue = objForm.GetValue("x_Licensed_Player27s_Agent_Fifa_CBF") Languages.Click_the_image_to_view_the_video.FormValue = objForm.GetValue("x_Click_the_image_to_view_the_video") End Function ' Restore form values Function RestoreFormValues() Languages.Language_Name.CurrentValue = Languages.Language_Name.FormValue Languages.Lang_Short_Name.CurrentValue = Languages.Lang_Short_Name.FormValue Languages.Left_To_Right_Language.CurrentValue = Languages.Left_To_Right_Language.FormValue Languages.Lang_LCID.CurrentValue = Languages.Lang_LCID.FormValue Languages.Code_Page.CurrentValue = Languages.Code_Page.FormValue Languages.View_Order.CurrentValue = Languages.View_Order.FormValue Languages.Hide.CurrentValue = Languages.Hide.FormValue Languages.Website_Consultants.CurrentValue = Languages.Website_Consultants.FormValue Languages.Useful_Links.CurrentValue = Languages.Useful_Links.FormValue Languages.Wallpapers.CurrentValue = Languages.Wallpapers.FormValue Languages.More_Wall_Papers.CurrentValue = Languages.More_Wall_Papers.FormValue Languages.Read_More.CurrentValue = Languages.Read_More.FormValue Languages.More_News.CurrentValue = Languages.More_News.FormValue Languages.More_videos.CurrentValue = Languages.More_videos.FormValue Languages.Coming_Soon.CurrentValue = Languages.Coming_Soon.FormValue Languages.Read_my_latest_news.CurrentValue = Languages.Read_my_latest_news.FormValue Languages.Watch_my_latest_videos.CurrentValue = Languages.Watch_my_latest_videos.FormValue Languages.Comments_and_Suggestions.CurrentValue = Languages.Comments_and_Suggestions.FormValue Languages.Please_Click_and_add_your_comments.CurrentValue = Languages.Please_Click_and_add_your_comments.FormValue Languages.Newsletter_Subscription.CurrentValue = Languages.Newsletter_Subscription.FormValue Languages.To_receive_my_newsletter.CurrentValue = Languages.To_receive_my_newsletter.FormValue Languages.Subscribe_Now.CurrentValue = Languages.Subscribe_Now.FormValue Languages.Licensed_Player27s_Agent_Fifa_CBF.CurrentValue = Languages.Licensed_Player27s_Agent_Fifa_CBF.FormValue Languages.Click_the_image_to_view_the_video.CurrentValue = Languages.Click_the_image_to_view_the_video.FormValue End Function %> <% ' 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 ' 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 ElseIf Languages.RowType = EW_ROWTYPE_ADD Then ' Add row ' Language_Name Languages.Language_Name.EditCustomAttributes = "" Languages.Language_Name.EditValue = ew_HtmlEncode(Languages.Language_Name.CurrentValue) ' Lang_Short_Name Languages.Lang_Short_Name.EditCustomAttributes = "" Languages.Lang_Short_Name.EditValue = ew_HtmlEncode(Languages.Lang_Short_Name.CurrentValue) ' Left_To_Right_Language Languages.Left_To_Right_Language.EditCustomAttributes = "" Redim arwrk(1,1) arwrk(0, 0) = "1" arwrk(1, 0) = "Yes" arwrk(0, 1) = "0" arwrk(1, 1) = "No" Languages.Left_To_Right_Language.EditValue = arwrk ' Lang_LCID Languages.Lang_LCID.EditCustomAttributes = "" Languages.Lang_LCID.EditValue = ew_HtmlEncode(Languages.Lang_LCID.CurrentValue) ' Code_Page Languages.Code_Page.EditCustomAttributes = "" Languages.Code_Page.EditValue = ew_HtmlEncode(Languages.Code_Page.CurrentValue) ' View_Order Languages.View_Order.EditCustomAttributes = "" Redim arwrk(1, 9) arwrk(0, 0) = "1" arwrk(1, 0) = "1" arwrk(0, 1) = "2" arwrk(1, 1) = "2" arwrk(0, 2) = "3" arwrk(1, 2) = "3" arwrk(0, 3) = "4" arwrk(1, 3) = "4" arwrk(0, 4) = "5" arwrk(1, 4) = "5" arwrk(0, 5) = "6" arwrk(1, 5) = "6" arwrk(0, 6) = "7" arwrk(1, 6) = "7" arwrk(0, 7) = "8" arwrk(1, 7) = "8" arwrk(0, 8) = "9" arwrk(1, 8) = "9" arwrk(0, 9) = "10" arwrk(1, 9) = "10" arwrk = ew_AddItemToArray(arwrk, 0, Array("", "Please Select")) Languages.View_Order.EditValue = arwrk ' Hide Languages.Hide.EditCustomAttributes = "" ' Website_Consultants Languages.Website_Consultants.EditCustomAttributes = "" Languages.Website_Consultants.EditValue = Languages.Website_Consultants.CurrentValue ' Useful_Links Languages.Useful_Links.EditCustomAttributes = "" Languages.Useful_Links.EditValue = Languages.Useful_Links.CurrentValue ' Wallpapers Languages.Wallpapers.EditCustomAttributes = "" Languages.Wallpapers.EditValue = Languages.Wallpapers.CurrentValue ' More_Wall_Papers Languages.More_Wall_Papers.EditCustomAttributes = "" Languages.More_Wall_Papers.EditValue = Languages.More_Wall_Papers.CurrentValue ' Read_More Languages.Read_More.EditCustomAttributes = "" Languages.Read_More.EditValue = Languages.Read_More.CurrentValue ' More_News Languages.More_News.EditCustomAttributes = "" Languages.More_News.EditValue = Languages.More_News.CurrentValue ' More_videos Languages.More_videos.EditCustomAttributes = "" Languages.More_videos.EditValue = Languages.More_videos.CurrentValue ' Coming_Soon Languages.Coming_Soon.EditCustomAttributes = "" Languages.Coming_Soon.EditValue = Languages.Coming_Soon.CurrentValue ' Read_my_latest_news Languages.Read_my_latest_news.EditCustomAttributes = "" Languages.Read_my_latest_news.EditValue = Languages.Read_my_latest_news.CurrentValue ' Watch_my_latest_videos Languages.Watch_my_latest_videos.EditCustomAttributes = "" Languages.Watch_my_latest_videos.EditValue = Languages.Watch_my_latest_videos.CurrentValue ' Comments_and_Suggestions Languages.Comments_and_Suggestions.EditCustomAttributes = "" Languages.Comments_and_Suggestions.EditValue = Languages.Comments_and_Suggestions.CurrentValue ' Please_Click_and_add_your_comments Languages.Please_Click_and_add_your_comments.EditCustomAttributes = "" Languages.Please_Click_and_add_your_comments.EditValue = Languages.Please_Click_and_add_your_comments.CurrentValue ' Newsletter_Subscription Languages.Newsletter_Subscription.EditCustomAttributes = "" Languages.Newsletter_Subscription.EditValue = Languages.Newsletter_Subscription.CurrentValue ' To_receive_my_newsletter Languages.To_receive_my_newsletter.EditCustomAttributes = "" Languages.To_receive_my_newsletter.EditValue = Languages.To_receive_my_newsletter.CurrentValue ' Subscribe_Now Languages.Subscribe_Now.EditCustomAttributes = "" Languages.Subscribe_Now.EditValue = Languages.Subscribe_Now.CurrentValue ' Licensed_Player's_Agent_Fifa_CBF Languages.Licensed_Player27s_Agent_Fifa_CBF.EditCustomAttributes = "" Languages.Licensed_Player27s_Agent_Fifa_CBF.EditValue = Languages.Licensed_Player27s_Agent_Fifa_CBF.CurrentValue ' Click_the_image_to_view_the_video Languages.Click_the_image_to_view_the_video.EditCustomAttributes = "" Languages.Click_the_image_to_view_the_video.EditValue = Languages.Click_the_image_to_view_the_video.CurrentValue 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 %> <% ' Add record Function AddRow() On Error Resume Next Dim rs, sSql, sFilter Dim rsnew Dim bCheckKey, sSqlChk, sWhereChk, rsChk Dim bInsertRow ' Check for duplicate key bCheckKey = True sFilter = Languages.SqlKeyFilter If Languages.id.CurrentValue = "" Or IsNull(Languages.id.CurrentValue) Then bCheckKey = False Else sFilter = Replace(sFilter, "@id@", ew_AdjustSql(Languages.id.CurrentValue)) ' Replace key value End If If Not IsNumeric(Languages.id.CurrentValue) Then bCheckKey = False End If If bCheckKey Then Set rsChk = Languages.LoadRs(sFilter) If Not (rsChk Is Nothing) Then Session(EW_SESSION_MESSAGE) = "Duplicate value for primary key" rsChk.Close Set rsChk = Nothing AddRow = False Exit Function End If End If ' Add new record sFilter = "(0 = 1)" Languages.CurrentFilter = sFilter sSql = Languages.SQL Set rs = Server.CreateObject("ADODB.Recordset") rs.CursorLocation = EW_CURSORLOCATION rs.Open sSql, conn, 1, 2 rs.AddNew If Err.Number <> 0 Then Session(EW_SESSION_MESSAGE) = Err.Description rs.Close Set rs = Nothing AddRow = False Exit Function End If ' Field Language_Name Call Languages.Language_Name.SetDbValue(Languages.Language_Name.CurrentValue, Null) rs("Language_Name") = Languages.Language_Name.DbValue ' Field Lang_Short_Name Call Languages.Lang_Short_Name.SetDbValue(Languages.Lang_Short_Name.CurrentValue, Null) rs("Lang_Short_Name") = Languages.Lang_Short_Name.DbValue ' Field Left_To_Right_Language Call Languages.Left_To_Right_Language.SetDbValue((Languages.Left_To_Right_Language.CurrentValue&"" = "1"), Null) rs("Left_To_Right_Language") = Languages.Left_To_Right_Language.DbValue ' Field Lang_LCID Call Languages.Lang_LCID.SetDbValue(Languages.Lang_LCID.CurrentValue, Null) rs("Lang_LCID") = Languages.Lang_LCID.DbValue ' Field Code_Page Call Languages.Code_Page.SetDbValue(Languages.Code_Page.CurrentValue, Null) rs("Code_Page") = Languages.Code_Page.DbValue ' Field View_Order Call Languages.View_Order.SetDbValue(Languages.View_Order.CurrentValue, Null) rs("View_Order") = Languages.View_Order.DbValue ' Field Hide Call Languages.Hide.SetDbValue((Languages.Hide.CurrentValue <> "" And Not IsNull(Languages.Hide.CurrentValue)), Null) rs("Hide") = Languages.Hide.DbValue ' Field Website_Consultants Call Languages.Website_Consultants.SetDbValue(Languages.Website_Consultants.CurrentValue, Null) rs("Website_Consultants") = Languages.Website_Consultants.DbValue ' Field Useful_Links Call Languages.Useful_Links.SetDbValue(Languages.Useful_Links.CurrentValue, Null) rs("Useful_Links") = Languages.Useful_Links.DbValue ' Field Wallpapers Call Languages.Wallpapers.SetDbValue(Languages.Wallpapers.CurrentValue, Null) rs("Wallpapers") = Languages.Wallpapers.DbValue ' Field More_Wall_Papers Call Languages.More_Wall_Papers.SetDbValue(Languages.More_Wall_Papers.CurrentValue, Null) rs("More_Wall_Papers") = Languages.More_Wall_Papers.DbValue ' Field Read_More Call Languages.Read_More.SetDbValue(Languages.Read_More.CurrentValue, Null) rs("Read_More") = Languages.Read_More.DbValue ' Field More_News Call Languages.More_News.SetDbValue(Languages.More_News.CurrentValue, Null) rs("More_News") = Languages.More_News.DbValue ' Field More_videos Call Languages.More_videos.SetDbValue(Languages.More_videos.CurrentValue, Null) rs("More_videos") = Languages.More_videos.DbValue ' Field Coming_Soon Call Languages.Coming_Soon.SetDbValue(Languages.Coming_Soon.CurrentValue, Null) rs("Coming_Soon") = Languages.Coming_Soon.DbValue ' Field Read_my_latest_news Call Languages.Read_my_latest_news.SetDbValue(Languages.Read_my_latest_news.CurrentValue, Null) rs("Read_my_latest_news") = Languages.Read_my_latest_news.DbValue ' Field Watch_my_latest_videos Call Languages.Watch_my_latest_videos.SetDbValue(Languages.Watch_my_latest_videos.CurrentValue, Null) rs("Watch_my_latest_videos") = Languages.Watch_my_latest_videos.DbValue ' Field Comments_and_Suggestions Call Languages.Comments_and_Suggestions.SetDbValue(Languages.Comments_and_Suggestions.CurrentValue, Null) rs("Comments_and_Suggestions") = Languages.Comments_and_Suggestions.DbValue ' Field Please_Click_and_add_your_comments Call Languages.Please_Click_and_add_your_comments.SetDbValue(Languages.Please_Click_and_add_your_comments.CurrentValue, Null) rs("Please_Click_and_add_your_comments") = Languages.Please_Click_and_add_your_comments.DbValue ' Field Newsletter_Subscription Call Languages.Newsletter_Subscription.SetDbValue(Languages.Newsletter_Subscription.CurrentValue, Null) rs("Newsletter_Subscription") = Languages.Newsletter_Subscription.DbValue ' Field To_receive_my_newsletter Call Languages.To_receive_my_newsletter.SetDbValue(Languages.To_receive_my_newsletter.CurrentValue, Null) rs("To_receive_my_newsletter") = Languages.To_receive_my_newsletter.DbValue ' Field Subscribe_Now Call Languages.Subscribe_Now.SetDbValue(Languages.Subscribe_Now.CurrentValue, Null) rs("Subscribe_Now") = Languages.Subscribe_Now.DbValue ' Field Licensed_Player's_Agent_Fifa_CBF Call Languages.Licensed_Player27s_Agent_Fifa_CBF.SetDbValue(Languages.Licensed_Player27s_Agent_Fifa_CBF.CurrentValue, Null) rs("Licensed_Player's_Agent_Fifa_CBF") = Languages.Licensed_Player27s_Agent_Fifa_CBF.DbValue ' Field Click_the_image_to_view_the_video Call Languages.Click_the_image_to_view_the_video.SetDbValue(Languages.Click_the_image_to_view_the_video.CurrentValue, Null) rs("Click_the_image_to_view_the_video") = Languages.Click_the_image_to_view_the_video.DbValue ' Check recordset update error If Err.Number <> 0 Then Session(EW_SESSION_MESSAGE) = Err.Description rs.Close Set rs = Nothing AddRow = False Exit Function End If ' Call Row Inserting event bInsertRow = Languages.Row_Inserting(rs) If bInsertRow Then ' Clone new rs object Set rsnew = ew_CloneRs(rs) rs.Update If Err.Number <> 0 Then Session(EW_SESSION_MESSAGE) = Err.Description AddRow = False Else AddRow = True End If Else rs.CancelUpdate If Languages.CancelMessage <> "" Then Session(EW_SESSION_MESSAGE) = Languages.CancelMessage Languages.CancelMessage = "" Else Session(EW_SESSION_MESSAGE) = "Insert cancelled" End If AddRow = False End If rs.Close Set rs = Nothing If AddRow Then Languages.id.DbValue = rsnew("id") ' Call Row Inserted event Call Languages.Row_Inserted(rsnew) End If If IsObject(rsnew) Then rsnew.Close Set rsnew = Nothing End If End Function %> <% ' Page Load event Sub Page_Load() '***Response.Write "Page Load" Server.ScriptTimeout=1000 End Sub ' Page Unload event Sub Page_Unload() '***Response.Write "Page Unload" End Sub %>