If Request.Form("action") = "find" Then
Dim Errore
strCod_Art = Request.Form("cod_art")
If Len(strCod_Art) = 0 Then
Errore = True
Response.Write "<span class=""smalltext"">Inserire il CODICE ARTICOLO!</span><br />"
End If
If Not Errore Then
set objTapRs = Server.CreateObject("ADODB.Recordset")
strTapSQL = "SELECT * FROM "&strTapTablePrefix&"Prodotti WHERE Cod_Art = "&strCod_Art
objTapRs.Open strTapSQL, objTapConn
If Not objTapRs.EOF Then
%>
<table width="600" border="1">
<tr>
<%
Response.Write("<td>"&objTapRs("Nome")&"</td>")
%>
<td> </td>
<td> </td>
<td> </td>
<td> </td>
</tr>
</table>
<%
End If
objTapRs.Close
End If 'chiude l'errore
'Reset Server Objects
Set objTapRs = Nothing
'objTapConn.Close
Set objTapConn = Nothing
End If 'fine parte findCon questo codice dovrei estrarre un record in base al codice articolo.
La funzione di errore va correttamente, se invece cerco il codice mi esce questo errore:
Microsoft JET Database Engine (0x80040E10)
Nessun valore specificato per alcuni parametri necessari.
RIGA: objTapRs.Open strTapSQL, objTapConn
Ho stampato la SQL ed è corretta. Cosa può essere?
