<% Response.Buffer = True Dim strTOUR strTOUR = Trim(Request.Querystring("TOUR")) Response.Write("" & chr(13)) %>