%
dim sql,rs
set rs=server.CreateObject("adodb.recordset")
if trim(request("username"))<>"" then
dim user_name,title,user_addr,lxr,user_tel,email,user_fax,user_code,content
sql="select * from ding"
rs.open sql,conn,1,3
rs.addnew
rs("user_name")=request("username")
rs("title")=request("title")
rs("user_addr")=request("addr")
rs("lxr")=request("lxr")
rs("user_tel")=request("phone")
rs("email")=request("email")
rs("user_fax")=request("fax")
rs("user_code")=request("code")
rs("content")=request("content")
rs.update
rs.close
response.Write ""
end if
%>