You are not authorized to view this page!!!Help

The Mighty Dubs

Hi all,

Im currently getting this error.

"You are not authorized to view this page".

Im using vbscript asp with a ms sql 2000 database. I have a table with about 3000 entries i think. Basically it works perfectly put when i add a new entry (or duplicate a previous entry) Im getting this error. Im logged in as administrator if that helps.
Im pulling my hair out here. Has anybody any ideas...pleeeeeeeeeeeeease!!!:eek:

CptSternn

Can you post your code?

Also, what kind of web server is it on?

The Mighty Dubs

Im using a IIS 6.0

The code is quite long so like Grizzly Adams once said "Bear with me"


**********************



<%@LANGUAGE=&quot;VBSCRIPT" CODEPAGE="1252"%>
<!--#include file="../Connections/abc.asp" -->

<!-- Recordsets Start here-->
<%
Dim rsAllquotes
Dim rsAllquotes_cmd
Dim rsAllquotes_numRows

Set rsAllquotes_cmd = Server.CreateObject ("ADODB.Command")
rsAllquotes_cmd.ActiveConnection = MM_abc_STRING
rsAllquotes_cmd.CommandText = "SELECT * FROM dbo.qryFullQuoteIE WHERE quotetype='2' ORDER BY DateUploaded Desc"
rsAllquotes_cmd.Prepared = true

Set rsAllquotes = rsAllquotes_cmd.Execute
rsAllquotes_numRows = 0
%>
<%
Dim rsAMQuotes
Dim rsAMQuotes_cmd
Dim rsAMQuotes_numRows

Set rsAMQuotes_cmd = Server.CreateObject ("ADODB.Command")
rsAMQuotes_cmd.ActiveConnection = MM_abc_STRING
rsAMQuotes_cmd.CommandText = "SELECT * FROM dbo.qryFullQuoteIE WHERE quotetype='2' and uploadedby = 'amanda.m' ORDER BY DateUploaded Desc"
rsAMQuotes_cmd.Prepared = true

Set rsAMQuotes = rsAMQuotes_cmd.Execute
rsAMQuotes_numRows = 0
%>
<%
Dim rsVMQuotes
Dim rsVMQuotes_cmd
Dim rsVMQuotes_numRows

Set rsVMQuotes_cmd = Server.CreateObject ("ADODB.Command")
rsVMQuotes_cmd.ActiveConnection = MM_abc_STRING
rsVMQuotes_cmd.CommandText = "SELECT * FROM dbo.qryFullQuoteIE WHERE quotetype='2' and uploadedby = 'valeria.m' ORDER BY DateUploaded Desc"
rsVMQuotes_cmd.Prepared = true

Set rsVMQuotes = rsVMQuotes_cmd.Execute
rsVMQuotes_numRows = 0
%>
<%
Dim rsNOCQuotes
Dim rsNOCQuotes_cmd
Dim rsNOCQuotes_numRows

Set rsNOCQuotes_cmd = Server.CreateObject ("ADODB.Command")
rsNOCQuotes_cmd.ActiveConnection = MM_abc_STRING
rsNOCQuotes_cmd.CommandText = "SELECT * FROM dbo.qryFullQuoteIE WHERE quotetype='2' and uploadedby = 'niall.oc' ORDER BY DateUploaded Desc"
rsNOCQuotes_cmd.Prepared = true

Set rsNOCQuotes = rsNOCQuotes_cmd.Execute
rsNOCQuotes_numRows = 0
%>
<%
Dim rsCatDQuotes
Dim rsCatDQuotes_cmd
Dim rsCatDQuotes_numRows

Set rsCatDQuotes_cmd = Server.CreateObject ("ADODB.Command")
rsCatDQuotes_cmd.ActiveConnection = MM_abc_STRING
rsCatDQuotes_cmd.CommandText = "SELECT * FROM dbo.qryFullQuoteIE WHERE quotetype='2' and salesemail = 'catriona.d' ORDER BY DateUploaded Desc"
rsCatDQuotes_cmd.Prepared = true

Set rsCatDQuotes = rsCatDQuotes_cmd.Execute
rsCatDQuotes_numRows = 0
%>
<%
Dim rsCiaranQuotes
Dim rsCiaranQuotes_cmd
Dim rsCiaranQuotes_numRows

Set rsCiaranQuotes_cmd = Server.CreateObject ("ADODB.Command")
rsCiaranQuotes_cmd.ActiveConnection = MM_abc_STRING
rsCiaranQuotes_cmd.CommandText = "SELECT * FROM dbo.qryFullQuoteIE WHERE quotetype='2' and salesemail = 'ciaran.d' ORDER BY DateUploaded Desc"
rsCiaranQuotes_cmd.Prepared = true

Set rsCiaranQuotes = rsCiaranQuotes_cmd.Execute
rsCiaranQuotes_numRows = 0
%>
<%
Dim rsPAQuotes
Dim rsPAQuotes_cmd
Dim rsPAQuotes_numRows

Set rsPAQuotes_cmd = Server.CreateObject ("ADODB.Command")
rsPAQuotes_cmd.ActiveConnection = MM_abc_STRING
rsPAQuotes_cmd.CommandText = "SELECT * FROM dbo.qryFullQuoteIE WHERE quotetype='2' and salesemail = 'paul.a' ORDER BY DateUploaded Desc"
rsPAQuotes_cmd.Prepared = true

Set rsPAQuotes = rsPAQuotes_cmd.Execute
rsPAQuotes_numRows = 0
%>
<%
Dim rsBFQuotes
Dim rsBFQuotes_cmd
Dim rsBFQuotes_numRows

Set rsBFQuotes_cmd = Server.CreateObject ("ADODB.Command")
rsBFQuotes_cmd.ActiveConnection = MM_abc_STRING
rsBFQuotes_cmd.CommandText = "SELECT * FROM dbo.qryFullQuoteIE WHERE quotetype='2' and salesemail = 'brian.f' ORDER BY DateUploaded Desc"
rsBFQuotes_cmd.Prepared = true

Set rsBFQuotes = rsBFQuotes_cmd.Execute
rsBFQuotes_numRows = 0
%>
<%
Dim rsDFQuotes
Dim rsDFQuotes_cmd
Dim rsDFQuotes_numRows

Set rsDFQuotes_cmd = Server.CreateObject ("ADODB.Command")
rsDFQuotes_cmd.ActiveConnection = MM_abc_STRING
rsDFQuotes_cmd.CommandText = "SELECT * FROM dbo.qryFullQuoteIE WHERE quotetype='2' and salesemail = 'dave.f' ORDER BY DateUploaded Desc"
rsDFQuotes_cmd.Prepared = true

Set rsDFQuotes = rsDFQuotes_cmd.Execute
rsDFQuotes_numRows = 0
%>
<%
Dim rsDKQuotes
Dim rsDKQuotes_cmd
Dim rsDKQuotes_numRows

Set rsDKQuotes_cmd = Server.CreateObject ("ADODB.Command")
rsDKQuotes_cmd.ActiveConnection = MM_abc_STRING
rsDKQuotes_cmd.CommandText = "SELECT * FROM dbo.qryFullQuoteIE WHERE quotetype='2' and salesemail = 'david.k' ORDER BY DateUploaded Desc"
rsDKQuotes_cmd.Prepared = true

Set rsDKQuotes = rsDKQuotes_cmd.Execute
rsDKQuotes_numRows = 0
%>
<%
Dim rsMNQuotes
Dim rsMNQuotes_cmd
Dim rsMNQuotes_numRows

Set rsMNQuotes_cmd = Server.CreateObject ("ADODB.Command")
rsMNQuotes_cmd.ActiveConnection = MM_abc_STRING
rsMNQuotes_cmd.CommandText = "SELECT * FROM dbo.qryFullQuoteIE WHERE quotetype='2' and salesemail = 'matt.n' ORDER BY DateUploaded Desc"
rsMNQuotes_cmd.Prepared = true

Set rsMNQuotes = rsMNQuotes_cmd.Execute
rsMNQuotes_numRows = 0
%>
<%
Dim rsTSQuotes
Dim rsTSQuotes_cmd
Dim rsTSQuotes_numRows

Set rsTSQuotes_cmd = Server.CreateObject ("ADODB.Command")
rsTSQuotes_cmd.ActiveConnection = MM_abc_STRING
rsTSQuotes_cmd.CommandText = "SELECT * FROM dbo.qryFullQuoteIE WHERE quotetype='2' and tradeshow = '1' ORDER BY DateUploaded Desc"
rsTSQuotes_cmd.Prepared = true

Set rsTSQuotes = rsTSQuotes_cmd.Execute
rsTSQuotes_numRows = 0
%>
<%
Dim rsRates
Dim rsRates_cmd
Dim rsRates_numRows

Set rsRates_cmd = Server.CreateObject ("ADODB.Command")
rsRates_cmd.ActiveConnection = MM_abc_STRING
rsRates_cmd.CommandText = "SELECT * FROM dbo.tblCurrencyRate ORDER BY entryID DESC"
rsRates_cmd.Prepared = true

Set rsRates = rsRates_cmd.Execute
rsRates_numRows = 0
%>
<!-- Repeat Regions start here-->

<%
Dim Repeat2__numRows
Dim Repeat2__index

Repeat2__numRows = -1
Repeat2__index = 0
rsAMQuotes_numRows = rsAMQuotes_numRows + Repeat2__numRows
%>
<%
Dim Repeat3__numRows
Dim Repeat3__index

Repeat3__numRows = -1
Repeat3__index = 0
rsVMQuotes_numRows = rsVMQuotes_numRows + Repeat3__numRows
%>
<%
Dim Repeat4__numRows
Dim Repeat4__index

Repeat4__numRows = -1
Repeat4__index = 0
rsNOCQuotes_numRows = rsNOCQuotes_numRows + Repeat4__numRows
%>
<%
Dim Repeat5__numRows
Dim Repeat5__index

Repeat5__numRows = -1
Repeat5__index = 0
rsCatDQuotes_numRows = rsCatDQuotes_numRows + Repeat5__numRows
%>
<%
Dim Repeat6__numRows
Dim Repeat6__index

Repeat6__numRows = -1
Repeat6__index = 0
rsCiaranQuotes_numRows = rsCiaranQuotes_numRows + Repeat6__numRows
%>
<%
Dim Repeat7__numRows
Dim Repeat7__index

Repeat7__numRows = -1
Repeat7__index = 0
rsPAQuotes_numRows = rsPAQuotes_numRows + Repeat7__numRows
%>
<%
Dim Repeat8__numRows
Dim Repeat8__index

Repeat8__numRows = -1
Repeat8__index = 0
rsBFQuotes_numRows = rsBFQuotes_numRows + Repeat8__numRows
%>
<%
Dim Repeat9__numRows
Dim Repeat9__index

Repeat9__numRows = -1
Repeat9__index = 0
rsDFQuotes_numRows = rsDFQuotes_numRows + Repeat9__numRows
%>
<%
Dim Repeat10__numRows
Dim Repeat10__index

Repeat10__numRows = -1
Repeat10__index = 0
rsDKQuotes_numRows = rsDKQuotes_numRows + Repeat10__numRows
%>
<%
Dim Repeat11__numRows
Dim Repeat11__index

Repeat11__numRows = -1
Repeat11__index = 0
rsMNQuotes_numRows = rsMNQuotes_numRows + Repeat11__numRows
%>
<%
Dim Repeat12__numRows
Dim Repeat12__index

Repeat12__numRows = -1
Repeat12__index = 0
rsTSQuotes_numRows = rsTSQuotes_numRows + Repeat12__numRows
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index

Repeat1__numRows = -1
Repeat1__index = 0
rsAllquotes_numRows = rsAllquotes_numRows + Repeat1__numRows
%>
<!-- Repeat Region Move to Record start here-->
<%
' *** Recordset Stats, Move To Record, and Go To Record: declare stats variables

Dim rsAllquotes_total
Dim rsAllquotes_first
Dim rsAllquotes_last

' set the record count
rsAllquotes_total = rsAllquotes.RecordCount

' set the number of rows displayed on this page
If (rsAllquotes_numRows < 0) Then
rsAllquotes_numRows = rsAllquotes_total
Elseif (rsAllquotes_numRows = 0) Then
rsAllquotes_numRows = 1
End If

' set the first and last displayed record
rsAllquotes_first = 1
rsAllquotes_last = rsAllquotes_first + rsAllquotes_numRows - 1

' if we have the correct record count, check the other stats
If (rsAllquotes_total <> -1) Then
If (rsAllquotes_first > rsAllquotes_total) Then
rsAllquotes_first = rsAllquotes_total
End If
If (rsAllquotes_last > rsAllquotes_total) Then
rsAllquotes_last = rsAllquotes_total
End If
If (rsAllquotes_numRows > rsAllquotes_total) Then
rsAllquotes_numRows = rsAllquotes_total
End If
End If
%>
<%
' *** Recordset Stats, Move To Record, and Go To Record: declare stats variables

Dim rsAMQuotes_total
Dim rsAMQuotes_first
Dim rsAMQuotes_last

' set the record count
rsAMQuotes_total = rsAMQuotes.RecordCount

' set the number of rows displayed on this page
If (rsAMQuotes_numRows < 0) Then
rsAMQuotes_numRows = rsAMQuotes_total
Elseif (rsAMQuotes_numRows = 0) Then
rsAMQuotes_numRows = 1
End If

' set the first and last displayed record
rsAMQuotes_first = 1
rsAMQuotes_last = rsAMQuotes_first + rsAMQuotes_numRows - 1

' if we have the correct record count, check the other stats
If (rsAMQuotes_total <> -1) Then
If (rsAMQuotes_first > rsAMQuotes_total) Then
rsAMQuotes_first = rsAMQuotes_total
End If
If (rsAMQuotes_last > rsAMQuotes_total) Then
rsAMQuotes_last = rsAMQuotes_total
End If
If (rsAMQuotes_numRows > rsAMQuotes_total) Then
rsAMQuotes_numRows = rsAMQuotes_total
End If
End If
%>
<%
' *** Recordset Stats, Move To Record, and Go To Record: declare stats variables

Dim rsVMQuotes_total
Dim rsVMQuotes_first
Dim rsVMQuotes_last

' set the record count
rsVMQuotes_total = rsVMQuotes.RecordCount

' set the number of rows displayed on this page
If (rsVMQuotes_numRows < 0) Then
rsVMQuotes_numRows = rsVMQuotes_total
Elseif (rsVMQuotes_numRows = 0) Then
rsVMQuotes_numRows = 1
End If

' set the first and last displayed record
rsVMQuotes_first = 1
rsVMQuotes_last = rsVMQuotes_first + rsVMQuotes_numRows - 1

' if we have the correct record count, check the other stats
If (rsVMQuotes_total <> -1) Then
If (rsVMQuotes_first > rsVMQuotes_total) Then
rsVMQuotes_first = rsVMQuotes_total
End If
If (rsVMQuotes_last > rsVMQuotes_total) Then
rsVMQuotes_last = rsVMQuotes_total
End If
If (rsVMQuotes_numRows > rsVMQuotes_total) Then
rsVMQuotes_numRows = rsVMQuotes_total
End If
End If
%>
<%
' *** Recordset Stats, Move To Record, and Go To Record: declare stats variables

Dim rsNOCQuotes_total
Dim rsNOCQuotes_first
Dim rsNOCQuotes_last

' set the record count
rsNOCQuotes_total = rsNOCQuotes.RecordCount

' set the number of rows displayed on this page
If (rsNOCQuotes_numRows < 0) Then
rsNOCQuotes_numRows = rsNOCQuotes_total
Elseif (rsNOCQuotes_numRows = 0) Then
rsNOCQuotes_numRows = 1
End If

' set the first and last displayed record
rsNOCQuotes_first = 1
rsNOCQuotes_last = rsNOCQuotes_first + rsNOCQuotes_numRows - 1

' if we have the correct record count, check the other stats
If (rsNOCQuotes_total <> -1) Then
If (rsNOCQuotes_first > rsNOCQuotes_total) Then
rsNOCQuotes_first = rsNOCQuotes_total
End If
If (rsNOCQuotes_last > rsNOCQuotes_total) Then
rsNOCQuotes_last = rsNOCQuotes_total
End If
If (rsNOCQuotes_numRows > rsNOCQuotes_total) Then
rsNOCQuotes_numRows = rsNOCQuotes_total
End If
End If
%>
<%
' *** Recordset Stats, Move To Record, and Go To Record: declare stats variables

Dim rsCatDQuotes_total
Dim rsCatDQuotes_first
Dim rsCatDQuotes_last

' set the record count
rsCatDQuotes_total = rsCatDQuotes.RecordCount

' set the number of rows displayed on this page
If (rsCatDQuotes_numRows < 0) Then
rsCatDQuotes_numRows = rsCatDQuotes_total
Elseif (rsCatDQuotes_numRows = 0) Then
rsCatDQuotes_numRows = 1
End If

' set the first and last displayed record
rsCatDQuotes_first = 1
rsCatDQuotes_last = rsCatDQuotes_first + rsCatDQuotes_numRows - 1

' if we have the correct record count, check the other stats
If (rsCatDQuotes_total <> -1) Then
If (rsCatDQuotes_first > rsCatDQuotes_total) Then
rsCatDQuotes_first = rsCatDQuotes_total
End If
If (rsCatDQuotes_last > rsCatDQuotes_total) Then
rsCatDQuotes_last = rsCatDQuotes_total
End If
If (rsCatDQuotes_numRows > rsCatDQuotes_total) Then
rsCatDQuotes_numRows = rsCatDQuotes_total
End If
End If
%>
<%
' *** Recordset Stats, Move To Record, and Go To Record: declare stats variables

Dim rsCiaranQuotes_total
Dim rsCiaranQuotes_first
Dim rsCiaranQuotes_last

' set the record count
rsCiaranQuotes_total = rsCiaranQuotes.RecordCount

' set the number of rows displayed on this page
If (rsCiaranQuotes_numRows < 0) Then
rsCiaranQuotes_numRows = rsCiaranQuotes_total
Elseif (rsCiaranQuotes_numRows = 0) Then
rsCiaranQuotes_numRows = 1
End If

' set the first and last displayed record
rsCiaranQuotes_first = 1
rsCiaranQuotes_last = rsCiaranQuotes_first + rsCiaranQuotes_numRows - 1

' if we have the correct record count, check the other stats
If (rsCiaranQuotes_total <> -1) Then
If (rsCiaranQuotes_first > rsCiaranQuotes_total) Then
rsCiaranQuotes_first = rsCiaranQuotes_total
End If
If (rsCiaranQuotes_last > rsCiaranQuotes_total) Then
rsCiaranQuotes_last = rsCiaranQuotes_total
End If
If (rsCiaranQuotes_numRows > rsCiaranQuotes_total) Then
rsCiaranQuotes_numRows = rsCiaranQuotes_total
End If
End If
%>
<%
' *** Recordset Stats, Move To Record, and Go To Record: declare stats variables

Dim rsPAQuotes_total
Dim rsPAQuotes_first
Dim rsPAQuotes_last

' set the record count
rsPAQuotes_total = rsPAQuotes.RecordCount

' set the number of rows displayed on this page
If (rsPAQuotes_numRows < 0) Then
rsPAQuotes_numRows = rsPAQuotes_total
Elseif (rsPAQuotes_numRows = 0) Then
rsPAQuotes_numRows = 1
End If

' set the first and last displayed record
rsPAQuotes_first = 1
rsPAQuotes_last = rsPAQuotes_first + rsPAQuotes_numRows - 1

' if we have the correct record count, check the other stats
If (rsPAQuotes_total <> -1) Then
If (rsPAQuotes_first > rsPAQuotes_total) Then
rsPAQuotes_first = rsPAQuotes_total
End If
If (rsPAQuotes_last > rsPAQuotes_total) Then
rsPAQuotes_last = rsPAQuotes_total
End If
If (rsPAQuotes_numRows > rsPAQuotes_total) Then
rsPAQuotes_numRows = rsPAQuotes_total
End If
End If
%>
<%
' *** Recordset Stats, Move To Record, and Go To Record: declare stats variables

Dim rsBFQuotes_total
Dim rsBFQuotes_first
Dim rsBFQuotes_last

' set the record count
rsBFQuotes_total = rsBFQuotes.RecordCount

' set the number of rows displayed on this page
If (rsBFQuotes_numRows < 0) Then
rsBFQuotes_numRows = rsBFQuotes_total
Elseif (rsBFQuotes_numRows = 0) Then
rsBFQuotes_numRows = 1
End If

' set the first and last displayed record
rsBFQuotes_first = 1
rsBFQuotes_last = rsBFQuotes_first + rsBFQuotes_numRows - 1

' if we have the correct record count, check the other stats
If (rsBFQuotes_total <> -1) Then
If (rsBFQuotes_first > rsBFQuotes_total) Then
rsBFQuotes_first = rsBFQuotes_total
End If
If (rsBFQuotes_last > rsBFQuotes_total) Then
rsBFQuotes_last = rsBFQuotes_total
End If
If (rsBFQuotes_numRows > rsBFQuotes_total) Then
rsBFQuotes_numRows = rsBFQuotes_total
End If
End If
%>
<%
' *** Recordset Stats, Move To Record, and Go To Record: declare stats variables

Dim rsDFQuotes_total
Dim rsDFQuotes_first
Dim rsDFQuotes_last

' set the record count
rsDFQuotes_total = rsDFQuotes.RecordCount

' set the number of rows displayed on this page
If (rsDFQuotes_numRows < 0) Then
rsDFQuotes_numRows = rsDFQuotes_total
Elseif (rsDFQuotes_numRows = 0) Then
rsDFQuotes_numRows = 1
End If

' set the first and last displayed record
rsDFQuotes_first = 1
rsDFQuotes_last = rsDFQuotes_first + rsDFQuotes_numRows - 1

' if we have the correct record count, check the other stats
If (rsDFQuotes_total <> -1) Then
If (rsDFQuotes_first > rsDFQuotes_total) Then
rsDFQuotes_first = rsDFQuotes_total
End If
If (rsDFQuotes_last > rsDFQuotes_total) Then
rsDFQuotes_last = rsDFQuotes_total
End If
If (rsDFQuotes_numRows > rsDFQuotes_total) Then
rsDFQuotes_numRows = rsDFQuotes_total
End If
End If
%>
<%
' *** Recordset Stats, Move To Record, and Go To Record: declare stats variables

Dim rsDKQuotes_total
Dim rsDKQuotes_first
Dim rsDKQuotes_last

' set the record count
rsDKQuotes_total = rsDKQuotes.RecordCount

' set the number of rows displayed on this page
If (rsDKQuotes_numRows < 0) Then
rsDKQuotes_numRows = rsDKQuotes_total
Elseif (rsDKQuotes_numRows = 0) Then
rsDKQuotes_numRows = 1
End If

' set the first and last displayed record
rsDKQuotes_first = 1
rsDKQuotes_last = rsDKQuotes_first + rsDKQuotes_numRows - 1

' if we have the correct record count, check the other stats
If (rsDKQuotes_total <> -1) Then
If (rsDKQuotes_first > rsDKQuotes_total) Then
rsDKQuotes_first = rsDKQuotes_total
End If
If (rsDKQuotes_last > rsDKQuotes_total) Then
rsDKQuotes_last = rsDKQuotes_total
End If
If (rsDKQuotes_numRows > rsDKQuotes_total) Then
rsDKQuotes_numRows = rsDKQuotes_total
End If
End If
%>
<%
' *** Recordset Stats, Move To Record, and Go To Record: declare stats variables

Dim rsMNQuotes_total
Dim rsMNQuotes_first
Dim rsMNQuotes_last

' set the record count
rsMNQuotes_total = rsMNQuotes.RecordCount

' set the number of rows displayed on this page
If (rsMNQuotes_numRows < 0) Then
rsMNQuotes_numRows = rsMNQuotes_total
Elseif (rsMNQuotes_numRows = 0) Then
rsMNQuotes_numRows = 1
End If

' set the first and last displayed record
rsMNQuotes_first = 1
rsMNQuotes_last = rsMNQuotes_first + rsMNQuotes_numRows - 1

' if we have the correct record count, check the other stats
If (rsMNQuotes_total <> -1) Then
If (rsMNQuotes_first > rsMNQuotes_total) Then
rsMNQuotes_first = rsMNQuotes_total
End If
If (rsMNQuotes_last > rsMNQuotes_total) Then
rsMNQuotes_last = rsMNQuotes_total
End If
If (rsMNQuotes_numRows > rsMNQuotes_total) Then
rsMNQuotes_numRows = rsMNQuotes_total
End If
End If
%>
<%
' *** Recordset Stats, Move To Record, and Go To Record: declare stats variables

Dim rsTSQuotes_total
Dim rsTSQuotes_first
Dim rsTSQuotes_last

' set the record count
rsTSQuotes_total = rsTSQuotes.RecordCount

' set the number of rows displayed on this page
If (rsTSQuotes_numRows < 0) Then
rsTSQuotes_numRows = rsTSQuotes_total
Elseif (rsTSQuotes_numRows = 0) Then
rsTSQuotes_numRows = 1
End If

' set the first and last displayed record
rsTSQuotes_first = 1
rsTSQuotes_last = rsTSQuotes_first + rsTSQuotes_numRows - 1

' if we have the correct record count, check the other stats
If (rsTSQuotes_total <> -1) Then
If (rsTSQuotes_first > rsTSQuotes_total) Then
rsTSQuotes_first = rsTSQuotes_total
End If
If (rsTSQuotes_last > rsTSQuotes_total) Then
rsTSQuotes_last = rsTSQuotes_total
End If
If (rsTSQuotes_numRows > rsTSQuotes_total) Then
rsTSQuotes_numRows = rsTSQuotes_total
End If
End If
%>




<!--*** Recordset Stats: if we don't know the record count, manually count the-->
<%
' *** Recordset Stats: if we don't know the record count, manually count them

If (rsAllquotes_total = -1) Then

' count the total records by iterating through the recordset
rsAllquotes_total=0
While (Not rsAllquotes.EOF)
rsAllquotes_total = rsAllquotes_total + 1
rsAllquotes.MoveNext
Wend

' reset the cursor to the beginning
If (rsAllquotes.CursorType > 0) Then
rsAllquotes.MoveFirst
Else
rsAllquotes.Requery
End If

' set the number of rows displayed on this page
If (rsAllquotes_numRows < 0 Or rsAllquotes_numRows > rsAllquotes_total) Then
rsAllquotes_numRows = rsAllquotes_total
End If

' set the first and last displayed record
rsAllquotes_first = 1
rsAllquotes_last = rsAllquotes_first + rsAllquotes_numRows - 1

If (rsAllquotes_first > rsAllquotes_total) Then
rsAllquotes_first = rsAllquotes_total
End If
If (rsAllquotes_last > rsAllquotes_total) Then
rsAllquotes_last = rsAllquotes_total
End If

End If
%>
<%
' *** Recordset Stats: if we don't know the record count, manually count them

If (rsAMQuotes_total = -1) Then

' count the total records by iterating through the recordset
rsAMQuotes_total=0
While (Not rsAMQuotes.EOF)
rsAMQuotes_total = rsAMQuotes_total + 1
rsAMQuotes.MoveNext
Wend

' reset the cursor to the beginning
If (rsAMQuotes.CursorType > 0) Then
rsAMQuotes.MoveFirst
Else
rsAMQuotes.Requery
End If

' set the number of rows displayed on this page
If (rsAMQuotes_numRows < 0 Or rsAMQuotes_numRows > rsAMQuotes_total) Then
rsAMQuotes_numRows = rsAMQuotes_total
End If

' set the first and last displayed record
rsAMQuotes_first = 1
rsAMQuotes_last = rsAMQuotes_first + rsAMQuotes_numRows - 1

If (rsAMQuotes_first > rsAMQuotes_total) Then
rsAMQuotes_first = rsAMQuotes_total
End If
If (rsAMQuotes_last > rsAMQuotes_total) Then
rsAMQuotes_last = rsAMQuotes_total
End If

End If
%>
<%
' *** Recordset Stats: if we don't know the record count, manually count them

If (rsVMQuotes_total = -1) Then

' count the total records by iterating through the recordset
rsVMQuotes_total=0
While (Not rsVMQuotes.EOF)
rsVMQuotes_total = rsVMQuotes_total + 1
rsVMQuotes.MoveNext
Wend

' reset the cursor to the beginning
If (rsVMQuotes.CursorType > 0) Then
rsVMQuotes.MoveFirst
Else
rsVMQuotes.Requery
End If

' set the number of rows displayed on this page
If (rsVMQuotes_numRows < 0 Or rsVMQuotes_numRows > rsVMQuotes_total) Then
rsVMQuotes_numRows = rsVMQuotes_total
End If

' set the first and last displayed record
rsVMQuotes_first = 1
rsVMQuotes_last = rsVMQuotes_first + rsVMQuotes_numRows - 1

If (rsVMQuotes_first > rsVMQuotes_total) Then
rsVMQuotes_first = rsVMQuotes_total
End If
If (rsVMQuotes_last > rsVMQuotes_total) Then
rsVMQuotes_last = rsVMQuotes_total
End If

End If
%>
<%
' *** Recordset Stats: if we don't know the record count, manually count them

If (rsNOCQuotes_total = -1) Then

' count the total records by iterating through the recordset
rsNOCQuotes_total=0
While (Not rsNOCQuotes.EOF)
rsNOCQuotes_total = rsNOCQuotes_total + 1
rsNOCQuotes.MoveNext
Wend

' reset the cursor to the beginning
If (rsNOCQuotes.CursorType > 0) Then
rsNOCQuotes.MoveFirst
Else
rsNOCQuotes.Requery
End If

' set the number of rows displayed on this page
If (rsNOCQuotes_numRows < 0 Or rsNOCQuotes_numRows > rsNOCQuotes_total) Then
rsNOCQuotes_numRows = rsNOCQuotes_total
End If

' set the first and last displayed record
rsNOCQuotes_first = 1
rsNOCQuotes_last = rsNOCQuotes_first + rsNOCQuotes_numRows - 1

If (rsNOCQuotes_first > rsNOCQuotes_total) Then
rsNOCQuotes_first = rsNOCQuotes_total
End If
If (rsNOCQuotes_last > rsNOCQuotes_total) Then
rsNOCQuotes_last = rsNOCQuotes_total
End If

End If
%>
<%
' *** Recordset Stats: if we don't know the record count, manually count them

If (rsCatDQuotes_total = -1) Then

' count the total records by iterating through the recordset
rsCatDQuotes_total=0
While (Not rsCatDQuotes.EOF)
rsCatDQuotes_total = rsCatDQuotes_total + 1
rsCatDQuotes.MoveNext
Wend

' reset the cursor to the beginning
If (rsCatDQuotes.CursorType > 0) Then
rsCatDQuotes.MoveFirst
Else
rsCatDQuotes.Requery
End If

' set the number of rows displayed on this page
If (rsCatDQuotes_numRows < 0 Or rsCatDQuotes_numRows > rsCatDQuotes_total) Then
rsCatDQuotes_numRows = rsCatDQuotes_total
End If

' set the first and last displayed record
rsCatDQuotes_first = 1
rsCatDQuotes_last = rsCatDQuotes_first + rsCatDQuotes_numRows - 1

If (rsCatDQuotes_first > rsCatDQuotes_total) Then
rsCatDQuotes_first = rsCatDQuotes_total
End If
If (rsCatDQuotes_last > rsCatDQuotes_total) Then
rsCatDQuotes_last = rsCatDQuotes_total
End If

End If
%>
<%
' *** Recordset Stats: if we don't know the record count, manually count them

If (rsCiaranQuotes_total = -1) Then

' count the total records by iterating through the recordset
rsCiaranQuotes_total=0
While (Not rsCiaranQuotes.EOF)
rsCiaranQuotes_total = rsCiaranQuotes_total + 1
rsCiaranQuotes.MoveNext
Wend

' reset the cursor to the beginning
If (rsCiaranQuotes.CursorType > 0) Then
rsCiaranQuotes.MoveFirst
Else
rsCiaranQuotes.Requery
End If

' set the number of rows displayed on this page
If (rsCiaranQuotes_numRows < 0 Or rsCiaranQuotes_numRows > rsCiaranQuotes_total) Then
rsCiaranQuotes_numRows = rsCiaranQuotes_total
End If

' set the first and last displayed record
rsCiaranQuotes_first = 1
rsCiaranQuotes_last = rsCiaranQuotes_first + rsCiaranQuotes_numRows - 1

If (rsCiaranQuotes_first > rsCiaranQuotes_total) Then
rsCiaranQuotes_first = rsCiaranQuotes_total
End If
If (rsCiaranQuotes_last > rsCiaranQuotes_total) Then
rsCiaranQuotes_last = rsCiaranQuotes_total
End If

End If
%>
<%
' *** Recordset Stats: if we don't know the record count, manually count them

If (rsAMQuotes_total = -1) Then

' count the total records by iterating through the recordset
rsAMQuotes_total=0
While (Not rsAMQuotes.EOF)
rsAMQuotes_total = rsAMQuotes_total + 1
rsAMQuotes.MoveNext
Wend

' reset the cursor to the beginning
If (rsAMQuotes.CursorType > 0) Then
rsAMQuotes.MoveFirst
Else
rsAMQuotes.Requery
End If

' set the number of rows displayed on this page
If (rsAMQuotes_numRows < 0 Or rsAMQuotes_numRows > rsAMQuotes_total) Then
rsAMQuotes_numRows = rsAMQuotes_total
End If

' set the first and last displayed record
rsAMQuotes_first = 1
rsAMQuotes_last = rsAMQuotes_first + rsAMQuotes_numRows - 1

If (rsAMQuotes_first > rsAMQuotes_total) Then
rsAMQuotes_first = rsAMQuotes_total
End If
If (rsAMQuotes_last > rsAMQuotes_total) Then
rsAMQuotes_last = rsAMQuotes_total
End If

End If
%>
<%
' *** Recordset Stats: if we don't know the record count, manually count them

If (rsVMQuotes_total = -1) Then

' count the total records by iterating through the recordset
rsVMQuotes_total=0
While (Not rsVMQuotes.EOF)
rsVMQuotes_total = rsVMQuotes_total + 1
rsVMQuotes.MoveNext
Wend

' reset the cursor to the beginning
If (rsVMQuotes.CursorType > 0) Then
rsVMQuotes.MoveFirst
Else
rsVMQuotes.Requery
End If

' set the number of rows displayed on this page
If (rsVMQuotes_numRows < 0 Or rsVMQuotes_numRows > rsVMQuotes_total) Then
rsVMQuotes_numRows = rsVMQuotes_total
End If

' set the first and last displayed record
rsVMQuotes_first = 1
rsVMQuotes_last = rsVMQuotes_first + rsVMQuotes_numRows - 1

If (rsVMQuotes_first > rsVMQuotes_total) Then
rsVMQuotes_first = rsVMQuotes_total
End If
If (rsVMQuotes_last > rsVMQuotes_total) Then
rsVMQuotes_last = rsVMQuotes_total
End If

End If
%>
<%
' *** Recordset Stats: if we don't know the record count, manually count them

If (rsDKQuotes_total = -1) Then

' count the total records by iterating through the recordset
rsDKQuotes_total=0
While (Not rsDKQuotes.EOF)
rsDKQuotes_total = rsDKQuotes_total + 1
rsDKQuotes.MoveNext
Wend

' reset the cursor to the beginning
If (rsDKQuotes.CursorType > 0) Then
rsDKQuotes.MoveFirst
Else
rsDKQuotes.Requery
End If

' set the number of rows displayed on this page
If (rsDKQuotes_numRows < 0 Or rsDKQuotes_numRows > rsDKQuotes_total) Then
rsDKQuotes_numRows = rsDKQuotes_total
End If

' set the first and last displayed record
rsDKQuotes_first = 1
rsDKQuotes_last = rsDKQuotes_first + rsDKQuotes_numRows - 1

If (rsDKQuotes_first > rsDKQuotes_total) Then
rsDKQuotes_first = rsDKQuotes_total
End If
If (rsDKQuotes_last > rsDKQuotes_total) Then
rsDKQuotes_last = rsDKQuotes_total
End If

End If
%>
<%
' *** Recordset Stats: if we don't know the record count, manually count them

If (rsNOCQuotes_total = -1) Then

' count the total records by iterating through the recordset
rsNOCQuotes_total=0
While (Not rsNOCQuotes.EOF)
rsNOCQuotes_total = rsNOCQuotes_total + 1
rsNOCQuotes.MoveNext
Wend

' reset the cursor to the beginning
If (rsNOCQuotes.CursorType > 0) Then
rsNOCQuotes.MoveFirst
Else
rsNOCQuotes.Requery
End If

' set the number of rows displayed on this page
If (rsNOCQuotes_numRows < 0 Or rsNOCQuotes_numRows > rsNOCQuotes_total) Then
rsNOCQuotes_numRows = rsNOCQuotes_total
End If

' set the first and last displayed record
rsNOCQuotes_first = 1
rsNOCQuotes_last = rsNOCQuotes_first + rsNOCQuotes_numRows - 1

If (rsNOCQuotes_first > rsNOCQuotes_total) Then
rsNOCQuotes_first = rsNOCQuotes_total
End If
If (rsNOCQuotes_last > rsNOCQuotes_total) Then
rsNOCQuotes_last = rsNOCQuotes_total
End If

End If
%>
<%
' *** Recordset Stats: if we don't know the record count, manually count them

If (rsMNQuotes_total = -1) Then

' count the total records by iterating through the recordset
rsMNQuotes_total=0
While (Not rsMNQuotes.EOF)
rsMNQuotes_total = rsMNQuotes_total + 1
rsMNQuotes.MoveNext
Wend

' reset the cursor to the beginning
If (rsMNQuotes.CursorType > 0) Then
rsMNQuotes.MoveFirst
Else
rsMNQuotes.Requery
End If

' set the number of rows displayed on this page
If (rsMNQuotes_numRows < 0 Or rsMNQuotes_numRows > rsMNQuotes_total) Then
rsMNQuotes_numRows = rsMNQuotes_total
End If

' set the first and last displayed record
rsMNQuotes_first = 1
rsMNQuotes_last = rsMNQuotes_first + rsMNQuotes_numRows - 1

If (rsMNQuotes_first > rsMNQuotes_total) Then
rsMNQuotes_first = rsMNQuotes_total
End If
If (rsMNQuotes_last > rsMNQuotes_total) Then
rsMNQuotes_last = rsMNQuotes_total
End If

End If
%>
<%
' *** Recordset Stats: if we don't know the record count, manually count them

If (rsNOCQuotes_total = -1) Then

' count the total records by iterating through the recordset
rsNOCQuotes_total=0
While (Not rsNOCQuotes.EOF)
rsNOCQuotes_total = rsNOCQuotes_total + 1
rsNOCQuotes.MoveNext
Wend

' reset the cursor to the beginning
If (rsNOCQuotes.CursorType > 0) Then
rsNOCQuotes.MoveFirst
Else
rsNOCQuotes.Requery
End If

' set the number of rows displayed on this page
If (rsNOCQuotes_numRows < 0 Or rsNOCQuotes_numRows > rsNOCQuotes_total) Then
rsNOCQuotes_numRows = rsNOCQuotes_total
End If

' set the first and last displayed record
rsNOCQuotes_first = 1
rsNOCQuotes_last = rsNOCQuotes_first + rsNOCQuotes_numRows - 1

If (rsNOCQuotes_first > rsNOCQuotes_total) Then
rsNOCQuotes_first = rsNOCQuotes_total
End If
If (rsNOCQuotes_last > rsNOCQuotes_total) Then
rsNOCQuotes_last = rsNOCQuotes_total
End If

End If
%>
<%
' *** Recordset Stats: if we don't know the record count, manually count them

If (rsTSQuotes_total = -1) Then

' count the total records by iterating through the recordset
rsTSQuotes_total=0
While (Not rsTSQuotes.EOF)
rsTSQuotes_total = rsTSQuotes_total + 1
rsTSQuotes.MoveNext
Wend

' reset the cursor to the beginning
If (rsTSQuotes.CursorType > 0) Then
rsTSQuotes.MoveFirst
Else
rsTSQuotes.Requery
End If

' set the number of rows displayed on this page
If (rsTSQuotes_numRows < 0 Or rsTSQuotes_numRows > rsTSQuotes_total) Then
rsTSQuotes_numRows = rsTSQuotes_total
End If

' set the first and last displayed record
rsTSQuotes_first = 1
rsTSQuotes_last = rsTSQuotes_first + rsTSQuotes_numRows - 1

If (rsTSQuotes_first > rsTSQuotes_total) Then
rsTSQuotes_first = rsTSQuotes_total
End If
If (rsTSQuotes_last > rsTSQuotes_total) Then
rsTSQuotes_last = rsTSQuotes_total
End If

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 = "&index="
If (MM_paramName <> "") Then
MM_removeList = MM_removeList & "&" & MM_paramName & "="
End If

MM_keepURL=""
MM_keepForm=""
MM_keepBoth=""
MM_keepNone=""

' add the URL parameters to the MM_keepURL string
For Each MM_item In Request.QueryString
MM_nextItem = "&" & MM_item & "="
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 = "&" & MM_item & "="
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 <> "") Then
MM_keepBoth = Right(MM_keepBoth, Len(MM_keepBoth) - 1)
End If
If (MM_keepURL <> "") Then
MM_keepURL = Right(MM_keepURL, Len(MM_keepURL) - 1)
End If
If (MM_keepForm <> "") 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 <> "") Then
MM_joinChar = "&"
Else
MM_joinChar = ""
End If
End Function
%>
<%
' *** Recordset Stats: if we don't know the record count, manually count them

If (rsPAQuotes_total = -1) Then

' count the total records by iterating through the recordset
rsPAQuotes_total=0
While (Not rsPAQuotes.EOF)
rsPAQuotes_total = rsPAQuotes_total + 1
rsPAQuotes.MoveNext
Wend

' reset the cursor to the beginning
If (rsPAQuotes.CursorType > 0) Then
rsPAQuotes.MoveFirst
Else
rsPAQuotes.Requery
End If

' set the number of rows displayed on this page
If (rsPAQuotes_numRows < 0 Or rsPAQuotes_numRows > rsPAQuotes_total) Then
rsPAQuotes_numRows = rsPAQuotes_total
End If

' set the first and last displayed record
rsPAQuotes_first = 1
rsPAQuotes_last = rsPAQuotes_first + rsPAQuotes_numRows - 1

If (rsPAQuotes_first > rsPAQuotes_total) Then
rsPAQuotes_first = rsPAQuotes_total
End If
If (rsPAQuotes_last > rsPAQuotes_total) Then
rsPAQuotes_last = rsPAQuotes_total
End If

End If
%><%
' *** Recordset Stats: if we don't know the record count, manually count them

If (rsDFQuotes_total = -1) Then

' count the total records by iterating through the recordset
rsDFQuotes_total=0
While (Not rsDFQuotes.EOF)
rsDFQuotes_total = rsDFQuotes_total + 1
rsDFQuotes.MoveNext
Wend

' reset the cursor to the beginning
If (rsDFQuotes.CursorType > 0) Then
rsDFQuotes.MoveFirst
Else
rsDFQuotes.Requery
End If

' set the number of rows displayed on this page
If (rsDFQuotes_numRows < 0 Or rsDFQuotes_numRows > rsDFQuotes_total) Then
rsDFQuotes_numRows = rsDFQuotes_total
End If

' set the first and last displayed record
rsDFQuotes_first = 1
rsDFQuotes_last = rsDFQuotes_first + rsDFQuotes_numRows - 1

If (rsDFQuotes_first > rsDFQuotes_total) Then
rsDFQuotes_first = rsDFQuotes_total
End If
If (rsDFQuotes_last > rsDFQuotes_total) Then
rsDFQuotes_last = rsDFQuotes_total
End If

End If
%><%
' *** Recordset Stats: if we don't know the record count, manually count them

If (rsBFQuotes_total = -1) Then

' count the total records by iterating through the recordset
rsBFQuotes_total=0
While (Not rsBFQuotes.EOF)
rsBFQuotes_total = rsBFQuotes_total + 1
rsBFQuotes.MoveNext
Wend

' reset the cursor to the beginning
If (rsBFQuotes.CursorType > 0) Then
rsBFQuotes.MoveFirst
Else
rsBFQuotes.Requery
End If

' set the number of rows displayed on this page
If (rsBFQuotes_numRows < 0 Or rsBFQuotes_numRows > rsBFQuotes_total) Then
rsBFQuotes_numRows = rsBFQuotes_total
End If

' set the first and last displayed record
rsBFQuotes_first = 1
rsBFQuotes_last = rsBFQuotes_first + rsBFQuotes_numRows - 1

If (rsBFQuotes_first > rsBFQuotes_total) Then
rsBFQuotes_first = rsBFQuotes_total
End If
If (rsBFQuotes_last > rsBFQuotes_total) Then
rsBFQuotes_last = rsBFQuotes_total
End If

End If
%>


<%
Dim rsCurrencyRatesDollar
Dim rsCurrencyRatesDollar_cmd
Dim rsCurrencyRatesDollar_numRows
Set rsCurrencyRatesDollar_cmd = Server.CreateObject ("ADODB.Command")
rsCurrencyRatesDollar_cmd.ActiveConnection = MM_sqs_STRING
rsCurrencyRatesDollar_cmd.CommandText = "SELECT * FROM dbo.tblCurrencyIE where currency='Dollar' ORDER BY CurrencyVal ASC"
rsCurrencyRatesDollar_cmd.Prepared = true
Set rsCurrencyRatesDollar = rsCurrencyRatesDollar_cmd.Execute
rsCurrencyRatesDollar_numRows = 0
%>
<%
Dim rsCurrencyRatesGBP
Dim rsCurrencyRatesGBP_cmd
Dim rsCurrencyRatesGBP_numRows
Set rsCurrencyRatesGBP_cmd = Server.CreateObject ("ADODB.Command")
rsCurrencyRatesGBP_cmd.ActiveConnection = MM_sqs_STRING
rsCurrencyRatesGBP_cmd.CommandText = "SELECT * FROM dbo.tblCurrencyIE WHERE currency='Sterling' ORDER BY CurrencyVal ASC"
rsCurrencyRatesGBP_cmd.Prepared = true
Set rsCurrencyRatesGBP = rsCurrencyRatesGBP_cmd.Execute
rsCurrencyRatesGBP_numRows = 0
%>
<%
Dim rsQuoteOriginal
Dim rsQuoteOriginal_cmd
Dim rsQuoteOriginal_numRows
Set rsQuoteOriginal_cmd = Server.CreateObject ("ADODB.Command")
rsQuoteOriginal_cmd.ActiveConnection = MM_sqs_STRING
rsQuoteOriginal_cmd.CommandText = "SELECT * FROM dbo.qryRQHome WHERE quotetype='2' ORDER BY DateUploaded Desc"
rsQuoteOriginal_cmd.Prepared = true
Set rsQuoteOriginal = rsQuoteOriginal_cmd.Execute
rsQuoteOriginal_numRows = 0
%>



<!--#include file="../ie/functions.asp" -->
<!--#include file="functions.asp" -->


<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd"&gt;
<SCRIPT RUNAT=SERVER LANGUAGE=VBSCRIPT>
function DoDateTime(str, nNamedFormat, nLCID)
dim strRet
dim nOldLCID

strRet = str
If (nLCID > -1) Then
oldLCID = Session.LCID
End If

On Error Resume Next

If (nLCID > -1) Then
Session.LCID = nLCID
End If

If ((nLCID < 0) Or (Session.LCID = nLCID)) Then
strRet = FormatDateTime(str, nNamedFormat)
End If

If (nLCID > -1) Then
Session.LCID = oldLCID
End If

DoDateTime = strRet
End Function
</SCRIPT>
<html>
<style type="text/css">
<!--
.LeadtimeHdrTxt {
font-size: 6pt;
}
.mgmthdr {
text-align: center;
}
-->
</style>
<SCRIPT LANGUAGE="JavaScript">
<!-- Begin
function EditMarginWindow(mypage, myname, w, h, scroll) {
var winl = (screen.width - w) / 2;
var wint = (screen.height - h) / 2;
winprops = 'height='+h+',width='+w+',top='+wint+',left='+winl+',scrollbars='+scroll+',resizable'
win = window.open(mypage, myname, winprops)
if (parseInt(navigator.appVersion) >= 4) { win.window.focus(); }
}
// End -->
</script>
<script src="../SpryAssets/SpryTabbedPanels.js" type="text/javascript"></script>
<link href="../SpryAssets/SpryTabbedPanels.css" rel="stylesheet" type="text/css">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link href="../css/sitestyle1.css" rel="stylesheet" type="text/css">
<title></title>
</head>
<body topmargin="0">
<table width="800" border="0" align="center" cellpadding="1" cellspacing="1">
<tr>
<td><div align="center"><img src="../siteimgs/rapidqotehdr.jpg" alt="" width="800" height="79"></div>
</tr>
<tr>
<td><div align="center">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><div align="center">
<table width="100%" border="0">
<tr>
<td width="3%"><table width="32" border="0">
<tr>
<td><div align="left"><a href="InsertQuote.asp"><img src="../siteimgs/edit32.gif" alt="Add New Rapid Quote" width="32" height="32" border="0"></a></div></td>
</tr>
<tr>
<td><a href="InsertQuote.asp">ADD<br>
NEW</a></td>
</tr>
</table></td>
<td width="92%" align="center"><span class="CartID">Rapid Quote Overview</span></td>
<td width="5%" align="right"><table width="32" border="0">
<tr>
<td><div align="center"><a href="home.asp"><img src="../siteimgs/refresh32.gif" alt="Refresh this page" width="32" height="32" border="0"></a></div></td>
</tr>
<tr>
<td><div align="center"><a href="home.asp">REFRESH PAGE</a></div></td>
</tr>
</table></td>
</tr>
</table>
</div></td>
</tr>
</table>
<br>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="8" height="5" valign="top"><img src="../siteimgs/tlbox.jpg" width="10" height="10"></td>
<td width="784" height="5" background="../siteimgs/tmbox.jpg" bgcolor="#F5FBD5"></td>
<td width="8" height="5" valign="top"><img src="../siteimgs/trbox.jpg" width="10" height="10"></td>
</tr>
<tr>
<td background="../siteimgs/mlbox.jpg"></td>
<td background="../siteimgs/mbox.jpg" class="sparksearchinverse"><div align="center" class="sparksearchinversesm">Todays Rates: <img src="../siteimgs/europeanunion.gif" width="16" height="11" alt="Euro Rate"> € 1.00  <img src="../siteimgs/gb.gif" width="16" height="11" alt="GBP Rates"> €<%=(rsRates.Fields.Item("EuroGBP").Value)%> <img src="../siteimgs/us.gif" width="16" height="11" alt="Dollar Rate">  €<%=(rsRates.Fields.Item("EURUSD").Value)%></div></td>
<td background="../siteimgs/mrbox.jpg"></td>
</tr>
<tr>
<td><img src="../siteimgs/blbox.jpg" width="10" height="10"></td>
<td background="../siteimgs/bmbox.jpg"></td>
<td><img src="../siteimgs/brbox.jpg" width="10" height="10"></td>
</tr>
</table>


</tr>
<tr>
<td><br>

<table width="98%" border="0" cellspacing="0" cellpadding="0">
<tr> </tr>
</table>
</td></tr>




<tr>
<td valign="top"><div id="TabbedPanels1" class="TabbedPanels">
<ul class="TabbedPanelsTabGroup">
<li class="TabbedPanelsTab" tabindex="0">ALL(<%=(rsAllquotes_total)%>)</li>
<li class="TabbedPanelsTab" tabindex="0">AM(<%=(rsAMQuotes_total)%>)</li>
<li class="TabbedPanelsTab" tabindex="0">VM(<%=(rsVMQuotes_total)%>)</li>
<li class="TabbedPanelsTab" tabindex="0">NOC(<%=(rsNOCQuotes_total)%>)</li>
<li class="TabbedPanelsTab" tabindex="0">CatD(<%=(rsCatDQuotes_total)%>)</li>
<li class="TabbedPanelsTab" tabindex="0">Ciaran(<%=(rsCiaranQuotes_total)%>)</li>
<li class="TabbedPanelsTab" tabindex="0">PA(<%=(rsPAQuotes_total)%>)</li>
<li class="TabbedPanelsTab" tabindex="0">BF(<%=(rsBFQuotes_total)%>)</li>
<li class="TabbedPanelsTab" tabindex="0">DF(<%=(rsDFQuotes_total)%>)</li>
<li class="TabbedPanelsTab" tabindex="0">DK(<%=(rsDKQuotes_total)%>)</li>
<li class="TabbedPanelsTab" tabindex="0">MN(<%=(rsMNQuotes_total)%>)</li>
<li class="TabbedPanelsTab" tabindex="0">TradeShows(<%=(rsTSQuotes_total)%>)</li>
</ul>
<div class="TabbedPanelsContentGroup">
<div class="TabbedPanelsContent">


<br>
<div style="overflow:auto; height:450px;">
<table width="98%" border="1" cellspacing="2" cellpadding="1" bordercolor="#D6EB31" class="maintable">
<tr >
<td width="2%" align="center" class="sparksearchinversesm">Office</td>
<td width="3%" class="sparksearchinversesm">RQID</td>
<td width="5%" class="sparksearchinversesm">Date</td>
<td width="5%" class="sparksearchinversesm">Qty</td>
<td width="64%" class="sparksearchinversesm">Description</td>
<td width="16%" class="sparksearchinversesm">Supplier</td>
<td width="16%" class="sparksearchinversesm">SalesRep</td>
<td width="5%" align="center" class="sparksearchinversesm">View</td>

</tr>
<%
While ((Repeat1__numRows <> 0) AND (NOT rsAllquotes.EOF))
%>
<tr class="repeatregionbox">
<td align="center"><img src="../siteimgs/<%=(rsAllquotes.Fields.Item("OfficeFlag").Value)%>"></td>
<td><%=(rsALLQuotes.Fields.Item("ItemCode").Value)%></td>
<td><%= DoDateTime((rsALLQuotes.Fields.Item("DateUploaded").Value), 2, 2057) %></td>
<td align="center"><%=(rsALLQuotes.Fields.Item("Qty").Value)%></td>
<td><%=(rsALLQuotes.Fields.Item("Description").Value)%></td>
<td><A HREF="viewSupplierDetails.asp?<%= Server.HTMLEncode(MM_keepForm) & MM_joinChar(MM_keepForm) & "SupplierID=" & rsAllquotes.Fields.Item("SupplierID").Value %>"><%=(rsALLQuotes.Fields.Item("SuppName").Value)%></A></td>
<td><%=(rsAllquotes.Fields.Item("salesemail").Value)%></td>
<td align="center"><A HREF="viewQuoteDetails.asp?<%= Server.HTMLEncode(MM_keepForm) & MM_joinChar(MM_keepForm) & "ProdID=" & rsALLQuotes.Fields.Item("ProdID").Value %>"><img src="../siteimgs/search16.gif" alt="View Your Quote" width="16" height="16" border="0"></A></td>
</tr>
<%
Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
rsAllquotes.MoveNext()
Wend
%>
</table></div>
</div>

<div class="TabbedPanelsContent">
<p> </p>
<div style="overflow:auto; height:450px;">
<table width="100%" border="0" cellspacing="1" cellpadding="1">
<tr>
<td background="../siteimgs/mbox.jpg">

<table width="100%" border="0" cellspacing="2" cellpadding="1">
<tr class="sparksearchinversesm">
<td width="2%" class="sparksearchinversesm">Sent</td>
<td width="3%" class="sparksearchinversesm">Office</td>
<td width="5%" class="sparksearchinversesm">RQID</td>
<td width="5%" class="sparksearchinversesm">Date</td>
<td width="5%" class="sparksearchinversesm">Qty</td>
<td width="64%" class="sparksearchinversesm">Description</td>
<td width="16%" class="sparksearchinversesm">Supplier</td>
<td width="5%" align="center" class="sparksearchinversesm">View</td>
<td width="5%" align="center" class="sparksearchinversesm">Edit</td>
<td width="5%" align="center" class="sparksearchinversesm">Clone</td>
<td width="5%" align="center" class="sparksearchinversesm">Delete</td>
<td width="5%" align="center" class="sparksearchinversesm">Mail</td>
</tr>
<%
While ((Repeat2__numRows <> 0) AND (NOT rsAMQuotes.EOF))
%>
<tr class="repeatregionbox">
<td><img src="../siteimgs/<%=(rsAMQuotes.Fields.Item("RQEmailed").Value)%>"></td>
<td align="center"><img src="../siteimgs/<%=(rsAMquotes.Fields.Item("OfficeFlag").Value)%>" alt=""></td>
<td><%=(rsAMQuotes.Fields.Item("ItemCode").Value)%></td>
<td><%= DoDateTime((rsAMQuotes.Fields.Item("DateUploaded").Value), 2, 2057) %></td>
<td align="right"><%=(rsAMQuotes.Fields.Item("Qty").Value)%></td>
<td><%=(rsAMQuotes.Fields.Item("Description").Value)%></td>
<td><A HREF="viewSupplierDetails.asp?<%= Server.HTMLEncode(MM_keepForm) & MM_joinChar(MM_keepForm) & "SupplierID=" & rsAMQuotes.Fields.Item("SupplierID").Value %>"><%=(rsAMQuotes.Fields.Item("SuppName").Value)%></A></td>
<td align="center"><A HREF="viewQuoteDetails.asp?<%= Server.HTMLEncode(MM_keepForm) & MM_joinChar(MM_keepForm) & "ProdID=" & rsAMQuotes.Fields.Item("ProdID").Value %>"><img src="../siteimgs/search16.gif" alt="View Your Quote" width="16" height="16" border="0"></A></td>
<td align="center"><A HREF="editQuoteDetails.asp?<%= Server.HTMLEncode(MM_keepForm) & MM_joinChar(MM_keepForm) & "ProdID=" & rsAMQuotes.Fields.Item("ProdID").Value %>"><img src="../siteimgs/edit16.gif" alt="Edit This Quote" width="16" height="16" border="0"></A></td>
<td align="center"><A HREF="CloneRQ.asp?<%= Server.HTMLEncode(MM_keepForm) & MM_joinChar(MM_keepForm) & "ProdID=" & rsAMQuotes.Fields.Item("ProdID").Value %>"><img src="../siteimgs/copy16.gif" alt="Clone this Quote" width="16" height="16" border="0"></A></td>
<td align="center"><A HREF="DeleteRQ.asp?<%= Server.HTMLEncode(MM_keepForm) & MM_joinChar(MM_keepForm) & "ProdID=" & rsAMQuotes.Fields.Item("ProdID").Value %>"><img src="../siteimgs/delete16.gif" alt="Delete this quote" width="16" height="16" border="0"></A></td>
<td align="center"><A HREF="send2rep.asp?<%= Server.HTMLEncode(MM_keepForm) & MM_joinChar(MM_keepForm) & "ProdID=" & rsAMQuotes.Fields.Item("ProdID").Value %>"><img src="../siteimgs/mail16.gif" alt="Email Quote" width="16" height="16" border="0"></A></td>
</tr>
<%
Repeat2__index=Repeat2__index+1
Repeat2__numRows=Repeat2__numRows-1
rsAMQuotes.MoveNext()
Wend
%>
</table></td>
</tr>
</table>
</div>
</div>

<div class="TabbedPanelsContent">
<p>Content 3</p>
<table width="100%" border="0" cellspacing="2" cellpadding="1">
<tr class="sparksearchinversesm">
<td width="2%" align="center" class="sparksearchinversesm">Sent</td>
<td width="3%" align="center" class="sparksearchinversesm">Office</td>
<td width="5%" class="sparksearchinversesm">RQID</td>
<td width="5%" class="sparksearchinversesm">Date</td>
<td width="5%" class="sparksearchinversesm">Qty</td>
<td width="64%" class="sparksearchinversesm">Description</td>
<td width="16%" class="sparksearchinversesm">Supplier</td>
<td width="5%" align="center" class="sparksearchinversesm">View</td>
<td width="5%" align="center" class="sparksearchinversesm">Edit</td>
<td width="5%" align="center" class="sparksearchinversesm">Clone</td>
<td width="5%" align="center" class="sparksearchinversesm">Delete</td>
<td width="5%" align="center" class="sparksearchinversesm">Mail</td>
</tr>
<%
While ((Repeat3__numRows <> 0) AND (NOT rsVMQuotes.EOF))
%>
<tr class="repeatregionbox">
<td align="center"><img src="../siteimgs/<%=(rsVMQuotes.Fields.Item("RQEmailed").Value)%>"></td>
<td align="center"><img src="../siteimgs/<%=(rsVMQuotes.Fields.Item("OfficeFlag").Value)%>"></td>
<td><%=(rsVMQuotes.Fields.Item("ItemCode").Value)%></td>
<td><%= DoDateTime((rsVMQuotes.Fields.Item("DateUploaded").Value), 2, 2057) %></td>
<td align="right"><%=(rsVMQuotes.Fields.Item("Qty").Value)%></td>
<td><%=(rsVMQuotes.Fields.Item("Description").Value)%></td>
<td><A HREF="viewSupplierDetails.asp?<%= Server.HTMLEncode(MM_keepForm) & MM_joinChar(MM_keepForm) & "SupplierID=" & rsVMQuotes.Fields.Item("SupplierID").Value %>"><%=(rsVMQuotes.Fields.Item("SuppName").Value)%></A></td>
<td align="center"><A HREF="viewQuoteDetails.asp?<%= Server.HTMLEncode(MM_keepForm) & MM_joinChar(MM_keepForm) & "ProdID=" & rsVMQuotes.Fields.Item("ProdID").Value %>"><img src="../siteimgs/search16.gif" alt="View Your Quote" width="16" height="16" border="0"></A></td>
<td align="center"><A HREF="editQuoteDetails.asp?<%= Server.HTMLEncode(MM_keepForm) & MM_joinChar(MM_keepForm) & "ProdID=" & rsVMQuotes.Fields.Item("ProdID").Value %>"><img src="../siteimgs/edit16.gif" alt="Edit This Quote" width="16" height="16" border="0"></A></td>
<td align="center"><A HREF="CloneRQ.asp?<%= Server.HTMLEncode(MM_keepForm) & MM_joinChar(MM_keepForm) & "ProdID=" & rsVMQuotes.Fields.Item("ProdID").Value %>"><img src="../siteimgs/copy16.gif" alt="Clone this Quote" width="16" height="16" border="0"></A></td>
<td align="center"><A HREF="DeleteRQ.asp?<%= Server.HTMLEncode(MM_keepForm) & MM_joinChar(MM_keepForm) & "ProdID=" & rsVMQuotes.Fields.Item("ProdID").Value %>"><img src="../siteimgs/delete16.gif" alt="Delete this quote" width="16" height="16" border="0"></A></td>
<td align="center"><A HREF="send2rep.asp?<%= Server.HTMLEncode(MM_keepForm) & MM_joinChar(MM_keepForm) & "ProdID=" & rsVMQuotes.Fields.Item("ProdID").Value %>"><img src="../siteimgs/mail16.gif" alt="Email Quote" width="16" height="16" border="0"></A></td>
</tr>
<%
Repeat3__index=Repeat3__index+1
Repeat3__numRows=Repeat3__numRows-1
rsVMQuotes.MoveNext()
Wend
%>
</table>

</div>




<!--Valeria's Tab Ends Here-->




<!--NOC's Tab starts Here-->








<div class="TabbedPanelsContent">
<p> </p>
<div style="overflow:auto; height:450px;">
<table width="98%" border="0" cellspacing="1" cellpadding="1">
<tr>
<td background="../siteimgs/mbox.jpg">
<table width="100%" border="0" cellspacing="2" cellpadding="1">
<tr class="sparksearchinversesm">
<td width="2%" align="center" class="sparksearchinversesm">Sent</td>
<td width="3%" align="center" class="sparksearchinversesm">Office</td>
<td width="5%" class="sparksearchinversesm">RQID</td>
<td width="5%" class="sparksearchinversesm">Date</td>
<td width="5%" class="sparksearchinversesm">Qty</td>
<td width="64%" class="sparksearchinversesm">Description</td>
<td width="16%" class="sparksearchinversesm">Supplier</td>
<td width="5%" align="center" class="sparksearchinversesm">View</td>
<td width="5%" align="center" class="sparksearchinversesm">Edit</td>
<td width="5%" align="center" class="sparksearchinversesm">Clone</td>
<td width="5%" align="center" class="sparksearchinversesm">Delete</td>
<td width="5%" align="center" class="sparksearchinversesm">Mail</td>
</tr>
<%
While ((Repeat4__numRows <> 0) AND (NOT rsNOCQuotes.EOF))
%>
<tr class="repeatregionbox">
<td align="center"><img src="../siteimgs/<%=(rsNOCQuotes.Fields.Item("RQEmailed").Value)%>"></td>
<td align="center"><img src="../siteimgs/<%=(rsNOCQuotes.Fields.Item("OfficeFlag").Value)%>"></td>
<td><%=(rsNOCQuotes.Fields.Item("ItemCode").Value)%></td>
<td><%= DoDateTime((rsNOCQuotes.Fields.Item("DateUploaded").Value), 2, 2057) %></td>
<td align="right"><%=(rsNOCQuotes.Fields.Item("Qty").Value)%></td>
<td><%=(rsNOCQuotes.Fields.Item("Description").Value)%></td>
<td><A HREF="viewSupplierDetails.asp?<%= Server.HTMLEncode(MM_keepForm) & MM_joinChar(MM_keepForm) & "SupplierID=" & rsNOCQuotes.Fields.Item("SupplierID").Value %>"><%=(rsNOCQuotes.Fields.Item("SuppName").Value)%></A></td>
<td align="center"><A HREF="viewQuoteDetails.asp?<%= Server.HTMLEncode(MM_keepForm) & MM_joinChar(MM_keepForm) & "ProdID=" & rsNOCQuotes.Fields.Item("ProdID").Value %>"><img src="../siteimgs/search16.gif" alt="View Your Quote" width="16" height="16" border="0"></A></td>
<td align="center"><A HREF="editQuoteDetails.asp?<%= Server.HTMLEncode(MM_keepForm) & MM_joinChar(MM_keepForm) & "ProdID=" & rsNOCQuotes.Fields.Item("ProdID").Value %>"><img src="../siteimgs/edit16.gif" alt="Edit This Quote" width="16" height="16" border="0"></A></td>
<td align="center"><A HREF="CloneRQ.asp?<%= Server.HTMLEncode(MM_keepForm) & MM_joinChar(MM_keepForm) & "ProdID=" & rsNOCQuotes.Fields.Item("ProdID").Value %>"><img src="../siteimgs/copy16.gif" alt="Clone this Quote" width="16" height="16" border="0"></A></td>
<td align="center"><A HREF="DeleteRQ.asp?<%= Server.HTMLEncode(MM_keepForm) & MM_joinChar(MM_keepForm) & "ProdID=" & rsNOCQuotes.Fields.Item("ProdID").Value %>"><img src="../siteimgs/delete16.gif" alt="Delete this quote" width="16" height="16" border="0"></A></td>
<td align="center"><A HREF="send2rep.asp?<%= Server.HTMLEncode(MM_keepForm) & MM_joinChar(MM_keepForm) & "ProdID=" & rsNOCquotes.Fields.Item("ProdID").Value %>"><img src="../siteimgs/mail16.gif" alt="Email Quote" width="16" height="16" border="0"></A></td>
</tr>
<%
Repeat4__index=Repeat4__index+1
Repeat4__numRows=Repeat4__numRows-1
rsNOCQuotes.MoveNext()
Wend
%>
</table></td>
</tr>
</table>
</div>
</div>





<!--NOC Tab Ends Here-->
<!--Catriona's Tab Starts Here-->


<div class="TabbedPanelsContent">
<p>Content 5</p>
<table width="98%" border="0" cellspacing="2" cellpadding="1">
<tr class="sparksearchinversesm">
<td width="2%" align="center" class="sparksearchinversesm">Sent</td>
<td width="3%" align="center" class="sparksearchinversesm">Office</td>
<td width="5%" class="sparksearchinversesm">RQID</td>
<td width="5%" class="sparksearchinversesm">Date</td>
<td width="5%" class="sparksearchinversesm">Qty</td>
<td width="64%" class="sparksearchinversesm">Description</td>
<td width="16%" class="sparksearchinversesm">Supplier</td>
<td width="5%" align="center" class="sparksearchinversesm">View</td>
</tr>
<%
While ((Repeat5__numRows <> 0) AND (NOT rsCatDQuotes.EOF))
%>
<tr class="repeatregionbox">
<td align="center"><img src="../siteimgs/<%=(rsCatDQuotes.Fields.Item("RQEmailed").Value)%>"></td>
<td align="center"><img src="../siteimgs/<%=(rsCatDQuotes.Fields.Item("OfficeFlag").Value)%>"></td>
<td><%=(rsCatDQuotes.Fields.Item("ItemCode").Value)%></td>
<td><%= DoDateTime((rsCatDQuotes.Fields.Item("DateUploaded").Value), 2, 2057) %></td>
<td align="right"><%=(rsCatDQuotes.Fields.Item("Qty").Value)%></td>
<td><%=(rsCatDQuotes.Fields.Item("Description").Value)%></td>
<td><A HREF="viewSupplierDetails.asp?<%= Server.HTMLEncode(MM_keepForm) & MM_joinChar(MM_keepForm) & "SupplierID=" & rsCatDQuotes.Fields.Item("SupplierID").Value %>"><%=(rsCatDQuotes.Fields.Item("SuppName").Value)%></A></td>
<td align="center"><A HREF="viewQuoteDetails.asp?<%= Server.HTMLEncode(MM_keepForm) & MM_joinChar(MM_keepForm) & "ProdID=" & rsCatDQuotes.Fields.Item("ProdID").Value %>"><img src="../siteimgs/search16.gif" alt="View Your Quote" width="16" height="16" border="0"></A></td>
</tr>
<%
Repeat5__index=Repeat5__index+1
Repeat5__numRows=Repeat5__numRows-1
rsCatDQuotes.MoveNext()
Wend
%>
</table>

</div>


<div class="TabbedPanelsContent">
<p>Content 6</p>
<table width="98%" border="0" cellspacing="2" cellpadding="1">
<tr class="sparksearchinversesm">
<td width="2%" align="center" class="sparksearchinversesm">Sent</td>
<td width="3%" align="center" class="sparksearchinversesm">Office</td>
<td width="5%" class="sparksearchinversesm">RQID</td>
<td width="5%" class="sparksearchinversesm">Date</td>
<td width="5%" class="sparksearchinversesm">Qty</td>
<td width="64%" class="sparksearchinversesm">Description</td>
<td width="16%" class="sparksearchinversesm">Supplier</td>
<td width="5%" align="center" class="sparksearchinversesm">View</td>
</tr>
<%
While ((Repeat6__numRows <> 0) AND (NOT rsCiaranQuotes.EOF))
%>
<tr class="repeatregionbox">
<td align="center"><img src="../siteimgs/<%=(rsCiaranQuotes.Fields.Item("RQEmailed").Value)%>"></td>
<td align="center"><img src="../siteimgs/<%=(rsCiaranQuotes.Fields.Item("OfficeFlag").Value)%>"></td>
<td><%=(rsCiaranQuotes.Fields.Item("ItemCode").Value)%></td>
<td><%= DoDateTime((rsCiaranQuotes.Fields.Item("DateUploaded").Value), 2, 2057) %></td>
<td align="right"><%=(rsCiaranQuotes.Fields.Item("Qty").Value)%></td>
<td><%=(rsCiaranQuotes.Fields.Item("Description").Value)%></td>
<td><A HREF="viewSupplierDetails.asp?<%= Server.HTMLEncode(MM_keepForm) & MM_joinChar(MM_keepForm) & "SupplierID=" & rsCiaranQuotes.Fields.Item("SupplierID").Value %>"><%=(rsCiaranQuotes.Fields.Item("SuppName").Value)%></A></td>
<td align="center"><A HREF="viewQuoteDetails.asp?<%= Server.HTMLEncode(MM_keepForm) & MM_joinChar(MM_keepForm) & "ProdID=" & rsCiaranQuotes.Fields.Item("ProdID").Value %>"><img src="../siteimgs/search16.gif" alt="View Your Quote" width="16" height="16" border="0"></A></td>
</tr>
<%
Repeat6__index=Repeat6__index+1
Repeat6__numRows=Repeat6__numRows-1
rsCiaranQuotes.MoveNext()
Wend
%>
</table>

</div>

<div class="TabbedPanelsContent">
<p>Content 7</p>
<table width="98%" border="0" cellspacing="2" cellpadding="1">
<tr class="sparksearchinversesm">
<td width="1%" class="sparksearchinversesm">Mailed</td>
<td width="1%" class="sparksearchinversesm">Office</td>
<td width="3%" class="sparksearchinversesm">RQID</td>
<td width="5%" class="sparksearchinversesm">Date</td>
<td width="5%" class="sparksearchinversesm">Qty</td>
<td width="64%" class="sparksearchinversesm">Description</td>
<td width="16%" class="sparksearchinversesm">Supplier</td>
<td width="5%" align="center" class="sparksearchinversesm">View</td>
</tr>
<%
While ((Repeat7__numRows <> 0) AND (NOT rsPAQuotes.EOF))
%>
<tr class="repeatregionbox">
<td align="center"><img src="../siteimgs/<%=(rsPAQuotes.Fields.Item("RQEmailed").Value)%>"></td>
<td align="center"><img src="../siteimgs/<%=(rsPAquotes.Fields.Item("OfficeFlag").Value)%>" alt=""></td>
<td><%=(rsPAQuotes.Fields.Item("ItemCode").Value)%></td>
<td><%= DoDateTime((rsPAQuotes.Fields.Item("DateUploaded").Value), 2, 2057) %></td>
<td align="right"><%=(rsPAQuotes.Fields.Item("Qty").Value)%></td>
<td><%=(rsPAQuotes.Fields.Item("Description").Value)%></td>
<td><A HREF="viewSupplierDetails.asp?<%= Server.HTMLEncode(MM_keepForm) & MM_joinChar(MM_keepForm) & "SupplierID=" & rsPAQuotes.Fields.Item("SupplierID").Value %>"><%=(rsPAQuotes.Fields.Item("SuppName").Value)%></A></td>
<td align="center"><A HREF="viewQuoteDetails.asp?<%= Server.HTMLEncode(MM_keepForm) & MM_joinChar(MM_keepForm) & "ProdID=" & rsPAQuotes.Fields.Item("ProdID").Value %>"><img src="../siteimgs/search16.gif" alt="View Your Quote" width="16" height="16" border="0"></A></td>
</tr>
<%
Repeat7__index=Repeat7__index+1
Repeat7__numRows=Repeat7__numRows-1
rsPAQuotes.MoveNext()
Wend
%>
</table>
</div>
<div class="TabbedPanelsContent">
<p>Content 8</p>
<table width="98%" border="0" cellspacing="2" cellpadding="1">
<tr class="sparksearchinversesm">
<td width="2%" align="center" class="sparksearchinversesm">Sent</td>
<td width="3%" align="center" class="sparksearchinversesm">Off

CptSternn

There is way too much going on in that code. You first need to work on you structure. Classic ASP is very easy to work with, provided you don't try and cram everything into one page which is exactly what it appears you have done there.

Without breaking it down into smaller segments it will take you months to try and figure out what exact you have that is failing.

Also, you can see where many people have made many changes - the constant opening and closing of code (i.e. <% and %>) is not only redundant and not needed, but screams that the code is bloated and could be cut down to about 1/5 the current size.

I would start by taking each snippet of code you have there and making either separate functions or sub routines out and then make a separate page which can be included.

But sorry, looking at that mess I wouldn't know where to even start.

amen

have you checked your iss logs (windows\system32\logsfiles\ etc)

to see what type of access denied you are getting?

have you checked the error object?

do you have any error handling on your page?

from a quick glance of the code this page appears to display the quotes for multiple users?

why not write a stored procedure that returns all the quotes for the list of all users and let sql sort the data.

maybe return as xml and do a nice xsl transform.

I think you could rewrite nearly the whole page in less than 20 lines that way

sometimes it is better to throw away the code and start again

is this homework or production?

The Mighty Dubs

Hi, I checked the log and this is the last entry. Dont know if this helps?

2009-06-23 11:48:48 111.111.1.11 GET /abc/rq/home.asp - 80 - 111.111.1.12 Mozilla/4.0+(compatible;+MSIE+7.0;+Windows+NT+5.1;+GTB6) 401 1 2148074248

Regarding error handling. Im not sure if i have it? How can i check?
Yes this is bringing back multiple users quotes. Unfortunately im not up to date with stored procs. I have one or two running onthe site but they are very entry level and i'd be out of my debt with any complex.
Unfortunely this is for production and thats why im becoming rapidly follically challenged here.
Agreed the page is way to long with code. Needs to be minimized big time.

amen wrote: »

have you checked your iss logs (windows\system32\logsfiles\ etc)

to see what type of access denied you are getting?

have you checked the error object?

do you have any error handling on your page?

from a quick glance of the code this page appears to display the quotes for multiple users?

why not write a stored procedure that returns all the quotes for the list of all users and let sql sort the data.

maybe return as xml and do a nice xsl transform.

I think you could rewrite nearly the whole page in less than 20 lines that way

sometimes it is better to throw away the code and start again

is this homework or production?

kayos

The best thing you can do with that code it post it here for detailed comments.

amen

if you access the page from the server does it work?
does it not work for anyone or only some?
what authentication is setup on your IIS web ?

read this
http://support.microsoft.com/kb/318380

a SP would make your life easier

what happens with the existing code if there are more users?

Are you the only IT person? Have you tried asking an IT person in work?