<%@ Language=VBScript %> <% set con=server.CreateObject("adodb.connection") con.Open "filedsn=c:\inetpub\orangepie\dsn\sqldb.dsn","orangepie","orangepie" set rs=server.CreateObject("adodb.recordset") sql="select WinUsrId as usrid,game= case game when 'FB' then 'Football' when 'HC' then 'Heartycube' when 'SS' then 'Shooters-Stop' when 'ST' then 'Star-Trooper' when 'BB' then 'Basketball' when 'CR' then 'Cricket' when 'RC' then 'Racing' when 'BO' then 'Boxing' when 'DR' then 'Driving' when 'FB' then 'Football' when 'PH' then 'Pearl harbour' when 'SM' then 'Space Maze' end,winscore as score,windate as windate from winners" rs.Open sql,con,1,3 %>

Winners

<% while not rs.EOF %> <% rs.MoveNext wend rs.Close set rs=nothing con.Close set con=nothing %>

Name of game	Winner	Score	Date
<%=rs("game")%>	<%=rs("usrid")%>	<%=rs("score")%>	<%=rs("windate")%>