upload billede med aspsmartupload

hovsa fik sørme ikke det hele med, ups, prøver lige igen

Dim mySmartUpload
Dim intCount
Dim arrID
Dim arrstr
Dim arrantal

    'Opret Object
    '***************
    Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")
   
    'Upload
    '*********
    mySmartUpload.Upload
   
    'Gem filen med originalt navn med en virtuel sti eller på en web server
    '*************************************************************************
    intCount = mySmartUpload.Save("/billeder/jpg")
    'intCount = mySmartUpload.Save("/aspSmartUpload/Upload")
    'sample with a physical path
    'intCount = mySmartUpload.Save("c:\temp\")

varenummer=Request.Form("varenummer")
model=Request.Form("model")
pris=Request.Form("pris")
tilbudspris=Request.Form("tilbudspris")
beskrivelse=Request.Form("beskrivelse")
billede=Request.Form("billede")
synlig=Request.Form("synlig")
undergruppeID=Request.Form("undergruppe2")
storrelse=Request.Form("storrelse")
antal=Request.Form("antal")

sql = "INSERT INTO shop_varer(varenummer,model,pris,tilbudspris,beskrivelse,billede,synlig) VALUES('"&varenummer&"','"&model&"',convert(decimal(10,2), '"&pris&"'),convert(decimal(10,2), '"&tilbudspris&"'),'"&beskrivelse&"','"&billede&"','"&synlig&"')"
set record = rs.Execute(sql)

SQL = "SELECT @@IDENTITY as ID"
set record = rs.execute(sql)
vareID = record("ID")

arrID = split(undergruppeID, ", ")
for t = 0 to ubound(arrID)
    sql = "INSERT INTO shop_vare_str_ref(vareID,undergruppeID) VALUES('"&vareID&"','"&arrID(t)&"')"
    set record = rs.Execute(sql)
next

arrstr = split(storrelse, ", ")
for t = 0 to ubound(arrstr)
next
arrantal = split(antal, ", ")
for t = 0 to ubound(arrantal)
    sql = "INSERT INTO shop_storrelse(vareID,storrelse,antal) VALUES('"&vareID&"','"&arrstr(t)&"','"&arrantal(t)&"')"
    Set record = rs.Execute(sql)
next

Response.Redirect("index.asp?side=shoppen")

Når du bruger upload kan man ikke bruge request.form. Der skal man bruge upload komponentens form collection som virker på samme måde som request.form. Det man gør er at skrive navnet på upload objectet i stedet for reqeust. Form collectionen bliver gyldig efter man har lavet et kald til .upload. Så alle som denne:

varenummer=Request.Form("varenummer")

Skal rettes til:

varenummer=mySmartUpload.Form("varenummer")

det er her med gjort, nu får jeg så bare fejl i skrivelsen i min DB.

Microsoft OLE DB Provider for SQL Server error '80040e07'

Syntax error converting the varchar value '46,48' to a column of data type int.

/add-adjust_vare_save.asp, line 46

Hvilken er linie 46?

45)    sql = "INSERT INTO shop_vare_str_ref(vareID,undergruppeID) VALUES('"&vareID&"','"&arrID(t)&"')"
46)    set record = rs.Execute(sql)

Prøv uden ' omkring tallene når kolonne typen er tal:

sql = "INSERT INTO shop_vare_str_ref(vareID,undergruppeID) VALUES("&vareID&","&arrID(t)&")"

There are fewer columns in the INSERT statement than values specified in the VALUES clause. The number of values in the VALUES clause must match the number of columns specified in the INSERT statement.

/add-adjust_vare_save.asp, line 46


det fik jeg det her ud af

Hmm det er nok vareID som indeholder 46,48. Skal vareID ikke splites lige som undergruppeID bliver splitet til arrID?

46,48 er to undergruppeID'er som skal splites op. vareID'et skal knyttes til flere undergrupper, men efter jeg er begyndt at bruge mySmartUpload.form virker det ikke.

Arh det er nok fordi der kun er "," og ikke ", " imellem to værdi i strengen så prøv lige at rette denne:

arrID = split(undergruppeID, ", ")

Til denne:

arrID = split(undergruppeID, ",")



og rette SQL sætningen tilbage som før og evt. med trim omkring sådan her:

sql = "INSERT INTO shop_vare_str_ref(vareID,undergruppeID) VALUES('"&vareID&"','"&trim(arrID(t))&"')"

jo nu virker det hele som det skal, næsten. Det er meningen at det originale fil navn og type (billede.jpg) skal gemmes i databasen.

Du kan få filnanvet og type ved dette:

if intCount > 0 then
  filnavn = mySmartUpload.Files.ITem(1).FileName
  filtype = mySmartUpload.Files.ITem(1).TypeMIME
end if



Det skal ind efter denne linie:

    intCount = mySmartUpload.Save("/billeder/jpg")



men prøgsmålet er hvad du mener med type? Hvis det er gif, jpg, bmp så det .FileExt du skal bruge i stedet for .TypeMIME

med type mener jeg selvfølgelig .jpg, men nu bliver jeg lige nød til at stille et spørgsmål der nok er lidt ude af kategorie.

Hvad er .TypeMINE, hvad bruger man det til og hvad kan det?

der bliver stadig ikke skrevet noget filnavn i databasen eller type.

Det er en type og MIME står for Multipart Internet Mail Extensions. Et Jpg billede vil eksvis give "Image" en gif vil også give "Image". Der er så også en .SubTypeMIME som giver jpeg eller gif for de to eksempler.

hvordan ser din SQL sætning ud nu?

altså alle sql'er skriver det de skal, lige bort set fra den der skal skrive filnavnet og typen, og den ser sådan her ud:

sql = "INSERT INTO shop_varer(varenummer,model,pris,tilbudspris,beskrivelse,billede,synlig) VALUES('"&varenummer&"','"&model&"',convert(decimal(10,2), '"&pris&"'),convert(decimal(10,2), '"&tilbudspris&"'),'"&beskrivelse&"','"&billede&"','"&synlig&"')"
set record = rs.Execute(sql)

Hvilken kolonne skal typen ind i?

Hvis du har bruge den variable jeg har vist så prøv sådan her hvor billede er skiftet ud med filnavn:

sql = "INSERT INTO shop_varer(varenummer,model,pris,tilbudspris,beskrivelse,billede,synlig) VALUES('"&varenummer&"','"&model&"',convert(decimal(10,2), '"&pris&"'),convert(decimal(10,2), '"&tilbudspris&"'),'"&beskrivelse&"','"&filnavn&"','"&synlig&"')"
set record = rs.Execute(sql)

godt så der kom "The prick over the I" som en god kendt politiker engang sagde.

Tak for hjælpen, super go' support. Lig et svar så du kan få de fortjente point.

Ok så her et svar ;)