Aspupload

Ja det var ju det!
Undrar hur man definerar egna namn på bilder som skall laddas upp med aspupload, jag har kollat deras manual(säkert fuskkollat) och sökt på det i webforum, men icke!

MVH Jesper

------------------
If ASPackad date-1 then ASPerin Now

Byt namn på filen med FSO efter det att du laddat upp den istället.

------------------
Jag gillar chokladblå himmel.

Har gjort så här men är helt ute och virrar kanske, byter inte namn i alla fall (till test. och "orginaländelsen")!

Microsoft VBScript compilation error '800a0414' 

Cannot use parentheses when calling a Sub 

/ner.asp, line 32 

fso.movefile (right(strFileName),4), (right(ny),4)

Och hela koden är:

<%sokvag = Server.MapPath("\files\imgs\")
Set Upload = Server.CreateObject("Persits.Upload.1")

Upload.SetMaxSize 25000, True

Upload.Save(sokvag)

For Each File in Upload.Files
strFileName = File.ExtractFileName
If ( Instr(strFileName, ".jpg") > 0 ) Then _
bolImageOk = "TRUE"

If ( Instr(strFileName, ".gif") > 0 ) Then _
bolImageOk = "TRUE"

If Not ( bolImageOK = "TRUE" ) Then _
File.Delete
Next
ny ="test"
If ( bolImageOK = "TRUE" ) Then 
Set fso = Server.CreateObject("Scripting.FileSystemObject")
fso.movefile (right(strFileName),4), (right(ny),4)
Response.Write (strFileName & " är uppladdad, klicka <a href=up.asp>här</a> för att komma tillbaka.")
Else
Response.Write "Bilden är för stor (max 25kb) eller har fel format. Du kan bara ladda upp JPEG eller GIF bilder."
End If

%>

MVH Jesper T

------------------
If ASPackad date-1 then ASPerin Now

eller är det något typ detta?

fso.MoveFile strFileName,"test." & right(strFileName),3

Verkar inte heller funka:

Microsoft VBScript runtime error '800a01c2' 

Wrong number of arguments or invalid property assignment: 'right' 

/ner.asp, line 32

------------------
If ASPackad date-1 then ASPerin Now

[Redigerat av Jesper T den 12 feb 2002]

Detta blir också fel:

Microsoft VBScript runtime error '800a0035' 

File not found 

/ner.asp, line 33

Med:

nytt = ""& strFileName
nytt = Left(nytt,(len(nytt)-3))
[b]fso.MoveFile strFileName,"test." & nytt[/b]

??????????????????

------------------
If ASPackad date-1 then ASPerin Now

[Redigerat av Jesper T den 12 feb 2002]

Help!! :(

------------------
If ASPackad date-1 then ASPerin Now

Verkar inte som om du har filändelsen i variabeln nytt.

fso.movefile sokvag&"\"&strFileName,sokvag&"\"&ny  & right(strFileName,4)

Red.
Fast nu får ju alla filer samma namn!?! Det kanske inte riktigt var meningen?
------------------
/solbulle
Hemmabio | Spelautomater | The Who | The Who II

[Redigerat av solbulle den 12 feb 2002]

[Redigerat av solbulle den 12 feb 2002]

nytt = ""& strFileName
nytt = Left(nytt,(len(nytt)-3))
fso.MoveFile strFileName,"test." & nytt

Nej detta ger ju: test.gamlanamnet.
det skall ju bli test.nyändelse

Jag vet inte hur man skall plocka ut .ändlesen!!

MVH Jesper T

------------------
If ASPackad date-1 then ASPerin Now

Fast nu får ju alla filer samma namn!?! Det kanske inte riktigt var meningen?

Ok, men test skall jag byta ut till co(o)kies("användarnamn")

Tack skall kolla! :)

------------------
If ASPackad date-1 then ASPerin Now

right(strFileName,4)

Fast det spricker om det är en filändelse på fyra bokstäver, sök så hittar du något bättre sätt.

Pröva annars min redigerade variant, tror det fungerar. (Ovan)

------------------
/solbulle
Hemmabio | Spelautomater | The Who | The Who II

http://cgi.webforum.nu/wf/Forum11/HTML/007176.html

------------------
/solbulle
Hemmabio | Spelautomater | The Who | The Who II

Nej, du är ju en PÄRLA! Du måste då ha en riktig bullmamma!!

Tack! Pssst du skulle inte kunna kika på vad @nders menar här också är du snäll? Jag har försökt med nåt sånt här men jag är inte riktigt 100, vad jag skall lägga in det, och vad som skall kompletteras?:

SQL = "SELECT username FROM users WHERE username = "& username

http://cgi.webforum.nu/wf/Forum11/HTML/008914.html

MVH Jesper T

------------------
If ASPackad date-1 then ASPerin Now