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>&nbsp;</td>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
    <td>&nbsp;</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 find