<% dim i i = 0 cmdTemp.commandText = "SELECT tblNewsLetters.NewsLetterId, tblNewsLetters.NewsLetterDate, tblNewsLetters.PDFName FROM tblNewsLetters "_ & "ORDER BY tblNewsLetters.NewsLetterdate DESC" set r1 = cmdTemp.execute %> Association of Racing Commissioners International

RCI NewsLetters

<% If r1.EOF = True Then Response.Write("No Items Found!") Else response.Write(vbNewLine) puttabs(2) response.Write("
") Do While r1.eof = False sPDFName = CStr(r1("PDFName")) iNewsId = CInt(r1("NewsLetterId")) dNewsLetterDate = CDate(Month(r1("NewsLetterDate")) & "/" & day(r1("NewsLetterDate")) & "/" & Year(r1("NewsLetterDate"))) 'blnMore = CBool(r1("bMore")) response.Write(vbNewLine) putTabs(3) response.Write("
") response.Write(vbnewline) puttabs(4) response.Write("
") response.Write(vbNewLine) puttabs(3) 'response.Write("
") response.Write("
") response.Write(vbNewLine) r1.movenext Loop putTabs(2) response.Write("
") response.Write(vbNewLine) r1.close End If %>

 

home   •   about us   •   news   •   jurisdictions   •   industry info   •   members   •   links   •   contact us
Racing Commissioners International © 2008