<%@ LANGUAGE="VBScript" %>
<% Set Connection = Server.CreateObject("ADODB.Connection")
Connection.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath(".") & "\db\obs.mdb"
SQLStmt = ""
set rs=server.createObject("ADODB.RecordSet")
rs.ActiveConnection = Connection
rs.CursorType = 1
rs.LockType = 3
rs.open "SELECT * From Description "
if not rs.EOF then
strDesc=rs("cDescription")
else
strDesc=""
end if
rs.Close
set rs =nothing
%>
Ontario Building Supply
