Felmeddelande

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

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.

Grabbar ni är underbara!

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

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

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)

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

Okkido skrev:

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

hihi.. ;)

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

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)%>

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"))