Konvertering af SoftArtisans til Persits.

Hvordan konvertere jeg fra SoftArtisans til Persits ASP Upload.

Problemet er at jeg har fået en hjemmeside i hånden som skal lægges op på et domæne på en server fra 123hotel.
Den offentlige del funker 100%.
I admin delen er det muligt at ændre indholdet på site, det funker også, bare ikke upload delen, da det før har ligget på en hjemmemaskine med iis og MS SQL server, der funkede det, men da det nu skal over på en server med Persits er jeg lost.

Det fungere fint med upload af filer hvis jeg fjerner alt under upl.Path (upl.Path inkl.)
Men så er problemet at de uploade filer bliver regget i db'en, sammen med hvilken bruger som gjorte det.

Please help :-(

På forhånd tak

Michael.


<%
    Set Conn = Server.CreateObject("ADODB.Connection")
    Conn.Open Application("ASP_ConnectionString")

    set MyFileObject = Server.CreateObject("Scripting.FileSystemObject")
   
'*************** End File creation in database

    FileDir = replace(Server.MapPath("upload.asp"),"\files\upload.asp","") & "d:/web/altomhobby.dk/www/files"
    Set Upload = Server.CreateObject("Persits.Upload")
    Count = Upload.Save("d:/web/altomhobby.dk/www/files")
    Response.Write Count & " file(s) uploaded to \files\"
    upl.Path = FileDir
    FileExt = Mid(upl.UserFilename, InstrRev(upl.UserFilename, ".") + 1)

    Set RsGetFileType = conn.Execute("EXEC sppFileType_GetFileTypeID " & FileExt)

    if not RsGetFileType.eof then
        FullFilename =     FileDir & "/" & Session.SessionID & "." & FileExt
        upl.SaveAs FullFilename

        TotalBytes = upl.TotalBytes

        NiceName = upl.FormEx("NiceName")
        NiceName = replace(NiceName, " ", "_")
        Description = upl.FormEx("Description")
        contfield = upl.FormEx("contfield")

        RealFileName =     FileDir & "\" & NiceName & "." & FileExt
        if MyFileObject.FileExists(RealFileName) then
            MyFileObject.DeleteFile FullFilename
            response.write("<script>alert('File already exists\nPlease choose another name or\nuse the overwrite function'); history.go(-1); </script>")
'            response.redirect("files.asp?action=Upload File&thefile=" & "test" & "&NiceName=" & "stsdftsdf")
        else
            MyFileObject.movefile FullFilename, RealFileName
        end if
           
        Set RsGetFileData = Conn.Execute("EXEC sppFiles_AddNewFile")
        FileID = RsGetFileData("FileName")
        RsGetFileData.close

        Set RsGetFileType = conn.Execute("EXEC sppFileType_GetFileTypeID " & FileExt)
        Set RsGetFileData = Conn.Execute("EXEC sppFiles_UpdateFile " & FileID & ", '" & NiceName & "', '" & Description & "', '" & RsGetFileType("FileTypeID") & "', " & TotalBytes)

        StatusMsg = "File uploaded to: " & FileDir & "<br>Uploaded file size: " & TotalBytes & "<br>FileTypeExtension: " & FileExt

        RsGetFileType.close
        conn.close

'    Insert AdmonLog Entry start
        AdminLog 4, "File: " & NiceName & " Uploaded"
'    Insert AdmonLog Entry end

        response.redirect("files.asp?action=Uploaded&contfield=" & contfield & "&StatusMsg=" & server.URLencode(StatusMsg))

    else
   
        RsGetFileType.close
        StatusMsg = "File could not be uploaded. The " & FileExt & " file format is not supported.<br><br>Contact <a href=""mailto:info@altomhobby.dk""><b>technical support</b></a> if this fileformat needs to be supported!"
'        Set RsDeleteFileData = Conn.Execute("EXEC sppFiles_DeleteFile " & FileID)
        conn.close

        response.redirect("files.asp?action=Uploaded&contfield=" & contfield & "&StatusMsg=" & server.URLencode(StatusMsg))

    end if
%>