Site hosted by Angelfire.com: Build your free website today!
<% 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") %>

 

 

 

Subscribe Now!

 

2005-2048 CLEO. All Rights Reserved.

 

s
<% oRs.close oConn.close %>