Upload af billeder med aspSmartUpload

http://www.aspsmart.com/aspSmartUpload/

http://www.aspsmart.com/scripts/aspSmartUpload/publigen/content/templates/show.asp?P=258&L=EN

Kik under codesample, der er 8 forskellige.
//Michael

Her er den billed upload jeg bruger :

<%
On Error Resume Next

'  Variables
'  *********
  Dim mySmartUpload
  Dim file
  Dim intCount
  intCount=0
       
'  Object creation
'  ***************
  Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")

'  Only allow txt or htm files
'  ***************************
  mySmartUpload.AllowedFilesList = "jpg,jpeg,gif"

'  Only allow files smaller than 102400 bytes
'  *****************************************
  mySmartUpload.MaxFileSize = 300001

'  Upload
'  ******
  mySmartUpload.Upload

'  Select each file
'  ****************
  For each file In mySmartUpload.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("../pictures/temp/" & file.FileName)
      End If

  Next
    If Err Then
      Response.Write("<b>Error</b><br>")
      Response.Write("<b>There has been an error : </b>" & Err.description)
      response.Write("<br><br>")
      response.Write("<input type=button value=Back onClick=java script:document.location.href='" & serverurl & "profile/picture.asp'>")
  Else
    response.Redirect("default.asp")
  End If
%>

Tak for svar :)