<%@ Page Language="visualbasic" Debug="true" %>
<%@ Import Namespace="System.Data.OleDb" %>
Vintage Bicycle Discussion Area
<%
dim more_to_go as boolean
dim rec_count as integer
dim current_count as integer
Dim connPass1 As OleDbConnection
Dim cmdCommand As OleDbCommand
Dim dtrData As OleDbDataReader
dim MdbFilePath as string
dim start_num as integer
dim end_num as integer
dim DooDah as string
dim testing as string
MdbFilePath = Server.MapPath("../data/d_low.mdb")
ConnPass1 = New OleDbConnection( "PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA Source=" + "d:\clients\oldroads\oldroads.com\data\d_low.mdb" +"" )
ConnPass1.Open()
cmdCommand = New OleDbCommand("SELECT Main.* FROM Main WHERE ReplyID IS NULL order by QuestionID DESC", connpass1)
dtrData = cmdCommand.ExecuteReader()
While dtrdata.Read()
response.write(dtrdata("UserEmail") & "
")
end while 'dtrdata.read
dtrdata.close
connPass1.Close