[ASP] Insert probleem, geen updateable query?

[OkkE]

_{Warning: ASP n00b!}
Ik ben sinds een week bezig met ASP (gebruik DreamWeaver MX), maar nu krijg ik de Insert Record maar niet aan de praat. En uit de Search & tutorials wordt ik ook niet wijzer. De error is de volgende:

code:

Error Type:
Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
[Microsoft][ODBC Microsoft Access Driver] Operation must use an updateable query.
/adminDivx.asp, line 115

En hier is de ASP pagina waar het om gaat. Een hele hoop onoverzichtelijke Dreamweaver code inderdaad, maar zonder DW lukt het me nog niet.

Regels 110 tot 116:

code:

  If (Not MM_abortEdit) Then
    ' execute the insert
    Set MM_editCmd = Server.CreateObject("ADODB.Command")
    MM_editCmd.ActiveConnection = MM_editConnection
    MM_editCmd.CommandText = MM_editQuery
    MM_editCmd.Execute
    MM_editCmd.ActiveConnection.Close

Maar de fout zit denk ik eerder, 115 is alleen de regel die het daadwerkelijk uitvoerd..
Daarom hieronder de hele code:

code:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!--#include file="Connections/divx.asp" -->
<%
' *** Edit Operations: declare variables

Dim MM_editAction
Dim MM_abortEdit
Dim MM_editQuery
Dim MM_editCmd

Dim MM_editConnection
Dim MM_editTable
Dim MM_editRedirectUrl
Dim MM_editColumn
Dim MM_recordId

Dim MM_fieldsStr
Dim MM_columnsStr
Dim MM_fields
Dim MM_columns
Dim MM_typeArray
Dim MM_formVal
Dim MM_delim
Dim MM_altVal
Dim MM_emptyVal
Dim MM_i

MM_editAction = CStr(Request.ServerVariables("SCRIPT_NAME"))
If (Request.QueryString <> "") Then
  MM_editAction = MM_editAction & "?" & Request.QueryString
End If

' boolean to abort record edit
MM_abortEdit = false

' query string to execute
MM_editQuery = ""
%>
<%
' *** Insert Record: set variables

If (CStr(Request("MM_insert")) = "addRecord") Then

  MM_editConnection = MM_divx_STRING
  MM_editTable = "titel"
  MM_editRedirectUrl = "adminDivx.asp?errorMsg=Movie%20added"
  MM_fieldsStr  = "titel|value|mbs|value|formaat|value|genreLijst|value|opmerkingen|value|imdb url|value"
  MM_columnsStr = "titel|',none,''|mbs|none,none,NULL|formaat|',none,''|genre|',none,''|opmerkingen|',none,''|[imdb url]|',none,''"

  ' create the MM_fields and MM_columns arrays
  MM_fields = Split(MM_fieldsStr, "|")
  MM_columns = Split(MM_columnsStr, "|")
  
  ' set the form values
  For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2
    MM_fields(MM_i+1) = CStr(Request.Form(MM_fields(MM_i)))
  Next

  ' append the query string to the redirect URL
  If (MM_editRedirectUrl <> "" And Request.QueryString <> "") Then
    If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0 And Request.QueryString <> "") Then
    MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString
    Else
    MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString
    End If
  End If

End If
%>
<%
' *** Insert Record: construct a sql insert statement and execute it

Dim MM_tableValues
Dim MM_dbValues

If (CStr(Request("MM_insert")) <> "") Then

  ' create the sql insert statement
  MM_tableValues = ""
  MM_dbValues = ""
  For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2
    MM_formVal = MM_fields(MM_i+1)
    MM_typeArray = Split(MM_columns(MM_i+1),",")
    MM_delim = MM_typeArray(0)
    If (MM_delim = "none") Then MM_delim = ""
    MM_altVal = MM_typeArray(1)
    If (MM_altVal = "none") Then MM_altVal = ""
    MM_emptyVal = MM_typeArray(2)
    If (MM_emptyVal = "none") Then MM_emptyVal = ""
    If (MM_formVal = "") Then
    MM_formVal = MM_emptyVal
    Else
    If (MM_altVal <> "") Then
      MM_formVal = MM_altVal
    ElseIf (MM_delim = "'") Then  ' escape quotes
      MM_formVal = "'" & Replace(MM_formVal,"'","''") & "'"
    Else
      MM_formVal = MM_delim + MM_formVal + MM_delim
    End If
    End If
    If (MM_i <> LBound(MM_fields)) Then
    MM_tableValues = MM_tableValues & ","
    MM_dbValues = MM_dbValues & ","
    End If
    MM_tableValues = MM_tableValues & MM_columns(MM_i)
    MM_dbValues = MM_dbValues & MM_formVal
  Next
  MM_editQuery = "insert into " & MM_editTable & " (" & MM_tableValues & ") values (" & MM_dbValues & ")"

  If (Not MM_abortEdit) Then
    ' execute the insert
    Set MM_editCmd = Server.CreateObject("ADODB.Command")
    MM_editCmd.ActiveConnection = MM_editConnection
    MM_editCmd.CommandText = MM_editQuery
    MM_editCmd.Execute
    MM_editCmd.ActiveConnection.Close

    If (MM_editRedirectUrl <> "") Then
    Response.Redirect(MM_editRedirectUrl)
    End If
  End If

End If
%>
<%
Dim errorMsg
errorMsg = ""
If (Request.QueryString("errorMsg") <> "") Then
    errorMsg = Request.QueryString("errorMsg")
End if
%>

<%
' *** Restrict Access To Page: Grant or deny access to this page
MM_authorizedUsers="admin"
MM_authFailedURL="divx.asp"
MM_grantAccess=false
If Session("MM_Username") <> "" Then
  If (false Or CStr(Session("MM_UserAuthorization"))="") Or _
       (InStr(1,MM_authorizedUsers,Session("MM_UserAuthorization"))>=1) Then
    MM_grantAccess = true
  End If
End If
If Not MM_grantAccess Then
  MM_qsChar = "?"
  If (InStr(1,MM_authFailedURL,"?") >= 1) Then MM_qsChar = "&"
  MM_referrer = Request.ServerVariables("URL")
  if (Len(Request.QueryString()) > 0) Then MM_referrer = MM_referrer & "?" & Request.QueryString()
  MM_authFailedURL = MM_authFailedURL & MM_qsChar & "accessdenied=" & Server.URLEncode(MM_referrer)
  Response.Redirect(MM_authFailedURL)
End If
%>
<%
Dim listAllTitle
Dim listAllTitle_numRows

Set listAllTitle = Server.CreateObject("ADODB.Recordset")
listAllTitle.ActiveConnection = MM_divx_STRING
listAllTitle.Source = "SELECT * FROM titel ORDER BY titel ASC"
listAllTitle.CursorType = 0
listAllTitle.CursorLocation = 2
listAllTitle.LockType = 1
listAllTitle.Open()

listAllTitle_numRows = 0
%>
<%
Dim listAllGenre
Dim listAllGenre_numRows

Set listAllGenre = Server.CreateObject("ADODB.Recordset")
listAllGenre.ActiveConnection = MM_divx_STRING
listAllGenre.Source = "SELECT * FROM genre ORDER BY genre ASC"
listAllGenre.CursorType = 0
listAllGenre.CursorLocation = 2
listAllGenre.LockType = 1
listAllGenre.Open()

listAllGenre_numRows = 0
%>
<html>
<head>
<title>lijst</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link rel="stylesheet" href="divx.css">
</head>

<body>
<form action="" method="get" name="listMovies">
  
  <select name="movieLijst" size="10" id="movieLijst">
    <%
While (NOT listAllTitle.EOF)
%>
    <option value="<%=(listAllTitle.Fields.Item("titel").Value)%>" <%If (Not isNull((listAllTitle.Fields.Item("titel").Value))) Then If (CStr(listAllTitle.Fields.Item("titel").Value) = CStr((listAllTitle.Fields.Item("titel").Value))) Then Response.Write("SELECTED") : Response.Write("")%> ><%=(listAllTitle.Fields.Item("titel").Value)%></option>
    <%
  listAllTitle.MoveNext()
Wend
If (listAllTitle.CursorType > 0) Then
  listAllTitle.MoveFirst
Else
  listAllTitle.Requery
End If
%>
  </select>
  <p>..</p></form>
<form ACTION="<%=MM_editAction%>" METHOD="POST" name="addRecord">
  
  
  <table cellspacing="0" cellpadding="2">
    
    <tr> 
      <td>Titel:</td>
      <td><input type="text" name="titel"></td>
    </tr>
    <tr> 
      <td>MBs:</td>
      <td><input type="text" name="mbs"></td>
    </tr>
    <tr> 
      <td>Formaat:</td>
      <td><input type="text" name="formaat"></td>
    </tr>
    <tr> 
      <td>Genre:</td>
      <td><select name="genreLijst" id="select">
          <%
While (NOT listAllGenre.EOF)
%>
          <option value="<%=(listAllGenre.Fields.Item("genre").Value)%>" <%If (Not isNull((listAllGenre.Fields.Item("genre").Value))) Then If (CStr(listAllGenre.Fields.Item("genre").Value) = CStr((listAllGenre.Fields.Item("genre").Value))) Then Response.Write("SELECTED") : Response.Write("")%> ><%=(listAllGenre.Fields.Item("genre").Value)%></option>
          <%
  listAllGenre.MoveNext()
Wend
If (listAllGenre.CursorType > 0) Then
  listAllGenre.MoveFirst
Else
  listAllGenre.Requery
End If
%>
        </select></td>
    </tr>
    <tr> 
      <td>Opmerkingen:</td>
      <td><input type="text" name="opmerkingen"></td>
    </tr>
    <tr> 
      <td>IMDB URL:</td>
      <td><input type="text" name="imdb url"></td>
    </tr>
    <tr>
      <td colspan="2" align="right"> 
<p><input type="submit" name="Submit" value="Add movie"></p></td></tr>
  </table>

  <input type="hidden" name="MM_insert" value="addRecord">
</form>
<p><%=Replace(errorMsg, "'", "''") %></p>
<p>User: <%=session("MM_Username")%><br>Status: <%=session("MM_UserAuthorization")%></p>
<p><a href="divx.asp">members Divx.asp</a><br>
  <a href="divx2.asp">visitors Divx2.asp</a></p>
</body>
</html>
<%
listAllTitle.Close()
Set listAllTitle = Nothing
%>
<%
listAllGenre.Close()
Set listAllGenre = Nothing
%>

[Error65]

Het is geen script probleem maar een probleem met de rechten! Ik heb dit probleem ook al een aantal keer gehad en het opgelost door de rechten aan te passen!

[OkkE]

Op vrijdag 21 juni 2002 19:18 schreef Error65 het volgende:
Het is geen script probleem maar een probleem met de rechten!

Ohh, maar ik heb wel write, read & script source acces..

// EDIT:
Welke rechten moet ik aanpassen dan? Ik ben zelf Admin op deze Win2k pc, en op de webserver heb ik Read en Write rechts. Moet toch voldoende zijn dacht ik zo..

[Sponge]

Wat vaak helpt, bij mij dan is de error in zn GEHEEL in google te plakken. Vaak krijg je dan een MSDN pagina, of iets anders waar vaak het antwoord staat.

of de code die je erbij krijg (meestal iets van c800xxx), die gewoon in google plakken.

Deze methode gebruik ik heel vaak met ASP foutmeldingen, en je krijgt altijd wel iets bruikbaars terug.

[lexited]

http://www.webwizguide.com/asp/faq/server_permissions.asp

hier staat de oplossing.

[OkkE]

Op vrijdag 21 juni 2002 19:39 schreef lexited het volgende:
http://www.webwizguide.com/asp/faq/server_permissions.asp

hier staat de oplossing.

Ahh heel erg bedankt! Dit was inderdaad het probleem.

[WimB]

Ik heb het bovenstaande probleem in Windows XP. Hoe kan ik Windows XP instellen om schrijfpermissie aan een map te geven? Want als ik kijk hoe het onder Win2k moet, dan staan deze opties er onder WinXP helemaal niet bij.

[Annie]

De "simple file sharing" optie kan je wijzigen in:
Windows Explorer >> Tools >> Folder Options >> View

Daarna kan je de afzonderlijke file permissions aanpassen.

meer info (inclusief filmpje, MS gaat wel heel erg ver af en toe )

[WimB]

Op woensdag 03 juli 2002 21:54 schreef Annie het volgende:
De "simple file sharing" optie kan je wijzigen in:
Windows Explorer >> Tools >> Folder Options >> View

Daarna kan je de afzonderlijke file permissions aanpassen.

meer info (inclusief filmpje, MS gaat wel heel erg ver af en toe )

"Eenvoudig delen van bestanden gebruiken" staat aangevinkt, bedoel je dat?

[gorgi_19]

Die moet je uitvinken