Rd.16 Wales Rally of Great Britain
1 to 3 December 2006
<%randomize RANDOM_NUMBER_TEMP = Int( ( 50000 - 1 + 1 ) * Rnd + 1 ) Set db = Server.CreateObject("ADODB.Connection") With db .ConnectionString = "Provider=SQLOLEDB.1;Password=motorsports;Persist Security Info=False;User ID=sa;Initial Catalog=msm;Data Source=dell2650-2" .Open End With STRSQL = "" STRSQL = STRSQL & "SELECT * FROM " STRSQL = STRSQL & "ROUND_TBL " STRSQL = STRSQL & "WHERE " STRSQL = STRSQL & "ROUND_COUNT = 16 AND ROUND_YEAR = 2006" SET RS = db.EXECUTE(STRSQL) STRSQL = "" STRSQL = STRSQL & "SELECT max(RESULT_SS_COUNT) FROM " STRSQL = STRSQL & "RESULT_TBL " STRSQL = STRSQL & "WHERE " STRSQL = STRSQL & "RESULT_ROUND_ID = 32" SET RSS = db.EXECUTE(STRSQL) now_ss = rss(0) IF NOW_SS <= RS("ROUND_LEG3_SS_COUNT") THEN LEG = 3 IF NOW_SS <= RS("ROUND_LEG2_SS_COUNT") THEN LEG = 2 IF NOW_SS <= RS("ROUND_LEG1_SS_COUNT") THEN LEG = 1 Set FSO = CreateObject("Scripting.FileSystemObject") 'Response.Write(Server.MapPath("../../msm_kanri_asp/db/" & RS("NOW_ROUND") & "/" & LEG & "/stagereportconf.dat")) if leg <> "" then 'response.Write(Server.MapPath("../../global/msm_kanri_asp/db/" & "16" & "/" & LEG & "/stagereportconf.dat")) Set TS = FSO.OpenTextFile(Server.MapPath("../../global/msm_kanri_asp/db/" & "16" & "/" & LEG & "/stagereportconf.dat"),1,False) IF TS.AtEndOfStream = False Then A = TS.ReadLine Ts.Close end if 'Response.Write(A) %>
<% IF A <> "" then COUN = 1 For i = 1 to A IF FSO.FileExists(Server.MapPath("../../global/msm_kanri_asp/db/16/" & LEG & "/stagerep" & i & ".txt")) = TRUE THEN Set TS = FSO.OpenTextFile(Server.MapPath("../../global/msm_kanri_asp/db/16/" & LEG & "/stagerep" & i & ".txt"),1,False) B = "" IF TS.AtEndOfStream = False Then B = TS.ReadLine IF Instr(B,"SS") > 0 Then B = Replace(B,"–","-") C = TS.ReadLine D = TS.ReadLine str = str & "comment_" & COUN & "=" & B & " " & D & "&" COUN = COUN + 1 End if END IF Next Response.Write("
" & vbCrlf) End if %>
掲載は、マニュファクチャラーエントリーのドライバーです。
Position Board
表内のドライバー名は、最新SSの総合暫定順位
ドライバー名をクリックするとそのドライバーのSSの総合順位の推移を表示
各ドライバーの「Driver Statics」をクリックすると対象のイベントまでの戦績等詳細情報を表示
Overall Times
表内のドライバー名は、最新SSフィニッシュ時の総合暫定順位
Total Timeは、最新SSまでの加算総合タイム
Diff Leaderは、トップとの差
リタイアの場合は、リタイアしたSSとその理由を表示
Stage Time Chart
表内のドライバー名は、該当SSのトップタイム順
ドライバー名をクリックすると最新SSまでの総合順位の推移を表示
SS Averageは、各ドライバーの平均スピード
Course Map
ステージのルートマップと簡単なイベントスケジュールとSS情報を表示
各レグのボタンをクリックすると対象のレグのコースを参照
マップの拡大や縮小等が可能