| Date | Build Number | Retail | Debug | <% Set fso = CreateObject("Scripting.FileSystemObject") BuildDate = Date BuildRoot = "\\iking-dubbel\sapi5\" Dim Anchor(4) Anchor(0) = "\release\msi\sp5sdk.msi"">Install SDK" Anchor(1) = "\release\msm\"">Merge Modules" Anchor(2) = "\debug\msi\sp5sdk.msi"">Install SDK" Anchor(3) = "\debug\msm\"">Merge Modules" Anchor(4) = "\bin"">Tools" for i = 1 to 10 'do BuildNum = "" BuildNum = Month(BuildDate) + ((Year(BuildDate) - 1999) * 12) if BuildNum <= 9 then BuildNum = "0" & BuildNum end if if Day(BuildDate) <= 9 then BuildNum = BuildNum & "0" end if BuildNum = BuildNum & Day(BuildDate) BuildDir = BuildRoot + BuildNum BuildDate = BuildDate - 1 'stop 'loop until fso.FolderExists(BuildDir) if fso.FolderExists(BuildDir) then 'if True then Response.Write " |
|---|---|---|
| " Response.Write (BuildDate + 1) Response.Write " | " Response.Write "" Response.Write " " Response.Write BuildNum & "" Response.Write " | " for each Column in Anchor if left(Column, 8) = "\release" then FontColor = "afafaf" elseif left(Column, 6) = "\debug" then FontColor = "ffff00" else FontColor = "ff0000" end if Response.Write ("") next 'stop Response.Write " |