Advertisement
If you have a new account but are having problems posting or verifying your account, please email us on hello@boards.ie for help. Thanks :)
Hello all! Please ensure that you are posting a new thread or question in the appropriate forum. The Feedback forum is overwhelmed with questions that are having to be moved elsewhere. If you need help to verify your account contact hello@boards.ie
You are not authorized to view this page!!!Help
Options
-
22-06-2009 10:14amHi 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:0
Comments
-
Can you post your code?
Also, what kind of web server is it on?0 -
Im using a IIS 6.0
The code is quite long so like Grizzly Adams once said "Bear with me"
**********************
<%@LANGUAGE="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">
<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">Off0 -
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.0 -
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?0 -
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.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?0 -
Advertisement
-
-
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?0
Advertisement