% strSql = "select top 4 * From qryCategoriasProdutos Where PublicaHome = 1" Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open Application("Connection") Set RS = Server.CreateObject("ADODB.RecordSet") RS.Open strSql, Conn, 1, 2 'If (Trim(RS("IdProduto")) & "x") <> "x" Then ' Session("IdProduto") = RS("IdProduto") ' Session("Imagem") = RS("Imagem") 'End If %>
|