Hi Team,
I have this simple page to display the contents of a table in a database on the local machine as you can tell. All I get is the header line. I don't get any error or anything. Just a blank page. The table has data. Please help
<%
<%@ LANGUAGE = VBScript %>
<% Option Explicit %>
<%
'*****************************************************
'* Code written by XXXXXXX *
'*****************************************************
%>
<HTML>
<BODY BGCOLOR="White" topmargin="10" leftmargin="10">
<B>Here are the specialties:<B><BR>
<%
dim MyConn
dim RS
dim DbPath
DbPath = Server.MapPath("C:\aRxSoft\DB\RxSoft.mdb")
Set MyConn = Server.CreateObject("ADODB.Connection")
MyConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DbPath
Set RS = Server.CreateObject("ADODB.Recordset")
Set RS = MyConn.Execute("SELECT * FROM Specialty")
'Loop through the recordset
Do While not RS.EOF
'Write the HTML to display the current record in the recordset
Response.Write ("<br>")
Response.Write (RS("Specialty_Id"))
Response.Write ("<br>")
Response.Write (RS("Specialty"))
Response.Write ("<br>")
Response.Write (RS("Degree"))
Response.Write ("<br>")
'Move to the next record in the recordset
RS.MoveNext
Loop
RS.Close
set RS = Nothing
set MyConn = Nothing
%>
</BODY>
</HTML>
Thanks
Mo
I have this simple page to display the contents of a table in a database on the local machine as you can tell. All I get is the header line. I don't get any error or anything. Just a blank page. The table has data. Please help
<%
<%@ LANGUAGE = VBScript %>
<% Option Explicit %>
<%
'*****************************************************
'* Code written by XXXXXXX *
'*****************************************************
%>
<HTML>
<BODY BGCOLOR="White" topmargin="10" leftmargin="10">
<B>Here are the specialties:<B><BR>
<%
dim MyConn
dim RS
dim DbPath
DbPath = Server.MapPath("C:\aRxSoft\DB\RxSoft.mdb")
Set MyConn = Server.CreateObject("ADODB.Connection")
MyConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DbPath
Set RS = Server.CreateObject("ADODB.Recordset")
Set RS = MyConn.Execute("SELECT * FROM Specialty")
'Loop through the recordset
Do While not RS.EOF
'Write the HTML to display the current record in the recordset
Response.Write ("<br>")
Response.Write (RS("Specialty_Id"))
Response.Write ("<br>")
Response.Write (RS("Specialty"))
Response.Write ("<br>")
Response.Write (RS("Degree"))
Response.Write ("<br>")
'Move to the next record in the recordset
RS.MoveNext
Loop
RS.Close
set RS = Nothing
set MyConn = Nothing
%>
</BODY>
</HTML>
Thanks
Mo
