Add to TABLE: News
Go Back
<%= Session(EW_SESSION_MESSAGE) %>
<% Session(EW_SESSION_MESSAGE) = "" ' Clear message in Session End If %> <% ' 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 News = 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) ' ---------------------------------------- %> <% ' Function Get upload files Function GetUploadFiles() ' Get upload data If News.Thumb_Image.Upload.UploadFile() Then ' No action required Else Response.Write News.Thumb_Image.Upload.Message Response.End End If If News.News_Image_1.Upload.UploadFile() Then ' No action required Else Response.Write News.News_Image_1.Upload.Message Response.End End If If News.News_Image_2.Upload.UploadFile() Then ' No action required Else Response.Write News.News_Image_2.Upload.Message Response.End End If If News.News_Image_3.Upload.UploadFile() Then ' No action required Else Response.Write News.News_Image_3.Upload.Message Response.End End If If News.News_Image_4.Upload.UploadFile() Then ' No action required Else Response.Write News.News_Image_4.Upload.Message Response.End End If If News.News_Image_5.Upload.UploadFile() Then ' No action required Else Response.Write News.News_Image_5.Upload.Message Response.End End If End Function %> <% ' Load default values Function LoadDefaultValues() End Function %> <% ' Load form values Function LoadFormValues() ' Load from form News.language_id.FormValue = objForm.GetValue("x_language_id") News.News_Title.FormValue = objForm.GetValue("x_News_Title") News.News_Description.FormValue = objForm.GetValue("x_News_Description") News.News_Date.FormValue = objForm.GetValue("x_News_Date") News.News_Date.CurrentValue = ew_UnFormatDateTime(News.News_Date.CurrentValue, 7) News.News_Image_1_Caption.FormValue = objForm.GetValue("x_News_Image_1_Caption") News.News_Image_2_Caption.FormValue = objForm.GetValue("x_News_Image_2_Caption") News.News_Image_3_Caption.FormValue = objForm.GetValue("x_News_Image_3_Caption") News.News_Image_4_Caption.FormValue = objForm.GetValue("x_News_Image_4_Caption") News.News_Image_5_Caption.FormValue = objForm.GetValue("x_News_Image_5_Caption") End Function ' Restore form values Function RestoreFormValues() News.language_id.CurrentValue = News.language_id.FormValue News.News_Title.CurrentValue = News.News_Title.FormValue News.News_Description.CurrentValue = News.News_Description.FormValue News.News_Date.CurrentValue = News.News_Date.FormValue News.News_Date.CurrentValue = ew_UnFormatDateTime(News.News_Date.CurrentValue, 7) News.News_Image_1_Caption.CurrentValue = News.News_Image_1_Caption.FormValue News.News_Image_2_Caption.CurrentValue = News.News_Image_2_Caption.FormValue News.News_Image_3_Caption.CurrentValue = News.News_Image_3_Caption.FormValue News.News_Image_4_Caption.CurrentValue = News.News_Image_4_Caption.FormValue News.News_Image_5_Caption.CurrentValue = News.News_Image_5_Caption.FormValue End Function %> <% ' Load row based on key values Function LoadRow() Dim rs, sSql, sFilter sFilter = News.SqlKeyFilter If Not IsNumeric(News.id.CurrentValue) Then LoadRow = False ' Invalid key, exit Exit Function End If sFilter = Replace(sFilter, "@id@", ew_AdjustSql(News.id.CurrentValue)) ' Replace key value ' Call Row Selecting event Call News.Row_Selecting(sFilter) ' Load sql based on filter News.CurrentFilter = sFilter sSql = News.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 News.Row_Selected(rs) End If rs.Close Set rs = Nothing End Function ' Load row values from recordset Sub LoadRowValues(rs) News.id.DbValue = rs("id") News.language_id.DbValue = rs("language_id") News.News_Title.DbValue = rs("News_Title") News.News_Description.DbValue = rs("News_Description") News.News_Date.DbValue = rs("News_Date") News.Thumb_Image.Upload.DbValue = rs("Thumb_Image") News.News_Image_1_Caption.DbValue = rs("News_Image_1_Caption") News.News_Image_1.Upload.DbValue = rs("News_Image_1") News.News_Image_2_Caption.DbValue = rs("News_Image_2_Caption") News.News_Image_2.Upload.DbValue = rs("News_Image_2") News.News_Image_3_Caption.DbValue = rs("News_Image_3_Caption") News.News_Image_3.Upload.DbValue = rs("News_Image_3") News.News_Image_4_Caption.DbValue = rs("News_Image_4_Caption") News.News_Image_4.Upload.DbValue = rs("News_Image_4") News.News_Image_5_Caption.DbValue = rs("News_Image_5_Caption") News.News_Image_5.Upload.DbValue = rs("News_Image_5") News.CreatedDate.DbValue = rs("CreatedDate") End Sub %> <% ' Render row values based on field settings Sub RenderRow() ' Call Row Rendering event Call News.Row_Rendering() ' Common render codes for all row types ' language_id News.language_id.CellCssStyle = "" News.language_id.CellCssClass = "" ' News_Title News.News_Title.CellCssStyle = "" News.News_Title.CellCssClass = "" ' News_Description News.News_Description.CellCssStyle = "" News.News_Description.CellCssClass = "" ' News_Date News.News_Date.CellCssStyle = "" News.News_Date.CellCssClass = "" ' Thumb_Image News.Thumb_Image.CellCssStyle = "" News.Thumb_Image.CellCssClass = "" ' News_Image_1_Caption News.News_Image_1_Caption.CellCssStyle = "" News.News_Image_1_Caption.CellCssClass = "" ' News_Image_1 News.News_Image_1.CellCssStyle = "" News.News_Image_1.CellCssClass = "" ' News_Image_2_Caption News.News_Image_2_Caption.CellCssStyle = "" News.News_Image_2_Caption.CellCssClass = "" ' News_Image_2 News.News_Image_2.CellCssStyle = "" News.News_Image_2.CellCssClass = "" ' News_Image_3_Caption News.News_Image_3_Caption.CellCssStyle = "" News.News_Image_3_Caption.CellCssClass = "" ' News_Image_3 News.News_Image_3.CellCssStyle = "" News.News_Image_3.CellCssClass = "" ' News_Image_4_Caption News.News_Image_4_Caption.CellCssStyle = "" News.News_Image_4_Caption.CellCssClass = "" ' News_Image_4 News.News_Image_4.CellCssStyle = "" News.News_Image_4.CellCssClass = "" ' News_Image_5_Caption News.News_Image_5_Caption.CellCssStyle = "" News.News_Image_5_Caption.CellCssClass = "" ' News_Image_5 News.News_Image_5.CellCssStyle = "" News.News_Image_5.CellCssClass = "" If News.RowType = EW_ROWTYPE_VIEW Then ' View row ElseIf News.RowType = EW_ROWTYPE_ADD Then ' Add row ' language_id News.language_id.EditCustomAttributes = "" sSqlWrk = "SELECT [id], [Language_Name] FROM [Languages]" Set rswrk = Server.CreateObject("ADODB.Recordset") rswrk.Open sSqlWrk, conn If Not rswrk.Eof Then arwrk = rswrk.GetRows Else arwrk = "" End If rswrk.Close Set rswrk = Nothing arwrk = ew_AddItemToArray(arwrk, 0, Array("", "Please Select")) News.language_id.EditValue = arwrk ' News_Title News.News_Title.EditCustomAttributes = "" News.News_Title.EditValue = ew_HtmlEncode(News.News_Title.CurrentValue) ' News_Description News.News_Description.EditCustomAttributes = "" News.News_Description.EditValue = News.News_Description.CurrentValue ' News_Date News.News_Date.EditCustomAttributes = "" News.News_Date.EditValue = ew_FormatDateTime(News.News_Date.CurrentValue, 7) ' Thumb_Image News.Thumb_Image.EditCustomAttributes = "" If Not IsNull(News.Thumb_Image.Upload.DbValue) Then News.Thumb_Image.EditValue = News.Thumb_Image.Upload.DbValue News.Thumb_Image.ImageAlt = "" Else News.Thumb_Image.EditValue = "" End If ' News_Image_1_Caption News.News_Image_1_Caption.EditCustomAttributes = "" News.News_Image_1_Caption.EditValue = ew_HtmlEncode(News.News_Image_1_Caption.CurrentValue) ' News_Image_1 News.News_Image_1.EditCustomAttributes = "" If Not IsNull(News.News_Image_1.Upload.DbValue) Then News.News_Image_1.EditValue = News.News_Image_1.Upload.DbValue News.News_Image_1.ImageAlt = "" Else News.News_Image_1.EditValue = "" End If ' News_Image_2_Caption News.News_Image_2_Caption.EditCustomAttributes = "" News.News_Image_2_Caption.EditValue = ew_HtmlEncode(News.News_Image_2_Caption.CurrentValue) ' News_Image_2 News.News_Image_2.EditCustomAttributes = "" If Not IsNull(News.News_Image_2.Upload.DbValue) Then News.News_Image_2.EditValue = News.News_Image_2.Upload.DbValue News.News_Image_2.ImageAlt = "" Else News.News_Image_2.EditValue = "" End If ' News_Image_3_Caption News.News_Image_3_Caption.EditCustomAttributes = "" News.News_Image_3_Caption.EditValue = ew_HtmlEncode(News.News_Image_3_Caption.CurrentValue) ' News_Image_3 News.News_Image_3.EditCustomAttributes = "" If Not IsNull(News.News_Image_3.Upload.DbValue) Then News.News_Image_3.EditValue = News.News_Image_3.Upload.DbValue News.News_Image_3.ImageAlt = "" Else News.News_Image_3.EditValue = "" End If ' News_Image_4_Caption News.News_Image_4_Caption.EditCustomAttributes = "" News.News_Image_4_Caption.EditValue = ew_HtmlEncode(News.News_Image_4_Caption.CurrentValue) ' News_Image_4 News.News_Image_4.EditCustomAttributes = "" If Not IsNull(News.News_Image_4.Upload.DbValue) Then News.News_Image_4.EditValue = News.News_Image_4.Upload.DbValue News.News_Image_4.ImageAlt = "" Else News.News_Image_4.EditValue = "" End If ' News_Image_5_Caption News.News_Image_5_Caption.EditCustomAttributes = "" News.News_Image_5_Caption.EditValue = ew_HtmlEncode(News.News_Image_5_Caption.CurrentValue) ' News_Image_5 News.News_Image_5.EditCustomAttributes = "" If Not IsNull(News.News_Image_5.Upload.DbValue) Then News.News_Image_5.EditValue = News.News_Image_5.Upload.DbValue News.News_Image_5.ImageAlt = "" Else News.News_Image_5.EditValue = "" End If ElseIf News.RowType = EW_ROWTYPE_EDIT Then ' Edit row ElseIf News.RowType = EW_ROWTYPE_SEARCH Then ' Search row End If ' Call Row Rendered event Call News.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 = News.SqlKeyFilter If News.id.CurrentValue = "" Or IsNull(News.id.CurrentValue) Then bCheckKey = False Else sFilter = Replace(sFilter, "@id@", ew_AdjustSql(News.id.CurrentValue)) ' Replace key value End If If Not IsNumeric(News.id.CurrentValue) Then bCheckKey = False End If If bCheckKey Then Set rsChk = News.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)" News.CurrentFilter = sFilter sSql = News.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_id Call News.language_id.SetDbValue(News.language_id.CurrentValue, Null) rs("language_id") = News.language_id.DbValue ' Field News_Title Call News.News_Title.SetDbValue(News.News_Title.CurrentValue, Null) rs("News_Title") = News.News_Title.DbValue ' Field News_Description Call News.News_Description.SetDbValue(News.News_Description.CurrentValue, Null) rs("News_Description") = News.News_Description.DbValue ' Field News_Date Call News.News_Date.SetDbValue(ew_UnFormatDateTime(News.News_Date.CurrentValue, 7), Null) rs("News_Date") = News.News_Date.DbValue ' Field Thumb_Image Call News.Thumb_Image.Upload.SaveToSession() ' Save file value to Session News.Thumb_Image.Upload.DbValue = rs("Thumb_Image") ' Get original value If IsNull(News.Thumb_Image.Upload.Value) Then rs("Thumb_Image") = Null Else rs("Thumb_Image") = ew_UploadFileNameEx(ew_UploadPathEx(True, "images/news/"), News.Thumb_Image.Upload.FileName) End If ' Field News_Image_1_Caption Call News.News_Image_1_Caption.SetDbValue(News.News_Image_1_Caption.CurrentValue, Null) rs("News_Image_1_Caption") = News.News_Image_1_Caption.DbValue ' Field News_Image_1 Call News.News_Image_1.Upload.SaveToSession() ' Save file value to Session News.News_Image_1.Upload.DbValue = rs("News_Image_1") ' Get original value If IsNull(News.News_Image_1.Upload.Value) Then rs("News_Image_1") = Null Else rs("News_Image_1") = ew_UploadFileNameEx(ew_UploadPathEx(True, "images/news/"), News.News_Image_1.Upload.FileName) End If ' Field News_Image_2_Caption Call News.News_Image_2_Caption.SetDbValue(News.News_Image_2_Caption.CurrentValue, Null) rs("News_Image_2_Caption") = News.News_Image_2_Caption.DbValue ' Field News_Image_2 Call News.News_Image_2.Upload.SaveToSession() ' Save file value to Session News.News_Image_2.Upload.DbValue = rs("News_Image_2") ' Get original value If IsNull(News.News_Image_2.Upload.Value) Then rs("News_Image_2") = Null Else rs("News_Image_2") = ew_UploadFileNameEx(ew_UploadPathEx(True, "images/news/"), News.News_Image_2.Upload.FileName) End If ' Field News_Image_3_Caption Call News.News_Image_3_Caption.SetDbValue(News.News_Image_3_Caption.CurrentValue, Null) rs("News_Image_3_Caption") = News.News_Image_3_Caption.DbValue ' Field News_Image_3 Call News.News_Image_3.Upload.SaveToSession() ' Save file value to Session News.News_Image_3.Upload.DbValue = rs("News_Image_3") ' Get original value If IsNull(News.News_Image_3.Upload.Value) Then rs("News_Image_3") = Null Else rs("News_Image_3") = ew_UploadFileNameEx(ew_UploadPathEx(True, "images/news/"), News.News_Image_3.Upload.FileName) End If ' Field News_Image_4_Caption Call News.News_Image_4_Caption.SetDbValue(News.News_Image_4_Caption.CurrentValue, Null) rs("News_Image_4_Caption") = News.News_Image_4_Caption.DbValue ' Field News_Image_4 Call News.News_Image_4.Upload.SaveToSession() ' Save file value to Session News.News_Image_4.Upload.DbValue = rs("News_Image_4") ' Get original value If IsNull(News.News_Image_4.Upload.Value) Then rs("News_Image_4") = Null Else rs("News_Image_4") = ew_UploadFileNameEx(ew_UploadPathEx(True, "images/news/"), News.News_Image_4.Upload.FileName) End If ' Field News_Image_5_Caption Call News.News_Image_5_Caption.SetDbValue(News.News_Image_5_Caption.CurrentValue, Null) rs("News_Image_5_Caption") = News.News_Image_5_Caption.DbValue ' Field News_Image_5 Call News.News_Image_5.Upload.SaveToSession() ' Save file value to Session News.News_Image_5.Upload.DbValue = rs("News_Image_5") ' Get original value If IsNull(News.News_Image_5.Upload.Value) Then rs("News_Image_5") = Null Else rs("News_Image_5") = ew_UploadFileNameEx(ew_UploadPathEx(True, "images/news/"), News.News_Image_5.Upload.FileName) End If ' 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 = News.Row_Inserting(rs) If bInsertRow Then ' Field Thumb_Image If Not IsNull(News.Thumb_Image.Upload.Value) Then Call ew_SaveFile(ew_UploadPathEx(True, "images/news/"), rs("Thumb_Image"), News.Thumb_Image.Upload.Value) If News.Thumb_Image.Upload.Action = "2" Or News.Thumb_Image.Upload.Action = "3" Then ' Update/Remove If News.Thumb_Image.Upload.DbValue <> "" Then ew_DeleteFile ew_UploadPathEx(True, "images/news/") & News.Thumb_Image.Upload.DbValue End If ' Field News_Image_1 If Not IsNull(News.News_Image_1.Upload.Value) Then Call ew_SaveFile(ew_UploadPathEx(True, "images/news/"), rs("News_Image_1"), News.News_Image_1.Upload.Value) If News.News_Image_1.Upload.Action = "2" Or News.News_Image_1.Upload.Action = "3" Then ' Update/Remove If News.News_Image_1.Upload.DbValue <> "" Then ew_DeleteFile ew_UploadPathEx(True, "images/news/") & News.News_Image_1.Upload.DbValue End If ' Field News_Image_2 If Not IsNull(News.News_Image_2.Upload.Value) Then Call ew_SaveFile(ew_UploadPathEx(True, "images/news/"), rs("News_Image_2"), News.News_Image_2.Upload.Value) If News.News_Image_2.Upload.Action = "2" Or News.News_Image_2.Upload.Action = "3" Then ' Update/Remove If News.News_Image_2.Upload.DbValue <> "" Then ew_DeleteFile ew_UploadPathEx(True, "images/news/") & News.News_Image_2.Upload.DbValue End If ' Field News_Image_3 If Not IsNull(News.News_Image_3.Upload.Value) Then Call ew_SaveFile(ew_UploadPathEx(True, "images/news/"), rs("News_Image_3"), News.News_Image_3.Upload.Value) If News.News_Image_3.Upload.Action = "2" Or News.News_Image_3.Upload.Action = "3" Then ' Update/Remove If News.News_Image_3.Upload.DbValue <> "" Then ew_DeleteFile ew_UploadPathEx(True, "images/news/") & News.News_Image_3.Upload.DbValue End If ' Field News_Image_4 If Not IsNull(News.News_Image_4.Upload.Value) Then Call ew_SaveFile(ew_UploadPathEx(True, "images/news/"), rs("News_Image_4"), News.News_Image_4.Upload.Value) If News.News_Image_4.Upload.Action = "2" Or News.News_Image_4.Upload.Action = "3" Then ' Update/Remove If News.News_Image_4.Upload.DbValue <> "" Then ew_DeleteFile ew_UploadPathEx(True, "images/news/") & News.News_Image_4.Upload.DbValue End If ' Field News_Image_5 If Not IsNull(News.News_Image_5.Upload.Value) Then Call ew_SaveFile(ew_UploadPathEx(True, "images/news/"), rs("News_Image_5"), News.News_Image_5.Upload.Value) If News.News_Image_5.Upload.Action = "2" Or News.News_Image_5.Upload.Action = "3" Then ' Update/Remove If News.News_Image_5.Upload.DbValue <> "" Then ew_DeleteFile ew_UploadPathEx(True, "images/news/") & News.News_Image_5.Upload.DbValue End If ' 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 News.CancelMessage <> "" Then Session(EW_SESSION_MESSAGE) = News.CancelMessage News.CancelMessage = "" Else Session(EW_SESSION_MESSAGE) = "Insert cancelled" End If AddRow = False End If rs.Close Set rs = Nothing If AddRow Then News.id.DbValue = rsnew("id") ' Call Row Inserted event Call News.Row_Inserted(rsnew) End If ' Field Thumb_Image Call News.Thumb_Image.Upload.RemoveFromSession() ' Remove file value from Session ' Field News_Image_1 Call News.News_Image_1.Upload.RemoveFromSession() ' Remove file value from Session ' Field News_Image_2 Call News.News_Image_2.Upload.RemoveFromSession() ' Remove file value from Session ' Field News_Image_3 Call News.News_Image_3.Upload.RemoveFromSession() ' Remove file value from Session ' Field News_Image_4 Call News.News_Image_4.Upload.RemoveFromSession() ' Remove file value from Session ' Field News_Image_5 Call News.News_Image_5.Upload.RemoveFromSession() ' Remove file value from Session 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 %>