<%@ CodePage=65001 %> <% Const EW_PAGE_ID = "add" 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 ' Load key values from QueryString Dim bCopy bCopy = True If Request.QueryString("id").Count > 0 Then video_requested_users.id.QueryStringValue = Request.QueryString("id") Else bCopy = False End If ' Create form object Dim objForm Set objForm = New cFormObj ' Process form if post back If objForm.GetValue("a_add")&"" <> "" Then video_requested_users.CurrentAction = objForm.GetValue("a_add") ' Get form action Call LoadFormValues() ' Load form values ' Not post back Else If bCopy Then video_requested_users.CurrentAction = "C" ' Copy Record Else video_requested_users.CurrentAction = "I" ' Display Blank Record Call LoadDefaultValues() ' Load default values End If End If ' Close form object Set objForm = Nothing ' Perform action based on action code Select Case video_requested_users.CurrentAction Case "I" ' Blank record, no action required Case "C" ' Copy an existing record If Not LoadRow() Then ' Load record based on key Session(EW_SESSION_MESSAGE) = "No records found" ' No record found Call Page_Terminate(video_requested_users.ReturnUrl) ' Clean up and return End If Case "A" ' Add new record video_requested_users.SendEmail = True ' Send email on add success If AddRow() Then ' Add successful Session(EW_SESSION_MESSAGE) = "Add New Record Successful" ' Set up success message Call Page_Terminate(video_requested_users.KeyUrl(video_requested_users.ReturnUrl, "")) ' Clean up and return Else Call RestoreFormValues() ' Add failed, restore form values End If End Select ' Render row based on row type video_requested_users.RowType = EW_ROWTYPE_ADD ' add ' Render add type Call RenderRow() %>

Add to TABLE: video requested users

Go Back

<% If Session(EW_SESSION_MESSAGE) <> "" Then ' Mesasge in Session, display %>

<%= Session(EW_SESSION_MESSAGE) %>

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

> > > > > > > > > > > > > > > > > > > > > > >
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 default values Function LoadDefaultValues() video_requested_users.Requested_Date.CurrentValue = Date() End Function %> <% ' Load form values Function LoadFormValues() ' Load from form video_requested_users.fullname.FormValue = objForm.GetValue("x_fullname") video_requested_users.address.FormValue = objForm.GetValue("x_address") video_requested_users.city.FormValue = objForm.GetValue("x_city") video_requested_users.Phone_Number.FormValue = objForm.GetValue("x_Phone_Number") video_requested_users.emailid.FormValue = objForm.GetValue("x_emailid") video_requested_users.username.FormValue = objForm.GetValue("x_username") video_requested_users.pwd.FormValue = objForm.GetValue("x_pwd") video_requested_users.Requested_Date.FormValue = objForm.GetValue("x_Requested_Date") video_requested_users.Requested_Date.CurrentValue = ew_UnFormatDateTime(video_requested_users.Requested_Date.CurrentValue, 7) video_requested_users.pwd_Generated_Date.FormValue = objForm.GetValue("x_pwd_Generated_Date") video_requested_users.pwd_Generated_Date.CurrentValue = ew_UnFormatDateTime(video_requested_users.pwd_Generated_Date.CurrentValue, 7) video_requested_users.playerid.FormValue = objForm.GetValue("x_playerid") video_requested_users.playername.FormValue = objForm.GetValue("x_playername") video_requested_users.videoname.FormValue = objForm.GetValue("x_videoname") End Function ' Restore form values Function RestoreFormValues() video_requested_users.fullname.CurrentValue = video_requested_users.fullname.FormValue video_requested_users.address.CurrentValue = video_requested_users.address.FormValue video_requested_users.city.CurrentValue = video_requested_users.city.FormValue video_requested_users.Phone_Number.CurrentValue = video_requested_users.Phone_Number.FormValue video_requested_users.emailid.CurrentValue = video_requested_users.emailid.FormValue video_requested_users.username.CurrentValue = video_requested_users.username.FormValue video_requested_users.pwd.CurrentValue = video_requested_users.pwd.FormValue video_requested_users.Requested_Date.CurrentValue = video_requested_users.Requested_Date.FormValue video_requested_users.Requested_Date.CurrentValue = ew_UnFormatDateTime(video_requested_users.Requested_Date.CurrentValue, 7) video_requested_users.pwd_Generated_Date.CurrentValue = video_requested_users.pwd_Generated_Date.FormValue video_requested_users.pwd_Generated_Date.CurrentValue = ew_UnFormatDateTime(video_requested_users.pwd_Generated_Date.CurrentValue, 7) video_requested_users.playerid.CurrentValue = video_requested_users.playerid.FormValue video_requested_users.playername.CurrentValue = video_requested_users.playername.FormValue video_requested_users.videoname.CurrentValue = video_requested_users.videoname.FormValue End Function %> <% ' 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 ' 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 ElseIf video_requested_users.RowType = EW_ROWTYPE_ADD Then ' Add row ' fullname video_requested_users.fullname.EditCustomAttributes = "" video_requested_users.fullname.EditValue = ew_HtmlEncode(video_requested_users.fullname.CurrentValue) ' address video_requested_users.address.EditCustomAttributes = "" video_requested_users.address.EditValue = video_requested_users.address.CurrentValue ' city video_requested_users.city.EditCustomAttributes = "" video_requested_users.city.EditValue = ew_HtmlEncode(video_requested_users.city.CurrentValue) ' Phone_Number video_requested_users.Phone_Number.EditCustomAttributes = "" video_requested_users.Phone_Number.EditValue = ew_HtmlEncode(video_requested_users.Phone_Number.CurrentValue) ' emailid video_requested_users.emailid.EditCustomAttributes = "" video_requested_users.emailid.EditValue = ew_HtmlEncode(video_requested_users.emailid.CurrentValue) ' username video_requested_users.username.EditCustomAttributes = "" video_requested_users.username.EditValue = ew_HtmlEncode(video_requested_users.username.CurrentValue) ' pwd video_requested_users.pwd.EditCustomAttributes = "" video_requested_users.pwd.EditValue = ew_HtmlEncode(video_requested_users.pwd.CurrentValue) ' Requested_Date video_requested_users.Requested_Date.EditCustomAttributes = "" video_requested_users.Requested_Date.EditValue = ew_FormatDateTime(video_requested_users.Requested_Date.CurrentValue, 7) ' pwd_Generated_Date video_requested_users.pwd_Generated_Date.EditCustomAttributes = "" video_requested_users.pwd_Generated_Date.EditValue = ew_FormatDateTime(video_requested_users.pwd_Generated_Date.CurrentValue, 7) ' playerid video_requested_users.playerid.EditCustomAttributes = "" video_requested_users.playerid.EditValue = video_requested_users.playerid.CurrentValue ' playername video_requested_users.playername.EditCustomAttributes = "" video_requested_users.playername.EditValue = ew_HtmlEncode(video_requested_users.playername.CurrentValue) ' videoname video_requested_users.videoname.EditCustomAttributes = "" video_requested_users.videoname.EditValue = ew_HtmlEncode(video_requested_users.videoname.CurrentValue) 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 %> <% ' 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 = video_requested_users.SqlKeyFilter If video_requested_users.id.CurrentValue = "" Or IsNull(video_requested_users.id.CurrentValue) Then bCheckKey = False Else sFilter = Replace(sFilter, "@id@", ew_AdjustSql(video_requested_users.id.CurrentValue)) ' Replace key value End If If Not IsNumeric(video_requested_users.id.CurrentValue) Then bCheckKey = False End If If bCheckKey Then Set rsChk = video_requested_users.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)" video_requested_users.CurrentFilter = sFilter sSql = video_requested_users.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 fullname Call video_requested_users.fullname.SetDbValue(video_requested_users.fullname.CurrentValue, Null) rs("fullname") = video_requested_users.fullname.DbValue ' Field address Call video_requested_users.address.SetDbValue(video_requested_users.address.CurrentValue, Null) rs("address") = video_requested_users.address.DbValue ' Field city Call video_requested_users.city.SetDbValue(video_requested_users.city.CurrentValue, Null) rs("city") = video_requested_users.city.DbValue ' Field Phone_Number Call video_requested_users.Phone_Number.SetDbValue(video_requested_users.Phone_Number.CurrentValue, Null) rs("Phone_Number") = video_requested_users.Phone_Number.DbValue ' Field emailid Call video_requested_users.emailid.SetDbValue(video_requested_users.emailid.CurrentValue, Null) rs("emailid") = video_requested_users.emailid.DbValue ' Field username Call video_requested_users.username.SetDbValue(video_requested_users.username.CurrentValue, Null) rs("username") = video_requested_users.username.DbValue ' Field pwd Call video_requested_users.pwd.SetDbValue(video_requested_users.pwd.CurrentValue, Null) rs("pwd") = video_requested_users.pwd.DbValue ' Field Requested_Date Call video_requested_users.Requested_Date.SetDbValue(ew_UnFormatDateTime(video_requested_users.Requested_Date.CurrentValue, 7), Null) rs("Requested_Date") = video_requested_users.Requested_Date.DbValue ' Field pwd_Generated_Date Call video_requested_users.pwd_Generated_Date.SetDbValue(ew_UnFormatDateTime(video_requested_users.pwd_Generated_Date.CurrentValue, 7), Null) rs("pwd_Generated_Date") = video_requested_users.pwd_Generated_Date.DbValue ' Field playerid Call video_requested_users.playerid.SetDbValue(video_requested_users.playerid.CurrentValue, Null) rs("playerid") = video_requested_users.playerid.DbValue ' Field playername Call video_requested_users.playername.SetDbValue(video_requested_users.playername.CurrentValue, Null) rs("playername") = video_requested_users.playername.DbValue ' Field videoname Call video_requested_users.videoname.SetDbValue(video_requested_users.videoname.CurrentValue, Null) rs("videoname") = video_requested_users.videoname.DbValue ' 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 = video_requested_users.Row_Inserting(rs) If bInsertRow Then ' 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 video_requested_users.CancelMessage <> "" Then Session(EW_SESSION_MESSAGE) = video_requested_users.CancelMessage video_requested_users.CancelMessage = "" Else Session(EW_SESSION_MESSAGE) = "Insert cancelled" End If AddRow = False End If rs.Close Set rs = Nothing If AddRow Then video_requested_users.id.DbValue = rsnew("id") ' Call Row Inserted event Call video_requested_users.Row_Inserted(rsnew) End If If IsObject(rsnew) Then rsnew.Close Set rsnew = Nothing End If End Function %> <% ' Page Load event Sub Page_Load() '***Response.Write "Page Load" End Sub ' Page Unload event Sub Page_Unload() '***Response.Write "Page Unload" End Sub %>