---

Hej!

Jeg kan bare ikke finde ud af det her! (snøft)

Jeg har mulighed for at bruge aspSmartUpload eller Persits.Upload.1: på
danhost serveren
Skal bruge det til upload til et galleri for medlemmer af en lille forening.

så jeg gik i krig med aspSmartupload! og jeg kan godt få den til at uploade
i den rigtige dir men jeg kan ikke få den til at gemme med et andet filnavn
end det uploadede, i faq på
http://www.aspsmart.com/aspSmartUpload/ kan man finde
myUpload.files.item(4).saveas "myFile.jpg" som et eks. men jeg kan ikke få
det til at virke den uploader filen med det oprindelige navn og jeg får
en object fejl
Men nu vil jeg lige høre om jeg kan få nogen fif til at gøre rigtigt

Det jeg skal bruge er:
Medlemmer vælger en fil til upload(er ok)
Filen uploades og der tjekkes type og størrelse(Missing)
Hvis billeder er for stort resizes med AspImage(Ok men afhængig at
filnavnet)
Der efter lavet er record i mysql med filnavn osv. (ok, men igen filnavn
mangler)


Mvh. Mogens
--
Find med Svend-bent - http://www.svend-bent.dk/
MSM Scan - http://www.svend-bent.dk/msm/
Links og søgemaskine - http://www.troutfarmer.dk/

---

"Mogens Dyhre Hansen" skrev

> Jeg har mulighed for at bruge aspSmartUpload eller Persits.Upload.1: på
> danhost serveren
> Skal bruge det til upload til et galleri for medlemmer af en lille
> forening.
>
> så jeg gik i krig med aspSmartupload! og jeg kan godt få den til at
> uploade
> i den rigtige dir men jeg kan ikke få den til at gemme med et andet
> filnavn
> end det uploadede, i faq på
> http://www.aspsmart.com/aspSmartUpload/ kan man finde
> myUpload.files.item(4).saveas "myFile.jpg" som et eks. men jeg kan ikke få
> det til at virke den uploader filen med det oprindelige navn og jeg
> får
> en object fejl
> Men nu vil jeg lige høre om jeg kan få nogen fif til at gøre rigtigt

hvilken fejl får du?

> Det jeg skal bruge er:

måske du kan bruge noget af dette

On Error Resume Next

If Session("id") = "" Then Response.Redirect "/default.asp"


Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")
mySmartUpload.MaxFileSize = 307200
mySmartUpload.AllowedFilesList = "jpg,jpeg,png"
mySmartUpload.Upload
If Err <> 0 Then
If Err = -2147220494 Then intErrorCode = 20
If Err = -2147220399 Then intErrorCode = 21
Err.Clear


elseIf Not mySmartUpload.Files("filename").IsMissing And intErrorCode = 0
Then
strFilename = "mitfilnavn" & "." & mySmartUpload.Files("filename").FileExt

mySmartUpload.Files("filename").SaveAs Server.MapPath("/mappe/" &
strFilename)
If Err = 0 Then
Set fso = Server.CreateObject("Scripting.FileSystemObject")

strSQL = "Update table set foto = '" & strFilename & "' Where
et_eller_andet"
Conn.Execute(strSQL)

Set fso = Nothing

Else
intErrorCode = 30
End If
ElseIf intErrorCode = 0 Then
intErrorCode = 40
End If
If intErrorCode > 0 Then
%>
Der opstod en fejl under uploade af dit billede.<br>
Fejlen er:
<%
Select Case intErrorCode
Case 20: Response.Write "Forkert filtype! Der kan kun uploades JPG
(*.jpg; *.jpeg) og PNG (*.png) filer!"
Case 21: Response.Write "Billedet fylder for meget! Max størrelse er:
&tilde;" & (307200 \ 1024) & " KB"
Case 30: Response.Write "Der opstod en fejl under upload af dit billede.
Dette skyldes højst sandsynligt en systemfejl!"
Case 40: Response.Write "Du valgte ikke noget billede!"
End Select
Else
%>
<h3>Dit nye billede er blevet uploadet
<br>
<a href="/forsideind/ind.asp">Til forsiden</a></h3>
<%
End If
%>


--
Pepss
Den ordblinde der prøver at blive webdesigner
Fræk frækkere www.cafe-flirt.dk
De frække noveller www.novelle.cafe-flirt.dk

---

"pepss" <olefriis@privat.invalid> wrote in message
news:41fe5670$0$33726$edfadb0f@dread16.news.tele.dk...

> hvilken fejl får du?

Jeg fik en fejl med object missing men det var en sammen blanding af noget
kode klip og klister fejl
>
> > Det jeg skal bruge er:
>
> måske du kan bruge noget af dette

Jeg har fået noget til at virke men sad lige tænktet på om man kan lave det
sådan at man kan fortryde et upload?

Bruger vælger et billede og trykker upload og kommer på næste side der kan
billedet ses og han fortryder og klikker tilbage så er billedet uploadet og
det er jo lidt træls kan man lave noget så man kan undgå det eller kan man
lave en fortryd knap som man kan klikke på og filen slettes?

mvh. Mogens

--
Find med Svend-bent - http://www.svend-bent.dk/
MSM Scan - http://www.svend-bent.dk/msm/
Links og søgemaskine - http://www.troutfarmer.dk/

---

"Mogens Dyhre Hansen" skrev
> "pepss"
> Jeg har fået noget til at virke men sad lige tænktet på om man kan lave
> det
> sådan at man kan fortryde et upload?
>
> Bruger vælger et billede og trykker upload og kommer på næste side der kan
> billedet ses og han fortryder og klikker tilbage så er billedet uploadet
> og
> det er jo lidt træls kan man lave noget så man kan undgå det eller kan man
> lave en fortryd knap som man kan klikke på og filen slettes?

du kan slette en fil på denne måde:
Sub DeleteAFile(filespec)
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
fso.DeleteFile(filespec)
End Sub


filespec = Server.Mappath("/mappe/" & strfilnavn)
call DeleteAfile(filespec)


--
Pepss
Den ordblinde der prøver at blive webdesigner
Fræk frækkere www.cafe-flirt.dk
De frække noveller www.novelle.cafe-flirt.dk