<%
Dim oConn
Dim oRs
Dim filePath
Dim Index
' Map authors database to physical path
filePath = Server.MapPath("cleoDB.mdb")
' Create ADO Connection Component to connect
' with sample database
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & filePath
' Execute a SQL query and store the results
' within recordset
Set oRs = oConn.Execute("SELECT * From main WHERE main_id = 'main001'")
%>
|
|
What's New!
|
|
<% Response.Write oRs("description") %>
|
|
|
|
|
|
2005-2048 CLEO. All Rights Reserved. |
|
|
s
<%
oRs.close
oConn.close
%>