|
|
| |
Terms of Agreement:
By using this article, you agree to the following terms...
1) You may use
this article in your own programs (and may compile it into a program and distribute it in compiled format for languages that allow it) freely and with no charge.
2) You MAY NOT redistribute this article (for example to a web site) without written permission from the original author. Failure to do so is a violation of copyright laws.
3) You may link to this article from another website, but ONLY if it is not wrapped in a frame.
4) You will abide by any additional copyright restrictions which the author may have placed in the article or article's description.
| | <![CDATA[
**********************************************************************
How to dynamically create a html table from an ADO recordset !.
All you need is your connection string and Table name, and
off you go !.
**********************************************************************
<%
Dim conn
Dim cmd
Dim rs
Set conn = Server.CreateObject("ADODB.Connection")
Set cmd = Server.CreateObject("ADODB.Command")
cmd.ActiveConnection = "Provider = MSDASQL;Data Source=Northwind;Database=Northwind;User Id=;Password=;"
cmd.CommandText = "SELECT * FROM Customers"
Set rs = cmd.Execute
Response.Write "<table width=100% border=1>"
Response.Write "<tr>"
for i = 1 to rs.Fields.Count - 1
Response.Write "<td><strong>" & rs.Fields(i).Name & "<strong></td>"
next
Response.Write "</tr>"
Do While Not rs.EOF
Response.Write "<tr>"
for i = 1 to rs.Fields.Count - 1
Response.Write "<td>" & rs.Fields(i) & "</td>"
next
rs.MoveNext
Response.Write "</tr>"
Loop
Response.Write "</table>"
%>
]]> | |
|
|
Other 1 submission(s) by this author
|
|
| |
Report Bad Submission |
|
| |
| Your Vote! |
|
See Voting Log |
| |
| Other User Comments |
4/7/2001 5:50:27 AM: Younus Malik
Great Work!
but your code did'nt displaying first filed of the record. i have changed it a bit and make it some more fancy looking... check it out and/or update it if you wish
(If this comment was disrespectful, please report it.)
|
4/7/2001 5:52:00 AM: Malik Muhammad Younus Awan
<%
Dim conn
Dim cmd
Dim rs
Set conn = Server.CreateObject("ADODB.Connection")
Set cmd = Server.CreateObject("ADODB.Command")
'enter your own active connections string here
cmd.ActiveConnection = "Provider = MSDASQL;Data Source=qmail;Database=qmail;User Id=;Password=;"
'enter your own query here
cmd.CommandText = "SELECT [name] ,PASSWORD , FIRSTNAME , LASTNAME FROM login"
Set rs = cmd.Execute
(If this comment was disrespectful, please report it.)
|
4/7/2001 5:52:29 AM: Malik Muhammad Younus Awan
Response.Write ""
Response.Write ""
for i = 0 to rs.Fields.Count - 1
Response.Write "| " & rs.Fields(i).Name & " | "
next
Response.Write " "
Do While Not rs.EOF
Response.Write ""
for i = 0 to rs.Fields.Count - 1
Response.Write "| " & rs.Fields(i) & " | "
next
rs.MoveNext
Response.Write " "
Loop
Response.Write " "
%>
(If this comment was disrespectful, please report it.)
|
10/19/2002 2:38:54 PM:
I will get bck to you when I have checked and tested the code.
(If this comment was disrespectful, please report it.)
|
|
|
Add Your Feedback! |
Note:Not only will your feedback be posted, but an email will be sent to the code's author from the email account you registered on the site, so you can correspond directly.
NOTICE: The author of this article has been kind enough to share it with you. If you have a criticism, please state it politely or it will be deleted.
For feedback not related to this particular article, please click here.
|
To post feedback, first please login.
|
