Probelm med at opdatere en database

Hej alle sammen.

Først vil jeg sige at jeg ikke fatter en pind ASP. Jeg er nemlig en PHP haj..

En af minne venner har lavet en mini CMS system i ASP som kan opdatere lidt i en database..

Men af en eller ander grund så kører det ikke.. Og self. er min ven taget på ferie :) jubii..


Men efter at I er eksperter så må I kunne hjælpe mig.

Efter at jeg har rettet lidt i en form og har trykket på opdatere så kommer denne fejl :

Microsoft OLE DB Provider for ODBC Drivers error '80004005'

[Microsoft][ODBC Microsoft Access Driver] Operation must use an updateable query.

/hrk/retdb-gem.asp, line 106

Og helt dum er jeg ikke så jeg kan se at fejlen er i på LINE 106 :)

LINE 106 =  conn.execute(strSQL)

Og efter at jeg ved at fejlen kan være på andre linje så smækker jeg lige hele filen :

<!-- #include file="include/functions.asp" -->


<!-- ---------------- Bestyrelsen --------------------- -->
<%
if request.querystring("action") = "sletbesty" Then
strSQL = "Delete from bestyrelsen where id = " & cint(request.querystring("del"))
Conn.Execute(strSQL)

response.redirect("retdb.asp?x=bestyr")
End if
if request.form("action") = " Gem Bestyrelsen " Then

range = split(request.form("id"),",")
y=lbound(range)
z=ubound(range)
for x=range(y) to range(z)

strSQL = "Update bestyrelsen set "

strSQL = strSQL & "navn= '" & request.form("navn"&x) & "',"
strSQL = strSQL & "att= '" & request.form("att"&x) & "',"
strSQL = strSQL & "adr= '" & request.form("adr"&x) & "',"
strSQL = strSQL & "adrto= '" & request.form("adrto"&x) & "',"
strSQL = strSQL & "post= '" & request.form("post"&x) & "',"
strSQL = strSQL & "byen= '" & request.form("byen"&x) & "',"
strSQL = strSQL & "status= '" & request.form("status"&x) & "',"
strSQL = strSQL & "rang= '" & request.form("rang"&x) & "',"
strSQL = strSQL & "email= '" & request.form("email"&x) & "',"
strSQL = strSQL & "hp= '" & request.form("hp"&x) & "'"
strSQL = strSQL & " Where id = "& x

conn.execute(strSQL)
'response.write strSQL & "<br><br>"
next

response.redirect("retdb.asp?x=bestyr")
end if

%>
<!-- ---------------- Ny Bestyrelse --------------------- -->
<%
   
'if request.form("action") = " Tilføj ny Bestyrelse " Then
if request.querystring("x") = "nybestyr" Then
strSQL = "insert into bestyrelsen ("
strSQL = strSQL & "navn, "
strSQL = strSQL & "att, "
strSQL = strSQL & "adr, "
strSQL = strSQL & "adrto, "
strSQL = strSQL & "post, "
strSQL = strSQL & "byen, "
strSQL = strSQL & "status, "
strSQL = strSQL & "rang, "
strSQL = strSQL & "email, "
strSQL = strSQL & "hp) "

strSQL = strSQL & "values( "

strSQL = strSQL & "'" & request.form("navn")& "', "
strSQL = strSQL & "'" &  request.form("att")& "', "
strSQL = strSQL & "'" &  request.form("adr")& "', "
strSQL = strSQL & "'" &  request.form("adrto")& "', "
strSQL = strSQL & "'" &  request.form("post")& "', "
strSQL = strSQL & "'" &  request.form("byen")& "', "
strSQL = strSQL & "'" &  request.form("status")& "', "
strSQL = strSQL & "'" &  request.form("rang")& "', "
strSQL = strSQL & "'" &  request.form("email")& "', "
strSQL = strSQL & "'" &  request.form("hp")& "')"

conn.execute(strSQL)
response.redirect("retdb.asp?x=bestyr")
End if
%>
<!-- ---------------- Medemmer --------------------- -->
<%
if request.querystring("action") = "sletmedlem" Then
strSQL = "Delete from medlemsliste where id = " & cint(request.querystring("del"))
Conn.Execute(strSQL)

response.redirect("retdb.asp?x=medlem")
End if
       
if request.form("action") = " Gem Medlemslisten " Then

range = split(request.form("id"),",")
y=lbound(range)
z=ubound(range)
for x=range(y) to range(z)

strSQL = "Update medlemsliste set "

strSQL = strSQL & "navn= '" & request.form("navn"&x) & "',"
strSQL = strSQL & "titel= '" & request.form("titel"&x) & "',"
strSQL = strSQL & "indehavernavn= '" & request.form("indehavernavn"&x) & "',"
strSQL = strSQL & "adr= '" & request.form("adr"&x) & "',"
strSQL = strSQL & "adrto= '" & request.form("adrto"&x) & "',"
strSQL = strSQL & "post= '" & request.form("post"&x) & "',"
strSQL = strSQL & "byen= '" & request.form("byen"&x) & "',"
strSQL = strSQL & "tlf= '" & request.form("tlf"&x) & "',"
strSQL = strSQL & "fax= '" & request.form("fax"&x) & "',"
strSQL = strSQL & "email= '" & request.form("email"&x) & "',"
strSQL = strSQL & "hp= '" & request.form("hp"&x) & "'"
strSQL = strSQL & " Where id = "&x

conn.execute(strSQL)

next

response.redirect("retdb.asp?x=medlem")
end if

%>
<!-- ---------------- Nyt Medlem --------------------- -->
<%
   
if request.querystring("x") = "nymedlem" Then
strSQL = "insert into medlemsliste ("
strSQL = strSQL & "navn, "
strSQL = strSQL & "titel, "
strSQL = strSQL & "indehavernavn, "
strSQL = strSQL & "adr, "
strSQL = strSQL & "adrto, "
strSQL = strSQL & "post, "
strSQL = strSQL & "byen, "
strSQL = strSQL & "tlf, "
strSQL = strSQL & "fax, "
strSQL = strSQL & "email, "
strSQL = strSQL & "hp) "

strSQL = strSQL & "values( "

strSQL = strSQL & "'" & request.form("navn")& "', "
strSQL = strSQL & "'" &  request.form("titel")& "', "
strSQL = strSQL & "'" &  request.form("indehavernavn")& "', "
strSQL = strSQL & "'" &  request.form("adr")& "', "
strSQL = strSQL & "'" &  request.form("adrto")& "', "
strSQL = strSQL & "'" &  request.form("post")& "', "
strSQL = strSQL & "'" &  request.form("byen")& "', "
strSQL = strSQL & "'" &  request.form("tlf")& "', "
strSQL = strSQL & "'" &  request.form("fax")& "', "
strSQL = strSQL & "'" &  request.form("email")& "', "
strSQL = strSQL & "'" &  request.form("hp")& "')"

conn.execute(strSQL)
response.redirect("retdb.asp?x=medlem")
End if
%>


<!-- ---------------- Paragraffer --------------------- -->
<%
if request.querystring("action") = "sletpara" Then
strSQL = "Delete from vedtaegter where id = " & cint(request.querystring("del"))
Conn.Execute(strSQL)
response.redirect("retdb.asp?x=paragraf")
end if
if request.form("action") = " Gem Paragraffer " Then

range = split(request.form("id"),",")
y=lbound(range)
z=ubound(range)
for x=range(y) to range(z)

strSQL = "Update vedtaegter set "

strSQL = strSQL & "paragraf= '" & request.form("paragraf"&x) & "',"
strSQL = strSQL & "overskrift= '" & request.form("overskrift"&x) & "',"
strSQL = strSQL & "tekst= '" & request.form("tekst"&x) & "'"
strSQL = strSQL & " Where id = "& x

conn.execute(strSQL)

next

response.redirect("retdb.asp?x=paragraf")
end if
%>
<!-- ---------------- Nyt Medlem --------------------- -->
<%
   
if request.querystring("x") = "nypara" Then
strSQL = "insert into vedtaegter ("
strSQL = strSQL & "paragraf, "
strSQL = strSQL & "overskrift, "
strSQL = strSQL & "tekst) "

strSQL = strSQL & "values( "

strSQL = strSQL & "'" & request.form("paragraf")& "', "
strSQL = strSQL & "'" &  request.form("overskrift")& "', "
strSQL = strSQL & "'" &  request.form("tekst")& "')"

conn.execute(strSQL)
response.redirect("retdb.asp?x=paragraf")
End if
%>


<%
' Luk databaseforbindelse
Conn.Close
Set Conn = Nothing
%>


Håber at I kan hjælpe mig ..

Der er 200 points at hente efter at jeg ikke ved hvor meget arbejde der er med det :)