<%@Language = "VBScript"%> <% Option Explicit Response.Expires = 0 Dim strZone, strRPath strZone = trim(request.querystring("Zone")) Select Case strZone Case Else strRPath = "http://www.webervations.com/magic-scripts/resbook.asp?memberid=adams" End Select Response.Redirect(strRPath) %>