473,322 Members | 1,699 Online
Bytes | Software Development & Data Engineering Community
Post Job

Home Posts Topics Members FAQ

Join Bytes to post your question to a community of 473,322 software developers and data experts.

retrive info from mysql to asp page

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


Expand|Select|Wrap|Line Numbers
  1. <%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
  2. <!--#include file="Connections/dbkon.asp" -->
  3. <%
  4. agent__MMColParam = Request.Cookies("id")
  5. if agent__MMColParam = "" then
  6. response.redirect("login.asp")
  7. End if 
  8. %>
  9. <%
  10. Dim agent
  11. Dim agent_numRows
  12.  
  13. Set agent = Server.CreateObject("ADODB.Recordset")
  14. agent.ActiveConnection = MM_dbkon_STRING
  15. agent.Source = "SELECT * FROM m3lgs10.brokers WHERE id = " + Replace(agent__MMColParam, "'", "''") + ""
  16. agent.CursorType = 0
  17. agent.CursorLocation = 2
  18. agent.LockType = 1
  19. agent.Open()
  20.  
  21. agent_numRows = 0
  22. %>
  23. <%
  24. Dim leads__MMColParam
  25. leads__MMColParam = "New Lead"
  26. If (Request("MM_EmptyValue") <> "") Then 
  27.   leads__MMColParam = Request("MM_EmptyValue")
  28. End If
  29. %>
  30. <%
  31. Dim leads__d2
  32. leads__d2 = "1"
  33. If (Date() <> "") Then 
  34.   leads__d2 = Date()
  35. End If
  36. %>
  37. <%
  38. Dim leads
  39. Dim leads_numRows
  40.  
  41. Set leads = Server.CreateObject("ADODB.Recordset")
  42. leads.ActiveConnection = MM_dbkon_STRING
  43. leads.Source = "SELECT *  FROM m3lgs10.quotes  WHERE stats = '" + Replace(leads__MMColParam, "'", "''") + "'"
  44. leads.CursorType = 0
  45. leads.CursorLocation = 2
  46. leads.LockType = 1
  47. leads.Open()
  48.  
  49. leads_numRows = 0
  50. %>
  51. <%
  52. Dim credit__MMColParam
  53. credit__MMColParam = "10"
  54. If (Request.Cookies("id") <> "") Then 
  55.   credit__MMColParam = Request.Cookies("id")
  56. End If
  57. %>
  58. <%
  59.  
  60.  
  61.  
  62. Set credit = Server.CreateObject("ADODB.Recordset")
  63. credit.ActiveConnection = MM_dbkon_STRING
  64. credit.Source = "SELECT * FROM m3lgs10.credits WHERE pid = '" + Replace(credit__MMColParam, "'", "''") + "'"
  65. credit.CursorType = 0
  66. credit.CursorLocation = 2
  67. credit.LockType = 1
  68. credit.Open()
  69.  
  70. credit_numRows = 10
  71. %>
  72. <%
  73. Dim Repeat1__numRows
  74. Dim Repeat1__index
  75.  
  76. Repeat1__numRows = -10
  77. Repeat1__index = 10
  78. leads_numRows = leads_numRows + Repeat1__numRows
  79. %>
Feb 23 '12 #1
0 1310

Sign in to post your reply or Sign up for a free account.

Similar topics

0
by: W i l l | last post by:
I have Apache 2 parsing and serving PHP files just fine on my winXP box, however, when I try to add some mysql database functionality I get a warning that looks like this: Fatal error: Call to...
2
by: Renie83 | last post by:
Hi I really am going crazy! I'm using VBScript, ASP, and SQL My page reminds me of a shopping cart but looking at shopping cart examples has not helped! What I have is a page that brings in...
4
by: mikey | last post by:
Hi all, I'm having great problems trying to install the latest MySQl RPM package onto my Red Hat Linux OS. There is already MySQL v 3.0 pre-installed with the RH Linux distribution disk but I...
5
by: Brian Henry | last post by:
I have a page which reads an article from the database it has 1 text box, 2 dropdown lists, and a longreat HTML text box. I load the information from the database when the page is set to edit mode...
2
by: trihanhcie | last post by:
I m currently working on a Unix server with a fedora 3 as an os My current version of mysql is 3.23.58. I'd like to upgrade the version to 5.0.18. After downloading from MYSQL.COM the package on...
1
by: manish deshpande | last post by:
Hi, When i'm installing MySQL-server-standard-5.0.24a-0.rhel3.i386.rpm by the following command: rpm -i MySQL-server-standard-5.0.24a-0.rhel3.i386.rpm the following error is being shown: ...
1
by: phpmel | last post by:
"the page cannot be refreshed without resending the information".....This is the Internet Explorer Message i get before the info is sent all over again Is this always true or can we add some php...
1
by: swethak | last post by:
hi, when i run a java program for to store data and retrive using mysql datatabse i got the following errors.I think in that one of error is due to set the class path.I placed my...
5
by: raamay | last post by:
i have a form via which new users can register their information along with their Resume. Now when input validation is done, if there is some errors, then the page is reloaded with the users...
0
isladogs
by: isladogs | last post by:
The next Access Europe meeting will be on Wednesday 6 Mar 2024 starting at 18:00 UK time (6PM UTC) and finishing at about 19:15 (7.15PM). In this month's session, we are pleased to welcome back...
1
isladogs
by: isladogs | last post by:
The next Access Europe meeting will be on Wednesday 6 Mar 2024 starting at 18:00 UK time (6PM UTC) and finishing at about 19:15 (7.15PM). In this month's session, we are pleased to welcome back...
0
by: jfyes | last post by:
As a hardware engineer, after seeing that CEIWEI recently released a new tool for Modbus RTU Over TCP/UDP filtering and monitoring, I actively went to its official website to take a look. It turned...
1
by: PapaRatzi | last post by:
Hello, I am teaching myself MS Access forms design and Visual Basic. I've created a table to capture a list of Top 30 singles and forms to capture new entries. The final step is a form (unbound)...
1
by: CloudSolutions | last post by:
Introduction: For many beginners and individual users, requiring a credit card and email registration may pose a barrier when starting to use cloud servers. However, some cloud server providers now...
1
by: Defcon1945 | last post by:
I'm trying to learn Python using Pycharm but import shutil doesn't work
1
by: Shællîpôpï 09 | last post by:
If u are using a keypad phone, how do u turn on JavaScript, to access features like WhatsApp, Facebook, Instagram....
0
by: af34tf | last post by:
Hi Guys, I have a domain whose name is BytesLimited.com, and I want to sell it. Does anyone know about platforms that allow me to list my domain in auction for free. Thank you
0
isladogs
by: isladogs | last post by:
The next Access Europe User Group meeting will be on Wednesday 3 Apr 2024 starting at 18:00 UK time (6PM UTC+1) and finishing by 19:30 (7.30PM). In this session, we are pleased to welcome former...

By using Bytes.com and it's services, you agree to our Privacy Policy and Terms of Use.

To disable or enable advertisements and analytics tracking please visit the manage ads & tracking page.