Opload

Hejsa.

Nogen der lige kan fortælle mig hvordan..

Jeg har denne opload, som virker som den skal. der er kun en ting jeg godt kunne tænke mig og som jeg ikke kan få den til..

Det er når den har oploadet filen, at den så kan skrive hvad den fil man oploadet hed.
Eks.
Badwomen.gif / badwomen.jpg

Her er min opload kode. det er kun navnet jeg ikke kan få til at virke


Dim intFile

Dim objUpload
Set objUpload = Server.CreateObject("Persits.Upload")

objUpload.SetMaxSize 9000000, True

'objUpload.AllowedFilesList = "gif,bmp,jpg,png"

On Error Resume Next

Dim strUploadPath

strUploadPath = "/upload/"

Dim intFileCount

intFileCount = objUpload.Save(Server.MapPath(strUploadPath))
                                                           
If Err.Number = 8 Then
  Response.Write "Filen er for stor. Prøv igen."
Else
  If Err <> 0 Then
    Response.Write "Der opstod en fejl : " & Err.Description
  Else
         
    Response.Write intFileCount & " fil(er) uploadet.<br>" & vbCrLf
    Response.Write "<br>Vent et øjeblik og du bliver stillet tilbage til opload filer<br>" & vbCrLf
    Response.Write "<br>" & vbCrLf
        Response.Write strFileName & ""
   
  End If
End If

On Error Goto 0

Set objUpload = Nothing