19/02/2007, 15:02
|
| | | Fecha de Ingreso: septiembre-2003
Mensajes: 10
Antigüedad: 21 años, 8 meses Puntos: 0 | |
| Re: carga distinto con firefox que con explorer
Código:
<!--#include virtual="adovbs.inc" -->
<!--#include virtual="conexion.asp" -->
<html>
<head>
<title></title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<style type="text/css">
<!--
body {
background-image: url();
background-color: #E0E0E0;
}
-->
</style>
<link href="estilos.css" rel="stylesheet" type="text/css">
</head>
<body text="#000000" leftmargin="0" topmargin="0">
<table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td align="center" valign="top"><table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td align="center" valign="top"><table width="100%" height="81" border="0" cellpadding="0" cellspacing="0">
<tr>
<td> </td>
</tr>
</table></td>
<td width="770" align="center" valign="top">
<table width="770" height="81" border="0" cellpadding="0" cellspacing="0" background="imagenes/fondo.gif" class="fondoPagina">
<tr>
<td align="center" valign="top"><div align="center">
encabezado
</div></td>
</tr>
<tr>
<td align="center" valign="top"> </td>
</tr>
<tr>
<td align="center" valign="top">anuncios</td>
</tr>
<tr>
<td align="center" valign="top"><table width="760" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="15" height="30" class="fondoTituloFavo"></td>
<td width="585" class="TituloFavo"><</strong></td>
<td width="160" height="15" align="left" valign="top"><table width="159" height="30" border="0" cellpadding="0" cellspacing="0" class="TituloTags">
<tr>
<td width="20"> </td>
<td>Top Tags</td>
</tr>
</table></td>
</tr>
</table>
<table width="760" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="15" height="30"></td>
<td width="585" align="left" valign="top"><table width="585" border="0" cellspacing="0" cellpadding="0">
<tr align="left" valign="top">
<td width="30"></td>
</tr>
<tr align="left" valign="top">
<td> </td>
</tr>
<tr align="left" valign="top">
<%
user = Request.Form("usuario")
clave = Request.Form("clave")
clave2 = Request.Form("clave2")
if clave <> clave2 then %>
<td class="menuSuperiorSeparadores">Las claves no coinciden, por favor intente nuevamente. <a href="/registracion.asp" class="vinAzul">Volver</a></td>
<%else
set Rs_verifica = Server.CreateObject("adodb.recordset")
set Rs_verifica = Conex.Execute("SELECT * FROM usuarios where usuario='" & user & "'")
'me fijo si el usuario existe
if not Rs_verifica.eof then
ok = 0
else
ok = 1
'como no existe lo registro
set Rs = Server.CreateObject("adodb.recordset")
Rs.Open "usuarios", Conex, adOpenStatic, adCmdTable
Rs.AddNew
rs ("usuario")= user
rs ("clave")= Request.Form("clave")
email = Request.Form("email")
rs ("mail")= email
rs ("sitio")= Request.Form("sitio")
rs("activado") = "0"
rs("fecha") = date()
Rs.Update
Rs.Close
Set Rs = Nothing
'ahora le mando el mail de activacion, para comprobar la cuenta de mail
set Rs2 = Server.CreateObject("adodb.recordset")
set Rs2 = Conex.Execute("SELECT * FROM usuarios where usuario='" & user & "'")
activacion = rs2("codigo_activacion")
Rs2.close
Set Mail2 = Server.CreateObject("Persits.MailSender")
Mail2.Host = "localhost"
Mail2.Username = "xx"
Mail2.Password = "xx"
Mail2.AddAddress email
Mail2.From = "xx"
Mail2.FromName = "xx"
Mail2.Subject = "Activacion de cuenta"
Mail2.IsHTML = True
Mail2.Body = "<html><head></head><body><a href=activar-cuenta.asp?u="& user &"&c="& activacion & ">Activar mi cuenta </a></body></html>"
Mail2.Send
If Err <> 0 Then
Response.Write "Ha ocurrido un error: " & Err.Description
End If
Set Mail2 = Nothing
end if
Rs_verifica.close
Set Rs2 = Nothing
Set Rs_verifica = Nothing
%>
<% if ok = 1 then %>
<td class="menuSuperiorSeparadores">Para finalizar la registración, deberás hacer click en el link que te enviamos al mail que utilizaste para la registración. <a href="/index.asp" class="vinAzul">Volver a la home</a></td>
<% else %>
<td class="menuSuperiorSeparadores">El usuario ya existe, por favor intente nuevamente. <a href="/registracion.asp" class="vinAzul">Volver</a></td>
<% end if %>
</tr>
<% end if %>
<tr align="left" valign="top">
<td height="250"> </td>
</tr>
</table>
</td>
<td width="160" height="15" align="left" valign="top" class="FondoTags">barraderecha</td>
</tr>
</table></td>
</tr>
<tr>
<td align="center" valign="top">pie</td>
</tr>
</table> </td>
<td align="center" valign="top"><table width="100%" height="81" border="0" cellpadding="0" cellspacing="0">
<tr>
<td> </td>
</tr>
</table></td>
</tr>
</table>
</td>
</tr>
</table>
</body>
</html>
<%
Conex.Close
Set Conex = Nothing
%>
|