RecuperoDati

[Giuseppe C]

Ciao a tutti, ho un problemino, vorrei recuperare i dati di un db, usando come filtro un datodi un'altro recordset presente nella pagina stessa, cioè:

il record set "QuantitaProdotto" carica i dati usando come filtro il campo "Quantita" del RecordSet "OrdineEffettuato"

come mai recuperando i dati con questo sistema:

<%
Dim QuantitaProdotto__MMColParam
QuantitaProdotto__MMColParam = "(OrdineEffettuato.Fields.Item("Quantita").Value)"
If (Request("MM_EmptyValue") <> "") Then 
  QuantitaProdotto__MMColParam = Request("MM_EmptyValue")
End If
%>
<%
Dim QuantitaProdotto
Dim QuantitaProdotto_numRows

Set QuantitaProdotto = Server.CreateObject("ADODB.Recordset")
QuantitaProdotto.ActiveConnection = MM_ConnessioneImpericaweb_STRING
QuantitaProdotto.Source = "SELECT * FROM Offertissime_quantità_valori WHERE id_quantita = '" + Replace(QuantitaProdotto__MMColParam, "'", "''") + "'"
QuantitaProdotto.CursorType = 0
QuantitaProdotto.CursorLocation = 2
QuantitaProdotto.LockType = 1
QuantitaProdotto.Open()

QuantitaProdotto_numRows = 0
%>

mi da questo errore?

Microsoft VBScript compilation error '800a0401'

Expected end of statement

/area_riservata/Offertissime/ordine_ok2.asp, line 67

QuantitaProdotto__MMColParam = "(OrdineEffettuato.Fields.Item("Quantita").Val ue)"
---------------------------------------------------------------^

Grazie tante per l'aiuto....

[Giuseppe C]

ho modificato così:

<%
Dim QuantitaProdotto__MMColParam
QuantitaProdotto__MMColParam = "(OrdineEffettuato.Quantita)"
If (Request("MM_EmptyValue") <> "") Then 
  QuantitaProdotto__MMColParam = Request("MM_EmptyValue")
End If
%>
<%
Dim QuantitaProdotto
Dim QuantitaProdotto_numRows

Set QuantitaProdotto = Server.CreateObject("ADODB.Recordset")
QuantitaProdotto.ActiveConnection = MM_ConnessioneImpericaweb_STRING
QuantitaProdotto.Source = "SELECT * FROM Offertissime_quantità_valori WHERE id_quantita = '" + Replace(QuantitaProdotto__MMColParam, "'", "''") + "'"
QuantitaProdotto.CursorType = 0
QuantitaProdotto.CursorLocation = 2
QuantitaProdotto.LockType = 1
QuantitaProdotto.Open()

QuantitaProdotto_numRows = 0
%>

ora mida questo errore:

ADODB.Field error '800a0bcd'

Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record.

/area_riservata/Offertissime/ordine_ok2.asp, line 164

che faccio? chi mi aiuta?