if request("productId") <> "" then

Set objRS = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT * FROM " &strDbTable& "prodotti WHERE p_status=1 AND idProdotto = "&request("productId")&" ORDER BY p_nome;"
objRS.Open strSQL, DFCon, 1, 1
If Not objRS.EOF Then

While Not objRS.EOF
codProdotto = objRS("p_codice")
descProdotto = objRS("p_desc")
prezzoProdotto = objRS("p_prezzo")
objRS.MoveNext
Wend
End if

strProdotto = codProdotto&"|||"&descProdotto&"|||"&prezzoProdott o
' xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxx
response.write = codProdotto&"|||"&descProdotto&"|||"&prezzoProdott o
'xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxx
end if