<% Function ChkString(string) if string = "" then string = " " ChkString = Replace(string, "'", "''") End Function set my_conn= Server.CreateObject("ADODB.Connection") my_Conn.Open ConnString %> Profile vLink="<% =ActiveLinkColor %>">
::Foro ORigenes [Base de conocimiento]::  
<% select case Request.QueryString("mode") case "display" StrSql = "Select * from members where member_id=" & Request.QueryString("id") set rs = my_conn.Execute(StrSql) %>

Usuario <%= rs("M_Name") %>
Email "><%= rs("m_email") %>
Pagina " target="_Blank"><%= rs("M_homepage") %>
Pais <%= rs("M_country") %>
ICQ <%= rs("M_ICQ") %>
Total de mensajes <%= rs("M_Posts") %>
cerrar ventana
<% case "edit" %>
" method="post">
Usted puede cambiar su profile
si se encuentra registrado

Si no esta registrado puede hacerlo.
Usuario
Password
<% case "go" StrSql = "Select * from members where m_name='" & ChkString(Request.Form("name")) StrSql = StrSql & "' and m_Password ='" & ChkString(Request.Form("Password")) & "'" set rs = my_conn.Execute(StrSql) if rs.bof and rs.eof then %>
Password o nombre de usuario incorrectos

vuelva a intentarlo <% Response.End else %>
" method="post" id=form1 name=form1>
<% end if case "doit" StrSQl = "Update Members Set M_Email = '" & chkstring(Request.Form("email")) & "', " StrSQl = StrSQl & "M_Country ='" & ChkString(Request.Form("country")) & "', " StrSQl = StrSQl & "M_Sig ='" & ChkString(Request.Form("sig")) & "', " StrSQl = StrSQl & "M_ICQ ='" & ChkString(Request.Form("ICQ")) & "', " StrSQl = StrSQl & "M_Homepage ='" & ChkString(Request.Form("homepage")) & "' where M_Name = '" StrSQl = StrSQl & ChkString(Request.Form("name")) & "' and M_Password = '" & ChkString(Request.Form("Password-d")) & "'" my_conn.Execute(strSql) %>
Profile Modificado.


Volver al foro <% end select on error resume next rs.close my_conn.Close set my_conn = nothing set rs=nothing %>