Total records not shown in bottom panel

Hi all,
I am running Forms 10g. When my forms runs, the total record count does not shown in the bottom panel but a question mark instead. For example it would show 1/?
Could you tell me why it would do that?
Thank you.

This is because forms do not know, how many records will be retrieved from the database.
If you go to the last record, forms will show you how many records are in your block.
You can set the Query All Records block-property to yes to see immediately how many records there,
but if there are a lot of records to fetch, it might results in a long query time.

Similar Messages

Displaying ALV agan with deleted record not shown....

Hello Gurus,
I am working on ALV. The ALV deipalys data froma custom table. Now I have created a Button in application toollbar saying 'Delete'. I have wrirren logic in 'ALV_UC (i_callback_user_command) so that when user pushes 'Delete' button, the data record gets deleted from custom table.
call function 'REUSE_ALV_GRID_DISPLAY'
       exporting
            i_callback_program       = lv_progname
            i_callback_pf_status_set = 'ALV_STAT'
            i_callback_user_command = 'ALV_UC'
*            i_callback_top_of_page   = 'TOP_OF_PAGE'
            is_layout                = is_layout
            it_fieldcat              = field_lst
*            is_variant               = g_variant
            it_event_exit            = gt_event_exit
            i_save                   = 'A'
            it_sort                  = it_sort
            i_screen_start_column    = i_start_col
            i_screen_start_line      = i_start_ln
            i_screen_end_column      = i_end_col
            i_screen_end_line        = i_end_ln
       tables
            t_outtab                 = p_outtab
       exceptions
            program_error            = 1
            others                   = 2.
Now, I want the ALV to be dsiplayed with that deleted record not shown. How can I do this ? Is there a Refresh function or something ?
Thanks.
Regards,
Rajesh.

Hello Rajesh
A quick view into the documentation of IMPORTING parameter I_CALLBACK_USER_COMMAND would have answered your question:
Within the USER_COMMAND callback routine set
REFRESH = 'X'. " That's all
EXIT routine for command handling
   Description
     Passing an EXIT routine indicates to the ALV that the application wants
     to respond to certain function codes.
     Generally, these are function codes that are unknown to the ALV (that
     is, are not standard ALV functions) and that were defined and set by a
     user status.
     See also the documentation on parameter I_CALLBACK_PF_STATUS_SET.
     The interface of the form routine specified must be defined as follows:
             FORM user_command USING r_ucomm LIKE sy-ucomm
                                      rs_selfield TYPE slis_selfield.
     Parameter R_UCOMM contains the function code triggered.
     Structure RS_SELFIELD contains the following information:
     o   tabname : Name of the internal output table
     o   tabindex : Index of the internal output table
     o   fieldname: Field name
     o   endsum   : Cursor is located on the totals line
     o   sumindex : If >0, the cursor is located on a subtotals line
     o   value    : Value of the field on the list
     o   refresh : (Exporting) List should be set up again
     o   col_stable:(Exporting) Keep column position when list is set up
         again
     o   row_stable:(Exporting) Keep row position when list is set up again
     o   exit      :(Exporting) Exit list (and ALV)
     o   before_action: Call before standard action execution
     o   after_action : Call after standard action execution, before list
         setup
     o   ignore_multi : Internal use
     o   sel_tab_field: Internal use
     The EXIT routine is called whenever a function unknown to the ALV is
     triggered or if the routine call before/after the execution of a
     standard function code has been defined by interface parameter
     IT_EVENT_EXIT.
     See also the documentation on parameter IT_EVENT_EXIT.
     The function code and the current cursor position are then passed on to
     the calling program through the EXIT routine.
     If the user has selected multiple rows by selecting checkboxes, the
     output table field designated as the checkbox contains the current state
     of the checkbox in the list.
Regards
Uwe

Record not shown in table control

Hi experts,
I am working on the module pool program with a screen 0100. There is a table control called TABL_MATR in screen 0100.
There is no error while compiling the program. But no record shown when a record added into the table control.
I do not want to use the headerline in the program, because I intented to do it in OO way.
Record shown if I do like this:
DATA: ITAB_TRAY TYPE STANDARD TABLE OF LS_TRAY WITH HEADER LINE.
In PBO
loop at itab_tray " record show in the table control
whereas record not shown if do like this:
DATA: ITAB_TRAY TYPE STANDARD TABLE OF LS_TRAY.
In PBO
loop at itab_tray into wa_tray " no record show in the table control
Can someone guide me how to do it in the right way?
Please help.
Thanks in advance.

Hi all,
I have added the below images.
1) http://i566.photobucket.com/albums/ss106/wkw510/pic6.jpg
2) http://i566.photobucket.com/albums/ss106/wkw510/pic7.jpg
3) http://i566.photobucket.com/albums/ss106/wkw510/pic8.jpg
I have also followed what Devendra's suggested, however the same error message I get:
"ITAB_TRAY" is not a structure or internal table with header line.
As such I have changed the statement
module fill_table_control output.
MOVE-CORRESPONDING wa_tray TO itab_tray.
endmodule.
to
module fill_table_control output.
APPEND wa_tray TO itab_tray.
endmodule.
After changed, compiled no error.
But, when I started to use the program I got another error which closed the whole SAP screen.
Therefore I tried to change the TABLE CONTROL setting to
4) http://i566.photobucket.com/albums/ss106/wkw510/pic10.jpg
Now, everything is okay but I only get the latest record shows in the TABLE CONTROL. The record I inserted display more than one time, and filled all the table control.
5) http://i566.photobucket.com/albums/ss106/wkw510/pic11.jpg
I am wondering should we include
MOVE-CORRESPONDING wa_tray TO itab_tray.
or
APPEND wa_tray TO itab_tray.
According from Devendra, the PBO should only has this code
loop at itab_tray into wa_tray
    with control tabl_matr
    cursor tabl_matr-current_line.
*    module fill_table_control.   "shoule we exclude this?
endloop.
If I exclude the above code, the table control only show one record, regardless how many records are inserted.
Something is not right here, but just cant find it out.
Please help.

Distribution patch not shown in control panel

Hello everybody,
I have following question:
After installing a distribution patch it is not shown in the software applet of control panel either as separate product nor as an update to the existing one, even if the "show updates" checkbox is on.
Is a problem of the patch or general problem of LabWindows/CVI 2010?
Regards,
Marek

Hi,
Some packages don't show their exact version in MAX or in The Windows Control Panel. For example LabVIEW 2010 with the F1 patch (2010F1).
In MAX : Open Max. Look at the software versions.
Some packages show their exact version
One way to view the version :
Please keep in mind the patches are typically released on a per issue basis and the primiary intent is to provide a fix that typically needs immediate attention.
Houssam Kassri
NI Germany

Is there a tool to remove Adobe Air if is is not shown in Control Panel - Programs and Features -- on Windows 8.1

I am running Win 8.1 and have Air installed, but it does not show up in Control Panel/Programs and Features.
Is there a way to uninstall AIR since I cannot see it in Programs and Features?

Moving this discussion to the Creative Cloud Download & Install forum.
Rosgats is Photoshop, Bridge, and Extension Manager not available to be reinstalled through the Creative Cloud Desktop application? If not then please see CC desktop lists applications as "Up to Date" when not installed - http://helpx.adobe.com/creative-cloud/kb/aam-lists-removed-apps-date.html. If it is listed as being available then please install using the process listed in Install and update apps - https://helpx.adobe.com/creative-cloud/help/install-apps.html.

At bottom of screen '36 items not shown" comes and goes??

Thanks is advance for your help.
At the bottom of the Organizer screens it always says "972 items dated etc". But then depending on something I do, possibly with tags, it sometimes shows "36 items not shown" for a total of 1008. Note the View does not show any hidden files. One thing I noticed is when I put just one photo in an album and click on the album it will say "1 item found 1007 items not found for a total of 1008.
What concerns me most is that I have 36 photos floating around somewhere that I can't see.

Thanks Brett; However, the View hidden files and edit visibility seem to be the exact same settings? Are you referring to anything else when you mention the "hidden" attribute are you referring to anything else. The only choices oh both are to: Show all files, show hidden files and hide hidden files. None of these choices including show all files seem to show all the files. Any other suggestions would be helpful. Thanks much

My ipod touch 4g just updates today on itunes and the update caused more trouble than good. My ipod will no longer show me the battery percentage in the top right hand corner and also I am not allowed to drag other applications to the bottom panel.

My ipod touch 4g just updates today on itunes and the update caused more trouble than good for me. My ipod will no longer show me the battery percentage in the top right hand corner and I am not allowed to drag other applications to the bottom panel. Also my itunes doesn't allow "enable disk use" anymore. Can anyone help? My ipod now says that it's the 4.3.4 version

- Unjailbroken iPod never showed % battery. Just the icon.
- Unjailbroken iPod Touches never had a disk mode.
- What happens when you try to drag a wiggling app to a empty space in the bottom? Does it move and snap back?

Front panel is not shown completely.

Hi.
I have worked on a project more than three months and last week I was faced with a strange problem. When I switch from 'block diagram' to 'front panel' window it is not shown completely. I had this problem in LabVIEW 8.0 then I removed it completely and installed LabVIEW 8.5 but after two or three days it happened again. I do not think it is related to my laptop because I tested it on three different computers. I deleted all objects in 'block diagram' and 'front panel' windows but the file still has this problem. I attached my file and some images. When I compile and make an executable file it still has the problem. The 'image3.jpg' shows that file. When switch from another window like word to this window it is not shown completely. I do not know what to do.
Thanks a lot.
Attachments:
Main.vi ‏5 KB
image2.JPG ‏147 KB
image3.JPG ‏127 KB

I tested your VI in 8.6.1 and observe similar redraw problems. I suspect something is corrupt.
Have you tried starting with a new VI and copying you old code over?
LabVIEW Champion . Do more with less code and in less time .

Flex panel not shown as disabled.

I am creating a flex panel and a C++ plugin for Photoshop CS5 and CS6 on both Win and Mac. My C++ plugin captures events like layer selection change, document view change etc and dispatch events to flex. In flex I register these events and appropriate functions get called. All this works perfectly.
For example, when user selects another layer from Layer Palette of Photoshop my plugin dispatches an event. This event is captured in flex and a method is called. Inside this method i need to disable my panel, do some processing and then again enable my panel. This works fine on Win XP and on Photoshop CS5 but not on Mac and Win 7. And if I do a mouse over on my panel when some processing is going on then my panel is displayed as disable otherwise it is displayed as enabled. I am using the following code:
In C++ the layer selection change event is dispatched. In flex it is captured and a function "LayerChange" is called.
public function LayerChange(event:CSXSEvent):void { this.enabled = false; CursorManager.setBusyCursor(); //do some processing
this.enabled = true; CursorManager.removeBusyCursor(); }
Can someone tell me why the panel is not shown as disabled until and unless mouse moves over the panel?
Thanks

Paul,
In the future, simplying your use case will improve your chances of getting an answer. I ran your app and ran into an infinite loop here:
                while (true) {
                    trace("Calling draw()");
                    draw();
                    trace("Calling updateUniverse()");
                    updateUniverse();
The Flash Player is single-threaded. So it will not render anything while it is in the middle of a function stack. You need to truigger your updating logic with a Timer in order to see anything rendered.
Jason

Are there any disadvantages to writing data to front panel indicators when the vi's panel is not shown during execution?

Hi,
In the case where a sub vi's panel is not shown during execution, does it matter if I include front panel indicators on the sub vi's panel? (these indicators were there for debugging purposes). Is there any performance penalty for this? Thanks!

If the frontpanel is not loaded it has no time penalties. But a frontpanel is sometimes loaded because of property nodes!
greetings from the Netherlands

HT2240 I purchased a QT Pro Reg. Code Key. When I install it in the QT Preferences Panel, I get an: "Invalid Registration" note at the bottom, next to the "Buy QuickTime Pro" button to the right. Both on a desk top and a laptop. Win 7, QT version 7.7.1. N

I purchased a QT Pro Reg. Code Key. When I install it in the QT Preferences Panel, I get an: "Invalid Registration" note at the bottom, next to the "Buy QuickTime Pro" button to the right. Both on a desk top and a laptop. Win 7, QT version 7.7.1. No joy! I've been on the phone with Apple for a little more than an hour, so far. They have my money. anyone have any Ideas? Just kiss the thirty bucks goodbye?

You,Sir, are "The Man"! I followed the instructions and - viola - Joy in Mudville. Thank you, keep up the great work. Even the "Apple" people don't seem to know this. I was on the phone with them, passed from one to another, for over an hour. While waiting I stumbled on your advise and I was made free! If they ask you, charge them a mint for the information. You Sir have gone where no Apple has gone before.

How to delete the duplicated records, not just surpress the records?

I am new to CR. Right now I am doing a project which needs CR get query from Oracle. I got the query from Oracle. There are records with duplicated fields. For example (the following only show part of fields):
ID    body_code
1            10
2             10
3             15
4              15
5              15
6              16
I need to only select records (not surpress, because I will do some caluculate later) like following:
ID         body_code
1             10
2              15
3               16
I tried to creat selection fomula in fomula workshop, shown as follows:
onlastrecord;
<>next
but CR said next can be evaluated. I think it must have something to do with the print-time. So what show I do to delete the duplicated records.Thank you very much.

Ting,
Try this:
Insert a group on body_code. Then create a running total called Distinct Count. Field to summarize -> ID, Evaluate on change of group Group # 1 Body Code, and Never Reset.
Then insert a chart in the report header:
In the advanced layout, select body_code on change of and select Distinct Count running total in the Show values.
I hope I understood what you're looking to accomplish.
Z

How to get the total record count for the report

Hi,
How can I get count of the total records shown in the report. When we set the report attributes, we have an option "Set Pagination from X to Y of Z"
Does anyone know how can I get the Z value from APEX variables.
I know we can use that query and get the count but I just want to know how we can use APEX Variables effectively.
Thanks in advance.

You write a loop, something like this:
Go_block('B1');
If not form_success then
Raise Form_Trigger_failure;
End if;
First_Record;
If not form_success then
Raise Form_Trigger_failure;
End if;
Loop
If :system.record_status in('CHANGED','INSERT') then
-- modify the record here--
End if;
Exit when :System.Last_Record = 'TRUE';
Next_Record;
End Loop;
First_Record;But be very careful-- If your block can fetch a large number of rows, (over 100), this loop can take a long time, and you should not use this method. The loop will continue fetching more rows from the database until all rows satisfying the query are retrieved.

Sent mail not shown in Hub or sent folder

Hi All. Having problems with my Z10. When I send an email from the hand set the message disappears once sent its not shown in either the Hub or sent folder so end up with no record of the message sent. Any help would be appreciated.

If you go to Settings -> Accounts, edit the email account, scroll all the way to the bottom and hit the 'Edit Folder Settings' button you will be able to select your 'Sent' folder.
If you've been helped click on , if you've been saved buy the app.
Developer of stokLocker, Sympatico and Super Sentences.

Total records in database equals -1?

I have some code, accessing an Access database. As part of development I need to see how many total records there are, so I have the code I took off of bindings in CS 5:
          <p align="center">/<%=(Recordset1_first)%>/<%=(Recordset1_last)%>/<%=(Recordset1_total)%></p >
Why would _total always equal -1? The code is otherwise functional but the -1 does not change regardless if I add a record or delete a record?
Curiouser and curiouser…
Ross

I try changing the cursor type and it had no effect whatsoever I also tried looking for a simple "attach" for this posting and could not find one. I therefore attached the full ASP so you could see what kind of stuff I'm talking about. Could you forward this as appropriate?
Thanks.
Ross
=============================code=========================
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>

<%
dim MM_nextdns_STRING
      MM_nextdns_STRING ="PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=" & Server.MapPath("Database\ids2.mdb")
Dim MM_editAction
MM_editAction = CStr(Request.ServerVariables("SCRIPT_NAME"))
If (Request.QueryString <> "") Then
MM_editAction = MM_editAction & "?" & Server.HTMLEncode(Request.QueryString)
End I
' boolean to abort record edit
Dim MM_abortEdit
MM_abortEdit = false
%>
<%
' *** Redirect if username exists
MM_flag = "MM_insert"
If (CStr(Request(MM_flag)) <> "") Then
Dim MM_rsKey
Dim MM_rsKey_cmd
MM_dupKeyRedirect = "/already.asp"
MM_dupKeyUsernameValue = CStr(Request.Form("11"))
Set MM_rsKey_cmd = Server.CreateObject ("ADODB.Command")
MM_rsKey_cmd.ActiveConnection = MM_nextdns_STRING
MM_rsKey_cmd.CommandText = "SELECT id2 FROM login2 WHERE id2 = ?"
MM_rsKey_cmd.Prepared = true
MM_rsKey_cmd.Parameters.Append MM_rsKey_cmd.CreateParameter("param1", 200, 1, 255, MM_dupKeyUsernameValue) ' adVarChar
Set MM_rsKey = MM_rsKey_cmd.Execute
If Not MM_rsKey.EOF Or Not MM_rsKey.BOF Then
    ' the username was found - can not add the requested username
    MM_qsChar = "?"
    If (InStr(1, MM_dupKeyRedirect, "?") >= 1) Then MM_qsChar = "&"
    MM_dupKeyRedirect = MM_dupKeyRedirect & MM_qsChar & "requsername=" & MM_dupKeyUsernameValue
    Response.Redirect(MM_dupKeyRedirect)
End If
MM_rsKey.Close
End If
%>
<%
' IIf implementation
Function MM_IIf(condition, ifTrue, ifFalse)
If condition = "" Then
    MM_IIf = ifFalse
Else
    MM_IIf = ifTrue
End If
End Function
%>
<%
If (CStr(Request("MM_insert")) = "form3") Then
If (Not MM_abortEdit) Then
    ' execute the insert
    Dim MM_editCmd
    Set MM_editCmd = Server.CreateObject ("ADODB.Command")
    MM_editCmd.ActiveConnection = MM_nextdns_STRING
    MM_editCmd.CommandText = "INSERT INTO login2 (id2, password2, AccessLev) VALUES (?, ?, ?)"
    MM_editCmd.Prepared = true
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param1", 202, 1, 255, Request.Form("11")) ' adVarWChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param2", 202, 1, 255, Request.Form("22")) ' adVarWChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param3", 5, 1, -1, MM_IIF(Request.Form("accesslev"), Request.Form("accesslev"), null)) ' adDouble
    MM_editCmd.Execute
    MM_editCmd.ActiveConnection.Close
End If
End If
%>
<%
' *** Delete Record: construct a sql delete statement and execute it
If (CStr(Request("MM_delete")) = "form2" And CStr(Request("MM_recordId")) <> "") Then
If (Not MM_abortEdit) Then
    ' execute the delete
mm_nextdns_string = "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=" & Server.MapPath("Database\ids2.mdb")
       Set MM_editCmd = Server.CreateObject ("ADODB.Command")
    MM_editCmd.ActiveConnection = MM_nextdns_STRING
    MM_editCmd.CommandText = "DELETE FROM login2 WHERE id2 = ?"
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param1", 200, 1, 255, Request.Form("MM_recordId")) ' adVarChar
    MM_editCmd.Execute
    MM_editCmd.ActiveConnection.Close
End If
End If
%>
<%
If (CStr(Request("MM_insert")) = "form3") Then
If (Not MM_abortEdit) Then
    ' execute the insert
    Set MM_editCmd = Server.CreateObject ("ADODB.Command")
   MM_nextdns_string = "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=" & Server.MapPath("Database\ids2.mdb")
     MM_editCmd.ActiveConnection = MM_nextdns_STRING
    MM_editCmd.CommandText = "INSERT INTO login2 (id2, password2) VALUES (?, ?)"
    MM_editCmd.Prepared = true
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param1", 202, 1, 255, Request.Form("121212")) ' adVarWChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param2", 202, 1, 255, Request.Form("343434")) ' adVarWChar
    MM_editCmd.Execute
    MM_editCmd.ActiveConnection.Close
    ' append the query string to the redirect URL
    Dim MM_editRedirectUrl0
    MM_editRedirectUrl = "inserted.asp"
    If (Request.QueryString <> "") Then
      If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0) Then
        MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString
      Else
        MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString
      End If
    End If
    Response.Redirect(MM_editRedirectUrl)
End If
End If
%>
<%
' *** Recordset Stats, Move To Record, and Go To Record: declare stats variables
Dim delit_total
Dim delit_first
Dim delit_last
' set the record count
' set the number of rows displayed on this page
If (delit_numRows < 0) Then
delit_numRows = delit_total
Elseif (delit_numRows = 0) Then
delit_numRows = 1
End If
' set the first and last displayed record
delit_first = 1
delit_last = delit_first + delit_numRows - 1
' if we have the correct record count, check the other stats
If (delit_total <> -1) Then
If (delit_first > delit_total) Then
    delit_first = delit_total
End If
If (delit_last > delit_total) Then
    delit_last = delit_total
End If
If (delit_numRows > delit_total) Then
    delit_numRows = delit_total
End If
End If
%>
<%
' *** Recordset Stats: if we don't know the record count, manually count them
response.write("precount")
If (Recordset1_total = -1) Then
' count the total records by iterating through the recordset
Recordset1_total=0
response.write("incount")
   While (Not Recordset1.EOF)
    Recordset1_total = Recordset1_total + 1
    Recordset1.MoveNext
Wend
' reset the cursor to the beginning
If (Recordset1.CursorType > 0) Then
    Recordset1.MoveFirst
Else
    Recordset1.Requery
End If
' set the number of rows displayed on this page
If (Recordset1_numRows < 0 Or Recordset1_numRows > Recordset1_total) Then
    Recordset1_numRows = Recordset1_total
End If
' set the first and last displayed record
Recordset1_first = 1
Recordset1_last = Recordset1_first + Recordset1_numRows - 1
If (Recordset1_first > Recordset1_total) Then
    Recordset1_first = Recordset1_total
End If
If (Recordset1_last > Recordset1_total) Then
    Recordset1_last = Recordset1_total
End If
End If
%>
<%
' *** Validate request to log in to this site.
MM_LoginAction = Request.ServerVariables("URL")
If Request.QueryString <> "" Then MM_LoginAction = MM_LoginAction + "?" + Server.HTMLEncode(Request.QueryString)
MM_valUsername = CStr(Request.Form("idid2"))
If MM_valUsername <> "" Then
Dim MM_fldUserAuthorization
Dim MM_redirectLoginSuccess
Dim MM_redirectLoginFailed
Dim MM_loginSQL
Dim MM_rsUser
Dim MM_rsUser_cmd
MM_fldUserAuthorization = ""
MM_redirectLoginSuccess = "file:///C|/Users/Admin/AppData/Local/Temp/{C0C804DA-3712-4265-839B-02EB4947FC25}/g.asp"
MM_redirectLoginFailed = "file:///C|/Users/Admin/AppData/Local/Temp/{C0C804DA-3712-4265-839B-02EB4947FC25}/b.asp"
MM_loginSQL = "SELECT id2, password2"
If MM_fldUserAuthorization <> "" Then MM_loginSQL = MM_loginSQL & "," & MM_fldUserAuthorization
MM_loginSQL = MM_loginSQL & " FROM login2 WHERE id2 = ? AND password2 = ?"
Set MM_rsUser_cmd = Server.CreateObject ("ADODB.Command")
MM_rsUser_cmd.ActiveConnection = MM_nextdns_STRING
MM_rsUser_cmd.CommandText = MM_loginSQL
MM_rsUser_cmd.Parameters.Append MM_rsUser_cmd.CreateParameter("param1", 200, 1, 255, MM_valUsername) ' adVarChar
MM_rsUser_cmd.Parameters.Append MM_rsUser_cmd.CreateParameter("param2", 200, 1, 255, Request.Form("pwd2")) ' adVarChar
MM_rsUser_cmd.Prepared = true
Set MM_rsUser = MM_rsUser_cmd.Execute
If Not MM_rsUser.EOF Or Not MM_rsUser.BOF Then
    ' username and password match - this is a valid user
    Session("MM_Username") = MM_valUsername
    If (MM_fldUserAuthorization <> "") Then
      Session("MM_UserAuthorization") = CStr(MM_rsUser.Fields.Item(MM_fldUserAuthorization).Value)
    Else
      Session("MM_UserAuthorization") = ""
    End If
    if CStr(Request.QueryString("accessdenied")) <> "" And false Then
      MM_redirectLoginSuccess = Request.QueryString("accessdenied")
    End If
    MM_rsUser.Close
    Response.Redirect(MM_redirectLoginSuccess)
End If
MM_rsUser.Close
Response.Redirect(MM_redirectLoginFailed)
End If
%>
<%
' *** Validate request to log in to this site.
MM_LoginAction = Request.ServerVariables("URL")
If Request.QueryString <> "" Then MM_LoginAction = MM_LoginAction + "?" + Server.HTMLEncode(Request.QueryString)
MM_valUsername = CStr(Request.Form("asd1"))
If MM_valUsername <> "" Then
MM_fldUserAuthorization = ""
MM_redirectLoginSuccess = "file:///C|/Users/Admin/AppData/Local/Temp/{C0C804DA-3712-4265-839B-02EB4947FC25}/g.asp"
MM_redirectLoginFailed = "file:///C|/Users/Admin/AppData/Local/Temp/{C0C804DA-3712-4265-839B-02EB4947FC25}/b.asp"
MM_loginSQL = "SELECT id2, password2"
If MM_fldUserAuthorization <> "" Then MM_loginSQL = MM_loginSQL & "," & MM_fldUserAuthorization
MM_loginSQL = MM_loginSQL & " FROM login2 WHERE id2 = ? AND password2 = ?"
Set MM_rsUser_cmd = Server.CreateObject ("ADODB.Command")
MM_rsUser_cmd.ActiveConnection = MM_nextdns_STRING
MM_rsUser_cmd.CommandText = MM_loginSQL
MM_rsUser_cmd.Parameters.Append MM_rsUser_cmd.CreateParameter("param1", 200, 1, 255, MM_valUsername) ' adVarChar
MM_rsUser_cmd.Parameters.Append MM_rsUser_cmd.CreateParameter("param2", 200, 1, 255, Request.Form("asd2")) ' adVarChar
MM_rsUser_cmd.Prepared = true
Set MM_rsUser = MM_rsUser_cmd.Execute
If Not MM_rsUser.EOF Or Not MM_rsUser.BOF Then
    ' username and password match - this is a valid user
    Session("MM_Username") = MM_valUsername
    If (MM_fldUserAuthorization <> "") Then
      Session("MM_UserAuthorization") = CStr(MM_rsUser.Fields.Item(MM_fldUserAuthorization).Value)
    Else
      Session("MM_UserAuthorization") = ""
    End If
    if CStr(Request.QueryString("accessdenied")) <> "" And false Then
      MM_redirectLoginSuccess = Request.QueryString("accessdenied")
    End If
    MM_rsUser.Close
    Response.Redirect(MM_redirectLoginSuccess)
End If
MM_rsUser.Close
Response.Redirect(MM_redirectLoginFailed)
End If
%>
<%
Dim Recordset1
Dim Recordset1_cmd
Dim Recordset1_numRows
Set Recordset1_cmd = Server.CreateObject ("ADODB.Command")
Recordset1_cmd.ActiveConnection = MM_nextdns_STRING
Recordset1_cmd.CommandText = "SELECT * FROM login2"
Recordset1_cmd.Prepared = true
Set Recordset1 = Recordset1_cmd.Execute
Recordset1_numRows = 0
%>

<%
Repeat1__numRows = 20
Repeat1__index = 0
Recordset1_numRows = Recordset1_numRows + Repeat1__numRows
%>
<%
' *** Recordset Stats, Move To Record, and Go To Record: declare stats variables
Dim Recordset1_total
Dim Recordset1_first
Dim Recordset1_last
' set the record count
Recordset1_total = Recordset1.RecordCount
' set the number of rows displayed on this page
If (Recordset1_numRows < 0) Then
Recordset1_numRows = Recordset1_total
Elseif (Recordset1_numRows = 0) Then
Recordset1_numRows = 1
End If
' set the first and last displayed record
Recordset1_first = 1
Recordset1_last = Recordset1_first + Recordset1_numRows - 1
' if we have the correct record count, check the other stats
If (Recordset1_total <> -1) Then
If (Recordset1_first > Recordset1_total) Then
    Recordset1_first = Recordset1_total
End If
If (Recordset1_last > Recordset1_total) Then
    Recordset1_last = Recordset1_total
End If
If (Recordset1_numRows > Recordset1_total) Then
    Recordset1_numRows = Recordset1_total
End If
End If
%>
<%
' *** Validate request to log in to this site.
MM_LoginAction = Request.ServerVariables("URL")
If Request.QueryString<>"" Then MM_LoginAction = MM_LoginAction + "?" + Request.QueryString
MM_valUsername=CStr(Request.Form("idid2"))
If MM_valUsername <> "" Then
MM_fldDynamicRedirect=""
MM_fldUserAuthorization="AccessLev"
MM_redirectLoginSuccessDynamic="file:///C|/Users/Admin/AppData/Local/Temp/{C0C804DA-3712- 4265-839B-02EB4947FC25}/g.asp"
MM_redirectLoginFailed="file:///C|/Users/Admin/AppData/Local/Temp/{C0C804DA-3712-4265-839 B-02EB4947FC25}/b.asp"
MM_flag="ADODB.Recordset"
set MM_rsUser = Server.CreateObject(MM_flag)
MM_rsUser.ActiveConnection = MM_nextdns_STRING
MM_rsUser.Source = "SELECT id2, password2"
If MM_fldDynamicRedirect <> "" Then MM_rsUser.Source = MM_rsUser.Source & "," & MM_fldDynamicRedirect
If MM_fldUserAuthorization <> "" Then MM_rsUser.Source = MM_rsUser.Source & "," & MM_fldUserAuthorization
MM_rsUser.Source = MM_rsUser.Source & " FROM login2 WHERE id2='" & Replace(MM_valUsername,"'","''") &"' AND password2='" & Replace(Request.Form("pwd2"),"'","''") & "'"
MM_rsUser.CursorType = 0
MM_rsUser.CursorLocation = 2
MM_rsUser.LockType = 3
MM_rsUser.Open
If Not MM_rsUser.EOF Or Not MM_rsUser.BOF Then
    ' username and password match - this is a valid user
    Session("MM_Username") = MM_valUsername
    If (MM_fldUserAuthorization <> "") Then
      Session("MM_UserAuthorization") = CStr(MM_rsUser.Fields.Item(MM_fldUserAuthorization).Value)
    ElseIf (MM_fldDynamicRedirect <> "") Then
      MM_redirectLoginSuccessDynamic = CStr(MM_rsUser.Fields.Item(MM_fldDynamicRedirect).Value)
    Else
      Session("MM_UserAuthorization") = ""
    End If
    if CStr(Request.QueryString("accessdenied")) <> "" And false Then
      MM_redirectLoginSuccessDynamic = Request.QueryString("accessdenied")
    End If
    MM_rsUser.Close
    Response.Redirect(MM_redirectLoginSuccessDynamic)
End If
MM_rsUser.Close
Response.Redirect(MM_redirectLoginFailed)
End If
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>Untitled Document</title>
<style type="text/css">
body {
    background-image: url(/graphics/spackle.gif);
.ctable {
    border-top-style: solid;
    border-right-style: solid;
    border-bottom-style: solid;
    border-left-style: solid;
</style>
<script src="/SpryAssets/SpryValidationTextField.js" type="text/javascript"></script>
<link href="/SpryAssets/SpryValidationTextField.css" rel="stylesheet" type="text/css" />
</head>
<body>
<table width="160" border="1">
<tr>
    <td width="106"><p><img src="/graphics/coed1.jpg" width="42" height="53" alt="coed1" /></p>
      <form target="paypal" action="https://www.paypal.com/cgi-bin/webscr" method="post">
        <input type="hidden" name="cmd" value="_cart" />
        <input type="hidden" name="add" value="1" />
        <input type="hidden" name="bn" value="webassist.dreamweaver.4_5_0" />
        <input type="hidden" name="business" value="[email protected]" />
        <input type="hidden" name="item_name" value="aaaa" />
        <input type="hidden" name="item_number" value="aaaa" />
        <input type="hidden" name="amount" value=".12" />
        <input type="hidden" name="currency_code" value="USD" />
        <input type="hidden" name="cancel_return" value="http://heritage.site88.net/badorder.asp" />
        <input type="hidden" name="receiver_email" value="[email protected]" />
        <input type="hidden" name="mrb" value="R-3WH47588B4505740X" />
        <input type="hidden" name="pal" value="ANNSXSLJLYR2A" />
        <input type="hidden" name="no_shipping" value="0" />
        <input type="hidden" name="no_note" value="0" />
        <input type="image" name="submit" src="http://images.paypal.com/images/sc-but-03.gif" border="0" alt="Make payments with PayPal - it's fast, free and secure!" />
    </form></td>
    <td width="16"> </td>
    <td width="16"> </td>
</tr>
<tr>
    <td> </td>
    <td><img src="/graphics/coed1.jpg" width="14" height="18" alt="coed1" /></td>
    <td> </td>
</tr>
<tr>
    <td> </td>
    <td> </td>
    <td><img src="/graphics/coed1.jpg" width="20" height="31" alt="coed1" /></td>
</tr>
</table>
<form target="paypal" action="https://www.paypal.com/cgi-bin/webscr" method="post">
<div align="center">
    <input type="hidden" name="cmd" value="_cart" />
    <input type="hidden" name="display" value="1" />
    <input type="hidden" name="bn" value="webassist.dreamweaver.4_5_0" />
    <input type="hidden" name="business" value="[email protected]" />
    <input type="hidden" name="receiver_email" value="[email protected]" />
    <input type="hidden" name="mrb" value="R-3WH47588B4505740X" />
    <input type="hidden" name="pal" value="ANNSXSLJLYR2A" />
    <input type="image" name="submit" src="http://images.paypal.com/images/view_cart_02.gif" border="0" alt="Make payments with PayPal - it's fast, free and secure!" />
</div>
</form>
<p> </p>
<table width="492" border="1" cellspacing="0" cellpadding="0">
<tr>
    <td width="63"><label for="recnum6">Recnum</label></td>
    <td width="101"> ID</td>
    <td width="154">Password </td>
    <td width="164">AccessLev</td>
</tr>
</table>
<%
While ((Repeat1__numRows <> 0) AND (NOT Recordset1.EOF))
%>
<td><input name="recnum" type="text" id="recnum" value="<%=(Recordset1.Fields.Item("recnum").Value)%>" size="10" /></td>
<td><input name="idid" type="text" id="idid" value="<%=(Recordset1.Fields.Item("id2").Value)%>" size="10" /></td>
<td><input name="pwd" type="text" id="pwd" value="<%=(Recordset1.Fields.Item("password2").Value)%>" /></td>
<td><input name="accesslev" type="text" id="accesslev" value="<%=(Recordset1.Fields.Item("AccessLev").Value)%>" /></td>
<label for="accesslev"></label>
<%
Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
Recordset1.MoveNext()
response.write("<br>")
Wend
%>
<p align="center">/<%=(Recordset1_first)%>/<%=(Recordset1_last)%>/<%=(Recordset1_total)%>/</ p>
<p align="center"> </p>
<form id="form4" name="form4" method="post" action="file:///C|/Users/Admin/AppData/Local/Temp/{C0C804DA-3712-4265-839B-02EB4947FC25}/ inscust.asp">
<div align="center">
    <input type="submit" name="register" id="register" value="Register as New User" />
</div>
</form>
<p align="center">-or- </p>
<form id="form1" name="form1" method="POST" action="<%=MM_LoginAction%>">
<label for="idid2">                                                                      ID:</label>
<input type="text" name="idid2" id="idid2" />
<label for="pwd2">Pwd:</label>
<input type="password" name="pwd2" id="pwd2" />
<input type="submit" name="login" id="login" value="Login" />
<a href="file:///C|/Users/Admin/AppData/Local/Temp/{C0C804DA-3712-4265-839B-02EB4947FC25}/re gister.asp">
</a>
</form>
<form action="<%=MM_editAction%>" method="POST" id="form3" name="form3">
    <label for="11">IdId:</label>
    <input type="text" name="11" id="11" />
    <label for="22">Password2:</label>
    <input type="password" name="22" id="22" />
<label for="accesslev">AL:</label>
<input name="accesslev" type="text" id="accesslev" value="2" size="1" maxlength="1" />
<input type="submit" name="insins" id="insins" value="Insert" />
    <input type="hidden" name="MM_insert" value="form3" />
</p>
</form>
<p></p>
<p></p>
<form ACTION="file:///C|/Users/Admin/AppData/Local/Temp/{C0C804DA-3712-4265-839B-02EB4947FC25}/ dodel.asp" METHOD="POST" id="form2" name="form2">
<label for="delrec">Recnum:</label>
<input type="text" name="delrec" id="delrec" />
<input type="submit" name="deleir" id="deleir" value="Delete" />
</form>
<p></p>
<p>
<script type="text/javascript">
function zappaypalcookies()
    alert("called");
    alert(document.cookie.length);
    alert(document.cookie);
    document.cookie="fred=sam";
        alert(document.cookie);
</script></p>
</body>
</html>
<%
Recordset1.Close()
Set Recordset1 = Nothing
%>

Total records not shown in bottom panel

Similar Messages

Maybe you are looking for