Total record in list
Hi!
i am using alv grid and i got the output. In the list i want to display the total number of records in the alv grid list.
thanks.....
Hi,
If this is an ALV Grid report, then there are 2 answers:
===Answer1 (recommended by SAP)===
1. Create a "count" column of type I in your internal table.
2. In the field catalog specify do_sum = 'X'.
3. Put the value 1 in every record in your internal table:
LOOP AT itab.
itab-count = 1.
modify itab transporting count.
ENDLOOP.
===Answer2===
1. Add to your ITAB a column type c length 4 called color.
2. Put dummy data lines into the itab, and set their color to 'C310'. The alv Grid layout needs to set as:
ls_layout-info_fieldname = 'COLOR'.
3. In those dummy data lines, calculate the number of rows (the count) and put it as data.
4. You will have to add a hidden column (in FCAT: tech='X') and sort by it. For the dummy lines put '1' (for subtotal) or '2' (for total) and for regular data lines keep it initial.
The drawback of this approach is that the user has the power of destroying the sorting, so the yellow lines are not displayed at the end of report.
Let me know if you need some help.
Hope this helps you.
Thanks & Regards,
Tarun Gambhir
Similar Messages
-
Master data texts in the list of totals records
Dear all,
I am trying to display master data texts when doing a List of Totals records, but it is not available.
In my former projects, I always had the possibility to display master data texts by default.
Is there any configuration option that I should customize to solve the issue ?
Many thanks for your help
Regards,
Thibaud>
COLLET Thibaud wrote:
> This has been confirmed by SAP : only available from v 6.02
yes but as mentioned several times on EHP topics, you can implement the EHP but you must then also activate the function in transaction SFW5 (FIN_ACC_GROUP_CLOSE) -
Extracting records/ transactions list in to excel sheet
Hi Experties,
I am facing problem while extracting data from CRM - Service Process Monitor.
I tried to extract data(records) from executed service process monitor through
System -> List ->Save->Local file->Spreadsheet
I am not getting actual records list in excel sheet
For example: Actual record - 244, But after extracting to excel sheet its showing only- 199
why its not extracting remaining 45 records/ transactions.
is there any setting or is there any other process of extracting ?
How to count total records without extracting to excek sheet ?
I will definitely assign points
Please help me..
Regards
Praveen KhotPraveen,
There are no setting for downloading the no of records...
Probably there me be some problem with html code if it is a web templete...
cheer's
HVR. -
How to remove "Records passed" list when printing ALV report
Hi all,
I have developed an ALV report, in which I have used reuse_alv_list_display functional module to print the output. After pressing print button, when I view the output in spool request transaction, an additional list with Number of records passed and "Calculated total records" is displayed. How to remove this additional list.
I am using Get_print_paramaters FM to print.
Thanks,
rajanHi
Suppress the messages of the FM by commenting the exceptions and message statement
Regards
Shiva -
Mass deletion of variants for Total Records
Hi there,
during tranings we create a lot of variants for the Total Records (UCWB->Analysis->Total Records->Save Variant). Is there a way to do a mass deletion of those variants?
The standard options of deleting variants only allows to delete one variant per selection.
We work with a SEM BCS EHP 4.
Thanks for all help,
HelgeHelge
you can do a mass deletion of variants.
First you will need to find the program name for the Totals Records. This can be found from the totals records screen when you click the Get Variant button. Across the top of the dialogue box you will see;
"Variant catelogue for program XXXXXXXXX".
Note this program ID.
Go to TCode SE38
Key in the program - make sure the Short description for the Program is "List of Totals Records"
Check the Variants checkbox
Click on Display
From the menu - go Variants > Catelogue
This should give a list of the variants for the Totals Records. If not then you must have the wrong program.
Click the button which has the picture of the rubbish bin with the words "Selection Criteria".
This will then allow you to put a check mark against all the variants you want deleted.
Click the button which has the picture of the rubbish bin with the word "Variant"
This will then mass delete your variants.
Regards -
Total records in IT0000 company code wise - SE16N
Hello All,
I need to check the total number of records in IT0000 for employees belonging to a particular company codes or personnel area. But there shouldn't be any duplicate entry for a personnel number in the total records.
In SE16N I am able to get an entire list but not company code wise. Is there any way I can generate the total no records in each infotype, on the basis of company code or personnel areas?
Regards,
Ally1 - If you have activated Complementary Measures, you should look at table PA0302 instead of table PA0000.
2 - As mentioned by Pedro, se16n will not allow you to get what you require in a single step. An Ad Hoc Query could probably allow you to create the report you want.
3 - Should you be able to get lists of employee numbers "on the basis of company code or personnel areas" (possibly using se16n to look at table PA0001), then you could use those lists to explore the different infotypes (tables PA0000, PA0002, PA0006, etc...) using se16n, but unless you restrict the output to the records with End Date = 31.12.9999 , you will end up with many records for each employee. -
NewGL: Calculation of amount of totals records
Hallo zusammen,
ich würde in mySAP ERP2005 gerne das Neue Hauptbuch nutzen und möchte vorher gerne die Anzahl der zu erwartenden Summensätze berechnen, um zu wissen was da auf uns zukommt. Im Moment wird nämlich noch ein "externes" GL-System genutzt.
Dazu habe ich den OSS-Hinweis 1045430 gefunden und implementiert. Dieser stellt den Report RGUIST01 zur Verfügung, der es ermöglichen soll die Anzahl der Summensätze unter anderem anhand von Fremddaten zu bestimmen.
Dieser generiert zur Laufzeit den Report SAPFGSIS, basierend auf den Eingaben in RGUIST01. In RGUIST01 kann ich die Tabelle wählen, auf welcher die Liste der Felder basiert - welche wiederum mit der zu lesenden Tabelle korrespondieren sollte. Entsprechende Tabellen (die mit der zu lesenden Tabelle korrespondieren) habe ich in SAP angelegt.
"Füttere" ich aber den Report jetzt mit den Fremddaten beträgt die ermittelte Anzahl an Summensätzen immer gleich der Anzahl an Zeilen der Tabelle mit den Fremddaten, was aber nicht stimmt/stimmen kann.
Hat schon jemand Erfahrung mit dem Report RGUIST01 gemacht? Oder weiß jemand wie man den Report "richtig" benutzt?
Danke und Gruß
JochenDear all,
I would like to use the newGL in mySAP ERP2005. Before I would like to calculate the amount of totals records. Therefore I implemented OSS note 1045430, which provides the RGUIST01 report that may calculate the amount of totals records based on the input of external systems also.
Background: At the moment an external GL system is in use and is planned to displace by SAP.
I have created an Z_structure within SAP that corresponds the external file and tried to run the report. But the results I got are always amount of totals records = amount of lines of excel file from external system.
Does anyone already have experience running this report for calculating the amount of totals records?
Thanks and regards
Jochen -
Enable or disable particular record in list item based on a corresponding c
Hi,
How can i Enable or disable property of particular record in list item (multi record) based on a corresponding check box(multi record) ,
e.g Form Structure:
if press a button then record should populate where multi_post_query
if my_check_box = 1 then
my_list_item disable to update;
else
my_list_item enable to update;
end if;
now wanted result is like below
my_check_box ---- my_list_item
+----------------------enable
+----------------------enable
+----------------------enable
_----------------------Disable
_----------------------Disable
Here "+" means checked,"_" means unchecked and "enable" means updatable "Disable" means not updatable
the pseudo code is like,
if my_check_box = 1 then
my_list_item enable to update;
else
my_list_item disable to update;
end if;
Note: my_check_box is not updatable
please tell me which trigger and where I should create
Thanks
Edited by: 838602 on Feb 21, 2011 11:12 PM
Edited by: 838602 on Feb 22, 2011 1:40 AMHi Abdetu,
I created WHEN-NEW-RECORD-INSTANCE Trigger at data block level
And I need should work like below pseudo code (sorry for previous pseudo code)
if my_check_box = 1 then
my_list_item disable to update;
else
my_list_item enable to update;
end if;
so change code as
IF :MULTI.PROTECTED_FIELD = 1 THEN
SET_ITEM_PROPERTY ('MULTI.ACTION',REQUIRED , PROPERTY_FALSE );
SET_ITEM_PROPERTY('MULTI.ACTION',NAVIGABLE,PROPERTY_FALSE);
SET_ITEM_PROPERTY ('MULTI.ACTION' ,UPDATE_ALLOWED,PROPERTY_FALSE);
SET_ITEM_PROPERTY ('MULTI.ACTION' ,INSERT_ALLOWED,PROPERTY_FALSE);
:multi.action := 0;
ELSE
SET_ITEM_PROPERTY ('MULTI.ACTION',REQUIRED , PROPERTY_TRUE);
SET_ITEM_PROPERTY('MULTI.ACTION',NAVIGABLE,PROPERTY_TRUE);
SET_ITEM_PROPERTY ('MULTI.ACTION' ,UPDATE_ALLOWED,PROPERTY_TRUE);
SET_ITEM_PROPERTY ('MULTI.ACTION' ,INSERT_ALLOWED,PROPERTY_TRUE);
END IF;
Sorry, still I am not getting desired o/p. even i check item (ACTION) level Trigger
Note: my_check_box is not updatable
that would assign at time of button press (post query) as i mentioned
Edited by: 838602 on Feb 22, 2011 1:41 AM -
Profit center accounting totals records report 2KEE:
Hi,
When I am executing Profit center accounting totals records report 2KEE for a specific selection as below,
Record type: 0
Version: 0
Controlling area:
Company code:
Posting period :1
Fiscal year:2007
Profit center: 1000dummy
Account:
After report is generated and if drill down further, line items total is not matching with the report page, breakup gives different values but not the report value.
I tried report even after implementing OSS 892779 and 952263 but the result is same. I am using 4.7
Request your help in this.
Regards,
Lakshmana RaoDear Eugene,
What do you mean? What is the report? -
Record count per page , total record count per report in BI Publisher
hi,
In Oracle BI Publisher tool , can you please tell me how to display total record count of a report ? as well as how to display record count per page ?
Thanks for your help
Regards
Gayathricheck inbox. forwarded the updated template
-
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. -
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…
RossI 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"%>
<!--#include virtual="/Connections/nextdns.asp" -->
<%
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
%>
<!--#include virtual="/includes/adovbs.inc" -->
<%
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 record display in resultlist (interaction history)
Hi all,
May I know how can I add the total search data so that it can display in the interaction history page to show the total record found?
In most cases, like in Activity, it will show the total record found in resultlist. But not in interaction history page.
Can anyone advise?
ThanksI am using version 5.2 so I am not really sure if it is exactly the same in 6.0 (aka 2007). Try searching the IMG. Or wait for someone else to reply to this tread
/Anders -
As i am fresher Please share the doc of ECMA script using java script in SharePoint 2013 step by step also how we can insert,update,delete records in list using ECMA script.
Thanks and Regards, Rangnath MaliHi,
According to your post, my understanding is that you want to use JavaScript to work with SharePoint list.
To create list items, we can create a ListItemCreationInformation object, set its properties, and pass it as parameter to the addItem(parameters) function
of the List object.
To set list item properties, we can use a column indexer to make an assignment, and call the update() function so that changes will take effect when you callexecuteQueryAsync(succeededCallback,
failedCallback).
And to delete a list item, call the deleteObject() function on the object.
There is an MSDN article about the details steps of this topic, you can have a look at it.
How to: Create, Update, and Delete List Items Using JavaScript
Thanks & Regards,
Jason
Jason Guo
TechNet Community Support -
Viewer TOTAL record count display CRViewer9
Post Author: niblick
CA Forum: General
A application written in a previous version of Crystal Reports (7 or 8 ?) displays the TOTAL record count in the viewer (not in the report). I had to upgrade the reports to version 9 (RDC - CRViewer9) and when I preview the report there is no TOTAL record count in the viewer. How do I enable this in Crystal Reports 9?
Thankscheck inbox. forwarded the updated template
Maybe you are looking for
-
How can i remove my phone number rom the imsg server
How can i remove my phone number from the imsg server
-
Cflocation not working when code is part of a query
I've got a template page that runs a query based on the page name in the url. The query gets all the code for that page from the database. No problems there. The data is mostly html and the page displays wonderfully. The trouble I'm having is that an
-
Payslips to be converted into individual PDF file&sent to email of employee
Dear Friends, My client wants that the Payslips generated by Transaction- PC00_M40_CEDT, to be converted into separate individual PDF files based on Personnel Numbers, and sent to their Individual Email Ids as maintained in Infotype - 0105. There sho
-
Hi, We are planning to make a migration of an Existing Cube to Oracle Olap 10g. Can anybody tell me the complete process to load a OLAP cube, Is it possible to load Cube data from a multi-dimensional variable ? or, if anyone has a previous experience
-
Delivery not created for subcontract PO
Hi , I am getting following message while trying to create Delivery forsubcon PO. I am using the development client hence no question of transferring delivery type. Delivery type was not transmitted Message no. VL564 Diagnosis The delivery ca