Hjælp til ASP.Jpeg script

Jeg bruger nedeståede kode på IIS 5.0 hvor det virker perfekt, men jeg kan ikke få det til at virke på win2000server, der kan systemet ikke finde mapp.path hvor Save.Jpeg gemmer filen.
Jeg kopier hele wwwroot'en fra IIS direkte over i win2000server, så alle mapper og rettigheder bibeholdes.
Nogen der har en forklaring på dette? er min kode ikke god nok?

<%
Sub DeleteAFile(filespec)
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
fso.DeleteFile(filespec)
End Sub

Set Upload = Server.CreateObject("Persits.Upload")

'Limit
Upload.SetMaxSize 500000, True

'Perform upload
Upload.Save "C:\Inetpub\wwwroot\main\midlertidigmappe"

'8
If Err.Number = 8 Then
Response.redirect ("retdata.asp?mode=size")
Else
If Err <> 0 Then
Response.Write ("retdata.asp?mode=error")
Else
'response.write "ok"
End If
End If

'sætter filnavn
Set File = Upload.Files("FILE1")
If Not File Is Nothing Then
Filename = File.Filename
else
response.redirect("retdata.asp?mode=ingenfil")
end if

'resize image
Set Jpeg = Server.CreateObject("Persits.Jpeg")


'gemmer fil
'Upload.Save "C:\Inetpub\wwwroot\main\midlertidigmappe"

For Each File in Upload.Files
If File.ImageType <> "JPG" Then
Response.redirect ("retdata.asp?mode=notjpg")
File.Delete
Response.End
End If
   
'omdøber pics *
Jpeg.Open File.Path

navn = ("" & replace(Time(),":","") & replace(Date(),"-","") & session.sessionID & ".jpg")

connStr = "driver={MySQL ODBC 3.51 Driver};DATABASE=data;SERVER=localhost;UID=root;PWD=123;OPTION=16834;"
        Set Conn = Server.CreateObject("ADODB.Connection")
        Conn.Open ConnStr

    Set rs = Conn.Execute("SELECT foto FROM data WHERE foto='" & navn & "'")
       
    if not rs.eof then
   
'Sletter midlertidig fil fra mappen midlertidigmappe
DeleteAFile(server.mappath("midlertidigmappe/" & File.Filename & ""))

response.redirect("retdata.asp?mode=systemerror")
end if

Jpeg.Save Server.Mappath("/main/pics") & "\" & navn

    Jpeg.Open File.Path
L = 125

Jpeg.Width = L
Jpeg.Height = Jpeg.OriginalHeight * L / Jpeg.OriginalWidth

Jpeg.Save Server.Mappath("/main/data") & "\" & navn

Conn.execute "UPDATE data SET foto = '" & navn & "' WHERE brugernavn = '"&replace(session("brugernavn"), "'", "''")&"'"
   
    rs.Close
    Conn.Close
    Set Conn = Nothing
    Set rs = Nothing

'Sletter midlertidig fil fra mappen midlertidigmappe
DeleteAFile(server.mappath("midlertidigmappe/" & File.Filename & ""))

response.redirect("retdata.asp?mode=okimage&picsID=" & navn & "")

Next
%>