' DEFINITION: Used to update an E-mail address Response.write 'Sometype of Error on Script Prevented us from doing anything' Response.write 'Email was not added or updated' Response.write (callUpdateEmailAddress('GET', UN, PW, API_Key, eMail, List_ID)) 'Calling FunctionĬASE '201' '201 Status means the contact was added to the Constant Contact listĬASE '400' '400 Status means there was issues adding the contact or updating the contact ObjWinHttp.SetCredentials strLogin, strPassword, 0ĬASE '409' '409 Status means the contact already exists, now we need to update the contact for this list If (strLogin '') And (strPassword '') Then ObjWinHttp.Option(12) = blnEnableHttpsToHttpRedirects ObjWinHttp.Option(6) = blnEnableRedirects ObjWinHttp.Option(4) = intSslErrorIgnoreFlags ObjWinHttp.Option(0) = strUserAgentString ObjWinHttp.SetRequestHeader 'Host', strHostOverride ObjWinHttp.Open strMethod,Base_URL&'contacts' ObjWinHttp.SetTimeouts lngTimeout, lngTimeout, lngTimeout, lngTimeout Set objWinHttp = Server.CreateObject('WinHttp.WinHttpRequest.5.1') Hope this helps anyone that needs or requires a Classic ASP implementation. The attached version also contains commented text to help understand further. This code exceeds the 50,000 character limit to be able to post correctly. There are a few forums that helped in this matter that are located here: I've worked up a working version for the v1 Constant Contact API that does GET, PUT, POST Methods for a new e-mail address to a contact list and updating an e-mail address that already exists in the system to be added to the designated contact list.

Classic asp file upload example