Hello,
I have written 2 sql statements in my code below and only one table displays on the page. If I comment out one sql statement, the other works, but they will not work together. Could you please point me in the direction of a solution?
Thank you
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<!--#include file="connect.inc"-->
<body>
<P>testing why this won't make a new table</P>
<table>
<tr>
<%
Set recordSet=Server.CreateObject("ADODB.Recordset")
recordSet.Open "SELECT DISTINCT DB_Name FROM DB_Administration WHERE DB_Name is Not Null", GetConnection
Response.Write ("<table border=1><tr bgcolor=#CCCCCC><th>Database Name</th></tr>")
Do While Not recordSet.EOF
Response.Write "<tr><td>" & recordSet("DB_Name") &"<br></td>"
recordSet.MoveNext
Loop
Response.End
%>
<br>
<P>testing why this won't make a new table</P>
</table>
<table>
<tr>
<%
Set RS=Server.CreateObject("ADODB.Recordset")
RS.Open "SELECT DISTINCT Source FROM Meta_Data", GetConnection
Response.Write ("<table border=1><tr bgcolor=#CCCCCC><th>Database Name</th></tr>")
Do While Not RS.EOF
Response.Write "<tr><td>" & RS("Source") &"<br></td>"
RS.MoveNext
Loop
Response.End
%>
</tr></td>
</table>
/body>
</html>
I have written 2 sql statements in my code below and only one table displays on the page. If I comment out one sql statement, the other works, but they will not work together. Could you please point me in the direction of a solution?
Thank you
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<!--#include file="connect.inc"-->
<body>
<P>testing why this won't make a new table</P>
<table>
<tr>
<%
Set recordSet=Server.CreateObject("ADODB.Recordset")
recordSet.Open "SELECT DISTINCT DB_Name FROM DB_Administration WHERE DB_Name is Not Null", GetConnection
Response.Write ("<table border=1><tr bgcolor=#CCCCCC><th>Database Name</th></tr>")
Do While Not recordSet.EOF
Response.Write "<tr><td>" & recordSet("DB_Name") &"<br></td>"
recordSet.MoveNext
Loop
Response.End
%>
<br>
<P>testing why this won't make a new table</P>
</table>
<table>
<tr>
<%
Set RS=Server.CreateObject("ADODB.Recordset")
RS.Open "SELECT DISTINCT Source FROM Meta_Data", GetConnection
Response.Write ("<table border=1><tr bgcolor=#CCCCCC><th>Database Name</th></tr>")
Do While Not RS.EOF
Response.Write "<tr><td>" & RS("Source") &"<br></td>"
RS.MoveNext
Loop
Response.End
%>
</tr></td>
</table>
/body>
</html>