<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
Dim rs
Dim rs_numRows
Set rs = Server.CreateObject("ADODB.Recordset")
rs.ActiveConnection = MM_gconn_STRING
rs.Source = "SELECT * FROM qryGNational ORDER BY Year DESC;"
rs.CursorType = 0
rs.CursorLocation = 2
rs.LockType = 1
rs.Open()
rs_numRows = 0
%>
Grand National Winners
Grand National Winners
Year
Name
Jockey
Owner
Age/Wt
Sire / Dam
Stats
SP
Fam.#
<%
rc = 1
while not rs.EOF
yr = rs("year")
if yr = "1993" then ' -- voided race --'%>
<%=yr%>
<%=rs("Name")%>
<% else
nm = rs("Name")
br = instr(nm,"(")
if br > 0 then
lnm = left(nm,br-1)
rnm = right(nm,len(nm)-br+1)
nm = "" & lnm & " - " & rnm
else
nm = "" & nm & ""
end if
'----------
own = rs("owner")
if own = "" or isnull(own) then own = rs("owner2")
jock = rs("Jockey") : if jock = "" or isNull(jock) then jock = "--unk.--"
sp = rs("sp") : if sp = "" or isnull(sp) then sp="--" else sp = replace(sp,"Jt F","JF")
wt = rs("Weight") : if wt = "" or isnull(wt) then wt = "-"
st = rs("Statistics") : if st = "" or isnull(st) then st = "-"
sd = rs("Sire - Dam") : if sd = "" or isnull(sd) then sd = "-"
fnm = rs("Family No") : if fnm = "" or isnull(fnm) then fnm = "-"
%>