Gathering totals from RS with vbs on ASP pages/stored in Access

[webstaff]

Hi Guys,
Im sticking a little on an ASP page im doing on my site, the sequence of pages allow the members to add records and then be displayed.

In each record a user can add there are scores which i total up in the last colum to give total pionts for that event.

My problem is when there are more than 1 record by that perticular entrant, im tring to create a recordset , compare if the names are the same, if they are get the total points from that record add to the grand total and move on to the next record to do the same again and again till all records have been checked and totaled up.
I have pasted the page below in the hope someone can assist me, at the moment the code runs but gives the wrong total.
Thanks in advance
Les

<%@LANGUAGE=&quot;VBSCRIPT&quot; CODEPAGE=&quot;1252&quot;%>
<!--#include file=&quot;../../Connections/sbt.asp&quot; -->
<%
Dim Recordset1__MMColParam
Recordset1__MMColParam = &quot;1&quot;
If (Request.QueryString(&quot;id&quot <> &quot;&quot Then
Recordset1__MMColParam = Request.QueryString(&quot;id&quot
End If
%>
<%
Dim Recordset1
Dim Recordset1_numRows

Set Recordset1 = Server.CreateObject(&quot;ADODB.Recordset&quot
Recordset1.ActiveConnection = MM_sbt_STRING
Recordset1.Source = &quot;SELECT * FROM shows1 WHERE id = &quot; + Replace(Recordset1__MMColParam, &quot;'&quot;, &quot;''&quot + &quot;&quot;
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 1
Recordset1.Open()

Recordset1_numRows = 0
%>
<%
Dim Recordset2__MMColParam
Recordset2__MMColParam = &quot;1&quot;
If (Session(&quot;kcn1&quot <> &quot;&quot Then
Recordset2__MMColParam = Session(&quot;kcn1&quot
End If
%>

<%
Dim Recordset2
Dim Recordset2_numRows

Set Recordset2 = Server.CreateObject(&quot;ADODB.Recordset&quot
Recordset2.ActiveConnection = MM_sbt_STRING
Recordset2.Source = &quot;SELECT * FROM shows1 WHERE kcname = '&quot; + Replace(Recordset2__MMColParam, &quot;'&quot;, &quot;''&quot + &quot;'&quot;
Recordset2.CursorType = 0
Recordset2.CursorLocation = 2
Recordset2.LockType = 1
Recordset2.Open()

Recordset2_numRows = 0
%>
<%
Dim RSgtot__MMColParam
RSgtot__MMColParam = &quot;1&quot;
If (Session(&quot;kcname&quot <> &quot;&quot Then
RSgtot__MMColParam = Session(&quot;kcname&quot
End If
%>
<%
Dim MM_paramName
%>

<%
' *** Go To Record and Move To Record: create strings for maintaining URL and Form parameters

Dim MM_keepNone
Dim MM_keepURL
Dim MM_keepForm
Dim MM_keepBoth

Dim MM_removeList
Dim MM_item
Dim MM_nextItem

' create the list of parameters which should not be maintained
MM_removeList = &quot;&index=&quot;
If (MM_paramName <> &quot;&quot Then
MM_removeList = MM_removeList & &quot;&&quot; & MM_paramName & &quot;=&quot;
End If

MM_keepURL=&quot;&quot;
MM_keepForm=&quot;&quot;
MM_keepBoth=&quot;&quot;
MM_keepNone=&quot;&quot;

' add the URL parameters to the MM_keepURL string
For Each MM_item In Request.QueryString
MM_nextItem = &quot;&&quot; & MM_item & &quot;=&quot;
If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then
MM_keepURL = MM_keepURL & MM_nextItem & Server.URLencode(Request.QueryString(MM_item))
End If
Next

' add the Form variables to the MM_keepForm string
For Each MM_item In Request.Form
MM_nextItem = &quot;&&quot; & MM_item & &quot;=&quot;
If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then
MM_keepForm = MM_keepForm & MM_nextItem & Server.URLencode(Request.Form(MM_item))
End If
Next

' create the Form + URL string and remove the intial '&' from each of the strings
MM_keepBoth = MM_keepURL & MM_keepForm
If (MM_keepBoth <> &quot;&quot Then
MM_keepBoth = Right(MM_keepBoth, Len(MM_keepBoth) - 1)
End If
If (MM_keepURL <> &quot;&quot Then
MM_keepURL = Right(MM_keepURL, Len(MM_keepURL) - 1)
End If
If (MM_keepForm <> &quot;&quot Then
MM_keepForm = Right(MM_keepForm, Len(MM_keepForm) - 1)
End If

' a utility function used for adding additional parameters to these strings
Function MM_joinChar(firstItem)
If (firstItem <> &quot;&quot Then
MM_joinChar = &quot;&&quot;
Else
MM_joinChar = &quot;&quot;
End If
End Function
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index

Repeat1__numRows = -1
Repeat1__index = 0
Recordset2_numRows = Recordset2_numRows + Repeat1__numRows
%>
<html>
<head>
<title>Individual Details Of The Staffordshire Bull Terrier</title>
<meta http-equiv=&quot;Content-Type&quot; content=&quot;text/html; charset=iso-8859-1&quot;>
</head>

<body>
<div align=&quot;center&quot;>
<p><img src=&quot;../ped_banner1.gif&quot; width=&quot;610&quot; height=&quot;123&quot;></p>
<p><font size=&quot;+2&quot; face=&quot;Arial, Helvetica, sans-serif&quot;>Details Of The Record
You Chose To View</font></p>
<p><font face=&quot;Arial, Helvetica, sans-serif&quot;>ID: <font color=&quot;#0000FF&quot;><%=(Recordset1.Fields.Item(&quot;id&quot.Value)%></font> </font><font color=&quot;#000000&quot; size=&quot;-1&quot; face=&quot;Arial, Helvetica, sans-serif&quot;>
KC Name:</font><font color=&quot;#FF0000&quot; face=&quot;Arial, Helvetica, sans-serif&quot;>
<%=(Recordset1.Fields.Item(&quot;kcname&quot.Value)%></font><font color=&quot;#000000&quot; size=&quot;-1&quot; face=&quot;Arial, Helvetica, sans-serif&quot;>
Sex:</font><font color=&quot;#009900&quot; face=&quot;Arial, Helvetica, sans-serif&quot;><strong><%=(Recordset1.Fields.Item(&quot;Sex&quot.Value)%></strong></font></p>
<table width=&quot;101%&quot; height=&quot;256&quot; border=&quot;1&quot;>
<tr>
<td height=&quot;250&quot; bgcolor=&quot;#FFFFFF&quot;>
<div align=&quot;center&quot;>
<form name=&quot;form1&quot; method=&quot;post&quot; action=&quot;&quot;>
<font color=&quot;#FFFFFF&quot; face=&quot;Arial, Helvetica, sans-serif&quot;><strong> Total
Points : <%=(Recordset1.Fields.Item(&quot;points&quot.Value)%></strong></font>
<table width=&quot;100%&quot; border=&quot;1&quot; bgcolor=&quot;#FFFFFF&quot;>
<tr bgcolor=&quot;#0000FF&quot;>
<td width=&quot;11%&quot;><strong><font color=&quot;#FFFFFF&quot; size=&quot;-2&quot; face=&quot;Arial, Helvetica, sans-serif&quot;>Society</font></strong></td>
<td width=&quot;9%&quot;><strong><font color=&quot;#FFFFFF&quot; size=&quot;-2&quot; face=&quot;Arial, Helvetica, sans-serif&quot;>Venue</font></strong></td>
<td width=&quot;8%&quot;><strong><font color=&quot;#FFFFFF&quot; size=&quot;-2&quot; face=&quot;Arial, Helvetica, sans-serif&quot;>Judge</font></strong></td>
<td width=&quot;4%&quot;><strong><font color=&quot;#FFFFFF&quot; size=&quot;-2&quot; face=&quot;Arial, Helvetica, sans-serif&quot;>Class</font></strong></td>
<td width=&quot;5%&quot;><strong><font color=&quot;#FFFFFF&quot; size=&quot;-2&quot; face=&quot;Arial, Helvetica, sans-serif&quot;>Show
Date</font></strong></td>
<td width=&quot;2%&quot;> <div align=&quot;center&quot;><font size=&quot;-2&quot;><strong><font color=&quot;#FFFFFF&quot; face=&quot;Arial, Helvetica, sans-serif&quot;>1st</font></strong></font></div></td>
<td width=&quot;2%&quot;> <div align=&quot;center&quot;><font size=&quot;-2&quot;><strong><font color=&quot;#FFFFFF&quot; face=&quot;Arial, Helvetica, sans-serif&quot;>2nd</font></strong></font></div></td>
<td width=&quot;2%&quot;> <div align=&quot;center&quot;><font size=&quot;-2&quot;><strong><font color=&quot;#FFFFFF&quot; face=&quot;Arial, Helvetica, sans-serif&quot;>3rd</font></strong></font></div></td>
<td width=&quot;2%&quot;> <div align=&quot;center&quot;><font size=&quot;-2&quot;><strong><font color=&quot;#FFFFFF&quot; face=&quot;Arial, Helvetica, sans-serif&quot;>4th</font></strong></font></div></td>
<td width=&quot;2%&quot;> <div align=&quot;center&quot;><font size=&quot;-2&quot;><strong><font color=&quot;#FFFFFF&quot; face=&quot;Arial, Helvetica, sans-serif&quot;>5th</font></strong></font></div></td>
<td width=&quot;2%&quot;> <div align=&quot;center&quot;><font size=&quot;-2&quot;><strong><font color=&quot;#FFFFFF&quot; face=&quot;Arial, Helvetica, sans-serif&quot;>BOB</font></strong></font></div></td>
<td width=&quot;2%&quot;>
<div align=&quot;center&quot;><font size=&quot;-2&quot;><strong><font color=&quot;#FFFFFF&quot; face=&quot;Arial, Helvetica, sans-serif&quot;>BD</font></strong></font></div></td>
<td width=&quot;2%&quot;>
<div align=&quot;center&quot;><font size=&quot;-2&quot;><strong><font color=&quot;#FFFFFF&quot; face=&quot;Arial, Helvetica, sans-serif&quot;>BB</font></strong></font></div></td>
<td width=&quot;2%&quot;>
<div align=&quot;center&quot;><font size=&quot;-2&quot;><strong><font color=&quot;#FFFFFF&quot; face=&quot;Arial, Helvetica, sans-serif&quot;>CC</font></strong></font></div></td>
<td width=&quot;2%&quot;>
<div align=&quot;center&quot;><font size=&quot;-2&quot;><strong><font color=&quot;#FFFFFF&quot; face=&quot;Arial, Helvetica, sans-serif&quot;>RCC</font></strong></font></div></td>
<td width=&quot;2%&quot;>
<div align=&quot;center&quot;><font size=&quot;-2&quot;><strong><font color=&quot;#FFFFFF&quot; face=&quot;Arial, Helvetica, sans-serif&quot;>BIS</font></strong></font></div></td>
<td width=&quot;2%&quot;>
<div align=&quot;center&quot;><font size=&quot;-2&quot;><strong><font color=&quot;#FFFFFF&quot; face=&quot;Arial, Helvetica, sans-serif&quot;>G1</font></strong></font></div></td>
<td width=&quot;2%&quot;>
<div align=&quot;center&quot;><font size=&quot;-2&quot;><strong><font color=&quot;#FFFFFF&quot; face=&quot;Arial, Helvetica, sans-serif&quot;>G2</font></strong></font></div></td>
<td width=&quot;2%&quot;>
<div align=&quot;center&quot;><font size=&quot;-2&quot;><strong><font color=&quot;#FFFFFF&quot; face=&quot;Arial, Helvetica, sans-serif&quot;>G3</font></strong></font></div></td>
<td width=&quot;2%&quot;> <div align=&quot;center&quot;><font size=&quot;-2&quot;><strong><font color=&quot;#FFFFFF&quot; face=&quot;Arial, Helvetica, sans-serif&quot;>G4</font></strong></font></div></td>
</tr>
<tr bordercolor=&quot;#FFFFFF&quot; bgcolor=&quot;#CCCCCC&quot;>
<td height=&quot;21&quot;><font color=&quot;#000000&quot; size=&quot;-2&quot; face=&quot;Arial, Helvetica, sans-serif&quot;><%=(Recordset1.Fields.Item(&quot;sociaty&quot.Value)%></font></td>
<td><font color=&quot;#000000&quot; size=&quot;-2&quot; face=&quot;Arial, Helvetica, sans-serif&quot;><%=(Recordset1.Fields.Item(&quot;venue&quot.Value)%></font></td>
<td><font color=&quot;#000000&quot; size=&quot;-2&quot;> <%=(Recordset1.Fields.Item(&quot;judge&quot.Value)%></font></td>
<td><font color=&quot;#000000&quot; size=&quot;-2&quot; face=&quot;Arial, Helvetica, sans-serif&quot;><%=(Recordset1.Fields.Item(&quot;class&quot.Value)%></font></td>
<td><font color=&quot;#0000FF&quot; size=&quot;-2&quot; face=&quot;Arial, Helvetica, sans-serif&quot;><%=(Recordset1.Fields.Item(&quot;showdate&quot.Value)%></font></td>
<td><div align=&quot;center&quot;><font color=&quot;#FF0000&quot; size=&quot;-2&quot;> <%=(Recordset1.Fields.Item(&quot;1st&quot.Value)%></font></div></td>
<td><div align=&quot;center&quot;><font color=&quot;#FF0000&quot; size=&quot;-2&quot;> <%=(Recordset1.Fields.Item(&quot;2nd&quot.Value)%></font></div></td>
<td><div align=&quot;center&quot;><font color=&quot;#FF0000&quot; size=&quot;-2&quot;> <%=(Recordset1.Fields.Item(&quot;3rd&quot.Value)%></font></div></td>
<td><div align=&quot;center&quot;><font color=&quot;#FF0000&quot; size=&quot;-2&quot;> <%=(Recordset1.Fields.Item(&quot;4th&quot.Value)%></font></div></td>
<td><div align=&quot;center&quot;><font color=&quot;#FF0000&quot; size=&quot;-2&quot;> <%=(Recordset1.Fields.Item(&quot;5th&quot.Value)%></font></div></td>
<td><div align=&quot;center&quot;><font color=&quot;#FF0000&quot; size=&quot;-2&quot;> <%=(Recordset1.Fields.Item(&quot;BOB&quot.Value)%></font></div></td>
<td><div align=&quot;center&quot;><font color=&quot;#FF0000&quot; size=&quot;-2&quot;> <%=(Recordset1.Fields.Item(&quot;BD&quot.Value)%></font></div></td>
<td><div align=&quot;center&quot;><font color=&quot;#FF0000&quot; size=&quot;-2&quot;> <%=(Recordset1.Fields.Item(&quot;BB&quot.Value)%></font></div></td>
<td><div align=&quot;center&quot;><font color=&quot;#FF0000&quot; size=&quot;-2&quot;> <%=(Recordset1.Fields.Item(&quot;CC&quot.Value)%></font></div></td>
<td><div align=&quot;center&quot;><font color=&quot;#FF0000&quot; size=&quot;-2&quot;> <%=(Recordset1.Fields.Item(&quot;RCC&quot.Value)%></font></div></td>
<td><div align=&quot;center&quot;><font color=&quot;#FF0000&quot; size=&quot;-2&quot;> <%=(Recordset1.Fields.Item(&quot;BIS&quot.Value)%></font></div></td>
<td><div align=&quot;center&quot;><font color=&quot;#FF0000&quot; size=&quot;-2&quot;> <%=(Recordset1.Fields.Item(&quot;G1&quot.Value)%></font></div></td>
<td><div align=&quot;center&quot;><font color=&quot;#FF0000&quot; size=&quot;-2&quot;> <%=(Recordset1.Fields.Item(&quot;G2&quot.Value)%></font></div></td>
<td><div align=&quot;center&quot;><font color=&quot;#FF0000&quot; size=&quot;-2&quot;> <%=(Recordset1.Fields.Item(&quot;G3&quot.Value)%></font></div></td>
<td><div align=&quot;center&quot;><font color=&quot;#FF0000&quot; size=&quot;-2&quot;><%=(Recordset1.Fields.Item(&quot;G4&quot.Value)%></font></div></td>
</tr>
</table>
<p><font color=&quot;#0000FF&quot; face=&quot;Arial, Helvetica, sans-serif&quot;> </font><font color=&quot;#FFFFFF&quot; face=&quot;Arial, Helvetica, sans-serif&quot;>
<% Session(&quot;kcname&quot = (Recordset1.Fields.Item(&quot;kcname&quot.Value)%>
</font><font color=&quot;#0000FF&quot; face=&quot;Arial, Helvetica, sans-serif&quot;>Total
Points Awarded <font color=&quot;#FF0000&quot; size=&quot;+1&quot;> <strong>
<% session(&quot;dogtotal1&quot = (Recordset1.Fields.Item(&quot;1st&quot.Value) + (Recordset1.Fields.Item(&quot;2nd&quot.Value) + _
(Recordset1.Fields.Item(&quot;3rd&quot.Value) + (Recordset1.Fields.Item(&quot;4th&quot.Value) + _
(Recordset1.Fields.Item(&quot;5th&quot.Value) + (Recordset1.Fields.Item(&quot;BOB&quot.Value) + _
(Recordset1.Fields.Item(&quot;BD&quot.Value) + (Recordset1.Fields.Item(&quot;BB&quot.Value) + _
(Recordset1.Fields.Item(&quot;CC&quot.Value) + (Recordset1.Fields.Item(&quot;RCC&quot.Value) + _
(Recordset1.Fields.Item(&quot;BIS&quot.Value) + (Recordset1.Fields.Item(&quot;G1&quot.Value) + _
(Recordset1.Fields.Item(&quot;G2&quot.Value) + (Recordset1.Fields.Item(&quot;G3&quot.Value) + _
(Recordset1.Fields.Item(&quot;G4&quot.Value)
Response.write (session(&quot;dogtotal1&quot)
%>
</strong> </font> | Points Grant Total <font color=&quot;#FF0000&quot;> <strong>
<%
Dim RSgtot
Dim RSgtot_numRows
session(&quot;Gtotal&quot = 0
Set RSgtot = Server.CreateObject(&quot;ADODB.Recordset&quot
RSgtot.ActiveConnection = MM_sbt_STRING
RSgtot.Source = &quot;SELECT * FROM shows1 WHERE kcname = '&quot; + Replace(Recordset1.Fields.Item(&quot;kcname&quot.Value, &quot;'&quot;, &quot;''&quot + &quot;'&quot;
RSgtot.CursorType = 0
RSgtot.CursorLocation = 2
RSgtot.LockType = 1
RSgtot.Open()
RSgtot_numRows = 0
RSgtot.movefirst
DO WHILE NOT RSgtot.EOF
IF (RSgtot.Fields.Item(&quot;kcname&quot.value) = (Recordset1.Fields.Item(&quot;kcname&quot.Value)THEN
session(&quot;Gtotal&quot = session(&quot;Gtotal&quot + session(&quot;dogtotal1&quot
EXIT DO
END IF
RSgtot.movenext
LOOP
Response.write (session(&quot;Gtotal&quot) %>
</strong> </font> </font></p>
<p><font color=&quot;#0000FF&quot; face=&quot;Arial, Helvetica, sans-serif&quot;>Dogs
Entered: <font color=&quot;#FF0000&quot;><strong><%=(Recordset1.Fields.Item(&quot;entered&quot.Value)%></strong></font> | Dogs Absent: <font color=&quot;#FF0000&quot;><strong><%=(Recordset1.Fields.Item(&quot;absent&quot.Value)%></strong></font> | Total JW Points: <font color=&quot;#FF0000&quot;><strong><%=(Recordset1.Fields.Item(&quot;jw&quot.Value)%></strong> <font color=&quot;#0000FF&quot;>|</font> </font><font size=&quot;-1&quot;>Affix
/ Prefix:</font><font color=&quot;#FF0000&quot; face=&quot;Arial, Helvetica, sans-serif&quot;><%=(Recordset1.Fields.Item(&quot;affix&quot.Value)%> <font color=&quot;#0000FF&quot;>|</font> </font><font color=&quot;#0000FF&quot; face=&quot;Arial, Helvetica, sans-serif&quot;>Owner::<font color=&quot;#006600&quot;><%=(Recordset1.Fields.Item(&quot;ownersfname&quot.Value)%></font> <font color=&quot;#009900&quot;><%=(Recordset1.Fields.Item(&quot;ownerssname&quot.Value)%></font></font></font></p>
<p><font face=&quot;Arial, Helvetica, sans-serif&quot;><A HREF=&quot;details2.asp?<%= MM_keepBoth & MM_joinChar(MM_keepBoth) & &quot;kcname=&quot; & Recordset1.Fields.Item(&quot;kcname&quot.Value %>&quot;>View
All Shows Recorded's That </A></font><font color=&quot;#FF0000&quot; face=&quot;Arial, Helvetica, sans-serif&quot;><strong><%=(Recordset1.Fields.Item(&quot;kcname&quot.Value)%></strong></font> <font face=&quot;Arial, Helvetica, sans-serif&quot;><A HREF=&quot;details2.asp?<%= MM_keepBoth & MM_joinChar(MM_keepBoth) & &quot;kcname=&quot; & Recordset1.Fields.Item(&quot;kcname&quot.Value %>&quot;>Has
Been Entered For So Far</A> </font></p>
</form>
<font color=&quot;#FFFFFF&quot; face=&quot;Arial, Helvetica, sans-serif&quot;> </font></div></td>
</tr>
</table>
<a href=&quot;index.asp&quot;><font face=&quot;Arial, Helvetica, sans-serif&quot;>Back To Main Page</font></a>
<p><a href=&quot;../forum/default.asp&quot;><img src=&quot;../banner/bbs_banner1.png&quot; width=&quot;610&quot; height=&quot;123&quot; border=&quot;0&quot;></a></p>
</div>
</body>
</html>
<%
Recordset1.Close()
Set Recordset1 = Nothing
%>
<%
Recordset2.Close()
Set Recordset2 = Nothing
%>
<%
RSgtot.Close()
Set RSgtot = Nothing
%>

 

[Microbe]

Rule of thumb.

Hard questions are good.

Questions that are too complex to figure the problem at a quick glance, will generally not get answered.

Steve Davis
hey.you@hahaha.com.au

http://www.hahaha.com.au

Me? I can't even spell ASP!