<% Response.Buffer = EW_RESPONSE_BUFFER %> <% Session.Timeout = 20 %> <% Response.Expires = 0 Response.ExpiresAbsolute = Now() - 1 Response.AddHeader "pragma", "no-cache" Response.AddHeader "cache-control", "private, no-cache, no-store, must-revalidate" %> <% Server.ScriptTimeOut = 240 %> <% ' Define page object Dim content_view Set content_view = New ccontent_view Set Page = content_view ' Page init processing Call content_view.Page_Init() ' Page main processing Call content_view.Page_Main() %> Blush Salon
<%= content.pagetext.ViewValue %>

404 - You seem to have come to a link that is non-existant

Get back onto the website by clicking on one of the links of the left.

<% ' Drop page object Set content_view = Nothing %> <% ' ----------------------------------------------------------------- ' Page Class ' Class ccontent_view ' Page ID Public Property Get PageID() PageID = "view" End Property ' Table Name Public Property Get TableName() TableName = "content" End Property ' Page Object Name Public Property Get PageObjName() PageObjName = "content_view" End Property ' Page Name Public Property Get PageName() PageName = ew_CurrentPage() End Property ' Page Url Public Property Get PageUrl() PageUrl = ew_CurrentPage() & "?" If content.UseTokenInUrl Then PageUrl = PageUrl & "t=" & content.TableVar & "&" ' add page token End Property ' Common urls Dim AddUrl Dim EditUrl Dim CopyUrl Dim DeleteUrl Dim ViewUrl Dim ListUrl ' Export urls Dim ExportPrintUrl Dim ExportHtmlUrl Dim ExportExcelUrl Dim ExportWordUrl Dim ExportXmlUrl Dim ExportCsvUrl ' Inline urls Dim InlineAddUrl Dim InlineCopyUrl Dim InlineEditUrl Dim GridAddUrl Dim GridEditUrl Dim MultiDeleteUrl Dim MultiUpdateUrl ' Debug Message Dim m_DebugMsg Public Property Get DebugMsg() If m_DebugMsg <> "" Then DebugMsg = "

" & m_DebugMsg & "

" Else DebugMsg = "" End If End Property Public Property Let DebugMsg(v) If m_DebugMsg <> "" Then ' Append m_DebugMsg = m_DebugMsg & "
" & v Else m_DebugMsg = v End If End Property ' Message Public Property Get Message() Message = Session(EW_SESSION_MESSAGE) End Property Public Property Let Message(v) If Session(EW_SESSION_MESSAGE) <> "" Then ' Append Session(EW_SESSION_MESSAGE) = Session(EW_SESSION_MESSAGE) & "
" & v Else Session(EW_SESSION_MESSAGE) = v End If End Property ' Show Message Public Sub ShowMessage() Dim sMessage sMessage = Message Call Message_Showing(sMessage) If sMessage <> "" Then Response.Write "

" & sMessage & "

" Session(EW_SESSION_MESSAGE) = "" ' Clear message in Session End Sub ' ----------------------- ' Validate Page request ' Public Function IsPageRequest() If content.UseTokenInUrl Then IsPageRequest = False If Not (ObjForm Is Nothing) Then IsPageRequest = (content.TableVar = ObjForm.GetValue("t")) End If If Request.QueryString("t").Count > 0 Then IsPageRequest = (content.TableVar = Request.QueryString("t")) End If Else IsPageRequest = True End If End Function ' ----------------------------------------------------------------- ' Class initialize ' - init objects ' - open ADO connection ' Private Sub Class_Initialize() StartTimer = Timer ' Init start time ' Initialize language object Set Language = New cLanguage ' Initialize table object Set content = New ccontent ' Initialize urls ' Initialize form object Set ObjForm = Nothing ' Intialize page id (for backward compatibility) EW_PAGE_ID = "view" ' Initialize table name (for backward compatibility) EW_TABLE_NAME = "content" ' Open connection to the database Call ew_Connect() End Sub ' ----------------------------------------------------------------- ' Subroutine Page_Init ' - called before page main ' - check Security ' - set up response header ' - call page load events ' Sub Page_Init() ' Global page loading event (in userfn7.asp) Call Page_Loading() ' Page load event, used in current page Call Page_Load() End Sub ' ----------------------------------------------------------------- ' Class terminate ' - clean up page object ' Private Sub Class_Terminate() Call Page_Terminate("") End Sub ' ----------------------------------------------------------------- ' Subroutine Page_Terminate ' - called when exit page ' - clean up ADO connection and objects ' - if url specified, redirect to url ' Sub Page_Terminate(url) ' Page unload event, used in current page Call Page_Unload() ' Global page unloaded event (in userfn60.asp) Call Page_Unloaded() If Not (Conn Is Nothing) Then Conn.Close ' Close Connection Set Conn = Nothing Set Security = Nothing Set content = Nothing Set ObjForm = Nothing ' Go to url if specified Dim sRedirectUrl sReDirectUrl = url Call Page_Redirecting(sReDirectUrl) If sReDirectUrl <> "" Then If Response.Buffer Then Response.Clear Response.Redirect sReDirectUrl End If End Sub ' ' Subroutine Page_Terminate (End) ' ---------------------------------------- Dim lDisplayRecs ' Number of display records Dim lStartRec, lStopRec, lTotalRecs, lRecRange Dim lRecCnt Dim arRecKey ' ----------------------------------------------------------------- ' Page main processing ' Sub Page_Main() Dim sReturnUrl sReturnUrl = "" Dim bMatchRecord bMatchRecord = False If IsPageRequest Then ' Validate request content.ID.QueryStringValue = 1 'Change Me ' Get action content.CurrentAction = "I" ' Display form Select Case content.CurrentAction Case "I" ' Get a record to display If Not LoadRow() Then ' Load record based on key Message = Language.Phrase("NoRecord") ' Set no record message sReturnUrl = "contentlist.asp" ' No matching record, return to list End If End Select Else sReturnUrl = "contentlist.asp" ' Not page request, return to list End If If sReturnUrl <> "" Then Call Page_Terminate(sReturnUrl) ' Render row content.RowType = EW_ROWTYPE_VIEW Call RenderRow() End Sub Dim Pager ' ----------------------------------------------------------------- ' Set up Starting Record parameters based on Pager Navigation ' Sub SetUpStartRec() Dim nPageNo ' Exit if lDisplayRecs = 0 If lDisplayRecs = 0 Then Exit Sub If IsPageRequest Then ' Validate request ' Check for a START parameter If Request.QueryString(EW_TABLE_START_REC).Count > 0 Then lStartRec = Request.QueryString(EW_TABLE_START_REC) content.StartRecordNumber = lStartRec ElseIf Request.QueryString(EW_TABLE_PAGE_NO).Count > 0 Then nPageNo = Request.QueryString(EW_TABLE_PAGE_NO) If IsNumeric(nPageNo) Then lStartRec = (nPageNo-1)*lDisplayRecs+1 If lStartRec <= 0 Then lStartRec = 1 ElseIf lStartRec >= ((lTotalRecs-1)\lDisplayRecs)*lDisplayRecs+1 Then lStartRec = ((lTotalRecs-1)\lDisplayRecs)*lDisplayRecs+1 End If content.StartRecordNumber = lStartRec End If End If End If lStartRec = content.StartRecordNumber ' Check if correct start record counter If Not IsNumeric(lStartRec) Or lStartRec = "" Then ' Avoid invalid start record counter lStartRec = 1 ' Reset start record counter content.StartRecordNumber = lStartRec ElseIf CLng(lStartRec) > CLng(lTotalRecs) Then ' Avoid starting record > total records lStartRec = ((lTotalRecs-1)\lDisplayRecs)*lDisplayRecs+1 ' Point to last page first record content.StartRecordNumber = lStartRec ElseIf (lStartRec-1) Mod lDisplayRecs <> 0 Then lStartRec = ((lStartRec-1)\lDisplayRecs)*lDisplayRecs+1 ' Point to page boundary content.StartRecordNumber = lStartRec End If End Sub ' ----------------------------------------------------------------- ' Load row based on key values ' Function LoadRow() Dim RsRow, sSql, sFilter sFilter = content.KeyFilter ' Call Row Selecting event Call content.Row_Selecting(sFilter) ' Load sql based on filter content.CurrentFilter = sFilter sSql = content.SQL If EW_DEBUG_ENABLED Then DebugMsg = "LoadRow: " & sSql ' Show SQL for debugging Set RsRow = ew_LoadRow(sSql) If RsRow.Eof Then LoadRow = False Else LoadRow = True RsRow.MoveFirst Call LoadRowValues(RsRow) ' Load row values ' Call Row Selected event Call content.Row_Selected(RsRow) End If RsRow.Close Set RsRow = Nothing End Function ' ----------------------------------------------------------------- ' Load row values from recordset ' Sub LoadRowValues(RsRow) Dim sDetailFilter content.ID.DbValue = RsRow("ID") dim memofield memofield = RsRow("pagetext") memofield=Replace(memofield,vbCrLf,"") content.pagetext.DbValue=memofield content.pagename.DbValue = RsRow("pagename") content.image1.Upload.DbValue = RsRow("image1") content.image2.Upload.DbValue = RsRow("image2") content.image3.Upload.DbValue = RsRow("image3") content.image4.Upload.DbValue = RsRow("image4") content.image5.Upload.DbValue = RsRow("image5") content.Keywords.DbValue = RsRow("Keywords") content.Image1Alt.DbValue = RsRow("Image1Alt") content.Image2Alt.DbValue = RsRow("Image2Alt") content.Image3Alt.DbValue = RsRow("Image3Alt") content.Image4Alt.DbValue = RsRow("Image4Alt") content.Image5Alt.DbValue = RsRow("Image5Alt") content.Description.DbValue = RsRow("Description") End Sub ' ----------------------------------------------------------------- ' Render row values based on field settings ' Sub RenderRow() ' Initialize urls ExportPrintUrl = PageUrl & "export=print&" & "ID=" & Server.URLEncode(content.ID.CurrentValue) ExportHtmlUrl = PageUrl & "export=html&" & "ID=" & Server.URLEncode(content.ID.CurrentValue) ExportExcelUrl = PageUrl & "export=excel&" & "ID=" & Server.URLEncode(content.ID.CurrentValue) ExportWordUrl = PageUrl & "export=word&" & "ID=" & Server.URLEncode(content.ID.CurrentValue) ExportXmlUrl = PageUrl & "export=xml&" & "ID=" & Server.URLEncode(content.ID.CurrentValue) ExportCsvUrl = PageUrl & "export=csv&" & "ID=" & Server.URLEncode(content.ID.CurrentValue) AddUrl = content.AddUrl EditUrl = content.EditUrl CopyUrl = content.CopyUrl DeleteUrl = content.DeleteUrl ListUrl = content.ListUrl ' Call Row Rendering event Call content.Row_Rendering() ' --------------------------------------- ' Common render codes for all row types ' --------------------------------------- ' ID content.ID.CellCssStyle = "" content.ID.CellCssClass = "" content.ID.CellAttrs.RemoveAll: content.ID.ViewAttrs.RemoveAll: content.ID.EditAttrs.RemoveAll ' pagetext content.pagetext.CellCssStyle = "" content.pagetext.CellCssClass = "" content.pagetext.CellAttrs.RemoveAll: content.pagetext.ViewAttrs.RemoveAll: content.pagetext.EditAttrs.RemoveAll ' pagename content.pagename.CellCssStyle = "" content.pagename.CellCssClass = "" content.pagename.CellAttrs.RemoveAll: content.pagename.ViewAttrs.RemoveAll: content.pagename.EditAttrs.RemoveAll ' image1 content.image1.CellCssStyle = "" content.image1.CellCssClass = "" content.image1.CellAttrs.RemoveAll: content.image1.ViewAttrs.RemoveAll: content.image1.EditAttrs.RemoveAll ' image2 content.image2.CellCssStyle = "" content.image2.CellCssClass = "" content.image2.CellAttrs.RemoveAll: content.image2.ViewAttrs.RemoveAll: content.image2.EditAttrs.RemoveAll ' image3 content.image3.CellCssStyle = "" content.image3.CellCssClass = "" content.image3.CellAttrs.RemoveAll: content.image3.ViewAttrs.RemoveAll: content.image3.EditAttrs.RemoveAll ' image4 content.image4.CellCssStyle = "" content.image4.CellCssClass = "" content.image4.CellAttrs.RemoveAll: content.image4.ViewAttrs.RemoveAll: content.image4.EditAttrs.RemoveAll ' image5 content.image5.CellCssStyle = "" content.image5.CellCssClass = "" content.image5.CellAttrs.RemoveAll: content.image5.ViewAttrs.RemoveAll: content.image5.EditAttrs.RemoveAll ' Keywords content.Keywords.CellCssStyle = "" content.Keywords.CellCssClass = "" content.Keywords.CellAttrs.RemoveAll: content.Keywords.ViewAttrs.RemoveAll: content.Keywords.EditAttrs.RemoveAll ' Image1Alt content.Image1Alt.CellCssStyle = "" content.Image1Alt.CellCssClass = "" content.Image1Alt.CellAttrs.RemoveAll: content.Image1Alt.ViewAttrs.RemoveAll: content.Image1Alt.EditAttrs.RemoveAll ' Image2Alt content.Image2Alt.CellCssStyle = "" content.Image2Alt.CellCssClass = "" content.Image2Alt.CellAttrs.RemoveAll: content.Image2Alt.ViewAttrs.RemoveAll: content.Image2Alt.EditAttrs.RemoveAll ' Image3Alt content.Image3Alt.CellCssStyle = "" content.Image3Alt.CellCssClass = "" content.Image3Alt.CellAttrs.RemoveAll: content.Image3Alt.ViewAttrs.RemoveAll: content.Image3Alt.EditAttrs.RemoveAll ' Image4Alt content.Image4Alt.CellCssStyle = "" content.Image4Alt.CellCssClass = "" content.Image4Alt.CellAttrs.RemoveAll: content.Image4Alt.ViewAttrs.RemoveAll: content.Image4Alt.EditAttrs.RemoveAll ' Image5Alt content.Image5Alt.CellCssStyle = "" content.Image5Alt.CellCssClass = "" content.Image5Alt.CellAttrs.RemoveAll: content.Image5Alt.ViewAttrs.RemoveAll: content.Image5Alt.EditAttrs.RemoveAll ' Description content.Description.CellCssStyle = "" content.Description.CellCssClass = "" content.Description.CellAttrs.RemoveAll: content.Description.ViewAttrs.RemoveAll: content.Description.EditAttrs.RemoveAll ' ----------- ' View Row ' ----------- If content.RowType = EW_ROWTYPE_VIEW Then ' View row ' ID content.ID.ViewValue = content.ID.CurrentValue content.ID.CssStyle = "" content.ID.CssClass = "" content.ID.ViewCustomAttributes = "" ' pagetext content.pagetext.ViewValue = content.pagetext.CurrentValue If Not IsNull(content.pagetext.ViewValue) Then content.pagetext.ViewValue = Replace(content.pagetext.ViewValue, vbLf, "
") End If content.pagetext.CssStyle = "" content.pagetext.CssClass = "" content.pagetext.ViewCustomAttributes = "" ' pagename content.pagename.ViewValue = content.pagename.CurrentValue content.pagename.CssStyle = "" content.pagename.CssClass = "" content.pagename.ViewCustomAttributes = "" ' image1 If Not IsNull(content.image1.Upload.DbValue) Then content.image1.ViewValue = content.image1.Upload.DbValue Else content.image1.ViewValue = "" End If content.image1.CssStyle = "" content.image1.CssClass = "" content.image1.ViewCustomAttributes = "" ' image2 If Not IsNull(content.image2.Upload.DbValue) Then content.image2.ViewValue = content.image2.Upload.DbValue Else content.image2.ViewValue = "" End If content.image2.CssStyle = "" content.image2.CssClass = "" content.image2.ViewCustomAttributes = "" ' image3 If Not IsNull(content.image3.Upload.DbValue) Then content.image3.ViewValue = content.image3.Upload.DbValue Else content.image3.ViewValue = "" End If content.image3.CssStyle = "" content.image3.CssClass = "" content.image3.ViewCustomAttributes = "" ' image4 If Not IsNull(content.image4.Upload.DbValue) Then content.image4.ViewValue = content.image4.Upload.DbValue Else content.image4.ViewValue = "" End If content.image4.CssStyle = "" content.image4.CssClass = "" content.image4.ViewCustomAttributes = "" ' image5 If Not IsNull(content.image5.Upload.DbValue) Then content.image5.ViewValue = content.image5.Upload.DbValue Else content.image5.ViewValue = "" End If content.image5.CssStyle = "" content.image5.CssClass = "" content.image5.ViewCustomAttributes = "" ' Keywords content.Keywords.ViewValue = content.Keywords.CurrentValue content.Keywords.CssStyle = "" content.Keywords.CssClass = "" content.Keywords.ViewCustomAttributes = "" ' Image1Alt content.Image1Alt.ViewValue = content.Image1Alt.CurrentValue content.Image1Alt.CssStyle = "" content.Image1Alt.CssClass = "" content.Image1Alt.ViewCustomAttributes = "" ' Image2Alt content.Image2Alt.ViewValue = content.Image2Alt.CurrentValue content.Image2Alt.CssStyle = "" content.Image2Alt.CssClass = "" content.Image2Alt.ViewCustomAttributes = "" ' Image3Alt content.Image3Alt.ViewValue = content.Image3Alt.CurrentValue content.Image3Alt.CssStyle = "" content.Image3Alt.CssClass = "" content.Image3Alt.ViewCustomAttributes = "" ' Image4Alt content.Image4Alt.ViewValue = content.Image4Alt.CurrentValue content.Image4Alt.CssStyle = "" content.Image4Alt.CssClass = "" content.Image4Alt.ViewCustomAttributes = "" ' Image5Alt content.Image5Alt.ViewValue = content.Image5Alt.CurrentValue content.Image5Alt.CssStyle = "" content.Image5Alt.CssClass = "" content.Image5Alt.ViewCustomAttributes = "" ' Description content.Description.ViewValue = content.Description.CurrentValue content.Description.CssStyle = "" content.Description.CssClass = "" content.Description.ViewCustomAttributes = "" ' View refer script ' ID content.ID.HrefValue = "" content.ID.TooltipValue = "" ' pagetext content.pagetext.HrefValue = "" content.pagetext.TooltipValue = "" ' pagename content.pagename.HrefValue = "" content.pagename.TooltipValue = "" ' image1 If Not IsNull(content.image1.Upload.DbValue) Then content.image1.HrefValue = ew_UploadPathEx(False, content.image1.UploadPath) & ew_IIf(content.image1.ViewValue<>"", content.image1.ViewValue, content.image1.CurrentValue) If content.Export <> "" Then content.image1.HrefValue = ew_ConvertFullUrl(content.image1.HrefValue) Else content.image1.HrefValue = "" End If content.image1.TooltipValue = "" ' image2 If Not IsNull(content.image2.Upload.DbValue) Then content.image2.HrefValue = ew_UploadPathEx(False, content.image2.UploadPath) & ew_IIf(content.image2.ViewValue<>"", content.image2.ViewValue, content.image2.CurrentValue) If content.Export <> "" Then content.image2.HrefValue = ew_ConvertFullUrl(content.image2.HrefValue) Else content.image2.HrefValue = "" End If content.image2.TooltipValue = "" ' image3 If Not IsNull(content.image3.Upload.DbValue) Then content.image3.HrefValue = ew_UploadPathEx(False, content.image3.UploadPath) & ew_IIf(content.image3.ViewValue<>"", content.image3.ViewValue, content.image3.CurrentValue) If content.Export <> "" Then content.image3.HrefValue = ew_ConvertFullUrl(content.image3.HrefValue) Else content.image3.HrefValue = "" End If content.image3.TooltipValue = "" ' image4 If Not IsNull(content.image4.Upload.DbValue) Then content.image4.HrefValue = ew_UploadPathEx(False, content.image4.UploadPath) & ew_IIf(content.image4.ViewValue<>"", content.image4.ViewValue, content.image4.CurrentValue) If content.Export <> "" Then content.image4.HrefValue = ew_ConvertFullUrl(content.image4.HrefValue) Else content.image4.HrefValue = "" End If content.image4.TooltipValue = "" ' image5 If Not IsNull(content.image5.Upload.DbValue) Then content.image5.HrefValue = ew_UploadPathEx(False, content.image5.UploadPath) & ew_IIf(content.image5.ViewValue<>"", content.image5.ViewValue, content.image5.CurrentValue) If content.Export <> "" Then content.image5.HrefValue = ew_ConvertFullUrl(content.image5.HrefValue) Else content.image5.HrefValue = "" End If content.image5.TooltipValue = "" ' Keywords content.Keywords.HrefValue = "" content.Keywords.TooltipValue = "" ' Image1Alt content.Image1Alt.HrefValue = "" content.Image1Alt.TooltipValue = "" ' Image2Alt content.Image2Alt.HrefValue = "" content.Image2Alt.TooltipValue = "" ' Image3Alt content.Image3Alt.HrefValue = "" content.Image3Alt.TooltipValue = "" ' Image4Alt content.Image4Alt.HrefValue = "" content.Image4Alt.TooltipValue = "" ' Image5Alt content.Image5Alt.HrefValue = "" content.Image5Alt.TooltipValue = "" ' Description content.Description.HrefValue = "" content.Description.TooltipValue = "" End If ' Call Row Rendered event If content.RowType <> EW_ROWTYPE_AGGREGATEINIT Then Call content.Row_Rendered() 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 ' Page Redirecting event Sub Page_Redirecting(url) 'url = newurl End Sub ' Message Showing event Sub Message_Showing(msg) 'msg = newmsg End Sub End Class %>