Upload billede og omdøb det

http://www.aspsmart.com/aspSmartUpload/
her findes masser af sampels og du retter blot filnavet i en af dem

fx:
----
<%
Dim mySmartUpload, file

Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")

mySmartUpload.AllowedFilesList = "jpg,jpeg,bmp,gif"

mySmartUpload.MaxFileSize = 50000

mySmartUpload.Upload

For each file In mySmartUpload.Files
  If not file.IsMissing Then
      file.SaveAs("DIN_STI" & Session("BrugerID"))
  End If
Next
%>

Dim mySmartUpload
Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")
mySmartUpload.Upload

MySmartUpLoad.MaxFileSize = 102400 'her kan du angive det filen max må fylde
MySmartUpLoad.AllowedFilesList = "gif,jpg,jpeg" 'her kan du angive filtyperne

strExt = mySmartUpload.Files.Item(1).FileExt
strBillede = Replace(Server.HTMLEncode(Session("BrugerID")),"'","''")

If not mySmartUpload.Files.Item(1).IsMissing Then
  mySmartUpload.Files.Item(1).SaveAs("upload\"& strBillede & "." & strExt)
End If

set mySmartUpload = nothing

crap, 1min for sent :o)

og hvis du skal have fil endelsen med hvis den ikke er i sessionen så
---
<%
Dim mySmartUpload, file

Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")

mySmartUpload.AllowedFilesList = "jpg,jpeg,bmp,gif"

mySmartUpload.MaxFileSize = 50000

mySmartUpload.Upload

For each file In mySmartUpload.Files
  If not file.IsMissing Then
      file.SaveAs("DIN_STI" & Session("BrugerID") & file.FileExt)
  End If
Next
%>

lol ja det med refresh
Anyways, der er super god dokumentation på hjemmesiden
Så synes du skal lure den lidt for at finde det som passer dig bedst :o)

musicchart.dk >> er du meget klog på aspSmartUpload må du da gerne lige smutte forbi her http://www.eksperten.dk/spm/628600

busschou >> ja, men jeg husker at tage højde for endelsen i første omgang ;o)

bodyguard >> lukketid ??

Det må du undskylde...