AspSmartUpload Problem

Jeg har ført brugt AspUpload, men er tvunget til at bruge smart upload fremover.

Jeg har derfor prøvet at ændre mit script så det kan bruge AspSmartUpload i stedet for, men det går ikke lige så godt.

Nogen der kan overskue dette og hjælpe mig?

Den giver følgende fejl:

Microsoft VBScript compilation error '800a0400'

Expected statement

/upload.asp, line 177

end
^

Hvilket er sidste linje.

Der er nok kommet lidt syntaxfejl efter jeg har prøvet at få aspsmartupload til at fungerer i stedet for aspupload.

<%
'  Variables
'  *********
  Dim upload
  Dim file
  Dim intCount
  intCount=0
       
'  Object creation
'  ***************
  Set Upload = Server.CreateObject("aspSmartUpload.SmartUpload")

'  Upload
'  ******
  upload.Upload

'  Select each file
'  ****************
  For each file In upload.Files
  '  Only if the file exist
  '  **********************
      If not file.IsMissing Then
      '  Save the files with his original names in a virtual path of the web server
      '  ****************************************************************************
        file.SaveAs("/aspSmartUpload/Upload/" & file.FileName)
        ' sample with a physical path
        ' file.SaveAs("c:\temp\" & file.FileName)

      '  Display the properties of the current file
      '  ******************************************
        Response.Write("Name = " & file.Name & "<BR>")
        Response.Write("Size = " & file.Size & "<BR>")
        Response.Write("FileName = " & file.FileName & "<BR>")
        Response.Write("FileExt = " & file.FileExt & "<BR>")
        Response.Write("FilePathName = " & file.FilePathName & "<BR>")
        Response.Write("ContentType = " & file.ContentType & "<BR>")
        Response.Write("ContentDisp = " & file.ContentDisp & "<BR>")
        Response.Write("TypeMIME = " & file.TypeMIME & "<BR>")
        Response.Write("SubTypeMIME = " & file.SubTypeMIME & "<BR>")
        intCount = intCount + 1
      End If
  Next

'  Display the number of files which could be uploaded
'  ***************************************************
  Response.Write("<BR>" & upload.Files.Count & " files could be uploaded.<BR>")

'  Display the number of files uploaded
'  ************************************
  Response.Write(intCount & " file(s) uploaded.<BR>")
%>
<% For Each File in Upload.Files
filename = File.FileName %>
<TD><B><% = File.OriginalPath %></B></TD>
<TD ALIGN=RIGHT VALIGN="TOP"><% =File.Size %> bytes</TD>
<TD ALIGN=RIGHT VALIGN="TOP"><% =File.OriginalSize %> bytes</TD><TR>
<%

%>
<%
t = t + 1
    strbeskrivelse = Replace(Upload.Form("spilbesk"), "'", "''")
    strspil = 2
    stroverskrift = Replace(Upload.Form("spiln"), "'", "''")
    strnews = Replace(Upload.Form("news"), "'", "''")
    strkategori = Replace(Upload.Form("kategori"), "'", "''")
      brugernavn =  Session("Username")
    strmoviekategori = Replace(Upload.Form("spilkat"), "'", "''")

' Tilfojer til databasen
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("/db/test.mdb")
Conn.Open DSN


If t = 1 Then
    strSQL = "INSERT INTO seneste (pic) VALUES ('"& File.Filename &"')"
    Conn.Execute(strSQL)
    set sID = Conn.Execute("SELECT @@IDENTITY AS NewID")
    Session("senesteid") = sID("NewID")
Else
    strUpdate = "UPDATE seneste SET filnavn = '"& File.Filename &"', beskrivelse = '"& strbeskrivelse &"', kategori = '"& strkategori &"', powerpoint = '"& brugernavn &"', moviekategori = '"& strmoviekategori &"', visnyhed = '"& strnews &"', overskrift = '"& stroverskrift &"', spil = '"& strspil &"' WHERE id = "& Session("senesteid") &""

End if
end
%>