Obrigado a todos que puderem me ajudar
<body>
<p>Visualização dos Agentes Ambientais Cadastrados.<br>
<font color="#0066CC"><%= vlogin %></font>
<%
rsUser.MoveFirst
while not rsUser.Eof
tela = rsUser.Fields("tela").Value
id = rsUser.Fields("id").Value
login = rsUser.Fields("login").Value
senha = rsUser.Fields("senha").Value
grupo = rsUser.Fields("grupo").Value
ponto = rsUser.Fields("ponto").Value
nome = rsUser.Fields("nome").Value
telefone = rsUser.Fields("telefone").Value
email = rsUser.Fields("email").Value
data = rsUser.Fields("datadecadastro").Value
if (cor = "#FFFFFF") then
cor = "#CCCCCC"
else
cor = "#FFFFFF"
end if
%>
<form>
<hr>
<table width="300" border="0" bgcolor="<%=cor%>">
<tr>
<td width="168">ID <%= UCase(id) %></td>
<td width="56"><input type="submit" name="Submit" value="Excluir"></td>
<td width="54"><input type="submit" name="Submit2" value="Editar"></td>
</tr>
</table>
<table width="100%" border="0" bgcolor="<%=cor%>">
<tr>
<td width="22%">Nome</td>
<td width="25%">Telefone</td>
<td width="26%">E-mail</td>
<td width="27%">Data </td>
</tr>
<tr>
<td><font color="#0066CC"><%= Ucase(nome) %> </font></td>
<td><font color="#0066CC"><%= telefone %> </font></td>
<td><font color="#0066CC"><%= email %> </font></td>
<td><font color="#0066CC"><%= data %> </font></td>
</tr>
</table>
<table width="100%" height="0" border="0" bgcolor="<%=cor%>">
<tr>
<td width="166" height="50%">Login</td>
<td width="189">Senha</td>
<td width="197">Ponto </td>
<td width="206">Grupo</td>
</tr>
<tr>
<td height="50%"><font color="#0066CC"><%= Ucase(login) %> </font></td>
<td><font color="#0066CC"><%= senha %> </font></td>
<td><font color="#0066CC"><%= Ucase(ponto) %> </font></td>
<td><font color="#0066CC"><%= Ucase(grupo) %> </font></td>
</tr>
</table>
</form>
<p>
<%
rsUser.MoveNext
Loop
rsUser.Close
Set rsUser = Nothing
%>
<p><a href="login.asp">Sair da área restrita</a></p>
<p><font color="#0066CC"> </font></p>
</body>
