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
Expand|Select|Wrap|Line Numbers
- <%@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
- %>