create bibliotek & upload til dette - hvad er der galt

hvad er der galt her ?
først skald er oprettes et bibliotek, og dernæst skal der uploades filer til dette, men det virker ikke :-(

---
<%bibl= request.form("katagori")%>


<%dim filesys, newfolder, newfolderpath
newfolderpath = Server.Mappath("klip") & "/" & bibl
set filesys=CreateObject("Scripting.FileSystemObject")
If Not filesys.FolderExists(newfolderpath) Then
  Set newfolder = filesys.CreateFolder(newfolderpath)
End If
%>

<%
    Set Upload = Server.CreateObject("Persits.Upload.1")
    Upload.OverwriteFiles = False
    Upload.SetMaxSize 2048576
    Upload.Save server.mappath("klip")& "/" & bibl
%>