<%
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"> |