Notifikationer

Markér alle som læst Log ud

Slettet bruger

01. december 2006 - 19:22 Der er 10 kommentarer

Upload gange 5 i database

Hej. Jeg har en upload form her.

Så vil jeg godt have 5 filer ind på serveren og de 5 i databasen.

Jeg ved ikke hvordan jeg skal gøre.
<%
if request.QueryString("Action") = "Sendt" then
Set Upload = Server.CreateObject("Persits.Upload.1")
Upload.OverwriteFiles = False
Upload.SetMaxSize 1048576
Upload.Save(Server.MapPath("upload"))
For Each File in Upload.Files
filename = file.ExtractFileName
Next
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath("../App_data/Foto.mdb")
strSQL = "INSERT INTO foto (Brugernavn, Kat, Billed1, Billed2, Billed3, Billed4, Billed5, )values('" & Brugernavn & "', '" & request.Form("Kategori") & "', '" & Filename & ", '" & Filename & ", '" & Filename & ", '" & Filename & ", '" & Filename & ", '"
set rs = Conn.execute(strSQL)
end if
%>

Synes godt om

ellebaek Nybegynder

01. december 2006 - 20:30 #1

<%
if request.QueryString("Action") = "Sendt" then
Set Upload = Server.CreateObject("Persits.Upload.1")
Upload.OverwriteFiles = False
Upload.SetMaxSize 1048576
felter = "Brugernavn, Kat"
vaerdier = "'" & Brugernavn & "', '" & request.Form("Kategori") & "'"
Upload.Save(Server.MapPath("upload"))
i = 0
For Each File in Upload.Files
i = i+1
filename = file.ExtractFileName
felter = felter & ", Billed" & i
vaerdier = vaerdier & ", '" & filename & "'"
Next
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath("../App_data/Foto.mdb")
strSQL = "INSERT INTO foto (" & felter & ") values(" & vaerdier & ")"
set rs = Conn.execute(strSQL)
end if
%>

prøv sådan her.det skulle nok klare det for dig.

Synes godt om

Slettet bruger

01. december 2006 - 21:24 #2

Forstår ikke, Hvad så med brugernavn og kategori og de andre ting jeg har i min database?

Synes godt om

ellebaek Nybegynder

01. december 2006 - 21:50 #3

de bliver sat på inden din for-løkke.

felter = "Brugernavn, Kat"
vaerdier = "'" & Brugernavn & "', '" & request.Form("Kategori") & "'"

og i forløkken udvides disse 2 linier så med de værdier der kommer på i den løkke du er i gang med.
felter = felter & ", Billed" & i
vaerdier = vaerdier & ", '" & filename & "'"

Synes godt om

Slettet bruger

01. december 2006 - 21:54 #4

Ok, det forstår jeg ikke. Kan du ikke give koden?:)

Synes godt om

ellebaek Nybegynder

01. december 2006 - 22:20 #5

det gør jeg allerede....

Hvis du ser det jeg skrev oven for..
Så er det en udvidelse af den kode du selv skrev til at starte med.

Det den egentlig gør er:
tjekker om der er sendt.
uploader de filer der skal uploades.
opretter variable til brug i SQL
for-løkken finder filnavnet for hver enkelt fil, dette sættes på den variabel der oprettes uden for for-løkken.
der oprettes en forbindelse til databasen
og engelig eksekveres sql-sætningen med brug af de variable der er oprettet tidligere.

sql-en benytter variablene på denne måde:
strSQL = "INSERT INTO foto (" & felter & ") values(" & vaerdier & ")"

Synes godt om

Slettet bruger

01. december 2006 - 22:57 #6

Så jeg kan bare gøre så her:
strSQL = "INSERT INTO foto (" & felter & ", Brugernavn, kat) values(" & vaerdier & ", '" & Brugernavn & "', '" & Request.form("Kategori") & "')"?

Synes godt om

ellebaek Nybegynder

01. december 2006 - 23:15 #7

prøv lige at læse koden engang. altså den jeg skriver i mit indlæg: 01/12-2006 20:30:57

der bliver brugernavn og kategori allerede sat.
det gøres inden for-løkken startes...

Synes godt om

Slettet bruger

01. december 2006 - 23:20 #8

Jeg bruger aldrig løkker. Så ved ikke hvordan man skal gøre. Hvad så hvis jeg vil have at der skal være 2 extra ting ind i databasen. Brugerid og Overskrift?

Synes godt om

ellebaek Nybegynder

01. december 2006 - 23:23 #9

så sætter du dem ind i de her linier:

felter = "Brugernavn, Kat"
vaerdier = "'" & Brugernavn & "', '" & request.Form("Kategori") & "'"

de skal erstattes med de næste 2 linier..

felter = "Brugernavn, Kat, Brugerid, Overskrift"
vaerdier = "'" & Brugernavn & "', '" & request.Form("Kategori") & "','"&brugerid&"','"&request.form("overskrift")&"'"

sådan her...

Synes godt om

Slettet bruger

01. december 2006 - 23:34 #10

Argh.. Dumme mig. Havde ikke set koden helt igemmen:'(

Men den siger en fejl ved linje 72 ( Upload.Save(Server.MapPath("upload")) )

Persits.Upload.1 error '800a0001'

Unspecified error

/foto/Upload.asp, line 72

Synes godt om

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.

Følg dette spørgsmål

Opret Preview

Programmeringssprog kurser

Kurser inden for grundlæggende programmering

Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
ASP classic kopiere database fil på server Af bsn i ASP	7	31/10/202610:20	01/11/202620:28
Persits.Upload Af bsn i ASP	9	17/09/202611:37	21/09/202615:15
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP	10	25/06/202622:20	04/09/202602:30
Tjek alle checkbox i form Af bsn i ASP	4	18/05/202601:57	19/05/202613:33
Lost focus Af bsn i ASP	1	07/11/202415:34	01/01/202514:58

Se alle spørgsmål i kategorien Opret spørgsmål

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

Alle kategorier på Eksperten

Seneste artiklerRSS