este es el codigo de la paguina.
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>SMNChat- Home</title>
<link href="estilos.css" rel="stylesheet" type="text/css">
</head>
<body>
<%
'no cache
Response.addHeader "pragma", "no-cache"
Response.CacheControl = "Private"
Response.Expires = 0
'Recupero los datos del formulario y los introduzco en sus respectivas variables
ses=session("inses")
nombre=request.form("nombre")
apellidos=request.form("apellidos")
email=request.form("email")
nick=request.form("nick")
pass=request.form("pass")
direccion=request.form("direccion")
ciudad=request.form("ciudad")
provincia=request.form("provincia")
pais=request.form("pais")
telf=request.form("telf")
cp=request.form("cp")
estadocivil=request.form("estadocivil")
sexo=request.form ("sexo")
ocupacion=request.form("ocupacion")
intereses=request.form("intereses")
'si telf, ocupacion o intereses estan vacios añade un
if telf=""then telf=" "end if
if ocupacion="" then ocupacion=" " end if
if intereses=""then intereses=" " end if
'consulta SQL
SQL="Select EMAIL From USUARIOS where EMAIL="&email
'creo el objecto ADOB
Set conexion=Server.CreateObject("ADOB.Connection")
'abro la conexion
conexion.open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="&Server.MapPath("db0001/db0001.mdb")
'Ejecuto la Consulta SQL
set Registros.execute(SQL)
'si no encuantra coincidencia
if Registros.eof or Registros.bof then
'inserto la consulta sql en la variable Consul
Consul="INSERT INTO USUARIOS (NOMBRE,APELLIDOS,EMAIL,DIRECCION,CIUDAD,PROVINCIA ,PAIS,CP,TELF,OCUPACION,SEXO,ESTADOCIVIL,INTERESES ,NICK,PASS) VALUES ('"&nombre&"','"&apellidos&"','"&email&"','"&direc cion&"','"&ciudad&"','"&provincia&"','"&pais&"','" &cp&"','"&telf&"','"&ocupacion&"','"&sexo&"','"&es tadocivil&"','"&intereses&"','"&nick&"','"&pass&"' )"
'Creo el objeto conexion
Set Conn=Server.CreateObject("ADODB.Connection")
'Abro la conexion a la base de datos
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="&Server.MapPath("db0001/db0001.mdb")
'Ejecuto la consulata Sql de entrada de datos
set rs=Conn.execute(Consul)
'cierro conexion
Conn.close
set rs=nothing
set conn=nothing
'si no redirecciono
else
response.Redirect("plantilla.asp")
end if
'cierro conexion
conexion.close
set Registros=nothing
set conexion=nothing %>
<table height="62" cellSpacing="0" cellPadding="1" width="777" align="center" border="0" bgcolor="#000000">
<tbody>
<tr>
<td align="right" width="299">
<p align="center"><strong><font color="#FFFFFF" face="tahoma" size="1">SMNChat</font></strong></p>
</td>
<td align="right" width="474"><img src="img/smnchat.gif" width="468" height="60"></td>
</tr>
</tbody>
</table>
<table borderColor="#000000" cellSpacing="1" cellPadding="3" width="777" align="center" bgColor="#000000" border="0">
<tbody>
<tr>
<td width="143" align="left" borderColor="#000000" bgColor="#6487DC" class="text"><%if ses="" then%>
<a href="iniciarses.asp" class="text"><strong>Iniciar Sesion </strong></a>
<%else%>
<a href="cerrar.asp" class="text"><strong>Cerrar Sesion</strong></a>
<%end if%></td>
<td width="611" colSpan="3" align="right" borderColor="#000000" bgColor="#6487DC" class="texteblanc"><a href="Home.asp" class="text">Pagina
principal</a> | <a href="javascript
:window.external.addfavorite('http ://www.aldeavirtual.com/byte/smnchat/Home.htm','SMNChat System Message Network')" class="text">Agregar
mis favoritos</a> | <a href="Helpdesk.htm" class="text">Helpdesk</a>
| <a href="mailto:
[email protected]" class="text">Contáctese</a></td>
</tr>
<tr vAlign="top">
<td width="143" bgColor="#6487DC">
<table cellSpacing="0" cellPadding="3" width="142" bgcolor="#000000">
<tr>
<td width="142" height="19" bgcolor="#FF9900">
<p class="text">Menú</p>
</td>
</tr>
</table>
<table width="142" border="0" cellspacing="0" cellpadding="0">
<tr>
<td>- <a href="Home.asp" class="text">Pagina principal</a> <br>
<span class="link">- </span><span class="link"><a href="Conducta.asp" class="text">Código De Conducta</a></span><br>
<span class="link">- <a href="Staff.asp" class="text">Staff</a> <br>
- <a href="create.asp" class="text">Crea tu Sala</a> <br>
- <a href="inforegistro.asp" class="text">Registrarse</a></span></td>
</tr>
</table>
<p> </p>
<p>
</p>
<table cellSpacing="0" cellPadding="3" width="142" bgcolor="#000000">
<tbody>
<tr>
<td width="142" height="19" bgcolor="#FF9900">
<p class="text">Categorías</p>
</td>
</tr>
</tbody>
</table>
<p align="left" class="MsoNormal" style="tab-stops: 36.0pt; mso-layout-grid-align: none; text-autospace: none; margin-left: 3.6pt; margin-right: .9pt; margin-top: 0cm; margin-bottom: .0001pt"><a href="General.asp" class="text">General</a>
-</p>
<p align="left" class="MsoNormal" style="tab-stops: 36.0pt; mso-layout-grid-align: none; text-autospace: none; margin-left: 3.6pt; margin-right: .9pt; margin-top: 0cm; margin-bottom: .0001pt"><a href="Informatica.asp" class="text">Informática</a>
-</p>
<p align="left" class="MsoNormal" style="tab-stops: 36.0pt; mso-layout-grid-align: none; text-autospace: none; margin-left: 3.6pt; margin-right: .9pt; margin-top: 0cm; margin-bottom: .0001pt"><a href="Scripting.asp" class="text">Scripting</a>
-</p>
<p align="left" class="MsoNormal" style="tab-stops: 36.0pt; mso-layout-grid-align: none; text-autospace: none; margin-left: 3.6pt; margin-right: .9pt; margin-top: 0cm; margin-bottom: .0001pt"><a href="Urbanos.asp" class="text">Chat
Urbanos</a> -</p>
<p align="left" class="MsoNormal" style="tab-stops: 36.0pt; mso-layout-grid-align: none; text-autospace: none; margin-left: 3.6pt; margin-right: .9pt; margin-top: 0cm; margin-bottom: .0001pt"><a href="Adolescentes.asp" class="text">Adolescentes</a>
-</p>
<p align="left" class="MsoNormal" style="tab-stops: 36.0pt; mso-layout-grid-align: none; text-autospace: none; margin-left: 3.6pt; margin-right: .9pt; margin-top: 0cm; margin-bottom: .0001pt"><a href="Religion.asp" class="text">Religión</a>
-</p>
<p align="left" class="MsoNormal" style="tab-stops: 36.0pt; mso-layout-grid-align: none; text-autospace: none; margin-left: 3.6pt; margin-right: .9pt; margin-top: 0cm; margin-bottom: .0001pt"><a href="Noticias.asp" class="text">Noticias</a>
-</p>
<p align="left" class="MsoNormal" style="tab-stops: 36.0pt; mso-layout-grid-align: none; text-autospace: none; margin-left: 3.6pt; margin-right: .9pt; margin-top: 0cm; margin-bottom: .0001pt"><a href="Amor.asp" class="text">Amor</a>
-</p>
<p align="left" class="MsoNormal" style="tab-stops: 36.0pt; mso-layout-grid-align: none; text-autospace: none; margin-left: 3.6pt; margin-right: .9pt; margin-top: 0cm; margin-bottom: .0001pt"><a href="Amistad.asp" class="text">Amistad</a>
-</td>
<td width="455" bgColor="#ffffff">
<p align="center" class="text">Los Datos han sido introducidos correctamente, ya esta registrado puede modificar los datos de su perfil cuando usted así lo desee. </p>
<p align="center" class="text">Como Usuario Registrado, usted disfruta de ciertos privilegios como el de tener un perfil personal, tambien podra entrar a las salas con su nick regsitrado, en vez de entrar como Invitado.</p>
<p align="center" class="text">Usted podra modificar los datos introducidos en su perfil o eliminarlos si así lo desea. </p>
<p align="center" class="text"><a href="iniciarses.asp" class="text">Para Ver su Perfi Haga click Aquí </a></p></td>
<td width="144" bgcolor="#6487DC">
<table cellSpacing="0" cellPadding="0" width="142" bgcolor="#000000">
<tbody>
<tr>
<td width="142" height="19" bgcolor="#FF9900">
<p class="texteblanc"> <span class="text">Nuestros
salones</span></p>
</td>
</tr>
</tbody>
</table>
- <a href="Helpdesk.htm" class="text">HelpDesk</a>
<p> </p>
<table cellSpacing="0" cellPadding="0" width="142" bgcolor="#000000">
<tbody>
<tr>
<td width="142" height="19" bgcolor="#FF9900">
<p class="text"> Contactos</p>
</td>
</tr>
</tbody>
</table>
- <a href="mailto:
[email protected]" class="text">Contáctese</a>
<p> </p>
</td>
</tr>
<tr>
<td class="texteblanc" align="middle" bgColor="#FF9900" colSpan="3" height="6" width="761">
<p align="center" class="text"><span class="texteblanc">©
Copyright 2003-2004 </span><span class="texteblanc"><a href="home.asp" class="text">SMNChat</a>
- Todos los derechos reservados</span></p>
</td>
</tr>
</tbody>
</table>
</body>
no me cabe entero el resto lo pongo en otro mensage