<%Option Explicit
Dim strVersion
strVersion = Request.QueryString("version")
   if Len(StrVersion) > 0 then
      Select Case strVersion        
      Case "3.03" 
      Response.Redirect "CDRoller.zip"
      Case "3.10" 
      Response.Redirect "CDRoller.zip"
      Case "3.11" 
      Response.Redirect "CDRoller.zip"
      Case "3.12" 
      Response.Redirect "CDRoller.zip" 	
      Case "3.13" 
      Response.Redirect "CDRoller.zip"
      Case "4.00"
      Response.Redirect "CDRoller.zip"	
      Case "4.01"
      Response.Redirect "CDRoller.zip"	
      Case "4.02"
      Response.Redirect "CDRoller.zip"
      Case "4.10"
      Response.Redirect "CDRoller.zip"
      Case "4.11"
      Response.Redirect "CDRoller.zip"	
      Case "4.12"
      Response.Redirect "CDRoller.zip"
      Case "4.20"
      Response.Redirect "CDRoller.zip"
      Case Else
      Response.Write "Invalid version number: " & StrVersion & ". Please check it, assign a new URL and try to download CDRoller again."      	        	
      End Select 
   end if
%>