<%
Randomize
Dim varHeaderPhotoURL
SELECT CASE Int((31 - 1 + 1) * Rnd + 1)
CASE 1 : varHeaderPhotoURL = "/dr_header_top_1.jpg"
CASE 2 : varHeaderPhotoURL = "/dr_header_top_2.jpg"
CASE 3 : varHeaderPhotoURL = "/dr_header_top_3.jpg"
CASE 4 : varHeaderPhotoURL = "/dr_header_top_4.jpg"
CASE 5 : varHeaderPhotoURL = "/dr_header_top_5.jpg"
CASE 6 : varHeaderPhotoURL = "/dr_header_top_6.jpg"
CASE 7 : varHeaderPhotoURL = "/dr_header_top_7.jpg"
CASE 8 : varHeaderPhotoURL = "/dr_header_top_8.jpg"
CASE 9 : varHeaderPhotoURL = "/dr_header_top_9.jpg"
CASE 10 : varHeaderPhotoURL = "/dr_header_top_10.jpg"
CASE 11 : varHeaderPhotoURL = "/dr_header_top_11.jpg"
CASE 12 : varHeaderPhotoURL = "/dr_header_top_12.jpg"
CASE 13 : varHeaderPhotoURL = "/dr_header_top_13.jpg"
CASE 14 : varHeaderPhotoURL = "/dr_header_top_14.jpg"
CASE 15 : varHeaderPhotoURL = "/dr_header_top_15.jpg"
CASE 16 : varHeaderPhotoURL = "/dr_header_top_13.jpg"
CASE 17 : varHeaderPhotoURL = "/dr_header_top_17.jpg"
CASE 18 : varHeaderPhotoURL = "/dr_header_top_18.jpg"
CASE 19 : varHeaderPhotoURL = "/dr_header_top_19.jpg"
CASE 20 : varHeaderPhotoURL = "/dr_header_top_20.jpg"
CASE 21 : varHeaderPhotoURL = "/dr_header_top_21.jpg"
CASE 22 : varHeaderPhotoURL = "/dr_header_top_22.jpg"
CASE 23 : varHeaderPhotoURL = "/dr_header_top_23.jpg"
CASE 24 : varHeaderPhotoURL = "/dr_header_top_24.jpg"
CASE 25 : varHeaderPhotoURL = "/dr_header_top_25.jpg"
CASE 26 : varHeaderPhotoURL = "/dr_header_top_26.jpg"
CASE 27 : varHeaderPhotoURL = "/dr_header_top_27.jpg"
CASE 28 : varHeaderPhotoURL = "/dr_header_top_28.jpg"
CASE 29 : varHeaderPhotoURL = "/dr_header_top_29.jpg"
CASE 30 : varHeaderPhotoURL = "/dr_header_top_30.jpg"
CASE 31 : varHeaderPhotoURL = "/dr_header_top_31.jpg"
END SELECT
Response.Write(varHeaderPhotoURL)
%>" width="640" height="50"> |