Hej jag har laddat ner en e-shop här på pellsoft.nu och jag får förljande felmeddalnde:
Error Type:
Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
[Microsoft][ODBC Microsoft Access Driver] Operation must use an updateable query.
/pelle/shCustomerRegister_treat.asp, line 47


Detta är : shCustomerRegister_treat.asp

<% Option Explicit ' Vi vill ha koll på våra variabler
%><!--#include file="prevent_cache.asp"--><!--#include file="connection.asp"--><!--#include file="functions.asp"--><%
Dim numRecords, v
Dim shBasket, TotalPrice, SQL
Dim fname, lname, email, address, postalcode, city, password, phone, registrationDate

IF Request("HTTP_METHOD") <> "POST" THEN Response.End ' Förhindrar att man gör något annat än POST:ar formuläret

' Vi lägger till att börja med in all information i variabler!
fname = Request.Form("fname")
lname = Request.Form("lname")
email = Request.Form("email")
address = Request.Form("address")
postalcode = Request.Form("postalcode")
city = Request.Form("city")
phone = Request.Form("phone")
password = Request.Form("password1")
registrationDate = Now()

' Då börjar vi bygga SQL-strängen då...
SQL = "INSERT INTO shCustomers (fname,lname,email,address,postalcode,city,phone,password,registrationDate,lastLogin)"

SQL=SQL & " VALUES (" & _
"'" & FormatSQL(fname) & "', '" & FormatSQL(lname) & "', " & _
"'" & FormatSQL(email) & "', '" & FormatSQL(address) & "', " & _
"'" & FormatSQL(postalcode) & "', '" & FormatSQL(city) & "', " & _
"'" & FormatSQL(phone) & "', '" & FormatSQL(password) & "', " & _
"'" & registrationDate & "','" & registrationDate & "')"


'// Ta bort kommentaren för följande rad för att se SQL-strängen
'Response.Write SQL : Response.End

' Vi kan inte ha två likadana e-post adresser, eftersom det är användarnamnet...
Set Rs = Conn.Execute("SELECT id FROM shCustomers WHERE email='" & FormatSQL(email) & "'")
IF Not Rs.Eof Then
Conn.Close
Set Rs = Nothing
Set Conn = Nothing

Response.write "Den e-post adressen finns redan registrerad."
' Här kan man ju hoppa till en annan sida, eller vad som helst...
Response.End
End If

' Vi exekverar!
Conn.Execute SQL <------------------- Line 47

Set Rs = Conn.Execute("SELECT @@IDENTITY As last_inserted_id")

IF Not Rs.Eof Then

IF Rs.Fields("last_inserted_id").Value <> 0 THEN
' Okej! Användaren är skapad...
' Här kan man ju skicka iväg ett mail till användaren, med lösenord och användarnamn etc...
' Vi loggar in!
Session("shCustomerID") = Rs.Fields("last_inserted_id").Value
Session("shCustomerFname") = fname
Session("shCustomerLname") = lname
End If
End if

' CleanUp

Conn.Close
Set Rs = Nothing
Set Conn = Nothing

' Redirect
IF Session("shCustomerID")<>"" THEN
Response.Redirect "shCheckout.asp"
Response.End
Else
Response.Write "Ett fel uppstod!": response.end
END IF


%>

Nån som vill hjälpa mig!

Ändra rättigheterna vär IIS användarkontot att ha skrivrättigheter till databasen...