<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
'GOP.gov Anywhere API HTTP POST Call, VBScript Implementation
'House Republican Conference, Office of Chairman Mike Pence
'Sunday, February 1, 2008


'Basic Information
api_token = "YOUR API TOKEN HERE"
method = "METHOD GOES HERE"
	'For a list of available methods, go to www.gop.gov/api
	'To get your GOP.gov Anywhere API Token, go to www.gop.gov/portfolio/apitoken


'Parameters of the Call
calldata = "api_token=" & api_token
calldata = calldata & "&parameter=data"
calldata = calldata & "&parameter2=data2"
	'Required parameters for each method can be found at www.gop.gov/api


'Send the call to the method
set xml = Server.CreateObject("Microsoft.XMLHTTP")
xml.setRequestHeader "Content-Type", "application/x-www-form-urlencoded" 'Important!
xml.open "POST", "http://www.gop.gov/api/" & method, false
xml.send calldata
xmlstatus = xml.Status
xmlresponse = xml.responseText
set xml = nothing


'Write the XML Response
response.write(xmlresponse)
%>