| Type | Stock # | Year | Make | Model | Engine | Suspension |
<% If Heavytrucks.Export = "" Then %> Back to List <% If Security.IsLoggedIn() Then %> Add <% End If %> <% If Security.IsLoggedIn() Then %> Edit <% End If %> <% If Security.IsLoggedIn() Then %> Delete <% End If %> <% End If %>
<% Heavytrucks_view.ShowMessage %>
|
<% If Heavytrucks.Export = "" Then %>
<% End If %><%
' Drop page object
Set Heavytrucks_view = Nothing
%>
<%
' -----------------------------------------------------------------
' Page Class
'
Class cHeavytrucks_view
' Page ID
Public Property Get PageID()
PageID = "view"
End Property
' Table Name
Public Property Get TableName()
TableName = "Heavytrucks"
End Property
' Page Object Name
Public Property Get PageObjName()
PageObjName = "Heavytrucks_view"
End Property
' Page Name
Public Property Get PageName()
PageName = ew_CurrentPage()
End Property
' Page Url
Public Property Get PageUrl()
PageUrl = ew_CurrentPage() & "?"
If Heavytrucks.UseTokenInUrl Then PageUrl = PageUrl & "t=" & Heavytrucks.TableVar & "&" ' add page token
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()
If Message <> "" Then ' Message in Session, display
Response.Write "
" & Message & "
" Session(EW_SESSION_MESSAGE) = "" ' Clear message in Session End If End Sub ' ----------------------- ' Validate Page request ' Public Function IsPageRequest() If Heavytrucks.UseTokenInUrl Then IsPageRequest = False If Not (ObjForm Is Nothing) Then IsPageRequest = (Heavytrucks.TableVar = ObjForm.GetValue("t")) End If If Request.QueryString("t").Count > 0 Then IsPageRequest = (Heavytrucks.TableVar = Request.QueryString("t")) End If Else IsPageRequest = True End If End Function ' ----------------------------------------------------------------- ' Class initialize ' - init objects ' - open ADO connection ' Private Sub Class_Initialize() ' Initialize table object Set Heavytrucks = New cHeavytrucks ' 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 = "Heavytrucks" ' Open connection to the database Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open EW_DB_CONNECTION_STRING End Sub ' ----------------------------------------------------------------- ' Subroutine Page_Init ' - called before page main ' - check Security ' - set up response header ' - call page load events ' Sub Page_Init() Set Security = New cAdvancedSecurity If Not Security.IsLoggedIn() Then Call Security.AutoLogin() ' 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 Heavytrucks = Nothing ' Go to url if specified If url <> "" Then Response.Clear Response.Redirect url End If End Sub ' ' Subroutine Page_Terminate (End) ' ---------------------------------------- Dim lDisplayRecs ' Number of display records Dim lStartRec, lStopRec, lTotalRecs, lRecRange Dim lRecCnt ' ----------------------------------------------------------------- ' Page main processing ' Sub Page_Main() Dim sReturnUrl sReturnUrl = "" Dim bMatchRecord bMatchRecord = False If IsPageRequest Then ' Validate request If Request.QueryString("Stock_23").Count > 0 Then Heavytrucks.Stock_23.QueryStringValue = Request.QueryString("Stock_23") Else sReturnUrl = "Heavytruckslist.asp" ' Return to list End If ' Get action Heavytrucks.CurrentAction = "I" ' Display form Select Case Heavytrucks.CurrentAction Case "I" ' Get a record to display If Not LoadRow() Then ' Load record based on key Message = "No records found" ' Set no record message sReturnUrl = "Heavytruckslist.asp" ' No matching record, return to list End If End Select Else sReturnUrl = "Heavytruckslist.asp" ' Not page request, return to list End If If sReturnUrl <> "" Then Call Page_Terminate(sReturnUrl) ' Render row Heavytrucks.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) Heavytrucks.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 Heavytrucks.StartRecordNumber = lStartRec End If End If End If lStartRec = Heavytrucks.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 Heavytrucks.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 Heavytrucks.StartRecordNumber = lStartRec ElseIf (lStartRec-1) Mod lDisplayRecs <> 0 Then lStartRec = ((lStartRec-1)\lDisplayRecs)*lDisplayRecs+1 ' Point to page boundary Heavytrucks.StartRecordNumber = lStartRec End If End Sub ' ----------------------------------------------------------------- ' Load row based on key values ' Function LoadRow() Dim RsRow, sSql, sFilter sFilter = Heavytrucks.KeyFilter ' Call Row Selecting event Call Heavytrucks.Row_Selecting(sFilter) ' Load sql based on filter Heavytrucks.CurrentFilter = sFilter sSql = Heavytrucks.SQL If EW_DEBUG_ENABLED Then Response.Write sSql ' Show SQL for debugging Set RsRow = Server.CreateObject("ADODB.Recordset") RsRow.Open sSql, Conn If RsRow.Eof Then LoadRow = False Else LoadRow = True RsRow.MoveFirst Call LoadRowValues(RsRow) ' Load row values ' Call Row Selected event Call Heavytrucks.Row_Selected(RsRow) End If RsRow.Close Set RsRow = Nothing End Function ' ----------------------------------------------------------------- ' Load row values from recordset ' Sub LoadRowValues(RsRow) Heavytrucks.Preview.Upload.DbValue = RsRow("Preview") Heavytrucks.zType.DbValue = RsRow("Type") Heavytrucks.Stock_23.DbValue = RsRow("Stock #") Heavytrucks.zYear.DbValue = RsRow("Year") Heavytrucks.Make.DbValue = RsRow("Make") Heavytrucks.Model.DbValue = RsRow("Model") Heavytrucks.Engine.DbValue = RsRow("Engine") Heavytrucks.Suspension.DbValue = RsRow("Suspension") Heavytrucks.Image_1.Upload.DbValue = RsRow("Image 1") Heavytrucks.Image_2.Upload.DbValue = RsRow("Image 2") End Sub ' ----------------------------------------------------------------- ' Render row values based on field settings ' Sub RenderRow() ' Call Row Rendering event Call Heavytrucks.Row_Rendering() ' --------------------------------------- ' Common render codes for all row types ' --------------------------------------- ' Type Heavytrucks.zType.CellCssStyle = "" Heavytrucks.zType.CellCssClass = "" ' Stock # Heavytrucks.Stock_23.CellCssStyle = "" Heavytrucks.Stock_23.CellCssClass = "" ' Year Heavytrucks.zYear.CellCssStyle = "" Heavytrucks.zYear.CellCssClass = "" ' Make Heavytrucks.Make.CellCssStyle = "" Heavytrucks.Make.CellCssClass = "" ' Model Heavytrucks.Model.CellCssStyle = "" Heavytrucks.Model.CellCssClass = "" ' Engine Heavytrucks.Engine.CellCssStyle = "" Heavytrucks.Engine.CellCssClass = "" ' Suspension Heavytrucks.Suspension.CellCssStyle = "" Heavytrucks.Suspension.CellCssClass = "" ' Image 1 Heavytrucks.Image_1.CellCssStyle = "" Heavytrucks.Image_1.CellCssClass = "" ' Image 2 Heavytrucks.Image_2.CellCssStyle = "" Heavytrucks.Image_2.CellCssClass = "" ' ----------- ' View Row ' ----------- If Heavytrucks.RowType = EW_ROWTYPE_VIEW Then ' View row ' Preview If Not IsNull(Heavytrucks.Preview.Upload.DbValue) Then Heavytrucks.Preview.ViewValue = Heavytrucks.Preview.Upload.DbValue Heavytrucks.Preview.ImageWidth = 160 Heavytrucks.Preview.ImageHeight = 120 Heavytrucks.Preview.ImageAlt = "" Else Heavytrucks.Preview.ViewValue = "" End If Heavytrucks.Preview.CssStyle = "" Heavytrucks.Preview.CssClass = "" Heavytrucks.Preview.ViewCustomAttributes = "" ' Type Heavytrucks.zType.ViewValue = Heavytrucks.zType.CurrentValue Heavytrucks.zType.CssStyle = "" Heavytrucks.zType.CssClass = "" Heavytrucks.zType.ViewCustomAttributes = "" ' Stock # Heavytrucks.Stock_23.ViewValue = Heavytrucks.Stock_23.CurrentValue Heavytrucks.Stock_23.CssStyle = "" Heavytrucks.Stock_23.CssClass = "" Heavytrucks.Stock_23.ViewCustomAttributes = "" ' Year Heavytrucks.zYear.ViewValue = Heavytrucks.zYear.CurrentValue Heavytrucks.zYear.CssStyle = "" Heavytrucks.zYear.CssClass = "" Heavytrucks.zYear.ViewCustomAttributes = "" ' Make Heavytrucks.Make.ViewValue = Heavytrucks.Make.CurrentValue Heavytrucks.Make.CssStyle = "" Heavytrucks.Make.CssClass = "" Heavytrucks.Make.ViewCustomAttributes = "" ' Model Heavytrucks.Model.ViewValue = Heavytrucks.Model.CurrentValue Heavytrucks.Model.CssStyle = "" Heavytrucks.Model.CssClass = "" Heavytrucks.Model.ViewCustomAttributes = "" ' Engine Heavytrucks.Engine.ViewValue = Heavytrucks.Engine.CurrentValue Heavytrucks.Engine.CssStyle = "" Heavytrucks.Engine.CssClass = "" Heavytrucks.Engine.ViewCustomAttributes = "" ' Suspension Heavytrucks.Suspension.ViewValue = Heavytrucks.Suspension.CurrentValue Heavytrucks.Suspension.CssStyle = "" Heavytrucks.Suspension.CssClass = "" Heavytrucks.Suspension.ViewCustomAttributes = "" ' Image 1 If Not IsNull(Heavytrucks.Image_1.Upload.DbValue) Then Heavytrucks.Image_1.ViewValue = Heavytrucks.Image_1.Upload.DbValue Heavytrucks.Image_1.ImageWidth = 320 Heavytrucks.Image_1.ImageHeight = 240 Heavytrucks.Image_1.ImageAlt = "" Else Heavytrucks.Image_1.ViewValue = "" End If Heavytrucks.Image_1.CssStyle = "" Heavytrucks.Image_1.CssClass = "" Heavytrucks.Image_1.ViewCustomAttributes = "" ' Image 2 If Not IsNull(Heavytrucks.Image_2.Upload.DbValue) Then Heavytrucks.Image_2.ViewValue = Heavytrucks.Image_2.Upload.DbValue Heavytrucks.Image_2.ImageWidth = 320 Heavytrucks.Image_2.ImageHeight = 240 Heavytrucks.Image_2.ImageAlt = "" Else Heavytrucks.Image_2.ViewValue = "" End If Heavytrucks.Image_2.CssStyle = "" Heavytrucks.Image_2.CssClass = "" Heavytrucks.Image_2.ViewCustomAttributes = "" ' View refer script ' Type Heavytrucks.zType.HrefValue = "" ' Stock # Heavytrucks.Stock_23.HrefValue = "" ' Year Heavytrucks.zYear.HrefValue = "" ' Make Heavytrucks.Make.HrefValue = "" ' Model Heavytrucks.Model.HrefValue = "" ' Engine Heavytrucks.Engine.HrefValue = "" ' Suspension Heavytrucks.Suspension.HrefValue = "" ' Image 1 Heavytrucks.Image_1.HrefValue = "" ' Image 2 Heavytrucks.Image_2.HrefValue = "" End If ' Call Row Rendered event Call Heavytrucks.Row_Rendered() 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 End Class %>