<% Option Explicit Response.Buffer = True Response.Expires = -1024 Dim strQuery, intIddoc, rsProdotti , intConta, strDescrizione %> <!-- #INCLUDE FILE="conndatabase.inc"--> <% strDescrizione = Request.QueryString("DES") strQuery = "SELECT * FROM articoli WHERE articolodesc=" & “’” & strDescrizione & "'" & " ORDER BY promozione DESC" Set rsProdotti = connDB.Execute(strQuery) %> |