View TABLE: News
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 %>
<%= Session(EW_SESSION_MESSAGE) %>
<% Session(EW_SESSION_MESSAGE) = "" ' Clear message 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)
' ----------------------------------------
%>
<%
' 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
' id
News.id.CellCssStyle = ""
News.id.CellCssClass = ""
' 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 = ""
' CreatedDate
News.CreatedDate.CellCssStyle = ""
News.CreatedDate.CellCssClass = ""
If News.RowType = EW_ROWTYPE_VIEW Then ' View row
' id
News.id.ViewValue = News.id.CurrentValue
News.id.CssStyle = ""
News.id.CssClass = ""
News.id.ViewCustomAttributes = ""
' language_id
If Not IsNull(News.language_id.CurrentValue) And News.language_id.CurrentValue <> "" Then
sSqlWrk = "SELECT [Language_Name] FROM [Languages] WHERE [id] = " & ew_AdjustSql(News.language_id.CurrentValue) & ""
Set rswrk = conn.Execute(sSqlWrk)
If Not rswrk.Eof Then
News.language_id.ViewValue = rswrk("Language_Name")
Else
News.language_id.ViewValue = News.language_id.CurrentValue
End If
rswrk.Close
Set rswrk = Nothing
Else
News.language_id.ViewValue = Null
End If
News.language_id.CssStyle = ""
News.language_id.CssClass = ""
News.language_id.ViewCustomAttributes = ""
' News_Title
News.News_Title.ViewValue = News.News_Title.CurrentValue
News.News_Title.CssStyle = ""
News.News_Title.CssClass = ""
News.News_Title.ViewCustomAttributes = ""
' News_Description
News.News_Description.ViewValue = News.News_Description.CurrentValue
If Not IsNull(News.News_Description.ViewValue) Then
News.News_Description.ViewValue = Replace(News.News_Description.ViewValue, vbLf, "
")
End If
News.News_Description.CssStyle = ""
News.News_Description.CssClass = ""
News.News_Description.ViewCustomAttributes = ""
' News_Date
News.News_Date.ViewValue = News.News_Date.CurrentValue
News.News_Date.ViewValue = ew_FormatDateTime(News.News_Date.ViewValue, 7)
News.News_Date.CssStyle = ""
News.News_Date.CssClass = ""
News.News_Date.ViewCustomAttributes = ""
' Thumb_Image
If Not IsNull(News.Thumb_Image.Upload.DbValue) Then
News.Thumb_Image.ViewValue = News.Thumb_Image.Upload.DbValue
News.Thumb_Image.ImageAlt = ""
Else
News.Thumb_Image.ViewValue = ""
End If
News.Thumb_Image.CssStyle = ""
News.Thumb_Image.CssClass = ""
News.Thumb_Image.ViewCustomAttributes = ""
' News_Image_1_Caption
News.News_Image_1_Caption.ViewValue = News.News_Image_1_Caption.CurrentValue
News.News_Image_1_Caption.CssStyle = ""
News.News_Image_1_Caption.CssClass = ""
News.News_Image_1_Caption.ViewCustomAttributes = ""
' News_Image_1
If Not IsNull(News.News_Image_1.Upload.DbValue) Then
News.News_Image_1.ViewValue = News.News_Image_1.Upload.DbValue
News.News_Image_1.ImageAlt = ""
Else
News.News_Image_1.ViewValue = ""
End If
News.News_Image_1.CssStyle = ""
News.News_Image_1.CssClass = ""
News.News_Image_1.ViewCustomAttributes = ""
' News_Image_2_Caption
News.News_Image_2_Caption.ViewValue = News.News_Image_2_Caption.CurrentValue
News.News_Image_2_Caption.CssStyle = ""
News.News_Image_2_Caption.CssClass = ""
News.News_Image_2_Caption.ViewCustomAttributes = ""
' News_Image_2
If Not IsNull(News.News_Image_2.Upload.DbValue) Then
News.News_Image_2.ViewValue = News.News_Image_2.Upload.DbValue
News.News_Image_2.ImageAlt = ""
Else
News.News_Image_2.ViewValue = ""
End If
News.News_Image_2.CssStyle = ""
News.News_Image_2.CssClass = ""
News.News_Image_2.ViewCustomAttributes = ""
' News_Image_3_Caption
News.News_Image_3_Caption.ViewValue = News.News_Image_3_Caption.CurrentValue
News.News_Image_3_Caption.CssStyle = ""
News.News_Image_3_Caption.CssClass = ""
News.News_Image_3_Caption.ViewCustomAttributes = ""
' News_Image_3
If Not IsNull(News.News_Image_3.Upload.DbValue) Then
News.News_Image_3.ViewValue = News.News_Image_3.Upload.DbValue
News.News_Image_3.ImageAlt = ""
Else
News.News_Image_3.ViewValue = ""
End If
News.News_Image_3.CssStyle = ""
News.News_Image_3.CssClass = ""
News.News_Image_3.ViewCustomAttributes = ""
' News_Image_4_Caption
News.News_Image_4_Caption.ViewValue = News.News_Image_4_Caption.CurrentValue
News.News_Image_4_Caption.CssStyle = ""
News.News_Image_4_Caption.CssClass = ""
News.News_Image_4_Caption.ViewCustomAttributes = ""
' News_Image_4
If Not IsNull(News.News_Image_4.Upload.DbValue) Then
News.News_Image_4.ViewValue = News.News_Image_4.Upload.DbValue
News.News_Image_4.ImageAlt = ""
Else
News.News_Image_4.ViewValue = ""
End If
News.News_Image_4.CssStyle = ""
News.News_Image_4.CssClass = ""
News.News_Image_4.ViewCustomAttributes = ""
' News_Image_5_Caption
News.News_Image_5_Caption.ViewValue = News.News_Image_5_Caption.CurrentValue
News.News_Image_5_Caption.CssStyle = ""
News.News_Image_5_Caption.CssClass = ""
News.News_Image_5_Caption.ViewCustomAttributes = ""
' News_Image_5
If Not IsNull(News.News_Image_5.Upload.DbValue) Then
News.News_Image_5.ViewValue = News.News_Image_5.Upload.DbValue
News.News_Image_5.ImageAlt = ""
Else
News.News_Image_5.ViewValue = ""
End If
News.News_Image_5.CssStyle = ""
News.News_Image_5.CssClass = ""
News.News_Image_5.ViewCustomAttributes = ""
' CreatedDate
News.CreatedDate.ViewValue = News.CreatedDate.CurrentValue
News.CreatedDate.ViewValue = ew_FormatDateTime(News.CreatedDate.ViewValue, 7)
News.CreatedDate.CssStyle = ""
News.CreatedDate.CssClass = ""
News.CreatedDate.ViewCustomAttributes = ""
' id
' *** view refer script
News.id.HrefValue = ""
' language_id
' *** view refer script
News.language_id.HrefValue = ""
' News_Title
' *** view refer script
News.News_Title.HrefValue = ""
' News_Description
' *** view refer script
News.News_Description.HrefValue = ""
' News_Date
' *** view refer script
News.News_Date.HrefValue = ""
' Thumb_Image
' *** view refer script
News.Thumb_Image.HrefValue = ""
' News_Image_1_Caption
' *** view refer script
News.News_Image_1_Caption.HrefValue = ""
' News_Image_1
' *** view refer script
News.News_Image_1.HrefValue = ""
' News_Image_2_Caption
' *** view refer script
News.News_Image_2_Caption.HrefValue = ""
' News_Image_2
' *** view refer script
News.News_Image_2.HrefValue = ""
' News_Image_3_Caption
' *** view refer script
News.News_Image_3_Caption.HrefValue = ""
' News_Image_3
' *** view refer script
News.News_Image_3.HrefValue = ""
' News_Image_4_Caption
' *** view refer script
News.News_Image_4_Caption.HrefValue = ""
' News_Image_4
' *** view refer script
News.News_Image_4.HrefValue = ""
' News_Image_5_Caption
' *** view refer script
News.News_Image_5_Caption.HrefValue = ""
' News_Image_5
' *** view refer script
News.News_Image_5.HrefValue = ""
' CreatedDate
' *** view refer script
News.CreatedDate.HrefValue = ""
ElseIf News.RowType = EW_ROWTYPE_ADD Then ' Add row
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
%>
<%
' 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)
News.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
News.StartRecordNumber = nStartRec
Else
nStartRec = News.StartRecordNumber
End If
Else
nStartRec = News.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
News.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
News.StartRecordNumber = nStartRec
ElseIf (nStartRec-1) Mod nDisplayRecs <> 0 Then
nStartRec = ((nStartRec-1)\nDisplayRecs)*nDisplayRecs+1 ' Point to page boundary
News.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
%>