|
|
 |
<%
usuario=replace(request.form("usuario"),"'","")
password=replace(request.form("password"),"'","")
'Conectamos a la BD.
Set oConn = Server.CreateObject("ADODB.Connection")
Set RS = Server.CreateObject("ADODB.RecordSet")
oConn.Open conexion_neo
sql="Select * from comunity where m_name='"&usuario&"' and m_password= '"&password&"'"
'response.write sqltxt
rs.Open sql, oConn
if not rs.eof then
' no existe o es incorrecto
if rs("m_name")=usuario and rs("m_password")=password then
' si el usuario esta en la base de datos y la password coincide
'session("autorizacion")=rs("acceso")
response.write("ok ------")
end if
else
RS.Close
oConn.Close
Set RS = nothing
Set oConn = nothing
response.redirect "comunidad.asp?msg=Usuario%20o%20password%20incorrecto"
end if
v_nombre=RS("m_name")
v_firma=RS("m_firma")
v_votos=RS("m_votos")
v_pais=RS("m_country")
v_avatar=RS("m_photo_url")
v_id=RS("member_id")
RS.Close
oConn.Close
Set RS = nothing
Set oConn = nothing
%>
|
|
|
|
|
Fan Fictions
Los FFManiacs dejan volar común
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
Tu cuenta |
| 
Nick sjfh sjfh ksdfjh skdjfh jdel foro Password
|
|
|
| Ficha personal |
|
·Pais·
·Grupo·
|
| FavoritosPágina de Inicio |
| |
|
|
|
|
|
|
|
|
|
|
|
|
CONCURSO DE FIRMAS Votos acumulados:<%=v_votos%>
 |
|
|
|
|
|
|
|
|
 |
 |
 |
 |
Por fin, ya hemos colgado el especial
dedicado al salón del Comic de
Barcelona. Podreis ver las fotos que
pudimos sacar sobre el salón y sobre
el merchandising que nos compramos,
así como alguna que otra ida de la
olla en casa de Mati...
K.ta
|
 |
|
|
|
|
|
|