<% Set Conn = Server.CreateObject("ADODB.Connection") BdConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\Domains\antonioautopecas.com.br\db\conteudo.mdb;" conn.Open BdConn sql = "SELECT * FROM produtos WHERE Codigo =" sql = sql & Request.QueryString("Codigo") Session("Codigo")=Request.QueryString("Codigo") Set RS = Conn.Execute(sql) figura = "imagens/" & RS("Codigo") & "g.jpg" FUNCTION FileExists (ByVal FileName) on error resume next FileName = Server.MapPath (FileName) Set FileObject = Server.CreateObject("Scripting.FileSystemObject") Set InStream = FileObject.OpenTextFile (FileName, 1, FALSE, FALSE) if err = 0 then FileExists = TRUE else FileExists = FALSE end if end Function %>

Produtos / Detalhes

<%Response.Write RS("marca")%> / <%Response.Write RS("categoria")%>

<%Response.Write RS("nome")%>

<%Response.Write RS("descricao")%>

<% ' dim minhagaleria ' minhagaleria = RS("marca") %> <%rs.Close %>

<% sql = "SELECT * FROM produtos WHERE destaque = 'S' and codigo <> " & request.QueryString("codigo") & " order by codigo desc" Set RS = Conn.Execute(sql) Cont = 0 %> Confira outros produtos em ofertas! <%Do While (Not RS.EOF) AND (Cont < 10)%> "><%=RS("nome")%> <%RS.MoveNext Cont = Cont + 1 Loop%>