retrive info from mysql to asp page

[David Ziv]

HI this is the asp code from my page,
rightr now it only display quotes that i have filled from my quote page,
I wish it to display all the quotes , includes the one on my mysql that i hav esent to my mysql truth my email parser program.

so i have on my mysql Data in quote Table 10 or 20 quotes , but i only see the ones that came from quote page . any question call me at
516-376-4118

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!--#include file="Connections/dbkon.asp" -->
<%
agent__MMColParam = Request.Cookies("id")
if agent__MMColParam = "" then
response.redirect("login.asp")
End if 
%>
<%
Dim agent
Dim agent_numRows

Set agent = Server.CreateObject("ADODB.Recordset")
agent.ActiveConnection = MM_dbkon_STRING
agent.Source = "SELECT * FROM m3lgs10.brokers WHERE id = " + Replace(agent__MMColParam, "'", "''") + ""
agent.CursorType = 0
agent.CursorLocation = 2
agent.LockType = 1
agent.Open()

agent_numRows = 0
%>
<%
Dim leads__MMColParam
leads__MMColParam = "New Lead"
If (Request("MM_EmptyValue") <> "") Then 
  leads__MMColParam = Request("MM_EmptyValue")
End If
%>
<%
Dim leads__d2
leads__d2 = "1"
If (Date() <> "") Then 
  leads__d2 = Date()
End If
%>
<%
Dim leads
Dim leads_numRows

Set leads = Server.CreateObject("ADODB.Recordset")
leads.ActiveConnection = MM_dbkon_STRING
leads.Source = "SELECT *  FROM m3lgs10.quotes  WHERE stats = '" + Replace(leads__MMColParam, "'", "''") + "'"
leads.CursorType = 0
leads.CursorLocation = 2
leads.LockType = 1
leads.Open()

leads_numRows = 0
%>
<%
Dim credit__MMColParam
credit__MMColParam = "10"
If (Request.Cookies("id") <> "") Then 
  credit__MMColParam = Request.Cookies("id")
End If
%>
<%

 

Set credit = Server.CreateObject("ADODB.Recordset")
credit.ActiveConnection = MM_dbkon_STRING
credit.Source = "SELECT * FROM m3lgs10.credits WHERE pid = '" + Replace(credit__MMColParam, "'", "''") + "'"
credit.CursorType = 0
credit.CursorLocation = 2
credit.LockType = 1
credit.Open()

credit_numRows = 10
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index

Repeat1__numRows = -10
Repeat1__index = 10
leads_numRows = leads_numRows + Repeat1__numRows
%>