Replace mellemrum og '

Når jeg uploader de her billeder, må der ikke være mellemrum i navnet på billederne. Mit kamera gemmer dem med mellemrum og ', for ikke at få ekstra arbejde har jeg brug for en sådan function.

Scriptet ser sådant ud: (billederne er A1, A2 etc.

dim A5

For Each File in Upload.Files
    C = C + 1
    A("C") = Server.HTMLEncode(File.OriginalFileName)
next

if A2 = "" then A2 = "intet.jpg"
if A3 = "" then A3 = "intet.jpg"
if A4 = "" then A4 = "intet.jpg"
if A5 = "" then A5 = "intet.jpg"


A1 = replace (A1, "0", "<BR>")

    typ = upload.form("type")
    fabrikant = upload.form("fabrikant")
    modellen = upload.form("model")
    motor = upload.form("motor")
    hk = upload.form("hk")
    aargang = upload.form("aargang")
    registreret = upload.form("registreret")
    pris = upload.form("pris")
    lev = upload.form("lev")
    km = upload.form("km")
    besk = upload.form("besk")
    besk = replace (besk, chr(10), " <BR>")
    ugens = upload.form("ugens")
        if ugens <> "on" then ugens = "off"
   

    CALL OpenDB()
    call opentbl("select id from vogne", id)
    dim ny_id
    if id.eof then
        ny_id = 1
    else
        do while not id.eof
            ny_id = id("id")
        id.movenext
        loop
       
        ny_id = ny_id +1
    end if
   
    vogn = "insert into vogne values('"&navigation&", "&Cykelholder&","&Air_bag&", "&El_spejle&", "&Traek&", "&aft_traek&", "&Stereo&", "&klima&", "&sportssaeder&",'"&besk&"', '"&A1&"', '"&A2&"', '"&A3&"', '"&A4&"', '"&A5&"', "&ugens&")"
    dbconn.Execute(vogn)
   
   
    call closetbl(id)
    CALL Closedb()
    response.redirect "../admin.asp?Site=Opret&M=OK&T="&typ