<%@ CodePage=65001 %> <% Const EW_PAGE_ID = "view" Const EW_TABLE_NAME = "video_requested_users" %> <% 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 If Request.QueryString("id").Count > 0 Then video_requested_users.id.QueryStringValue = Request.QueryString("id") Else Call Page_Terminate("video_requested_userslist.asp") ' Return to list page End If ' Get action If Request.Form("a_view").Count > 0 Then video_requested_users.CurrentAction = Request.Form("a_view") Else video_requested_users.CurrentAction = "I" ' Display form End If Select Case video_requested_users.CurrentAction Case "I" ' Get a record to display If Not LoadRow() Then ' Load record based on key Session(EW_SESSION_MESSAGE) = "No records found" ' Set no record message Call Page_Terminate("video_requested_userslist.asp") ' Return to list End If End Select ' Set return url video_requested_users.ReturnUrl = "video_requested_usersview.asp" ' Render row video_requested_users.RowType = EW_ROWTYPE_VIEW Call RenderRow() %>

View TABLE: video requested users

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 %>

<% If Session(EW_SESSION_MESSAGE) <> "" Then %>

<%= Session(EW_SESSION_MESSAGE) %>

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

> ><%= video_requested_users.id.ViewValue %> > ><%= video_requested_users.fullname.ViewValue %> > ><%= video_requested_users.address.ViewValue %> > ><%= video_requested_users.city.ViewValue %> > ><%= video_requested_users.Phone_Number.ViewValue %> > ><%= video_requested_users.emailid.ViewValue %> > ><%= video_requested_users.username.ViewValue %> > ><%= video_requested_users.pwd.ViewValue %> > ><%= video_requested_users.Requested_Date.ViewValue %> > ><%= video_requested_users.pwd_Generated_Date.ViewValue %> > ><%= video_requested_users.playerid.ViewValue %> > ><%= video_requested_users.playername.ViewValue %> > ><%= video_requested_users.videoname.ViewValue %>
id
fullname
address
city
Phone Number
emailid
username
pwd
Requested Date
pwd Generated Date
playerid
playername
videoname

<% ' 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 video_requested_users = 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 = video_requested_users.SqlKeyFilter If Not IsNumeric(video_requested_users.id.CurrentValue) Then LoadRow = False ' Invalid key, exit Exit Function End If sFilter = Replace(sFilter, "@id@", ew_AdjustSql(video_requested_users.id.CurrentValue)) ' Replace key value ' Call Row Selecting event Call video_requested_users.Row_Selecting(sFilter) ' Load sql based on filter video_requested_users.CurrentFilter = sFilter sSql = video_requested_users.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 video_requested_users.Row_Selected(rs) End If rs.Close Set rs = Nothing End Function ' Load row values from recordset Sub LoadRowValues(rs) video_requested_users.id.DbValue = rs("id") video_requested_users.fullname.DbValue = rs("fullname") video_requested_users.address.DbValue = rs("address") video_requested_users.city.DbValue = rs("city") video_requested_users.Phone_Number.DbValue = rs("Phone_Number") video_requested_users.emailid.DbValue = rs("emailid") video_requested_users.username.DbValue = rs("username") video_requested_users.pwd.DbValue = rs("pwd") video_requested_users.Requested_Date.DbValue = rs("Requested_Date") video_requested_users.pwd_Generated_Date.DbValue = rs("pwd_Generated_Date") video_requested_users.playerid.DbValue = rs("playerid") video_requested_users.playername.DbValue = rs("playername") video_requested_users.videoname.DbValue = rs("videoname") End Sub %> <% ' Render row values based on field settings Sub RenderRow() ' Call Row Rendering event Call video_requested_users.Row_Rendering() ' Common render codes for all row types ' id video_requested_users.id.CellCssStyle = "" video_requested_users.id.CellCssClass = "" ' fullname video_requested_users.fullname.CellCssStyle = "" video_requested_users.fullname.CellCssClass = "" ' address video_requested_users.address.CellCssStyle = "" video_requested_users.address.CellCssClass = "" ' city video_requested_users.city.CellCssStyle = "" video_requested_users.city.CellCssClass = "" ' Phone_Number video_requested_users.Phone_Number.CellCssStyle = "" video_requested_users.Phone_Number.CellCssClass = "" ' emailid video_requested_users.emailid.CellCssStyle = "" video_requested_users.emailid.CellCssClass = "" ' username video_requested_users.username.CellCssStyle = "" video_requested_users.username.CellCssClass = "" ' pwd video_requested_users.pwd.CellCssStyle = "" video_requested_users.pwd.CellCssClass = "" ' Requested_Date video_requested_users.Requested_Date.CellCssStyle = "" video_requested_users.Requested_Date.CellCssClass = "" ' pwd_Generated_Date video_requested_users.pwd_Generated_Date.CellCssStyle = "" video_requested_users.pwd_Generated_Date.CellCssClass = "" ' playerid video_requested_users.playerid.CellCssStyle = "" video_requested_users.playerid.CellCssClass = "" ' playername video_requested_users.playername.CellCssStyle = "" video_requested_users.playername.CellCssClass = "" ' videoname video_requested_users.videoname.CellCssStyle = "" video_requested_users.videoname.CellCssClass = "" If video_requested_users.RowType = EW_ROWTYPE_VIEW Then ' View row ' id video_requested_users.id.ViewValue = video_requested_users.id.CurrentValue video_requested_users.id.CssStyle = "" video_requested_users.id.CssClass = "" video_requested_users.id.ViewCustomAttributes = "" ' fullname video_requested_users.fullname.ViewValue = video_requested_users.fullname.CurrentValue video_requested_users.fullname.CssStyle = "" video_requested_users.fullname.CssClass = "" video_requested_users.fullname.ViewCustomAttributes = "" ' address video_requested_users.address.ViewValue = video_requested_users.address.CurrentValue If Not IsNull(video_requested_users.address.ViewValue) Then video_requested_users.address.ViewValue = Replace(video_requested_users.address.ViewValue, vbLf, "
") End If video_requested_users.address.CssStyle = "" video_requested_users.address.CssClass = "" video_requested_users.address.ViewCustomAttributes = "" ' city video_requested_users.city.ViewValue = video_requested_users.city.CurrentValue video_requested_users.city.CssStyle = "" video_requested_users.city.CssClass = "" video_requested_users.city.ViewCustomAttributes = "" ' Phone_Number video_requested_users.Phone_Number.ViewValue = video_requested_users.Phone_Number.CurrentValue video_requested_users.Phone_Number.CssStyle = "" video_requested_users.Phone_Number.CssClass = "" video_requested_users.Phone_Number.ViewCustomAttributes = "" ' emailid video_requested_users.emailid.ViewValue = video_requested_users.emailid.CurrentValue video_requested_users.emailid.CssStyle = "" video_requested_users.emailid.CssClass = "" video_requested_users.emailid.ViewCustomAttributes = "" ' username video_requested_users.username.ViewValue = video_requested_users.username.CurrentValue video_requested_users.username.CssStyle = "" video_requested_users.username.CssClass = "" video_requested_users.username.ViewCustomAttributes = "" ' pwd video_requested_users.pwd.ViewValue = video_requested_users.pwd.CurrentValue video_requested_users.pwd.CssStyle = "" video_requested_users.pwd.CssClass = "" video_requested_users.pwd.ViewCustomAttributes = "" ' Requested_Date video_requested_users.Requested_Date.ViewValue = video_requested_users.Requested_Date.CurrentValue video_requested_users.Requested_Date.ViewValue = ew_FormatDateTime(video_requested_users.Requested_Date.ViewValue, 7) video_requested_users.Requested_Date.CssStyle = "" video_requested_users.Requested_Date.CssClass = "" video_requested_users.Requested_Date.ViewCustomAttributes = "" ' pwd_Generated_Date video_requested_users.pwd_Generated_Date.ViewValue = video_requested_users.pwd_Generated_Date.CurrentValue video_requested_users.pwd_Generated_Date.ViewValue = ew_FormatDateTime(video_requested_users.pwd_Generated_Date.ViewValue, 7) video_requested_users.pwd_Generated_Date.CssStyle = "" video_requested_users.pwd_Generated_Date.CssClass = "" video_requested_users.pwd_Generated_Date.ViewCustomAttributes = "" ' playerid video_requested_users.playerid.ViewValue = video_requested_users.playerid.CurrentValue video_requested_users.playerid.CssStyle = "" video_requested_users.playerid.CssClass = "" video_requested_users.playerid.ViewCustomAttributes = "" ' playername video_requested_users.playername.ViewValue = video_requested_users.playername.CurrentValue video_requested_users.playername.CssStyle = "" video_requested_users.playername.CssClass = "" video_requested_users.playername.ViewCustomAttributes = "" ' videoname video_requested_users.videoname.ViewValue = video_requested_users.videoname.CurrentValue video_requested_users.videoname.CssStyle = "" video_requested_users.videoname.CssClass = "" video_requested_users.videoname.ViewCustomAttributes = "" ' id ' *** view refer script video_requested_users.id.HrefValue = "" ' fullname ' *** view refer script video_requested_users.fullname.HrefValue = "" ' address ' *** view refer script video_requested_users.address.HrefValue = "" ' city ' *** view refer script video_requested_users.city.HrefValue = "" ' Phone_Number ' *** view refer script video_requested_users.Phone_Number.HrefValue = "" ' emailid ' *** view refer script video_requested_users.emailid.HrefValue = "" ' username ' *** view refer script video_requested_users.username.HrefValue = "" ' pwd ' *** view refer script video_requested_users.pwd.HrefValue = "" ' Requested_Date ' *** view refer script video_requested_users.Requested_Date.HrefValue = "" ' pwd_Generated_Date ' *** view refer script video_requested_users.pwd_Generated_Date.HrefValue = "" ' playerid ' *** view refer script video_requested_users.playerid.HrefValue = "" ' playername ' *** view refer script video_requested_users.playername.HrefValue = "" ' videoname ' *** view refer script video_requested_users.videoname.HrefValue = "" ElseIf video_requested_users.RowType = EW_ROWTYPE_ADD Then ' Add row ElseIf video_requested_users.RowType = EW_ROWTYPE_EDIT Then ' Edit row ElseIf video_requested_users.RowType = EW_ROWTYPE_SEARCH Then ' Search row End If ' Call Row Rendered event Call video_requested_users.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) video_requested_users.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 video_requested_users.StartRecordNumber = nStartRec Else nStartRec = video_requested_users.StartRecordNumber End If Else nStartRec = video_requested_users.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 video_requested_users.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 video_requested_users.StartRecordNumber = nStartRec ElseIf (nStartRec-1) Mod nDisplayRecs <> 0 Then nStartRec = ((nStartRec-1)\nDisplayRecs)*nDisplayRecs+1 ' Point to page boundary video_requested_users.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 %>