<html>
<head>
<link href="theme/iframe_style.css" rel="stylesheet" type="text/css" />
<%
Dim objConn, strConn, objRS
Set objConn = Server.CreateObject("ADODB.Connection")
strConn = "Provider=Microsoft.ACE.OLEDB.12.0; Data Source= db\softwares.accdb"
objConn.Open strConn
Set objRS = Server.CreateObject("ADODB.RecordSet")
objRS.Open "softwares",objConn
%>
</head>
<body>
<table border=0>
<% While NOT objRS.EOF %>
<tr>
<td><%=objRS("softname")%></td>
<td></td>
</tr>
<%
objRS.MoveNext
Wend
objRS.Close
objConn.Close
Set objConn=Nothing
Set objRS=Nothing
%>
</table>
</body>
</html>