<object runat=server id=conn1 progid="adodb.connection"></object>
<%application.Lock
conn1.Open Application("p_jyzx")
Application.UnLock
%>
<%
   Set rs = Server.CreateObject("ADODB.Recordset")
	 sql="select * from affiliate where user_name='"&Request("user_name")&"'"
	rs.Open sql,conn1,2,3
	if rs.RecordCount<>0 then
    rs("name")=Request("name")
    rs("homepage")=Request("homepage")
    rs("homepage_info")=Request("homepage_info")
    rs("email")=Request("email")
    rs("address")=Request("address")
    rs("postcode")=Request("postcode")
    rs("telephone")=Request("telephone")
    'rs("link")=link
    'rs("visit_counter")=0
    'rs("join_counter")=0
    'rs("start_time")=date
    rs.Update
    end if
Response.Redirect "affiliate_info.asp?user_name="&Request("user_name")
%>