<% Dim Conn, rs, rsData Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "" & _ "Driver={Microsoft Text Driver (*.txt; *.csv)};" & _ "Dbq=[Directory containing CSV File];" & _ "Extensions=asc,csv,tab,txt;" & _ "Persist Security Info=False" Dim countSQL, SQL countSQL = "SELECT count(*) from [CSV File]" SQL = "SELECT * from [CSV File]" set rs = conn.execute(countSQL) set rsData = Conn.Execute(SQL) Dim ShowQuote Randomize ShowQuote = Int((rs(0) - 0 )*Rnd() + 0) While i < ShowQuote And Not rsData.EOF rsData.MoveNext i = i + 1 Wend If rsData.EOF Then rsData.MovePrevious End If Response.Write "

" Response.Write "

" Response.Write rsData(0) Response.Write "

" Response.Write rsData(1) Response.Write "

" Response.Write "

" rs.close: set rs = nothing rsData.close: set rsData = nothing conn.close: set conn = nothing %>