|
|
|
<%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 & "NOW_TBL,ROUND_TBL "
STRSQL = STRSQL & "WHERE "
STRSQL = STRSQL & "NOW_ROUND = ROUND_ID "
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 = " & RS("NOW_ROUND")
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"))
Set TS = FSO.OpenTextFile(Server.MapPath("../../msm_kanri_asp/db/" & RS("round_count") & "/" & LEG & "/stagereportconf.dat"),1,False)
IF TS.AtEndOfStream = False Then A = TS.ReadLine
Ts.Close
'Response.Write(A)
%>
|
|
|
