Payflow2sfdc ASP Page

<-- Back 

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<META HTTP-EQUIV="Content-type" CONTENT="text/html; charset=UTF-8">
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<body>
<!--  ----------------------------------------------------------------------  -->
<!--  NOTE: These fields are optional debugging elements.  Please uncomment   -->
<!--  these lines if you wish to test in debug mode.                          -->

<!--  ----------------------------------------------------------------------  -->

	<%
	Dim objHttp
	Response.Buffer = True
	
	dim QS
	dim strURL
	dim today

	'today = DatePart("d",dt) + "/" + DatePart("m",dt) + "/" + DatePart("y",dt)

	today = FormatDateTime(Date(),2)

	strURL = "https://www.salesforce.com/servlet/servlet.WebToLead?encoding=UTF-8&oid=XXXXXXXXXX"
	QS = "first_name=" + Request.Form("USER1") + "&last_name=" + Request.Form("USER2")
	QS = QS + "&company=" + Request.Form("NAMETOSHIP")
	QS = QS + "&lead_source="  + Request.Form("USER3")
	QS = QS + "&00N50000001ODwt=" + today ' Close date
	QS = QS + "&00N50000001l57X=" + Request.Form("CUSTID") ' MemberId
	QS = QS + "&street=" + Request.Form("ADDRESS") + "&city=" + Request.Form("CITY") + "&state=" + Request.Form("STATE") + "&zip=" + Request.Form("ZIP") + "&country=" + Request.Form("COUNTRY")
	QS = QS + "&phone=" + Request.Form("PHONE") + "&email=" + Request.Form("EMAIL")
	QS = QS + "&00N50000001ODwB=" + Request.Form("AMOUNT") + "&description=" + Request.Form("DESCRIPTION")
	QS = QS + "&00N50000001lCBq=1" ' Online Payment
	QS = QS + "&00N50000001lDwJ=" + Request.Form("PNREF") ' Transaction Id
'	QS = QS +  "&debug=0&debugEmail=jchallis@salesforce.com"

'Set adrot=Server.CreateObject("MSWC.AdRotator")
'	Set objHttp = Server.CreateObject("Microsoft.XMLHTTP")
'   Needed to add permissions to HKCR\MSXML2.ServerXMLHTTP - CREATOR OWNER, CHALLISPALACE/Users,CHALLISPALACE/Power Users 
	Set objHttp = Server.CreateObject("MSXML2.ServerXMLHTTP")
'	Set objHttp = Server.CreateObject("Msxml2.XMLHTTP.6.0")
'	Set objHttp = Server.CreateObject("Msxml2.XMLHTTP.2.6")
'	Set objHttp = Server.CreateObject("Msxml2.DOMDocument.2.6")

	If Request.Form("RESPMSG") = "Approved" Then
		objHttp.Open "POST",strURL, False
		objHttp.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
		objHttp.Send QS
		strResult = objHttp.responseText
		Set objHttp = Nothing
		response.write("[" & strResult & "]<br>")
	End If	 
	response.write("[" & QS & "]<br>")

	response.end

	%>

</body>
</html>
Retrieved from "http://wiki.developerforce.com/page/Payflow2sfdc_ASP_Page"