Upload Billeder til variable mapper

Hej Eksperter!

Jeg har et billedeupload script (se nedenstående) hvor jeg kan uploade til en given mappe, hvis jeg ændrer den til en mappe der ikke eksisterer melder den fejl!!

Kan man ikke oprette mapper når man laver scriptet??

Så hvis man eks skal uploade nogle billeder der alle handler om mosters fødselsdag, så kan man skrive: "mosterbirthday" og upload. Så opretter den en mappe med navnet (eksisterer mappen allerede så skal den bare uploade billedet til den)

Hallo det må kunne lade sig gøre - 200 point er på spil... Sæt igang...

<%
set objRS = server.createobject ("ADODB.recordset")
objRS.Open "[img] order by Id desc" , Conn_crew, adOpenDynamic, adLockOptimistic ,adCmdTable
%>
<%
    dim StrFileName, strDrec
    dim intHeight, intWidth   
    Set Upload = Server.CreateObject("Persits.Upload.1")
    Upload.SaveVirtual "img/upload32/"
%>
<font face="Trebuchet MS" size="2"><br>
    Billede uploadet!!</font>
<%
For Each File in Upload.Files
    StrFileName = File.ExtractFileName
    intHeight = File.ImageHeight
    intWidth = File.ImageWidth
    Response.Write "Billedet : " & File.ExtractFileName & " (" & File.Size & ") blev uploaded.<BR>"
Next

For Each Item in Upload.Form
strDrec = Item.Value
Next

   
For Each Item in Upload.Form
Next
   
end if
%>