make lib. - det virker ikke :-(

Jeg har fået dette af en ven, men jeg synes ikke at det virker.
Det skal oprette et bibliotek som har det navn man indtaster som "kategori" det skal laves i "/klip/..."
Jeg ved godt det er en lang smøre, men derfor max. point.
Og ja jeg har alle skrive og script rettigheder hos min udbyder.

PS: jeg bruger ikke databasen til noget, så hvis den kan fjernes ville det være fint.

kode (sendklip1.asp)
------
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<%
mode = request.querystring("mode")
%>
<html>
<head>
    <title>Opret ny bruger</title>
</head>

<body bgcolor="#FFFFFF" link="#FFFFFF" vlink="#FFFFFF" alink="#FFFFFF">
<%
if mode = "" then
%>

<p align="center"><font color="#666699" size="6"><b>Indsend dine egne Papirklip</b></font><font color="#666699">
</font>
</p>
        <p align="center"><font color="#666699">Du kan hjælpe andre
        Papirklipfans ved at indsende&nbsp;<br>
        dine egne Papirklip. </font>
</p>
        <p align="center"><font color="#666699">Du skal blot følge og udfylde
        disse 2 sider, hvorefter andre<br>
        besøgende vil kunne få glæde af dine indsendte Papirklip
<br>

        </font>
</p>
<form action="sendklip1.asp?mode=opret" method="post">
<div align="center">
  <center>
          <table border="1" width="450" bordercolorlight="#666699" bordercolordark="#666699" bordercolor="#000080" bgcolor="#FFFFFF">
            <tr>
              <td width="100%" bgcolor="#666699">
                <p align="center"><font color="#FFFFFF"><b>Udfyld først
                dette:&nbsp;</b></font></td>
            </tr>
            <tr>
              <td width="100%">
                <div align="center">
                  <center>
                  <table border="0" width="100%">
                    <tr>
                      <td width="49%" align="right"><font color="#666699"><b>
                      kategori</b></font><b><font color="#666699">:</font></b></td>
                      <td width="51%">
                      <input type="text" name="kategori" maxlength="20" size="20"></td>
                    </tr>
                    <tr>
                      <td width="49%" align="right"><b><font color="#666699">E-mail:</font></b></td>
                      <td width="51%">
                      <input type="text" name="email" size="20"></td>
                    </tr>
                    <tr>
                      <td width="100%" colspan="2">
  <p align="center">
  <input type="submit" value="Videre til Upload fil siden" name="send" style="color: #666699; border: 2px solid #666699; background-color: #FFFFFF"></p>
                      </td>
                    </tr>
                  </table>
                  </center>
                </div>
              </td>
            </tr>
          </table>
  </center>
</div>
<p>&nbsp;</p>
</form>
<%
end if
if mode = "opret" then

For Each Item In Request.Form
    if request.form(item) <> "" then
    Response.Write(item & " = " & request.form(item) & "<br>")
    else
    Response.Write(item & " = " & request.form(item) & "<br>")
    end if
Next

Set ObjConn = Server.CreateObject("ADODB.Connection")
Set ObjRSuser = Server.CreateObject("ADODB.Recordset")
ObjConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("database.mdb")
strQuery = "SELECT * FROM klip  WHERE navn='" & request.form("navn") & "'"
set ObjRSuser = ObjConn.execute(strQuery)
if ObjRSuser.EOF then
Set ObjRSuser2 = Server.CreateObject("ADODB.Recordset")
Session("navn") = request.form("navn")
dim filesys, newfolder, newfolderpath
newfolderpath = Server.Mappath("klip") & "/" & Session("navn")
set filesys=CreateObject("Scripting.FileSystemObject")
If Not filesys.FolderExists(newfolderpath) Then
  Set newfolder = filesys.CreateFolder(newfolderpath)
End If


Response.Redirect ("sendklip2.asp)
else
Session("error") = "exist"
Response.Redirect ("sendklip2.asp)
end if
Set ObjRSuser = nothing
ObjConn.CLose
end if
%>
</body>
</html>
-------
PS jeg bruger ikke databasen til noget, så hvis den kan fjernes ville det være fint.