NetBazar - Artesanato - Estande Virtual

") Response.write("") Response.write("") Response.write("") Response.write("") Response.write("") Response.write("") rs.movenext wend %>

Trabalhos

DICA!	Clique na foto do trabalho para ampliá-lo e ler os comentários de expositores e visitantes.

<% 'Busca todos os produtos/trabalhos deste Expositor sqlstmt = "SELECT * FROM Produtos WHERE CodCliente =" & CodCliente & " ORDER BY Data DESC" Set rs = Server.CreateObject("ADODB.Recordset") Set rs.ActiveConnection = strConnect rs.CursorType = adOpenStatic rs.open sqlstmt while not rs.eof CodProduto = rs("CodProduto") preco = rs("Preco") preco = FormatNumber(preco,2) 'Seleciona na tabela Comentarios todos os comentarios publicadados 'pelos visitantes sobre o trabalho que esta sendo visto sqlstmtb = "SELECT * FROM Comentarios Where CodProduto ="& CodProduto Set rs3 = Server.CreateObject("ADODB.Recordset") Set rs3.ActiveConnection = strConnect rs3.CursorType = adOpenStatic rs3.open sqlstmtb 'Calcula a quantidade de comentários para este trabalho totalcomentarios = 0 While NOT rs3.EOF AND NOT rs3.BOF totalcomentarios = totalcomentarios + 1 rs3.MoveNext() Wend Response.write("
") Response.write ("") Response.write("	") Response.write ("Descrição: " & TRIM(rs("Descricao")) & " ") Response.write ("Preço: R$" & preco & " ") Response.write ("Atualizado em: " & rs("Data") & " ") 'Response.write ("Preço: " & "R$" & rs("Preco") & " ") Response.write ("Visitas: " & rs("Visitas") & " ") response.write("Comentários: " & totalcomentarios) Response.write("
") Response.Write("