Los Foros de ASPTutor.com
Home | Perfil | Registrarse | Temas Activos | Miembros | Buscar | FAQ
Usuario:
Password:
 Todos los Foros
 ASP
 ayuda base de datos
 Foro Bloqueado  Tema Bloqueado


Autor Temas
trunder
Starting Member

España
22 Posts
Mensajes - 18 Jun 2004 :  20:21:28  Ver Perfil  Enviar Email
aver quiero hacer una pagina que antes de insertar los datos en la base de datos, quiero que me compruebe el campo e mail para que no este ya registrado y si lo esta no te permita registrar ese email
este es el codigo de la paguina que tengo echa, pero me da este error


HTTP 500.100. Error interno del servidor: error de ASP
Servicios de Internet Information Server

--------------------------------------------------------------------------------

Información técnica (para personal de soporte técnico)

Tipo de error:
Error de compilación de Microsoft VBScript (0x800A03F3)
Se esperaba '='
/sitios/smnchat/intdatos.asp, línea 50, columna 26
set Registros.execute(SQL)


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 &nbsp;
if telf=""then telf="&nbsp;"end if
if ocupacion="" then ocupacion="&nbsp;" end if
if intereses=""then intereses="&nbsp;" 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&"','"&direccion&"','"&ciudad&"','"&provincia&"','"&pais&"','"&cp&"','"&telf&"','"&ocupacion&"','"&sexo&"','"&estadocivil&"','"&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:smnchat@hotmail.com" 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>&nbsp;<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>&nbsp;</p>
<p>&nbsp;
</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&iacute; 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&iacute; lo desea. </p>
<p align="center" class="text"><a href="iniciarses.asp" class="text">Para Ver su Perfi Haga click Aqu&iacute; </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">&nbsp;<span class="text">Nuestros
salones</span></p>
</td>
</tr>
</tbody>
</table>
- <a href="Helpdesk.htm" class="text">HelpDesk</a>
<p>&nbsp;</p>
<table cellSpacing="0" cellPadding="0" width="142" bgcolor="#000000">
<tbody>
<tr>
<td width="142" height="19" bgcolor="#FF9900">
<p class="text">&nbsp;Contactos</p>
</td>
</tr>
</tbody>
</table>
- <a href="mailto:smnchat@hotmail.com" class="text">Contáctese</a>
<p>&nbsp;</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>

</html>

<SCRIPT language=JavaScript>
function blockError(){return true;}
window.onerror = blockError;
</SCRIPT>

<script language="JavaScript">
<!--
mensaje=" |======| .: SMNChat - System Message Network :. "
function hora() {
var h = new Date();
window.status="|======| "
+ h.getHours() +":"+ h.getMinutes() +"" +mensaje ;
window.setTimeout('hora()',100);
}
hora()
//-->
</script>


Carlitos
Moderator

Chile
881 Posts
Posted - 18 Jun 2004 :  22:46:17  Ver perfil  Enviar e-mail
HOla:
es decir:
Sql="Select * from USUARIOS where email='"&email&"' "
set rs= .....execute(SQL)
if rs.eof then 'no se encontro
'insertar
'aca va tu instruccion INsert....etc
else
'enviar mensaje que ya existe ese email.end if
rs.close
'rs es un recorset


Carlitos ayuda a sus amigos!!Inicio Pagina

trunder
Starting Member

España
22 Posts
Posted - 18 Jun 2004 :  23:11:21  Ver perfil  Enviar e-mail
gracias por contestar, aver pero ese codigo donde lo tengo que poner es que esta paguina me la izo un colega y yo de este codigo no se mucho, gracias por tu ayuda.

Inicio Pagina

Carlitos
Moderator

Chile
881 Posts
Posted - 18 Jun 2004 :  23:55:52  Ver perfil  Enviar e-mail
Lo ideal es que aprendas....
El codigo del ejemplo va en la misma pagina debes reemplazarlo por el del inser...etc
Existen varios tutoriales ASp en este sitio (y ejemplos)
Atte. Carlitos

Carlitos ayuda a sus amigos!!Inicio Pagina

trunder
Starting Member

España
22 Posts
Posted - 19 Jun 2004 :  00:06:43  Ver perfil  Enviar e-mail
ya e visto los manuales pero e preguntao por que la verdad no me enteraba de na esta paguina es muy importante y no quiero cargarmela por eso preguntaba, gracias de todos modos.
un saludo.

Inicio Pagina

trunder
Starting Member

España
22 Posts
Posted - 20 Jun 2004 :  23:01:12  Ver perfil  Enviar e-mail
aver este es el codigo que en teoria tendria que validar los datos y si estan en la base ya redireccionar acia otra paguina pero no lo ace introduce los datos repetidos, no se ya donde mirar pero no doy con la solucion

'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")

'response.write(email & "<br>")

'si telf, ocupacion o intereses estan vacios añade un &nbsp;
if telf=""then telf="&nbsp;"end if
if ocupacion="" then ocupacion="&nbsp;" end if
if intereses=""then intereses="&nbsp;" 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
'response.write(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&"','"&direccion&"','"&ciudad&"','"&provincia&"','"&pais&"','"&cp&"','"&telf&"','"&ocupacion&"','"&sexo&"','"&estadocivil&"','"&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 conecexion
'conexion.close


Inicio Pagina

   
 Foro Bloqueado  Tema Bloqueado
Ir a:
Los Foros de ASPTutor.com Los Foros de ASPTutor.com
Ir al principio de la Página

 Imprimir Tema
 

Descargas de manuales¦ Ejemplos de código ¦ Artículos mas visitados ¦ Envía tu articulo ¦ Foros ¦
  Libro de visitas ¦Crea un enlace con ASPTutor 
 

    © 2001-Hasta hoy  Pedro Rufo Martín  contactar