<%@ 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") %> <% rc = 0 for each row in qr.selectNodes("//p:records") response.write "" rc = rc + 1 next %>
IdNameAccount Number
" 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 "