%
action = request.QueryString("action")
if action = "add" then
sql = "select * from qmail where id = -1"
set rs = server.CreateObject("adodb.recordset")
rs.open sql,conn,1,3
rs.addnew
rs("mail") = trim(request.Form("mail"))
rs.update
rs.close
set rs = nothing
response.Write ""
conn.close
set conn = nothing
:response.end()
end if
conn.close
set conn = nothing
%>