Ciao a tutti. qualcuno sa indicarmi come risolvere questo problema?
Ho due pc: 1° Windows 2000 Office 97 - 2° windows XP Sp2 Office 2003. Su entrambi ho installato IIS 5.1 per testare le pagine web dinamiche. Su entrambe le macchine ho creato un piccolo database di prova che ha una sola tabella che devo usare per inserire dei dati.
Di seguito ho riportato il codice per un semplice form di inserimento. Qualcuno sa dirmi perchècon lo stesso codice se utilizzato sulla macchina con Windows 2000 funziona mentre su quella con Win WX mi da questo errore? Visto che il codeic eè lo stesso credo sia un problema di IIS ..Grazie in anticipo se qualcuno può dirmi come risolvere questo problema. Ciao!


Tipo di errore:
Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
[Microsoft][Driver ODBC Microsoft Access] Per l'operazione è necessaria una query aggiornabile.
/prova2/Untitled-1.asp, line 115









<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>



<%

' *** 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 & "?" & Server.HTMLEncode(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")) = "form1") Then



MM_editConnection = MM_jj_STRING

MM_editTable = "Tabella1"

MM_editRedirectUrl = ""

MM_fieldsStr = "nome|value|cognome|value"

MM_columnsStr = "nome|',none,''|cognome|',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

%>

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">

<html xmlns="http://www.w3.org/1999/xhtml">

<head>

<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />

<title>Documento senza titolo</title>

</head>



<body>

<form method="post" action="<%=MM_editAction%>" name="form1">

<table align="center">

<tr valign="baseline">

<td nowrap align="right">Nome:</td>

<td><input type="text" name="nome" value="" size="32">

</td>

</tr>

<tr valign="baseline">

<td nowrap align="right">Cognome:</td>

<td><input type="text" name="cognome" value="" size="32">

</td>

</tr>

<tr valign="baseline">

<td nowrap align="right"></td>

<td><input type="submit" value="Inserisci record">

</td>

</tr>

</table>

<input type="hidden" name="MM_insert" value="form1">

</form>



</p>

</body>

</html>