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!!
Annonceindlæg tema
Offentlig digitalisering
Fra effektivisering til digital suverænitet. Hvordan skaber det offentlige en digital fremtid med AI, sikkerhed og kontrol i centrum?
07. december 2004 - 12:04
#1
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.
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
07. december 2004 - 12:25
#4
Jeg er ikke nogle haj, kan du give mig et eks. jeg har 4 felter der skal opdateres.
07. december 2004 - 12:31
#5
Er det noget opdatering, eller noget helt nyt, som du uploader via en form ?
07. december 2004 - 12:39
#6
Det er opdateringer.
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
07. december 2004 - 12:40
#8
Der mangler noget. For Each File in myUpload.Files
07. december 2004 - 12:41
#9
Det ser meget fornuftigt ud, set her fra :-)
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!
07. december 2004 - 13:18
#11
hvormange billeder har du? Kun 4 ? eller nogle gange flere
07. december 2004 - 13:19
#12
Jeg har max 4 billeder, men ikke nødvendigvis 4. Som hentes via 4 form felter
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
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!
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.
07. december 2004 - 13:37
#16
ja det var lige en svipser så den bagefter :-)
07. december 2004 - 13:48
#17
Ved du om man kan sætte en max brede på et .jpg billede med aspsmartupload?
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.
07. december 2004 - 13:52
#19
OK. 1.000 tak for din hjælp
07. december 2004 - 13:53
#20
det var så lidt.
Kurser inden for grundlæggende programmering