Hi Guys, I am racking my brains on this script which does'nt seem to work. Says expected loop!
<%@ Language=VBScript%>
<html>
<head>
<title>Display all Records</title>
</head>
<body>
<Script language="VBScript">
Set MyConn = CreateObject("ADODB.Connection")
MyConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=P:\AT Team\Website\FPMCR.mdb"
strSQL = "Select * from Reviewer;"
SET oRs = Execute(strSQL) 'Execute the SQL statement
DO WHILE NOT oRs.EOF
on error resume next
</Script>
</pre>
<table>
<tr>
<td>
<tr>
<td width="100%">Reviewer Name: <% oRs.Fields("Name") %></td>
</tr>
</td>
<td width="65%"> <% oRs.Fields("Level") %></td>
</tr>
</table>
<Script language="VBScript">
oRs.MoveNext
Loop
MyConn.Close
SET MyConn = Nothing
</Script>
</body>
</html>
Display records in a table
