Errore si, ma di che tipo?

[kobra33]

Salve, in un sito dinamico ho creato una pagina di modifica/eliminazione di prodotti alla quale si arriva dopo aver effettuato una normalissima ricerca, la quale passa poi i dati del prodotto selezionato alla pagina di eliminazione o modifica, a questo punto incorro nella pagina di errore che riporta:

Tipo di errore:
ADODB.Command (0x800A0BB9)
Gli argomenti non sono di tipo valido, non sono compresi nell'intervallo consentito o sono in conflitto.

Cosa significa? Credo che centri qualcosa il DB o no?
Aiuto!!!

[maximum]

Senza un po' di codice è difficile aiutarti...

[kobra33]

Certo scusate ecco il codice asp:

<%@LANGUAGE="VBSCRIPT"%>
<%
' *** Restrict Access To Page: Grant or deny access to this page
MM_authorizedUsers=""
MM_authFailedURL="../default.asp"
MM_grantAccess=false
If Session("MM_Username") <> "" Then
If (true Or CStr(Session("MM_UserAuthorization"))="") Or _
(InStr(1,MM_authorizedUsers,Session("MM_UserAuthor ization"))>=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
%>
<%
' *** Edit Operations: declare variables

MM_editAction = CStr(Request("URL"))
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 = ""
%>
<%
' *** Update Record: set variables

If (CStr(Request("MM_update")) <> "" And CStr(Request("MM_recordId")) <> "") Then

MM_editConnection = MM_fg_STRING
MM_editTable = "tbProducts"
MM_editColumn = "Product_No"
MM_recordId = "'" + Request.Form("MM_recordId") + "'"
MM_editRedirectUrl = "admin_update_confirmation.asp"
MM_fieldsStr = "Product_No|value|Title|value|Description|value|Ep isode_Title|value|Air_Date|value|Genre|value|Photo _URL|value|Spotlight|value|Price|value"
MM_columnsStr = "Product_No|',none,''|Title|',none,''|Description| ',none,''|Episode_Title|',none,''|Air_Date|',none, NULL|Genre|',none,''|Photo_URL|',none,''|Spotlight |',none,''|Price|none,none,NULL"

' create the MM_fields and MM_columns arrays
MM_fields = Split(MM_fieldsStr, "|")
MM_columns = Split(MM_columnsStr, "|")

' set the form values
For i = LBound(MM_fields) To UBound(MM_fields) Step 2
MM_fields(i+1) = CStr(Request.Form(MM_fields(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
%>
<%
' *** Update Record: construct a sql update statement and execute it

If (CStr(Request("MM_update")) <> "" And CStr(Request("MM_recordId")) <> "") Then

' create the sql update statement
MM_editQuery = "update " & MM_editTable & " set "
For i = LBound(MM_fields) To UBound(MM_fields) Step 2
FormVal = MM_fields(i+1)
MM_typeArray = Split(MM_columns(i+1),",")
Delim = MM_typeArray(0)
If (Delim = "none") Then Delim = ""
AltVal = MM_typeArray(1)
If (AltVal = "none") Then AltVal = ""
EmptyVal = MM_typeArray(2)
If (EmptyVal = "none") Then EmptyVal = ""
If (FormVal = "") Then
FormVal = EmptyVal
Else
If (AltVal <> "") Then
FormVal = AltVal
ElseIf (Delim = "'") Then ' escape quotes
FormVal = "'" & Replace(FormVal,"'","''") & "'"
Else
FormVal = Delim + FormVal + Delim
End If
End If
If (i <> LBound(MM_fields)) Then
MM_editQuery = MM_editQuery & ","
End If
MM_editQuery = MM_editQuery & MM_columns(i) & " = " & FormVal
Next
MM_editQuery = MM_editQuery & " where " & MM_editColumn & " = " & MM_recordId

If (Not MM_abortEdit) Then
' execute the update
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 rsProductUpdate__MMColParam
rsProductUpdate__MMColParam = "1"
if (Request.QueryString("Product_No") <> "") then rsProductUpdate__MMColParam = Request.QueryString("Product_No")
%>
<%
set rsProductUpdate = Server.CreateObject("ADODB.Recordset")
rsProductUpdate.ActiveConnection = MM_fg_STRING
rsProductUpdate.Source = "SELECT Product_No, Title, Description, Episode_Title, Air_Date, Genre, Photo_URL, Spotlight, Price FROM tbProducts WHERE Product_No = '" + Replace(rsProductUpdate__MMColParam, "'", "''") + "'"
rsProductUpdate.CursorType = 0
rsProductUpdate.CursorLocation = 2
rsProductUpdate.LockType = 3
rsProductUpdate.Open()
rsProductUpdate_numRows = 0
%>

Grazie 1000

[kobra33]

nessuno che mi possa aiutare?

[Vitacillina]

La connessione al db?

[kobra33]

in che senso scusa? Mi spiego la connessione funziona perfettamente con le altre pagine di ricerca sul db ed anche l'inserimento. Intendi la stringa di connessione per la pagina che ho postato?

[Vitacillina]

Originariamente inviato da kobra33
Intendi la stringa di connessione per la pagina che ho postato?

Si.

[kobra33]

ad ogni modo eccola:



Questa è presente solo nella apgina dalla quale l'amministratore ovviamente si logga e poi può scorrazzare per le pagine del sito e dovrebbe poter inserire (e funziona), cancellare (non funziona) e modificare (e non funziona) i record come vuole

[Vitacillina]

Mi devi postare il codice della pagina fg.asp

[kobra33]

certo scusa

<%
' FileName="Connection_odbc_conn_dsn.htm"
' Type="ADO"
' HTTP="false"
' Catalog=""
' Schema=""
MM_fg_STRING = "dsn=ud4;"
%>

grazie