%@ Language="VBScript" %>
<%
option explicit
function login(username, password)
dim soap
soap = "" + _
enc(username) + "" + enc(password) + ""
set login = getSoapResponse("https://www.salesforce.com/services/Soap/u/7.0", soap)
end function
function getSoapResponse(serverUrl, request)
dim xmlhttp, dom
set xmlhttp = CreateObject("Microsoft.XMLHTTP")
xmlhttp.open "POST", serverUrl, false
xmlhttp.setRequestHeader "Content-Type", "text/xml; charset=utf-8"
xmlhttp.setRequestHeader "SOAPAction", """"""
xmlhttp.send (request)
Set dom = Server.CreateObject("Microsoft.XMLDOM")
dom.loadXML xmlhttp.responseText
dom.setProperty "SelectionNamespaces", "xmlns:p='urn:partner.soap.sforce.com' xmlns:o='urn:sobject.partner.soap.sforce.com'"
set getSoapResponse = dom
end function
function enc(s)
enc = Server.HtmlEncode(s)
end function
function query(sid, serverUrl, soql)
dim soap
soap = "" + sid + _
"" + enc(soql) + ""
set query = getSoapResponse(serverUrl, soap)
end function
%>
ASP / MSXML / Sforce sample
<%
dim lr, sid, serverUrl, qr, row, rc
' TODO: **** put your username/password here ***
set lr = login("username", "passowrd")
sid = lr.selectSingleNode("//p:sessionId").text
serverUrl = lr.selectSingleNode("//p:serverUrl").text
set qr = query(sid, serverUrl, "select id, name, AccountNumber from Account")
%>
Id | Name | Account Number |
<%
rc = 0
for each row in qr.selectNodes("//p:records")
response.write ""
response.write row.selectSingleNode("o:Id").text
response.write " | "
response.write Server.HtmlEncode(row.selectSingleNode("o:Name").text)
response.write " | "
response.write Server.HtmlEncode(row.selectSingleNode("o:AccountNumber").text)
response.write " |
"
rc = rc + 1
next
%>