bueno Littlew ya hemos corregido (bueno u_goldman iso el trabajo) el error de la manera siguiente:
se tubo que cambiar la codificación quedando de este modo:
<%
If Request.Form("action") = "" Then
%>
<form onsubmit="return validacion(this);return enviado()" method="POST" action="registro.asp">
<input type=hidden name=action value="ingresa">
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="278" height="101" id="AutoNumber1">
<tr>
<td width="278" height="30" bgcolor="#808080">
<p align="center">
<font face="Arial" style="font-size: 9pt; font-weight: 700" color="#FFFFFF">
Por favor introduzca su nombre:</font></td>
</tr>
<tr>
<td width="278" height="43">
<p align="center"><input type="text" name="nombre" size="20"></td>
</tr>
<tr>
<td width="278" height="28">
<p align="center"><input type="submit" value="Enviar" name="B1"></td>
</tr>
</table>
</center>
</div>
</form>
<%
Else
dim rs
path = Server.MapPath(".") & "\Chat_registro.mdb"
Set dbCon = Server.CreateObject("ADODB.Connection")
dbCon.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & path
nombre= trim(Request.Form("nombre"))
ip= Request.ServerVariables("Remote_Addr")
dbCon.Execute("INSERT INTO usuario(nombre, fecha, hora, ip) VALUES('"&nombre&"','"&date()&"', '"&time()&"', '"&ip&"')")
dbCon.Close
Set dbCon= Nothing
Response.Redirect "default.asp?username=" & nombre
End If
%>
</body>