Avatar billede tommyls Nybegynder
27. marts 2002 - 10:47 Der er 27 kommentarer og
1 løsning

upload

Jeg har en fil der uploader et billede til en acces-db.

Jeg bruger aspupload!

Den kører fint lokalt, men når jeg ligger den på serveren virker den ikke.

filen ser således ud:

<%
    Set Upload = Server.CreateObject("Persits.Upload")

   
    'save =
   
    dbShop_path = ".mdb"
    Upload.Save "\img"

    Set File = Upload.Files("billede")

    If Not File Is Nothing Then

       
        connect = "Data Source="& dbShop_path &";Provider=Microsoft.Jet.OLEDB.4.0;"



       
     
        SQL = "INSERT INTO sko (image_blob, billede, merke, model, tekst, farve, storrelse, pris,tilbudspris) VALUES(?, '"
        SQL = SQL & File.Filename & "', '"
        SQL = SQL & Replace(Upload.Form("merke"), "'", "''") & "','"
        SQL = SQL & Replace(Upload.Form("model"), "'", "''") & "','"
        SQL = SQL & Replace(Upload.Form("tekst"), "'", "''") & "','"
        SQL = SQL & Replace(Upload.Form("farve"), "'", "''") & "','"
        SQL = SQL & Replace(Upload.Form("storrelser"), "'", "''") & "','"
        SQL = SQL & Replace(Upload.Form("pris"), "'", "''") & "')"
        'SQL = SQL & Replace(Upload.Form("billede"), "'", "''") & "')"
        ' Save to database
        File.ToDatabase Connect, SQL
        Response.Write "File saved."
    Else
        Response.Write "File not selected."
    End If
%>


Jeg får fejlen: object doesn't support this method "SQL Filename"

T.
Avatar billede tommyls Nybegynder
27. marts 2002 - 10:48 #1
Hvis der er en der har en anden kode, så er den selvfølgelig velkommen!
Avatar billede online-help.dk Nybegynder
27. marts 2002 - 10:49 #2
måske understøtter dit webhotel ikke den komponet!.
Avatar billede online-help.dk Nybegynder
27. marts 2002 - 10:50 #3
kommer der nogen fejl??
Avatar billede tommyls Nybegynder
27. marts 2002 - 10:51 #4
de skriver at de understøtter aspupload!
Avatar billede online-help.dk Nybegynder
27. marts 2002 - 10:53 #5
hmm.. fejl??
Avatar billede tommyls Nybegynder
27. marts 2002 - 10:54 #6
object doesn't support this method "SQL Filename"
Avatar billede tommyls Nybegynder
27. marts 2002 - 11:06 #7
Come on! Anybody!!
Avatar billede webbe Nybegynder
27. marts 2002 - 13:39 #8
Prøv at ændre denne linie:

File.ToDatabase Connect, SQL

til

Connect.Execute(sql)
Avatar billede webbe Nybegynder
27. marts 2002 - 13:41 #9
Eller placer din File.Filename i en variabel

Filnavn = File.Filename

Og lav så følgende:

SQL = "INSERT INTO sko (image_blob, billede, merke, model, tekst, farve, storrelse, pris,tilbudspris) VALUES(?, '"
        SQL = SQL & Filnavn & "', '"
        SQL = SQL & Replace(Upload.Form("merke"), "'", "''") & "','"
        SQL = SQL & Replace(Upload.Form("model"), "'", "''") & "','"
        SQL = SQL & Replace(Upload.Form("tekst"), "'", "''") & "','"
        SQL = SQL & Replace(Upload.Form("farve"), "'", "''") & "','"
        SQL = SQL & Replace(Upload.Form("storrelser"), "'", "''") & "','"
        SQL = SQL & Replace(Upload.Form("pris"), "'", "''") & "')"
        'SQL = SQL & Replace(Upload.Form("billede"), "'", "''") & "')"
        ' Save to database
        Connect.Execute(SQL)
        Response.Write "File saved."
    Else
        Response.Write "File not selected."
    End If
Avatar billede tommyls Nybegynder
27. marts 2002 - 13:46 #10
nu får jeg: "Object required"
Avatar billede webbe Nybegynder
27. marts 2002 - 13:46 #11
Hvilken linie?
Avatar billede tommyls Nybegynder
27. marts 2002 - 13:47 #12
linie 10 som er (Filnavn = File.Filename)
Avatar billede webbe Nybegynder
27. marts 2002 - 13:49 #13
Poster lige det script jeg selv bruger:

Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "wolfpack"

Set Upload = Server.CreateObject("Persits.Upload.1")
Upload.OverWriteFiles = False
Upload.Save Server.MapPath("./../../../images/billeder") & "\"

Kategori = Upload.Form("kategori")
Navn = replace(replace(Upload.Form("navn"),"'","´"),"""","´´")
Beskrivelse = replace(replace(Upload.Form("beskrivelse"),"'","´"),"""","´´")
Pic = Upload.Form("pic")

Set Pic = Upload.Files("pic")
    If Pic is nothing Then
        Pic1 = ""
    Else
        Pic1 = Pic.ExtractFileName
    End if

    sql = "INSERT INTO Billeder (Kategori,Navn,Beskrivelse,Billede) VALUES ("&"'"&Kategori&"', '"&Navn&"', '"&Beskrivelse&"', '"&Pic1&"')"
    Connect.Execute(sql)

Response.Redirect("download_pics.asp")

Denne metode virker i hvert fald!
Avatar billede tommyls Nybegynder
27. marts 2002 - 13:49 #14
lokalt var det nemt nok, fordi det bare var en acces db, problemet er at på serveren skal jeg bruge Provider=Microsoft.Jet.OLEDB.4.0;"
Avatar billede tommyls Nybegynder
27. marts 2002 - 13:52 #15
hvad er Wolfpack?
Avatar billede webbe Nybegynder
27. marts 2002 - 13:54 #16
Det er bare min DSN-connection - den skal du bare rette til:

Set Connect = Server.CreateObject("ADODB.Connection")
dsn = "Data Source="& dbShop_path &";Provider=Microsoft.Jet.OLEDB.4.0;"
Connect.Open "dsn"

Set Upload = Server.CreateObject("Persits.Upload.1")
Upload.OverWriteFiles = False
Upload.Save Server.MapPath("./../../../images/billeder") & "\"

Kategori = Upload.Form("kategori")
Navn = replace(replace(Upload.Form("navn"),"'","´"),"""","´´")
Beskrivelse = replace(replace(Upload.Form("beskrivelse"),"'","´"),"""","´´")
Pic = Upload.Form("pic")

Set Pic = Upload.Files("pic")
    If Pic is nothing Then
        Pic1 = ""
    Else
        Pic1 = Pic.ExtractFileName
    End if

    sql = "INSERT INTO Billeder (Kategori,Navn,Beskrivelse,Billede) VALUES ("&"'"&Kategori&"', '"&Navn&"', '"&Beskrivelse&"', '"&Pic1&"')"
    Connect.Execute(sql)

Response.Redirect("download_pics.asp")

Så skulle den være der!
Avatar billede tommyls Nybegynder
27. marts 2002 - 13:58 #17
hvad er det:

Pic = Upload.Form("pic")
Avatar billede webbe Nybegynder
27. marts 2002 - 13:59 #18
Det er en variabel der defineres som indholdet af formularfeltet "Pic" - den behøver du ikke, da Pic valideres længere nede i scriptet!
Avatar billede tommyls Nybegynder
27. marts 2002 - 14:12 #19
Den kan ikke finde min DSN

Den ser således ud:
dbShop_path = "d:\butik.mdb"
Avatar billede webbe Nybegynder
27. marts 2002 - 14:18 #20
Set Connect = Server.CreateObject("ADODB.Connection")
dbShop_path = ".mdb"
dsn = "Data Source="& dbShop_path &";Provider=Microsoft.Jet.OLEDB.4.0;"
Connect.Open "dsn"

Set Upload = Server.CreateObject("Persits.Upload.1")
Upload.OverWriteFiles = False
Upload.Save Server.MapPath("./../../../images/billeder") & "\"

Kategori = Upload.Form("kategori")
Navn = replace(replace(Upload.Form("navn"),"'","´"),"""","´´")
Beskrivelse = replace(replace(Upload.Form("beskrivelse"),"'","´"),"""","´´")
Pic = Upload.Form("pic")

Set Pic = Upload.Files("pic")
    If Pic is nothing Then
        Pic1 = ""
    Else
        Pic1 = Pic.ExtractFileName
    End if

    sql = "INSERT INTO Billeder (Kategori,Navn,Beskrivelse,Billede) VALUES ("&"'"&Kategori&"', '"&Navn&"', '"&Beskrivelse&"', '"&Pic1&"')"
    Connect.Execute(sql)

Response.Redirect("download_pics.asp")

Så skulle den være der!
Avatar billede tommyls Nybegynder
27. marts 2002 - 14:25 #21
min kode ser såleds ud nu?

Min den kan ikke finde min path: Upload.Save Server.MapPath("../nee/eshop/img")& "\"


<%
dbShop_path = "d:\skobutik.mdb"

Set Connect = Server.CreateObject("ADODB.Connection")
dsn = "Data Source="& dbShop_path &";Provider=Microsoft.Jet.OLEDB.4.0;"
Connect.Open dsn

Set Upload = Server.CreateObject("Persits.Upload.1")
Upload.OverWriteFiles = False
Upload.Save Server.MapPath("../nee/eshop/img")& "\"



Set Pic = Upload.Files("billede")
    If Pic is nothing Then
        Pic1 = ""
    Else
        Pic1 = Pic.ExtractFileName
    End if

        SQL = "INSERT INTO sko (image_blob, billede, merke, model, tekst, farve, storrelse, pris,tilbudspris) VALUES(?, '"
        SQL = SQL & Filnavn & "', '"
        SQL = SQL & Replace(Upload.Form("merke"), "'", "''") & "','"
        SQL = SQL & Replace(Upload.Form("model"), "'", "''") & "','"
        SQL = SQL & Replace(Upload.Form("tekst"), "'", "''") & "','"
        SQL = SQL & Replace(Upload.Form("farve"), "'", "''") & "','"
        SQL = SQL & Replace(Upload.Form("storrelser"), "'", "''") & "','"
        SQL = SQL & Replace(Upload.Form("pris"), "'", "''") & "')"
        Connect.Execute(sql)
%>
Avatar billede webbe Nybegynder
27. marts 2002 - 14:26 #22
Hvad siger fejlen?
Avatar billede tommyls Nybegynder
27. marts 2002 - 14:27 #23
cannot find the path.

og det er Upload.Save Server.MapPath("../nee/eshop/img")& "\"
Avatar billede webbe Nybegynder
27. marts 2002 - 14:28 #24
Så er det ikke din database den ikke kan finde...har du oprettet de mapper på serveren?

Eller tester du det lokalt?
Avatar billede tommyls Nybegynder
27. marts 2002 - 14:29 #25
jaja, resten af sitet fungerer, men kan det være at min db_path skal være virtuel?
Avatar billede webbe Nybegynder
27. marts 2002 - 14:38 #26
Ja - prøv det!
Avatar billede tommyls Nybegynder
27. marts 2002 - 14:41 #27
Du får point, jeg stoler på at det nok skal lykkes på et tidspunkt.
thx
Avatar billede webbe Nybegynder
27. marts 2002 - 14:53 #28
Okay - takker!
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