Export fra Access Database til txt fil

Nedenstående giver mig den ønskede fil, men jeg vil gerne at den skal give et popup vindue hvor bruger selv kan bestemme hvor filen skal gemmes.

<%
  strFil = Server.MapPath("filnavn.txt")

  set fso = CreateObject("Scripting.FileSystemObject")
  set file1 = fso.OpenTextFile(strFil, 2, true)

  file1.writeline "Kolonne1;Kolonne2"
    file1.writeline rs.Fields("MedarbejderNr") & ";" & MedarbejderNavn

  file1.close
%>