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

User Name <%= rs("M_Name") %>
Email "><%= rs("m_email") %>
Home Page " target="_Blank"><%= rs("M_homepage") %>
País <%= rs("M_country") %>
ICQ <%= rs("M_ICQ") %>
Total de respostas <%= rs("M_Posts") %>
Fechar Janela
<% case "edit" %>
" method="post">
É da sua responsabilidade manter os seus dados actualizados.
Por favor preencha o formulário.

Se ainda não se registou, faça-o aqui.
User Name
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 %> UserName ou Password inválida

Use o botão "Back" ou "Retroceder" do seu "Browser" para tentar de novo <% 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) %>

Dados actualizados.


Voltar ao Fórum <% end select on error resume next rs.close my_conn.Close set my_conn = nothing set rs=nothing %>