<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"> <html> <head> <title>:: Visualizar TBSBR Fanlist ::</title> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> </head> <% Dim id, nome, cidade, estado Dim conObj Set conObj = Server.CreateObject("ADODB.Connection") conObj.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("dados/fanlist.mdb") & ";" Dim SQL SQL = ("SELECT FROM fans (nome, email, cidade, estado) WHERE id = '"& id &"', nome = '"& nome &"', cidade = '"& cidade &"', estado = '"& estado &"'") Dim rs Set rs = conObj.Execute(sql) %> <body> <div align="center"><font color="#000000" size="1" face="Tahoma"><strong><font size="2">:: Visualizar TBSBR Fanlist ::<br> <br> </font></strong></font> <table width="39%" border="0"> <tr> <td width="10%"><% id %></td> <td width="90%"><% nome %></td> </tr> <tr> <td><% estado %></td> <td><% cidade %></td> </tr> </table> </div> </body> </html>