<%
Set setCon = new Conn
setCon.strType = "MySQL"
setCon.strServer = "75.125.79.122"
setCon.strDB = "jessepi_bluehand"
setCon.strUser = "bluehand"
setCon.strPass = "whitedog"
Function Pdt()
Dim SQL
Dim Values
Dim Html
SQL = "SELECT idproduto, nome_produto, descricao_produto, imagem_g FROM produtos p"
SQL = SQL & " INNER JOIN categorias ON idcategoria = categorias_idcategoria"
SQL = SQL & " WHERE destaque = 1 AND projetos_idprojeto = 5"
SQL = SQL & " ORDER BY destaque DESC, nome_produto ASC"
'Response.Write(SQL)
Values = setCon.Exec(SQL)
Html = ""
if IsArray(Values) then
Html = Html & "
Destaques
"
For i = 0 to uBound(Values, 2)
Html = Html & "
"
Html = Html & "
" & Values(1,i) & "
"
Html = Html & "
"
Html = Html & "
" & formatBR(Values(2,i)) & "
"
Html = Html & "
"
Next
End If
Response.Write(Html)
End Function
%>