---
title: "Felmeddelande"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/69646-felmeddelande/page2"
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: 2
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 2 av 2._

## #21 — JAreMANNEN, 2003-02-28T09:39Z

```
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.form("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.form("katid")

end if

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

if mySmartUpload.form("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.form("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
```

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

## #22 — @nders, 2003-02-28T09:40Z

> **Okkido skrev:**
>
> 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 &"' )"
> ```

Du har skrivit ,Form istället för .Form på ett par ställen.

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

## #23 — Okkido, 2003-02-28T09:43Z

Grabbar ni är underbara!

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

## #24 — @nders, 2003-02-28T09:45Z

Ska man tolka det där som att det fungerar? :D

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

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

Det funkar bättre nu än innan iaf :)

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

## #26 — Okkido, 2003-02-28T09:47Z

Problem nr 2.

```
Microsoft OLE DB Provider for ODBC Drivers error '80004005'

[Microsoft][ODBC Microsoft Access Driver]General error Unable to open registry key 'Temporary (volatile) Jet DSN for process 0x7b0 Thread 0xa80 DBC 0x112df204 Jet'.

/admin/prod_editval.asp, line 12
```

Får jag när jag försöker ta bort en produkt (som nu funkar att lägga till)

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

## #27 — Okkido, 2003-02-28T09:47Z

Tyst på dig okkido, du borde veta mer än att databasen måste ha rätt sökväg :)

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

## #28 — JAreMANNEN, 2003-02-28T09:48Z

> **Okkido skrev:**
>
> Tyst på dig okkido, du borde veta mer än att databasen måste ha rätt sökväg :)

hihi.. ;)

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

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

Allting verkar fungera helt ok nu förutom att bilderna verkar inte skickas upp.

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

## #30 — Okkido, 2003-02-28T10:02Z

Nu har jag ett till problem. När man lagt till en vara i sin kundvagn och ska gå till kundvagnen får man felet:

```
Microsoft VBScript runtime  error '800a000d'

Type mismatch: 'RecSet'

/bestall.asp, line 27
```

Koden i bestall.asp runt om line 27 ser ut följande:

```
                <tr bgcolor="#F5F5F5"> 
                  <td><%=RecSet("ArtNr")%></td>
                  <td><%=RecSet("Rubrik")%></td>
                  <td><%=RecSet("Color")%></td>
                  <td><%=RecSet("Size")%></td>
                  <td><%=RecSet("Antal")%></td>
                  <td>
                    <%
pris=RecSet("Antal")*RecSet("Pris")
%>
                    <%=FormatNumber(pris, 2)%>
```

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

## #31 — solbulle, 2003-02-28T15:12Z

Så var det där med radnumren... ;)

Antar att det är denna rad:

```
pris=RecSet("Antal")*RecSet("Pris")
```

Vilken kanske kan skrivas bättre så här:

```
pris=Cint(RecSet("Antal"))*Cint(RecSet("Pris"))
```

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/69646-felmeddelande/page2  
Föregående sida: https://www.webforum.nu/amne/asp/69646-felmeddelande.md