Har problem när jag vill byta namn på filen jag laddar upp.
Så här ser min kod ut.


' Variables
' *********
Dim mySmartUpload
Dim FileType
Dim Image

FileType = Right(Request.Form("file"),3)
Image = Request.Querystring("id") & "." & FileType

' Object creation
' ***************
Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")

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

' Save the files with their original names in a virtual path of the web server
' ************************************************** **************************
'intCount = mySmartUpload.Save("/images/drinkar")
' sample with a physical path
mySmartUpload.SaveAs("D:/kunder/sponsrat/krogliv.com/crop/images/" & Image & "")

response.redirect "crop.asp?image=drink" & Image & ""

Får du något felmeddelande?

Nej inget felmeddelande alls, den sparar inte filen bara.

Det funkar så länge man inte försöker byta namn på den.

Så här gjorde jag:

Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")
' *********
mySmartUpload.Upload
namn = mySmartUpload.Form("code_no")
ext = mySmartUpload.Files.Item(1).FileExt
' ************************************************** **************************

mySmartUpload.files.item(1).saveas "/shop/images/" & namn & "."&ext
bild = namn & "." & ext