Har lagt upp denna kod på brikster men får den inte att funka:
----------------------------------------------------------------------------------
Microsoft OLE DB Provider for ODBC Drivers error '80004005'
[Microsoft][ODBC Microsoft Access Driver] Cannot update. Database or object is read-only.
/mappesajt/koll.asp, line 37
-----------------------------------------------------------------------------------
Den är inte skrivselskyddad
koden ser ut så här och den funkar på hårdisken:
-----------------------------------------------------------------------------------
<!-- #include virtual="/mappesajt/adovbs.asp" -->
<% chattnamn1 = Request.Form("chattnamn")
chattnamn1 = Server.HTMLEncode(chattnamn1)
chattnamn1 = Replace(chattnamn1, "'", "") %>
<% If Request.Form("chattnamn") <> "" Then
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath ("\mappesajt\db\asd.mdb")
Set RecSet = Server.CreateObject("ADODB.RecordSet")
Kolla = "SELECT* FROM online ORDER BY chattnamn"
RecSet.Open Kolla, conn, adOpenStatic, adLockOptimistic
Do Until RecSet.EOF
If chattnamn1 = RecSet("chattnamn") Then
Session("med") = "Finns redan någon som använder det chattnamnet, ta nått annant"
Response.Redirect "start.asp"
End If
RecSet.MoveNext
Loop
If Request.Form("kon") = "kille" Then
kon = "#0000FF"
Else
kon = "#FF0000"
End If
RecSet.Addnew
RecSet("chattnamn") = chattnamn1
RecSet("kon") = kon
RecSet.Update /////////rad 37
RecSet.Close
conn.Close
Session("chattnamn") = chattnamn1
Session("kon") = kon
Session("godkand") = "ja"
Response.Redirect "chatt.asp"
ElseIf chattnamn1 = "" Then
Session("med") = "Du måste skriva in ett chattnamn först"
Response.Redirect "start.asp"
End If
%>
-----------------------------------------------------------------------------------