Dim email
Dim apikey
Dim listId
Dim resp

email = Trim(Request.Form("Email"))
listId = "xxxxxx"
apikey = "zzzzzzzzzzzzzzzzzzzzzz"

Dim xmlhttp
Set xmlhttp = Server.Createobject("MSXML2.ServerXMLHTTP")
xmlhttp.Open "GET","http://api.mailchimp.com/1.2/?method=listsubscribe&output=xml&apikey=" & apikey & "&id=" & list_id & "&email=" & Server.URLEncode(email) & "&merge_vars=",false
xmlhttp.send
resp = xmlhttp.responsetext
Set xmlhttp = Nothing