A web-based QQ program 2 (xml+asp)

For processing XMLHTTP request ASP program, look at the time is not very simple ah!??
=====
<%on Error Resume Next
Response.contenttype= "Text/xml"
If Request.ServerVariables ("request_method") = "POST" Then
Set Req=server.createobject ("Microsoft.XMLDOM")
Req.async=false
Req.load (Request)
Set Conn=server. CreateObject ("Adodb.connection")
Conn. Open "ODBC", "UID", "password"
Sql= "Select Uid,id,sex from Uidinfo ORDER by id DESC"
Set Rs=server. CreateObject ("Adodb.recordset")
Rs. Open Sql,conn
Response.Write "<?xml version=" "1.0" "?>"
Response.Write "<mess>"
If not Rs. EOF Then
Do but not Rs. Eof
Response.Write "<id>" &trim (RS ("id")) & "</id><uid>" &trim (RS ("UID")) & "</uid ><sex> "&trim (rs
("Sex")) & "</sex>"
Rs. MoveNext
Loop
Else
Response.Write "<id>k</id><uid></uid><sex></sex>"
End If
Response.Write "</mess>"
If Rs. State=1 then Rs. Close
Set rs=nothing
Conn. Close
Set conn=nothing
Set req=nothing
End If
%>