'on error resume next
dim methodserver
dim payserver
dim terminalId
dim userName
dim userPassword
dim orderId
dim amount
dim localDate
dim localTime
dim additionalData
dim callBackUrl
dim payerId
dim result
methodserver = "https://pgwstest.bpm.bankmellat.ir/pgwchannel/services/pgw?wsdl"
payserver = "https://pgwtest.bpm.bankmellat.ir/pgwchannel/startpay.mellat"
terminalId = 1002069
userName = "sepidan"
userPassword = "0000"
orderId = 10
amount = 1
localDate = "20110108"
localTime = "102003"
additionalData = "salam"
callBackUrl = "http://www.downloadproje.com/default.asp"
payerId = 0
namespace="PaymentGatewayImplService"
'=== Create an instance of SoapClient
SET objSoapClient = Server.CreateObject("MSSOAP.SoapClient30")
'=== Set Client Properties
objSoapClient.ClientProperty("ServerHTTPRequest") = True
'=== Retrieve KWMP web services WSDL
Call objSoapClient.mssoapinit("https://pgwstest.bpm.bankmellat.ir/pgwchannel/services/pgw?wsdl", namespace)
'=== Set connection property to be over SSL
objSoapClient.ConnectorProperty("UseSSL") = True
'=== Now consume the web sevices according to KWMP Specification
output = objSoapClient.bpPayRequest (terminalId,userName,userPassword,orderId,amount,l ocalDate,localTime,additionalData,callBackUrl,paye rId)
Response.Write(output)
%>