Jag är nybörjare så det är kanske ett mycket enkelt problem men jag har inte hittat lösningen någonstans.

Problem: När jag kör koden nedan så får jag följande meddelande:

Feltyp:
Microsoft JET Database Engine (0x80040E0C)
Det angavs inte någon kommandotext för kommandoobjektet.

Vad är kommandotext och kommandoobjekt och framfr allt: varför funkar det inte?

Är tacksam för er tid.

<%
Dim str_angivare, str_teknisk_allergen100, str_ovrigt_allergen100
Dim cst, MinCon, rs, SQL, strSQL

cst = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
cst = cst & server.mappath("produkter.mdb")
%>

<!--#include file="adovbs.inc"-->

<%
set MinCon = Server.CreateObject("ADODB.Connection")
MinCon.open cst 'dbkoppling

Set rs = Server.CreateObject("ADODB.Recordset") 'recordset skapas
SQL = "SELECT teknisk_allergen100, ovrigt_allergen100 from mintabell"
rs.Open SQL, MinCon

str_angivare = Request("angivare")

str_teknisk_allergen100 = rs("teknisk_allergen100")
str_ovrigt_allergen100 = rs("ovrigt_allergen100")


if str_angivare = "teknisk_allergen100" then
if str_teknisk_allergen100 = "dolj" then
strSQL = "UPDATE mintabell SET teknisk_allergen100 = visa"
elseif str_teknisk_allergen100 = "visa" then
strSQL = "UPDATE mintabell SET teknisk_allergen100 = dolj"
end if
elseif str_angivare = "ovrigt_allergen100" then
if str_ovrigt_allergen100 = "dolj" then
strSQL = "UPDATE mintabell SET ovrigt_allergen100 = visa"
elseif str_ovrigt_allergen100 = "visa" then
strSQL = "UPDATE mintabell SET ovrigt_allergen100 = dolj"
end if
end if

MinCon.Execute strSQL

rs.Close
MinCon.Close
Set MinCon = Nothing
%>

Problemet är löst:

<%
Dim cst, Connection, rs, SQL
Dim allergen100, str_teknisk_allergen100, str_ovrigt_allergen100
Dim str_angivare

Set Connection = Server.CreateObject("ADODB.Connection")
Connection.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath("produkter.mdb")

Set rs = Server.CreateObject("ADODB.Recordset") 'recordset skapas
SQL = "SELECT * from mintabell"
rs.Open SQL, Connection, 3, 3

str_angivare = Request("angivare")
str_teknisk_allergen100 = rs("teknisk_allergen100")
str_ovrigt_allergen100 = rs("ovrigt_allergen100")

if str_angivare = "teknisk_allergen100" then
if str_teknisk_allergen100 = "dolj" then
rs("teknisk_allergen100") = "visa"
elseif str_teknisk_allergen100 = "visa" then
rs("teknisk_allergen100") = "dolj"
end if
elseif str_angivare = "ovrigt_allergen100" then
if str_ovrigt_allergen100 = "dolj" then
rs("ovrigt_allergen100") = "visa"
elseif str_ovrigt_allergen100 = "visa" then
rs("ovrigt_allergen100") = "dolj"
end if
end if

rs.Update

str_teknisk_allergen100 = rs("teknisk_allergen100")
str_ovrigt_allergen100 = rs("ovrigt_allergen100")

rs.Close
Connection.Close
Set Connection = Nothing