Gutopn

Boa

Preciso de uma ajuda.

Esta rotina abaixo procura dados em um arquivo .mdb e retorna uma tabela com as ocorrências(acidentes, etc.) de um funcionário.
Acontece que caso o funcionário possua uma ocorrencia, a rotina funciona que é uma beleza e gera a tabela com todas as informações, mas se não possui nenhuma ocorrência dá erro de página.


Desde já agradeço a todos

Abraços

**************************************************
	******** Ocorrências Funcionário*************
	**************************************************
-->
			<% rs.Open "select * from consulta1 where numero='"&numero&"' order by data", Conexao %>
			<span id="ocorrencias" style="display:none">
			<table width="90%" align="center" border="1" cellpadding="5" cellspacing="1" class="txtConteudo">
			  <tr>
				<th colspan="10" align="center">Ocorrências</th>
			  </tr>
			  <tr>
				<th colspan="10" align="center">Nome: <%=Server.HTMLEncode(rs("nome"))%><BR />
				Cargo: <%=cargo%> - Tempo: <%=tempo%> - Turno: <%=turno%> - Dpto: <%=dpto%></th>
			  </tr>
			  <tr>
				<th>Nº</th>
				<th>DATA
				  </td>
				</th><th>LOCAL
				  </td>
				</th><th>OCORRÊNCIA
				  </td>
			  </th></tr>
			  <% while not rs.eof 
			  cont=cont+1 %>%>
			  <tr>
				<td><%=cont%></td>
				<td><%=day(rs("data"))&"/"&month(rs("data"))&"/"&year(rs("data"))%> </td>
				<td><%=Server.HTMLEncode(rs("observacao"))%> </td>
				<td><%=Server.HTMLEncode(rs("descricao"))%> </td>
			  </tr>
			  
			  <% 
	rs.movenext
	wend 
		%>
		
		<%if cont=0 then%>
			  <tr>
				<th colspan="4" class="notaalta">Não registramos nenhuma ocorrência.</th>
			  </tr>
			  <%end if%>	  
			</table>
			<BR />
			</span>
			<!--

Olá,

Sou programador iniciante e preciso de uma ajuda. É o seguinte:
Estou trazendo de um BD Access nomes e dados e muitos com acentuação.
Acontece que esta acentuação aparece no site toda trocada por caracteres.
Como faço para converter isto?
Um grande abraço e agradeço a ajuda.