<% Dim cnnSimple Dim strDBPath strDBPath = Server.MapPath("../private/basededados.mdb") Set cnnSimple = Server.CreateObject("ADODB.Connection") cnnSimple.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBPath & ";" %>

<% pid = Request.QueryString("id") psfamilia = Request.QueryString("sf") Set rstSimple = cnnSimple.Execute("SELECT * FROM Tbl_produto,Tbl_familia WHERE id_prod=" & pid & " AND tbl_produto.familia = Tbl_familia.id_familia") %>

<%=psfamilia%>

" width="500" alt="" border="0">

<%=rstSimple("txt").Value%>