<% option explicit Response.Buffer = true if session("company_id") <> "" then dim conn dim ssql dim rs dim member_address %> <% ssql = "select * from tbl_member where member_email = '" & Request.QueryString("member_email") & "'" set rs = server.CreateObject("adodb.recordset") rs.Open ssql,conn,3,3 if len(trim(rs("member_address"))) > 0 then member_address = replace(rs("member_address"),"
",vbcrlf, 1, -1, 1) end if %>

EDIT MEMBER PROFILE
MEMBER NAME :
ADDRESS :	<% = member_address %>
PHONE :
EMAIL :	<% = rs("member_email") %>
PASSWORD :
MEMBERSHIP LEVEL :	<% if rs("member_level") = "RESELLER" then %> RESELLER    USER <% else %> RESELLER    USER <% end if %>
','_self')" />

<% rs.Close conn.Close set rs = nothing set conn = nothing else Response.Redirect "../../index.asp" end if %>