Ekstra foldere til bestemt fil!

Hejsa eksperter!

Jeg prøver at lege med et helt kanon script som eagleeye har lavet, kigger i en bestemt mappe samt alle undermapper og indsætter billeder.

Den gemmer dog desværre ikke folderne til de enkelte billeder: eks.

"/billeder/fest2004/billede01.jpg"

Den gemmer blot "billede01.jpg"

Scriptet jeg har brugt er her http://www.eksperten.dk/spm/281323

Det jeg har prøvet er følgende: men det virker overhovdet ikke, nu gemmer den blot hele stien helt neden til c:

        replacepath = Server.MapPath("/")
        folderdpath = objFolder
        folderdpathnew = replace(folderdpath,"C","c")
        folderdpath2 = replace(folderdpathnew,replacepath,"")
        folderdpath3 = replace(folderdpath,"\","/")

      SQL = "INSERT INTO singlepictures (categoryid, pic) VALUES (" & catID & ", '" & folderdpath3 & "/" & file.name & "')"
      Conn.Execute (SQL)

Håber der er nogle der kan hjælpe!