codice:
<html>

<head>
<title>Nome</title>
</head>
<body>

 

<%
dim voce
voce=request.QueryString("Voce")


if voce="E-mail" then
sql="SELECT * from CLIENT where F_EMAIL<>''"
set rs=conn.execute(sql)
else
sql="SELECT * from CLIENT where F_CAPCLI=73039 order by F_Ragsoc asc"
set rs=conn.execute(sql)
end if
%>

<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" id="AutoNumber1" height="38">
  <tr>
    <td height="22" style="border-style: solid; border-width: 1; padding: 1"><font size="2" face="Verdana">Nome</font></td>
    <td height="22" style="border-style: solid; border-width: 1; padding: 1"><font size="2" face="Verdana">Indirizzo</font></td>
    <td height="22" style="border-style: solid; border-width: 1; padding: 1"><font size="2" face="Verdana">Paese</font></td>
    <td height="22" style="border-style: solid; border-width: 1; padding: 1"><font size="2" face="Verdana">Telefono</font></td>
    <td height="22" style="border-style: solid; border-width: 1; padding: 1"><font size="2" face="Verdana">Cellulare</font></td>
    <td height="22" style="border-style: solid; border-width: 1; padding: 1"><font size="2" face="Verdana">Email</font></td>
  </tr>
  <%
  rs.MoveFirst
  do until rs.EOF
  %>
  <tr>
    <td height="22" style="border-style: solid; border-width: 1; padding: 1"><font size="2" face="Verdana"><%response.write(rs.Fields("F_Ragsoc"))%></td>
    <td height="22" style="border-style: solid; border-width: 1; padding: 1"><font size="2" face="Verdana"><%response.write(rs.Fields("F_ViaCli"))%></td>
    <td height="22" style="border-style: solid; border-width: 1; padding: 1"><font size="2" face="Verdana"><%response.write(rs.Fields("F_CittaC"))%></td>
    <td height="22" style="border-style: solid; border-width: 1; padding: 1"><font size="2" face="Verdana"><%response.write(rs.Fields("F_Telefo"))%></td>
    <td height="22" style="border-style: solid; border-width: 1; padding: 1"><font size="2" face="Verdana"><%response.write(rs.Fields("F_Cellul"))%></td>
    <td height="22" style="border-style: solid; border-width: 1; padding: 1"><font size="2" face="Verdana"><%response.write(rs.Fields("F__Email"))%></td>
  </tr>
  <%
  rs.MoveNext
  loop
  %>
</table>

</body>

</html>