Avatar billede quarkb Nybegynder
07. december 2004 - 11:57 Der er 19 kommentarer og
1 løsning

aspSmartUpload (problemer med upload)

Jeg vil gerne havde filnavnet gemt i min database.

Jeg har dette:

Set myUpload = Server.CreateObject("aspSmartUpload.SmartUpload")
myUpload.Upload
ID = myUpload.Form("id")
   
sql = "SELECT * FROM [Tekst] WHERE ID =" & ID
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open Application( "DBPATH" )
   
Set rs = Server.CreateObject("ADODB.RecordSet")
rs.Open sql, conn, 3,3
   
intCount = myUpload.save("/images/images-upload")

' database felter
rs.Fields("Overskrift")    =    myUpload.Form("Overskrift")
rs.Fields("Tekst")    =    myUpload.Form("Tekst")
rs.Fields("Images1")    =    myUpload.Form("Images1")
rs.Fields("RetDato")    =    now()
   
rs.update
rs.close
       
       
set rs = nothing
conn.close
set conn = nothing

Alle felter bliver opdateret men feltet Images1 er tomt. Fil navnet kommer ikke med!!!

HJÆLP!!
Avatar billede thomas_yde Nybegynder
07. december 2004 - 12:04 #1
Du kan kigge lidt i dokumentationen for aspSmartUpload.
her er et eksempel i deres doc.
http://www.aspsmart.com/scripts/aspSmartUpload/publigen/content/templates/show.asp?P=353&L=EN
Avatar billede reb Nybegynder
07. december 2004 - 12:19 #2
Værdien af filnavnet, altså filens navn, udtrækkes fra objektet med
MyUpLoad.Files.Item(1).FileName, og ikke med myUpload.Form("Images1"), hvor 1 referer til den første(eller eneste fil) der uploades. Samme princip  er der med extensionname.
Avatar billede thomas_yde Nybegynder
07. december 2004 - 12:21 #3
Det nemmeste er nu at loope igennem dem med
For each File in MyUpLoad.Files
Filnavn = File.Name
Next
Avatar billede quarkb Nybegynder
07. december 2004 - 12:25 #4
Jeg er ikke nogle haj, kan du give mig et eks. jeg har 4 felter der skal opdateres.
Avatar billede reb Nybegynder
07. december 2004 - 12:31 #5
Er det noget opdatering, eller noget helt nyt, som du uploader via en form ?
Avatar billede quarkb Nybegynder
07. december 2004 - 12:39 #6
Det er opdateringer.
Avatar billede thomas_yde Nybegynder
07. december 2004 - 12:39 #7
prøv at se om den ikke kommer med her:
Set myUpload = Server.CreateObject("aspSmartUpload.SmartUpload")
myUpload.Upload
ID = myUpload.Form("id")
   
sql = "SELECT * FROM [Tekst] WHERE ID =" & ID
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open Application( "DBPATH" )
   
Set rs = Server.CreateObject("ADODB.RecordSet")
rs.Open sql, conn, 3,3
   
intCount = myUpload.save("/images/images-upload")
FilNavn = ""
For Each File in myUpload
  Filnavn = File.Name
Next

' database felter
rs.Fields("Overskrift")    =    myUpload.Form("Overskrift")
rs.Fields("Tekst")    =    myUpload.Form("Tekst")
rs.Fields("Images1")    =    Filnavn
rs.Fields("RetDato")    =    now()
   
rs.update
rs.close
       
       
set rs = nothing
conn.close
set conn = nothing
Avatar billede thomas_yde Nybegynder
07. december 2004 - 12:40 #8
Der mangler noget.
For Each File in myUpload.Files
Avatar billede reb Nybegynder
07. december 2004 - 12:41 #9
Det ser meget fornuftigt ud, set her fra :-)
Avatar billede quarkb Nybegynder
07. december 2004 - 13:16 #10
Set myUpload = Server.CreateObject("aspSmartUpload.SmartUpload")
myUpload.Upload
ID = myUpload.Form("id")
   
sql = "SELECT * FROM [Tekst] WHERE ID =" & ID
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open Application( "DBPATH" )
   
Set rs = Server.CreateObject("ADODB.RecordSet")
rs.Open sql, conn, 3,3
   
intCount = myUpload.save("/images/images-upload")
FilNavn = ""
For Each File in myUpload.Files
  Filnavn = File.Name
Next

' database felter
rs.Fields("Overskrift")    =    myUpload.Form("Overskrift")
rs.Fields("Tekst")        =    myUpload.Form("Tekst")
rs.Fields("Images1")    =    Filnavn
rs.Fields("Images2")    =      ?
rs.Fields("Images3")    =      ?
rs.Fields("Images4")    =      ?
rs.Fields("RetDato")    =    now()
   
rs.update
rs.close
       
       
set rs = nothing
conn.close
set conn = nothing

Jeg kan ikke rigtig få det til at hænge sammen!
Avatar billede thomas_yde Nybegynder
07. december 2004 - 13:18 #11
hvormange billeder har du?
Kun 4 ?
eller nogle gange flere
Avatar billede quarkb Nybegynder
07. december 2004 - 13:19 #12
Jeg har max 4 billeder, men ikke nødvendigvis 4.
Som hentes via 4 form felter
Avatar billede thomas_yde Nybegynder
07. december 2004 - 13:25 #13
okies. Så kan du evt gøre sådan her:

Set myUpload = Server.CreateObject("aspSmartUpload.SmartUpload")
myUpload.Upload
ID = myUpload.Form("id")
   
sql = "SELECT * FROM [Tekst] WHERE ID =" & ID
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open Application( "DBPATH" )
   
Set rs = Server.CreateObject("ADODB.RecordSet")
rs.Open sql, conn, 3,3
   
intCount = myUpload.save("/images/images-upload")
taeller = 1
Dim FilNavne(4)
For Each File in myUpload.Files
  FilNavne(taeller) = File.Name
  taeller = taeller +1
Next

' database felter
rs.Fields("Overskrift")    =    myUpload.Form("Overskrift")
rs.Fields("Tekst")        =    myUpload.Form("Tekst")
rs.Fields("Images1")    =    FilNavne(1)
rs.Fields("Images2")    =    FilNavne(2)
rs.Fields("Images3")    =    FilNavne(3)
rs.Fields("Images4")    =    FilNavne(4)
rs.Fields("RetDato")    =    now()
   
rs.update
rs.close
       
       
set rs = nothing
conn.close
set conn = nothing
Avatar billede quarkb Nybegynder
07. december 2004 - 13:27 #14
Som sådan er dette ok, men FilNavne(1) er lig Images1 og Filnavne(2) er lig Images2 og ikke fil navnet!
Avatar billede quarkb Nybegynder
07. december 2004 - 13:35 #15
Jeg har fundet en løsning som retter dette problem.

FilNavne(taeller) = File.Name er rettet til FilNavne(taeller) = file.FileName

Så nu virker det.

Ligger du et svar thomas_yde, så får du point.
Avatar billede thomas_yde Nybegynder
07. december 2004 - 13:37 #16
ja det var lige en svipser så den bagefter :-)
Avatar billede quarkb Nybegynder
07. december 2004 - 13:48 #17
Ved du om man kan sætte en max brede på et .jpg billede med aspsmartupload?
Avatar billede thomas_yde Nybegynder
07. december 2004 - 13:51 #18
Nej der skal du have fat i aspImage. Upload kan kun ligge begrænsninger på generelle fil specifikationer, som fx. størrelsen(kb) og filextensions (gif,jpg) etc.
Avatar billede quarkb Nybegynder
07. december 2004 - 13:52 #19
OK. 1.000 tak for din hjælp
Avatar billede thomas_yde Nybegynder
07. december 2004 - 13:53 #20
det var så lidt.
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester