---
title: "Felmeddelande"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/69646-felmeddelande"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Okkido"
published: "2003-02-28T08:34:20.000Z"
updated: "2003-02-28T15:12:23.000Z"
replies: 30
views: 539
page: 1
pages: 2
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/69646-felmeddelande"
---

# Felmeddelande

_Sida 1 av 2._

## #1 — Okkido, 2003-02-28T08:34Z

Använder aspSmartUpload till en webbshop och när jag försöker lägga till en produkt i shopen får jag felet:

Microsoft VBScript runtime  error '800a01b6'

Object doesn't support this property or method: 'mySmartUpload'

/admin/prod_add.asp, line 34

Koden ser ut så här  i prod_add.asp:

\<%
if Session("inloggad")\<\>"ja" then 
response.write "\<script language='javascript'\>"
response.write "parent.top.location.href='../default.asp'"
response.write "\</script\>"
end if

if Request.QueryString("add")="ja" then
 
Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")

mySmartUpload.Upload

' markerades en fil?
Set File = mySmartUpload.Files("file")

filename=File.Filename

     ' annars spara (ÄNDRA SÖKVÄGEN HÄR)
      File.SaveAs "../../data/" & File.Filename
      Session("medelande")= "Filen sparades utan problem"

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Driver={Microsoft Access Driver (\*.mdb)}; DBQ=" & server.mappath ("../../data/shop.mdb")
Set RecSet = Server.CreateObject("ADODB.Recordset")

' ##### Addar ny kategori och gör den till ett id (om den ska)

if mySmartUpload("katid")="nykat" then

strSQL = "INSERT INTO Kat ( Kategori ) VALUES( '"& mySmartUpload("kategorinamn") &"' )"
Conn.Execute(strSQL)

Set RecSet3=Server.CreateObject("ADODB.Recordset")
SQL="SELECT \* From Kat WHERE Kategori='"& mySmartUpload("kategorinamn") &"'"
Set RecSet3 = Conn.Execute(SQL)
katid=RecSet3("KatID")

else

katid=mySmartUpload("katid")

end if

' ##### Addar ny produkttyp och gör den till ett id (om den ska)

if mySmartUpload("sortid")="nysort" then
strSQL = "INSERT INTO Sort ( Sort ) VALUES( '"& mySmartUpload("sortnamn") &"' )"
Conn.Execute(strSQL)

Set RecSet5=Server.CreateObject("ADODB.Recordset")
SQL="SELECT \* From Sort WHERE Sort='"& mySmartUpload("sortnamn") &"'"
Set RecSet5 = Conn.Execute(SQL)
sortid=RecSet5("SortID")

else

sortid=mySmartUpload("sortid")

end if

strSQL = "INSERT INTO Prod ( KatID, SortID, ArtNr, Color, Size, Rubrik, Besk, Pris, Bildnamn ) VALUES( '"& katid &"', '"& sortid &"', '"& mySmartUpload("artnr") &"', '"& mySmartUpload("color") &"', '"& mySmartUpload("size") &"', '"& mySmartUpload("rubrik") &"', '"& mySmartUpload("besk") &"', '"& mySmartUpload("pris") &"', '"& filename &"' )"

Conn.Execute(strSQL)

Conn.Close
Set Conn=nothing

Response.Redirect("prod_add_ok.asp")
end if

%\>

Tacksam för hjälp så snabbt som möjligt :)

Permalänk: https://www.webforum.nu/p/69646

## #2 — @nders, 2003-02-28T08:41Z

1) \[kod\]-taggar, vännen! :)
2) vilken rad pekar felet på?
3) Vilken version av aspsmartupload använder du?

Mvh

Permalänk: https://www.webforum.nu/p/965564

## #3 — Okkido, 2003-02-28T08:42Z

1) va? 
2) line 34  ??
3) Ingen aning 

Inte jag som kodat något, men han som kodar är inte tillgänlig och jag har nu 18 min på mig att få shopen att fungera igen. :x

Permalänk: https://www.webforum.nu/p/965567

## #4 — @nders, 2003-02-28T08:45Z

1) Använd wFs \[kod\] \[ /kod\]-taggar så koden blir lättare att läsa.
2) Vilken är rad 34???

Permalänk: https://www.webforum.nu/p/965570

## #5 — Okkido, 2003-02-28T08:57Z

1) Uppfattat
2) Jag kan noll om ASP men är det inte att räkna 34 rader ner?

Permalänk: https://www.webforum.nu/p/965582

## #6 — Engine^, 2003-02-28T08:59Z

1)

```
<% 
if Session("inloggad")<>"ja" then 
    response.write "<script language='javascript'>" 
    response.write "parent.top.location.href='../default.asp'" 
    response.write "</script>" 
end if 

if Request.QueryString("add")="ja" then 

Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload") 

mySmartUpload.Upload 

[blue]' markerades en fil?[/blue]
Set File = mySmartUpload.Files("file") 

filename=File.Filename 

[blue]' annars spara (ÄNDRA SÖKVÄGEN HÄR [/blue]
File.SaveAs "../../data/" & File.Filename 
Session("medelande")= "Filen sparades utan problem" 

Set Conn = Server.CreateObject("ADODB.Connection")
[b]Conn.Open "Provider=Microsoft.Jet.OleDB.4.0; Data Source=" & Server.MapPath("../../data/shop.mdb")[/b]
[blue]' Conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath ("../../data/shop.mdb") [/blue]
Set RecSet = Server.CreateObject("ADODB.Recordset") 

[blue]' ##### Addar ny kategori och gör den till ett id (om den ska) [/blue]

if mySmartUpload("katid")="nykat" then 
    strSQL = "INSERT INTO Kat ( Kategori ) VALUES( '"& mySmartUpload("kategorinamn") &"' )" 
    Conn.Execute(strSQL) 

    Set RecSet3=Server.CreateObject("ADODB.Recordset") 
    SQL="SELECT * From Kat WHERE Kategori='"& mySmartUpload("kategorinamn") &"'" 
    Set RecSet3 = Conn.Execute(SQL) 
    katid=RecSet3("KatID") 
else 
    katid=mySmartUpload("katid") 
end if 

[blue]' ##### Addar ny produkttyp och gör den till ett id (om den ska) [/blue]
if mySmartUpload("sortid")="nysort" then 
    strSQL = "INSERT INTO Sort ( Sort ) VALUES( '"& mySmartUpload("sortnamn") &"' )" 
    Conn.Execute(strSQL) 

    Set RecSet5=Server.CreateObject("ADODB.Recordset") 
    SQL="SELECT * From Sort WHERE Sort='"& mySmartUpload("sortnamn") &"'" 
    Set RecSet5 = Conn.Execute(SQL) 
    sortid=RecSet5("SortID") 
else 
    sortid=mySmartUpload("sortid") 
end if 

strSQL = "INSERT INTO Prod ( KatID, SortID, ArtNr, Color, Size, Rubrik, Besk, Pris, Bildnamn ) " & _
"VALUES( '"& katid &"', '"& sortid &"', '"& mySmartUpload("artnr") &"', '"& mySmartUpload("color") &"', '"& _
 mySmartUpload("size") &"', '"& mySmartUpload("rubrik") &"', '"& mySmartUpload("besk") &"', '"& mySmartUpload("pris") &"', '"& filename &"' )" 

Conn.Execute(strSQL) 

Conn.Close 
Set Conn=nothing 

Response.Redirect("prod_add_ok.asp") 
end if 

%>
```

2) Rad 34?

Permalänk: https://www.webforum.nu/p/965583

## #7 — @nders, 2003-02-28T09:00Z

Jo, om det framgår att det inte är någonting ovanför i asp-dokumentet...

Jag kommer till en tomrad när jag räknar, därför vore det bra om du själv markerade felraden. Jag tror dock att det är detta: 

```
strSQL = "INSERT INTO Kat ( Kategori ) VALUES( '"& mySmartUpload[b].Form[/b]("kategorinamn") &"' )"
```

Prova att lägga till det fetmarkerade.

mvh

Permalänk: https://www.webforum.nu/p/965585

## #8 — Engine^, 2003-02-28T09:11Z

Om det är problemet bör det även vara

```
strSQL = "INSERT INTO Sort ( Sort ) VALUES( '"& mySmartUpload[b].Form[/b]("sortnamn") &"' )"

[i]och[/i]

SQL="SELECT * From Sort WHERE Sort='"& mySmartUpload[b].Form[/b]("sortnamn") &"'"

[i]och[/i]

strSQL = "INSERT INTO Prod ( KatID, SortID, ArtNr, Color, Size, Rubrik, Besk, Pris, Bildnamn ) " & _
"VALUES( '"& katid &"', '"& sortid &"', '"& mySmartUpload[b].Form[/b]("artnr") &"', '"& mySmartUpload[b].Form[/b]("color") &"', '"& _
 mySmartUpload[b].Form[/b]("size") &"', '"& mySmartUpload[b].Form[/b]("rubrik") &"', '"& mySmartUpload[b].Form[/b]("besk") & _
"', '"& mySmartUpload[b].Form[/b]("pris") &"', '"& filename &"' )"
```

Permalänk: https://www.webforum.nu/p/965589

## #9 — Okkido, 2003-02-28T09:11Z

Testade att lägga till Form, ingen ändring på felmeddelandet.

Permalänk: https://www.webforum.nu/p/965590

## #10 — Engine^, 2003-02-28T09:13Z

Kan du inte ta och kolla i koden vilken rad som är rad 34? Det skulle underlätta.

Permalänk: https://www.webforum.nu/p/965594

## #11 — JAreMANNEN, 2003-02-28T09:17Z

> 2) **Jag kan noll om ASP** men är det inte att räkna 34 rader ner?

 

1\. Varför har du fått i uppgift att fixa detta då?
2\. Kör du lokalt eller mot webservern sidan ligger på?
3\. Vad står det på rad34?

Permalänk: https://www.webforum.nu/p/965599

## #12 — Okkido, 2003-02-28T09:18Z

Koden börjar av det jag klistrade in så när jag räknar neråt så jag får det till att denna raden är rad 34:

```
if mySmartUpload("katid")="nykat" then
```

Permalänk: https://www.webforum.nu/p/965600

## #13 — Engine^, 2003-02-28T09:20Z

testa använda

```
If mySmartUpload[b].Form[/b]("katid") = "nykat" Then
```

Jag spinner bara vidare på snabelanders förslag nu...

Permalänk: https://www.webforum.nu/p/965601

## #14 — @nders, 2003-02-28T09:21Z

Lägg till .Form på de ställen där det saknas, för jag antar att det är det som menas...

Mvh,

Permalänk: https://www.webforum.nu/p/965602

## #15 — Okkido, 2003-02-28T09:25Z

JareMANNEN

Han som har byggt shoppen är inte tillgänglig och det är viktigt att shoppen kommer upp idag därför sitter jag och försöker hitta någon lösning, med hjälp av er goa gubbar :)

Permalänk: https://www.webforum.nu/p/965606

## #16 — Okkido, 2003-02-28T09:29Z

.Form ska in på alla ställen där mySmartUpload står?

Även på dem där det står aspSmartUpload.

Permalänk: https://www.webforum.nu/p/965607

## #17 — @nders, 2003-02-28T09:30Z

Bara på de ställen där det står mySmartUpload("någonting").
Alltså inte där någon annan metod på mySmartUpload kallas på.

mvh

Permalänk: https://www.webforum.nu/p/965609

## #18 — Okkido, 2003-02-28T09:34Z

```
<%
if Session("inloggad")<>"ja" then 
response.write "<script language='javascript'>"
response.write "parent.top.location.href='../default.asp'"
response.write "</script>"
end if

if Request.QueryString("add")="ja" then
 
Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")

mySmartUpload.Upload

' markerades en fil?
Set File = mySmartUpload.Files("file")

filename=File.Filename

     ' annars spara (ÄNDRA SÖKVÄGEN HÄR)
      File.SaveAs "../../data/" & File.Filename
      Session("medelande")= "Filen sparades utan problem"

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath ("../../data/shop.mdb")
Set RecSet = Server.CreateObject("ADODB.Recordset")

' ##### Addar ny kategori och gör den till ett id (om den ska)

if mySmartUpload("katid")="nykat" then

strSQL = "INSERT INTO Kat ( Kategori ) VALUES( '"& mySmartUpload.Form("kategorinamn") &"' )"
Conn.Execute(strSQL)

Set RecSet3=Server.CreateObject("ADODB.Recordset")
SQL="SELECT * From Kat WHERE Kategori='"& mySmartUpload.Form("kategorinamn") &"'"
Set RecSet3 = Conn.Execute(SQL)
katid=RecSet3("KatID")

else

katid=mySmartUpload("katid")

end if

' ##### Addar ny produkttyp och gör den till ett id (om den ska)

if mySmartUpload("sortid")="nysort" then
strSQL = "INSERT INTO Sort ( Sort ) VALUES( '"& mySmartUpload.Form("sortnamn") &"' )"
Conn.Execute(strSQL)

Set RecSet5=Server.CreateObject("ADODB.Recordset")
SQL="SELECT * From Sort WHERE Sort='"& mySmartUpload.Form("sortnamn") &"'"
Set RecSet5 = Conn.Execute(SQL)
sortid=RecSet5("SortID")

else

sortid=mySmartUpload("sortid")

end if

strSQL = "INSERT INTO Prod ( KatID, SortID, ArtNr, Color, Size, Rubrik, Besk, Pris, Bildnamn ) VALUES( '"& katid 

&"', '"& sortid &"', '"& mySmartUpload.Form("artnr") &"', '"& mySmartUpload,Form("color") &"', '"& 

mySmartUpload,Form("size") &"', '"& mySmartUpload.Form("rubrik") &"', '"& mySmartUpload.Form("besk") &"', '"& 

mySmartUpload.Form("pris") &"', '"& filename &"' )"

Conn.Execute(strSQL)

Conn.Close
Set Conn=nothing

Response.Redirect("prod_add_ok.asp")
end if

%>
```

Sidan har förresten funkat när han som byggt den körde den lokalt.

Permalänk: https://www.webforum.nu/p/965611

## #19 — @nders, 2003-02-28T09:38Z

Det är ju möjligt att han kör en annan version än den som ligger på servern?

Prova att lägga till .Form på de som saknas.

mvh,

Permalänk: https://www.webforum.nu/p/965617

## #20 — Okkido, 2003-02-28T09:38Z

Får fel på denna raden nu (Rad 75)

```
strSQL = "INSERT INTO Prod ( KatID, SortID, ArtNr, Color, Size, Rubrik, Besk, Pris, Bildnamn ) VALUES( '"& katid &"', '"& sortid &"', '"& mySmartUpload.Form("artnr") &"', '"& mySmartUpload,Form("color") &"', '"& mySmartUpload,Form("size") &"', '"& mySmartUpload.Form("rubrik") &"', '"& mySmartUpload.Form("besk") &"', '"& mySmartUpload.Form("pris") &"', '"& filename &"' )"
```

Permalänk: https://www.webforum.nu/p/965618

---

Tråden på webben: https://www.webforum.nu/amne/asp/69646-felmeddelande  
Nästa sida: https://www.webforum.nu/amne/asp/69646-felmeddelande/page2.md