Function GetParadeComment(cn,h) Dim a,b,q,n,r,i,dd '--------------------- If Len(Trim(h)) < 2 Then GetParadeComment = h: Exit Function '--------------------- For i = 1 To Len(h) Step 2 a = Mid(h, i, 2) q = "SELECT * FROM paradecomments WHERE grp='" & a & "'" Set dd = cn.Execute(q) If Not dd.EOF Then b = b & ". " & dd("txT") Next GetParadeComment = b End Function Function GetStyleComment(cn,aRail As String, aEarly As String) Dim q,a,b,n,i,r,c(30),dd '---------------- If Trim(aRail) <> "" Then q = "SELECT * FROM StatStyles WHERE code='" & aRail & "'" Set dd = cn.Execute(q) r = -1 Do While Not dd.EOF r = r + 1 c(r) = dd("ltext") dd.MoveNext Loop a = c(r * Rnd) Else a = "*" End If '----------------- If Trim(aEarly) <> "" Then q = "SELECT * FROM StatStyles WHERE code='" & aEarly & "'" Set dd = cn.Execute(q) r = -1 Do While Not dd.EOF r = r + 1 c(r) = dd("ltext") dd.MoveNext Loop b = c(r * Rnd) Else b = "*" End If GetStyleComment = a & ", " & b End Function Function GetRaceComment(cn,a1,a2,dogs(),psts()) Dim n,q,a,r,i,j,k,aComment,b,aPost,isw,ref(3),com(3),idx(3),c(20),dd '------------------ q = "SELECT count(*) as ic FROM racecomments WHERE grp='" & a1 & "'" Set dd = cn.Execute(q) r = dd("jc") q = "SELECT * FROM racecomments WHERE grp='" & a1 & "'" Set dd = cn.Execute(q) If dd.EOF Then n = r * Rnd Do While n > 0 n = n - 1 dd.MoveNext Loop a = dd("ltext") Else a = "*" End If '---------------comment code ref(1) = Left$(a2, 4) ref(2) = Mid$(a2, 5, 4) ref(3) = Right$(a2, 4) '---------------diff comment for each selection Randomize Timer For i = 1 To 3 'retrieve comment list~ref(i) q = "SELECT * FROM RunnerComments WHERE code ='" & ref(i) & "'" Set dd = cn.Execute(q) r = -1 Do While Not dd.EOF r = r + 1 c(r) = dd("ltext") dd.MoveNext Loop Select Case i Case Is = 1 com(i) = c(r * Rnd) Case Is = 2 isw = 0 Do isw = isw + 1 com(i) = c(r * Rnd) Loop While (com(1) = com(2)) And (isw < 10) Case Is = 3 isw = 0 Do isw = isw + 1 com(i) = c(r * Rnd) Loop While (isw < 10) And ((com(3) = com(1)) Or (com(3) = com(2))) End Select Next aComment = "" For i = 1 To 3 b = com(i) aPost = Trim(psts(i)) j = InStr(b, "#") b = Left$(b, j) & aPost & " " & dogs(i) & Right$(b, Len(b) - j) aComment = aComment & " " & b Next GetRaceComment = a & aComment End Function