Foros del Web » Programando para Internet » ASP Clásico »

base de datos ayuda

Estas en el tema de base de datos ayuda en el foro de ASP Clásico en Foros del Web. hola, tengo una paguina en asp con registro de participantes en base de datos, pero no se que e echo mal ya que dos personas ...
  #1 (permalink)  
Antiguo 18/06/2004, 03:40
 
Fecha de Ingreso: junio-2004
Mensajes: 65
Antigüedad: 20 años
Puntos: 0
base de datos ayuda

hola, tengo una paguina en asp con registro de participantes en base de datos, pero no se que e echo mal ya que dos personas pueden registrar el mismo nick, si alguien sabe como solucionarlo agradeceria la ayuda.gracias.
  #2 (permalink)  
Antiguo 18/06/2004, 06:18
Avatar de pempas  
Fecha de Ingreso: diciembre-2003
Ubicación: Barcelona
Mensajes: 985
Antigüedad: 20 años, 5 meses
Puntos: 6
Lo primero que tienes que hacer antes de dar el alta es comprobar si ese nombre de usuario existe en la BD, si no lo haces así se duplicarán registros.

SQL = "Select User From Usuarios Where User=" & Nombre <-- (Esto es la variable que recoge el nombre)

Si esta instrucción te da vacía es que no hay otro igual.

Saludos
  #3 (permalink)  
Antiguo 18/06/2004, 07:08
Avatar de meru-kun  
Fecha de Ingreso: noviembre-2002
Ubicación: Madrid
Mensajes: 854
Antigüedad: 21 años, 6 meses
Puntos: 0
Más explicito, usando la SQL de pempas, haríamos:
set mr = miconxion.open(SQL)
If mr.eof or mr.bof then
' sentencias para añadir otro registro, esto ya lo tienes tú cotnrolado
Else
response.write "Error. El usuario ya existe"
End if
mr.close
set mr = nothing
__________________
Tu portal de manga y anime.
  #4 (permalink)  
Antiguo 18/06/2004, 10:55
 
Fecha de Ingreso: junio-2004
Mensajes: 65
Antigüedad: 20 años
Puntos: 0
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)


pongo el codigo de la paguina en el siguiente mensage que aqui no me cabe, si alguien me puede ayudar se lo agradeceria.gracias
  #5 (permalink)  
Antiguo 18/06/2004, 10:57
 
Fecha de Ingreso: junio-2004
Mensajes: 65
Antigüedad: 20 años
Puntos: 0
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&"','"&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>&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:[email protected]" 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>

no me cabe entero el resto lo pongo en otro mensage
  #6 (permalink)  
Antiguo 18/06/2004, 10:57
 
Fecha de Ingreso: junio-2004
Mensajes: 65
Antigüedad: 20 años
Puntos: 0
</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>
  #7 (permalink)  
Antiguo 18/06/2004, 12:53
 
Fecha de Ingreso: junio-2004
Mensajes: 65
Antigüedad: 20 años
Puntos: 0
por fabor no ai nadie que sepa que tengo mal en el codigo
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 22:45.