<%
' PAGE SETUP
Title = "Wines"
%>
Wines
<%
' path = "D:\WebData\E311669\database\hamilton.mdb"
Set cnn = Server.CreateObject("ADODB.Connection")
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & path & ";"
%><%
sql="SELECT * FROM Range ORDER BY RangeSort"
set rst = cnn.execute(sql)
do while not rst.eof
response.write("" & rst.fields("RangeName").value & "")
response.write("" & rst.fields("RangeBlurb").value & " ")
response.write("view this range › ")
rst.movenext
loop
rst.close
set rst=nothing
%><%
cnn.close
set cnn=nothing
%>
|