her bankanin sanal pos ornekleri.

18-11-2009, 09:33:28

Yapi kredi :

<%

Number        = Trim(Number)
Ay              = Trim(Right(Ay,2))
Yil               = Trim(Right(Yil,2))
Cvv2Val       = Trim(Cvv2Val)
total           = Trim(total)
gExpire        = Ay & Yil

'--------------------------------------------
gServer = "https://www.posnet.ykb.com/PosnetWebService/XML"
'gServer = "http://setmpos.ykb.com/PosnetWebService/XML" 'TEST
'--------------------------------------------

postdata = "<posnetRequest>" & vbNewLine
postdata = postdata & "	<mid>" & Name & "</mid>" & vbNewLine
postdata = postdata & "	<tid>" & Password & "</tid>" & vbNewLine
postdata = postdata & "	<sale>" & vbNewLine
postdata = postdata & "		<amount>" & total & "</amount>" & vbNewLine
postdata = postdata & "		<ccno>" & Number & "</ccno>" & vbNewLine
postdata = postdata & "		<currencyCode>YT</currencyCode>" & vbNewLine
postdata = postdata & "		<cvc>" &Cvv2Val& "</cvc>" & vbNewLine
postdata = postdata & "		<expDate>" &gExpire& "</expDate>" & vbNewLine
postdata = postdata & "		<orderID>" & OrderId & "</orderID>" & vbNewLine
postdata = postdata & "		<installment>" &taksit& "</installment>" & vbNewLine
postdata = postdata & "	</sale>" & vbNewLine
postdata = postdata & "</posnetRequest>" & vbNewLine

'------------------------------------
postData = "?xmldata=" & Server.URLEncode(postData)
'------------------------------------
	Set Xobj = Server.CreateObject("Msxml2.XMLHTTP")
	Xobj.Open "POST",gServer,false
	Xobj.setRequestHeader "Content-Type","application/x-www-form-urlencoded"
	Xobj.Send postData
    result = Xobj.Responsetext 

	'Set Xobj = CreateObject("SOFTWING.ASPtear")
	'Xobj.FollowRedirects=True
	'result = Xobj.Retrieve(gServer, 1, postData, "", "")

	Set Xobj  = Nothing

donenxml = result

'Response.Write "<P>" & donenxml
'Response.End

'------------------------------------
Set objXML = CreateObject("Microsoft.XMLDOM") 
objXML.async = false 
objXML.LoadXML donenxml

approved  = objXML.childNodes(1).childNodes(0).text
respCode  = objXML.childNodes(1).childNodes(1).text
respText   = objXML.childNodes(1).childNodes(2).text
yourIP      = objXML.childNodes(1).childNodes(3).text

sonuc  ="<B>İşlem Sonucu dönen değerler</B><P> "
sonuc  = sonuc & "approved  :" & approved  & "<BR>"
sonuc  = sonuc & "respCode  :" & respCode  & "<BR>"
sonuc  = sonuc & "respText :" & respText & "<BR>"
sonuc  = sonuc & "yourIP :" & yourIP & "<BR>"

'response.write sonuc
'response.End

Set objXML=Nothing

'------------------------------------

If  approved <> 0 Then

k_sonuc="ok"

Else

k_sonuc="hata"
hata = respCode &"<P>"& respText

End If 

%><!-- CEVAP ÖRNEĞİ
<?xml version='1.0'?>
<posnetResponse>
<approved>0</approved>
<respCode>0003</respCode>
<respText>java.lang.IllegalArgumentException: INVALID REQUEST</respText>
<yourIP>127.0.0.1</yourIP>
</posnetResponse> 
-->

Koc Bank :

<%

Number        = Trim(Number)
Ay              = Trim(Right(Ay,2))
Yil               = Trim(Right(Yil,2))
Cvv2Val       = Trim(Cvv2Val)
total           = Trim(total)
gExpire         = Ay & "/" & Yil

'--------------------------------------------
gServer = "https://www.kocbankvpos.com/servlet/cc5ApiServer"
'--------------------------------------------

postdata = "<?xml version=""1.0"" encoding=""ISO-8859-1""?>" & vbNewLine
postdata = postdata & "<CC5Request>" & vbNewLine
postdata = postdata & "	<Name>" & Name & "</Name>" & vbNewLine
postdata = postdata & "	<Password>" & Password & "</Password>" & vbNewLine
postdata = postdata & "	<ClientId>" & ClientId & "</ClientId>" & vbNewLine
postdata = postdata & "	<Mode>P</Mode>" & vbNewLine
postdata = postdata & "	<OrderId>" & OrderId & "</OrderId>" & vbNewLine
postdata = postdata & "	<Type>Auth</Type>" & vbNewLine
postdata = postdata & "	<Number>" & Number & "</Number>" & vbNewLine
postdata = postdata & "	<Expires>" & gExpire & "</Expires>" & vbNewLine
postdata = postdata & "	<Cvv2Val>" & Cvv2Val & "</Cvv2Val>" & vbNewLine
postdata = postdata & "	<Total>" & total & "</Total>" & vbNewLine
postdata = postdata & "	<Taksit>" & taksit & "</Taksit>" & vbNewLine
postdata = postdata & "	<Currency>949</Currency>" & vbNewLine
postdata = postdata & "	<UserId></UserId>" & vbNewLine
postdata = postdata & "	<email></email>" & vbNewLine
postdata = postdata & "	" & vbNewLine
postdata = postdata & "	<BillTo>" & vbNewLine
postdata = postdata & "	<Name></Name>" & vbNewLine
postdata = postdata & "		<Street1></Street1>" & vbNewLine
postdata = postdata & "		<Street2></Street2>" & vbNewLine
postdata = postdata & "		<Street3></Street3>" & vbNewLine
postdata = postdata & "		<City></City>" & vbNewLine
postdata = postdata & "		<PostalCode></PostalCode>" & vbNewLine
postdata = postdata & "		<TelVoice></TelVoice>" & vbNewLine
postdata = postdata & "	</BillTo>" & vbNewLine
postdata = postdata & "	<ShipTo>" & vbNewLine
postdata = postdata & "		<Name></Name>" & vbNewLine
postdata = postdata & "		<Street1></Street1>" & vbNewLine
postdata = postdata & "		<Street2></Street2>" & vbNewLine
postdata = postdata & "		<Street3></Street3>" & vbNewLine
postdata = postdata & "		<City></City>" & vbNewLine
postdata = postdata & "		<PostalCode></PostalCode>" & vbNewLine
postdata = postdata & "		<TelVoice></TelVoice>" & vbNewLine
postdata = postdata & "	</ShipTo>" & vbNewLine
postdata = postdata & "</CC5Request>" & vbNewLine



'------------------------------------
postData = "DATA=" & Server.URLEncode(postData)
'------------------------------------

	Set Xobj = Server.CreateObject("Msxml2.XMLHTTP")
	Xobj.Open "POST",gServer,false
	Xobj.setRequestHeader "Content-Type","application/x-www-form-urlencoded"
	Xobj.Send postData
    result = Xobj.Responsetext 

	'Set Xobj = CreateObject("SOFTWING.ASPtear")
	'Xobj.FollowRedirects=True
	'result = Xobj.Retrieve(gServer, 1, postData, "", "")

	Set Xobj  = Nothing

donenxml = result

'Response.Write "<P>" & donenxml
'Response.End


'------------------------------------
Set objXML = CreateObject("Microsoft.XMLDOM") 
objXML.async = false 
objXML.LoadXML donenxml

OrderID = objXML.childNodes(1).childNodes(0).text
GroupId = objXML.childNodes(1).childNodes(1).text
Responseg = objXML.childNodes(1).childNodes(2).text
AuthCode = objXML.childNodes(1).childNodes(3).text
HostRefNumber = objXML.childNodes(1).childNodes(4).text
ProcReturnCode = objXML.childNodes(1).childNodes(5).text
TransId = objXML.childNodes(1).childNodes(6).text
ErrMsg = objXML.childNodes(1).childNodes(7).text
Extra = objXML.childNodes(1).childNodes(8).text

sonuc  ="<B>İşlem Sonucu dönen değerler</B><P> "
sonuc  = sonuc &"OrderID :" & OrderID & "<BR>"
sonuc  = sonuc & "GroupId :" & GroupId & "<BR>"
sonuc  = sonuc & "Responseg :" & Responseg& "<BR>"
sonuc  = sonuc & "AuthCode :" & AuthCode & "<BR>"
sonuc  = sonuc & "HostRefNumber :" & HostRefNumber & "<BR>"
sonuc  = sonuc & "ProcReturnCode :" & ProcReturnCode& "<BR>"
sonuc  = sonuc & "TransId :" & TransId & "<BR>"
sonuc  = sonuc & "ErrMsg :" & ErrMsg & "<BR>"
sonuc  = sonuc & "Extra :" & Extra& "<BR>"

'response.write sonuc
'response.End

Set objXML=Nothing

'------------------------------------

If  ProcReturnCode = 0 Then

k_sonuc="ok"

Else

k_sonuc="hata"
hata = ErrMsg &"<P>"& Extra

End If 

%><!-- CEVAP ÖRNEĞİ
<?xml version="1.0" encoding="ISO-8859-9"?>
<CC5Response>
  <OrderId>19127148</OrderId>
  <GroupId></GroupId>
  <Response>Error</Response>
  <AuthCode></AuthCode>
  <HostRefNum></HostRefNum>
  <ProcReturnCode>99</ProcReturnCode>
  <TransId></TransId>
  <ErrMsg>Insufficient permissions to perform requested operation.</ErrMsg>
  <Extra>
    <HOSTMSG>Islem yetkisi yok, client id, kullanici adi veya sifre hatali girilmis olabilir.</HOSTMSG>
    <NUMCODE>00009900641096</NUMCODE>
  </Extra>
</CC5Response>
-->

Is Bankasi :

<%

Number        = Trim(Number)
Ay              = Trim(Right(Ay,2))
Yil               = Trim(Right(Yil,2))
Cvv2Val       = Trim(Cvv2Val)
total           = Trim(total)
gExpire         = Ay & "/" & Yil

'--------------------------------------------
gServer = "https://spos.isbank.com.tr/servlet/cc5ApiServer"
'--------------------------------------------

postdata = "<?xml version=""1.0"" encoding=""ISO-8859-1""?>" & vbNewLine
postdata = postdata & "<CC5Request>" & vbNewLine
postdata = postdata & "	<Name>" & Name & "</Name>" & vbNewLine
postdata = postdata & "	<Password>" & Password & "</Password>" & vbNewLine
postdata = postdata & "	<ClientId>" & ClientId & "</ClientId>" & vbNewLine
postdata = postdata & "	<Mode>P</Mode>" & vbNewLine
postdata = postdata & "	<OrderId>" & OrderId & "</OrderId>" & vbNewLine
postdata = postdata & "	<Type>Auth</Type>" & vbNewLine
postdata = postdata & "	<Number>" & Number & "</Number>" & vbNewLine
postdata = postdata & "	<Expires>" & gExpire & "</Expires>" & vbNewLine
postdata = postdata & "	<Cvv2Val>" & Cvv2Val & "</Cvv2Val>" & vbNewLine
postdata = postdata & "	<Total>" & total & "</Total>" & vbNewLine
postdata = postdata & "	<Taksit>" & taksit & "</Taksit>" & vbNewLine
postdata = postdata & "	<Currency>949</Currency>" & vbNewLine
postdata = postdata & "	<UserId></UserId>" & vbNewLine
postdata = postdata & "	<email></email>" & vbNewLine
postdata = postdata & "	" & vbNewLine
postdata = postdata & "	<BillTo>" & vbNewLine
postdata = postdata & "	<Name></Name>" & vbNewLine
postdata = postdata & "		<Street1></Street1>" & vbNewLine
postdata = postdata & "		<Street2></Street2>" & vbNewLine
postdata = postdata & "		<Street3></Street3>" & vbNewLine
postdata = postdata & "		<City></City>" & vbNewLine
postdata = postdata & "		<PostalCode></PostalCode>" & vbNewLine
postdata = postdata & "		<TelVoice></TelVoice>" & vbNewLine
postdata = postdata & "	</BillTo>" & vbNewLine
postdata = postdata & "	<ShipTo>" & vbNewLine
postdata = postdata & "		<Name></Name>" & vbNewLine
postdata = postdata & "		<Street1></Street1>" & vbNewLine
postdata = postdata & "		<Street2></Street2>" & vbNewLine
postdata = postdata & "		<Street3></Street3>" & vbNewLine
postdata = postdata & "		<City></City>" & vbNewLine
postdata = postdata & "		<PostalCode></PostalCode>" & vbNewLine
postdata = postdata & "		<TelVoice></TelVoice>" & vbNewLine
postdata = postdata & "	</ShipTo>" & vbNewLine
postdata = postdata & "</CC5Request>" & vbNewLine


'------------------------------------
postData = "DATA=" & Server.URLEncode(postData)
'------------------------------------

	Set Xobj = Server.CreateObject("Msxml2.XMLHTTP")
	Xobj.Open "POST",gServer,false
	Xobj.setRequestHeader "Content-Type","application/x-www-form-urlencoded"
	Xobj.Send postData
    result = Xobj.Responsetext 

	'Set Xobj = CreateObject("SOFTWING.ASPtear")
	'Xobj.FollowRedirects=True
	'result = Xobj.Retrieve(gServer, 1, postData, "", "")

	Set Xobj  = Nothing

donenxml = result

'Response.Write "<P>" & donenxml
'Response.End


'------------------------------------
Set objXML = CreateObject("Microsoft.XMLDOM") 
objXML.async = false 
objXML.LoadXML donenxml

OrderID = objXML.childNodes(1).childNodes(0).text
GroupId = objXML.childNodes(1).childNodes(1).text
Responseg = objXML.childNodes(1).childNodes(2).text
AuthCode = objXML.childNodes(1).childNodes(3).text
HostRefNumber = objXML.childNodes(1).childNodes(4).text
ProcReturnCode = objXML.childNodes(1).childNodes(5).text
TransId = objXML.childNodes(1).childNodes(6).text
ErrMsg = objXML.childNodes(1).childNodes(7).text
Extra = objXML.childNodes(1).childNodes(8).text

sonuc  ="<B>İşlem Sonucu dönen değerler</B><P> "
sonuc  = sonuc &"OrderID :" & OrderID & "<BR>"
sonuc  = sonuc & "GroupId :" & GroupId & "<BR>"
sonuc  = sonuc & "Responseg :" & Responseg& "<BR>"
sonuc  = sonuc & "AuthCode :" & AuthCode & "<BR>"
sonuc  = sonuc & "HostRefNumber :" & HostRefNumber & "<BR>"
sonuc  = sonuc & "ProcReturnCode :" & ProcReturnCode& "<BR>"
sonuc  = sonuc & "TransId :" & TransId & "<BR>"
sonuc  = sonuc & "ErrMsg :" & ErrMsg & "<BR>"
sonuc  = sonuc & "Extra :" & Extra& "<BR>"

'response.write sonuc
'response.End

Set objXML=Nothing

'------------------------------------

If  ProcReturnCode = 0 Then

k_sonuc="ok"

Else

k_sonuc="hata"
hata = ErrMsg &"<P>"& Extra

End If 

%><!-- CEVAP ÖRNEĞİ
<?xml version="1.0" encoding="ISO-8859-9"?>
<CC5Response>
  <OrderId>19127148</OrderId>
  <GroupId></GroupId>
  <Response>Error</Response>
  <AuthCode></AuthCode>
  <HostRefNum></HostRefNum>
  <ProcReturnCode>99</ProcReturnCode>
  <TransId></TransId>
  <ErrMsg>Insufficient permissions to perform requested operation.</ErrMsg>
  <Extra>
    <HOSTMSG>Islem yetkisi yok, client id, kullanici adi veya sifre hatali girilmis olabilir.</HOSTMSG>
    <NUMCODE>00009900641096</NUMCODE>
  </Extra>
</CC5Response>
-->

Garanti :

<%

Number        = Trim(Number)
Ay              = Trim(Right(Ay,2))
Yil               = Trim(Right(Yil,2))
Cvv2Val       = Trim(Cvv2Val)
total           = Trim(total)
gExpire         = Ay & "/" & Yil

'--------------------------------------------
gServer = "https://ccpos.garanti.com.tr/servlet/cc5ApiServer"
'--------------------------------------------

	postData = "<?xml version=""1.0"" encoding=""ISO-8859-1""?>" & vbNewLine
	postData = postData &"<CC5Request>" & vbNewLine
	postData = postData &"	<Name>" & Name & "</Name>" & vbNewLine
	postData = postData &"	<Password>" & Password & "</Password>" & vbNewLine
	postData = postData &"	<ClientId>" & ClientId & "</ClientId>" & vbNewLine
	postData = postData &"	<IPAddress></IPAddress>" & vbNewLine
	postData = postData &vbNewLine 
	postData = postData &"	<Email></Email>" & vbNewLine
	postData = postData &"	<Mode>P</Mode>" & vbNewLine
	postData = postData &"	<OrderId>" & OrderId & "</OrderId>" & vbNewLine
	postData = postData &"	<GroupId></GroupId>" & vbNewLine
	postData = postData &"	<TransId></TransId>" & vbNewLine
	postData = postData &vbNewLine 
	postData = postData &"	<UserId></UserId>" & vbNewLine
	postData = postData &"		<Type>Auth</Type>" & vbNewLine
	postData = postData &"		<Number>" & Number & "</Number>" & vbNewLine
	postData = postData &"		<Expires>" & gExpire & "</Expires>" & vbNewLine
	postData = postData &"		<Cvv2Val>" & Cvv2Val & "</Cvv2Val>" & vbNewLine
	postData = postData &"		<Total>" & total & "</Total>" & vbNewLine
	postData = postData &"		<Currency>949</Currency>" & vbNewLine
		'postData = postData &"		<Currency>792</Currency>" & vbNewLine
	postData = postData &"		<Taksit>" & taksit & "</Taksit>" & vbNewLine
	postData = postData &vbNewLine 
	postData = postData &"	<BillTo>" & vbNewLine
	postData = postData &"		<Name></Name>" & vbNewLine
	postData = postData &"		<Street1></Street1>" & vbNewLine
	postData = postData &"		<Street2></Street2>" & vbNewLine
	postData = postData &"		<Street3></Street3>" & vbNewLine
	postData = postData &"		<City></City>" & vbNewLine
	postData = postData &"		<StateProv></StateProv>" & vbNewLine
	postData = postData &"		<PostalCode></PostalCode>" & vbNewLine
	postData = postData &"		<Country></Country>" & vbNewLine
	postData = postData &"		<Company></Company>" & vbNewLine
	postData = postData &"		<TelVoice></TelVoice>" & vbNewLine
	postData = postData &"	</BillTo>" & vbNewLine
	postData = postData &vbNewLine 
	postData = postData &"	<ShipTo>" & vbNewLine
	postData = postData &"		<Name></Name>" & vbNewLine
	postData = postData &"		<Street1></Street1>" & vbNewLine
	postData = postData &"		<Street2></Street2>" & vbNewLine
	postData = postData &"		<Street3></Street3>" & vbNewLine
	postData = postData &"		<City></City>" & vbNewLine
	postData = postData &"		<StateProv></StateProv>" & vbNewLine
	postData = postData &"		<PostalCode></PostalCode>" & vbNewLine
	postData = postData &"		<Country></Country>" & vbNewLine
	postData = postData &"	</ShipTo>" & vbNewLine
	postData = postData &vbNewLine 
	postData = postData &"	<Extra></Extra>" & vbNewLine
	postData = postData &"</CC5Request>" & vbNewLine

'------------------------------------
postData = "DATA=" & Server.URLEncode(postData)
'------------------------------------

	Set Xobj = Server.CreateObject("Msxml2.XMLHTTP")
	Xobj.Open "POST",gServer,False
	Xobj.setRequestHeader "Content-Type","application/x-www-form-urlencoded"
	Xobj.Send postData
    result = Xobj.Responsetext 

	'Set Xobj = CreateObject("SOFTWING.ASPtear")
	'Xobj.FollowRedirects=True
	'result = Xobj.Retrieve(gServer, 1, postData, "", "")

	Set Xobj  = Nothing

donenxml = result

'Response.Write "<P>" & donenxml
'Response.End

'------------------------------------
Set objXML = CreateObject("Microsoft.XMLDOM") 
objXML.async = false 
objXML.LoadXML donenxml

OrderID = objXML.childNodes(1).childNodes(0).text
GroupId = objXML.childNodes(1).childNodes(1).text
Responseg = objXML.childNodes(1).childNodes(2).text
AuthCode = objXML.childNodes(1).childNodes(3).text
HostRefNumber = objXML.childNodes(1).childNodes(4).text
ProcReturnCode = objXML.childNodes(1).childNodes(5).text
TransId = objXML.childNodes(1).childNodes(6).text
ErrMsg = objXML.childNodes(1).childNodes(7).text
Extra = objXML.childNodes(1).childNodes(8).text

sonuc  ="<B>İşlem Sonucu dönen değerler</B><P> "
sonuc  = sonuc &"OrderID :" & OrderID & "<BR>"
sonuc  = sonuc & "GroupId :" & GroupId & "<BR>"
sonuc  = sonuc & "Responseg :" & Responseg& "<BR>"
sonuc  = sonuc & "AuthCode :" & AuthCode & "<BR>"
sonuc  = sonuc & "HostRefNumber :" & HostRefNumber & "<BR>"
sonuc  = sonuc & "ProcReturnCode :" & ProcReturnCode& "<BR>"
sonuc  = sonuc & "TransId :" & TransId & "<BR>"
sonuc  = sonuc & "ErrMsg :" & ErrMsg & "<BR>"
sonuc  = sonuc & "Extra :" & Extra& "<BR>"

'response.write sonuc
'response.End

    
Set objXML=Nothing
'------------------------------------

If  ProcReturnCode = 0 Then

k_sonuc="ok"

Else

k_sonuc="hata"
hata = ErrMsg &"<P>"& Extra

End If 

%><!-- CEVAP ÖRNEĞİ
<?xml version="1.0" encoding="ISO-8859-9"?>
<CC5Response>
  <OrderId>19127148</OrderId>
  <GroupId></GroupId>
  <Response>Error</Response>
  <AuthCode></AuthCode>
  <HostRefNum></HostRefNum>
  <ProcReturnCode>99</ProcReturnCode>
  <TransId></TransId>
  <ErrMsg>Insufficient permissions to perform requested operation.</ErrMsg>
  <Extra>
    <HOSTMSG>Islem yetkisi yok, client id, kullanici adi veya sifre hatali girilmis olabilir.</HOSTMSG>
    <NUMCODE>00009900641096</NUMCODE>
  </Extra>
</CC5Response>
-->

Finansbank :

<%
Number        = Trim(Number)
Ay              = Trim(Right(Ay,2))
Yil               = Trim(Right(Yil,2))
Cvv2Val       = Trim(Cvv2Val)
total           = Trim(total)
gExpire        = Ay & "/" & Yil


'--------------------------------------------
gServer = "https://www.fbwebpos.com/servlet/ApiServer"
'--------------------------------------------

postdata = "<?xml version=""1.0"" encoding=""ISO-8859-1""?>" & vbNewLine
postdata = postdata & "<CC5Request>" & vbNewLine
postdata = postdata & "	<Name>" & Name & "</Name>" & vbNewLine
postdata = postdata & "	<Password>" & Password & "</Password>" & vbNewLine
postdata = postdata & "	<ClientId>" & ClientId & "</ClientId>" & vbNewLine
postdata = postdata & "	<Mode>P</Mode>" & vbNewLine
postdata = postdata & "	<OrderId></OrderId>" & vbNewLine
postdata = postdata & "	<Type>Auth</Type>" & vbNewLine
postdata = postdata & "	<Number>" & Number & "</Number>" & vbNewLine
postdata = postdata & "	<Expires>" & gExpire & "</Expires>" & vbNewLine
postdata = postdata & "	<Cvv2Val>" & Cvv2Val & "</Cvv2Val>" & vbNewLine
postdata = postdata & "	<Total>" & total & "</Total>" & vbNewLine
postdata = postdata & "	<Taksit>" & taksit & "</Taksit>" & vbNewLine
postdata = postdata & "	<Currency>949</Currency>" & vbNewLine
postdata = postdata & "	<UserId></UserId>" & vbNewLine
postdata = postdata & "	<email></email>" & vbNewLine
postdata = postdata & "	" & vbNewLine
postdata = postdata & "	<BillTo>" & vbNewLine
postdata = postdata & "	<Name></Name>" & vbNewLine
postdata = postdata & "		<Street1></Street1>" & vbNewLine
postdata = postdata & "		<Street2></Street2>" & vbNewLine
postdata = postdata & "		<Street3></Street3>" & vbNewLine
postdata = postdata & "		<City></City>" & vbNewLine
postdata = postdata & "		<PostalCode></PostalCode>" & vbNewLine
postdata = postdata & "		<TelVoice></TelVoice>" & vbNewLine
postdata = postdata & "	</BillTo>" & vbNewLine
postdata = postdata & "	<ShipTo>" & vbNewLine
postdata = postdata & "		<Name></Name>" & vbNewLine
postdata = postdata & "		<Street1></Street1>" & vbNewLine
postdata = postdata & "		<Street2></Street2>" & vbNewLine
postdata = postdata & "		<Street3></Street3>" & vbNewLine
postdata = postdata & "		<City></City>" & vbNewLine
postdata = postdata & "		<PostalCode></PostalCode>" & vbNewLine
postdata = postdata & "		<TelVoice></TelVoice>" & vbNewLine
postdata = postdata & "	</ShipTo>" & vbNewLine
postdata = postdata & "</CC5Request>" & vbNewLine


'------------------------------------
postData = "DATA=" & Server.URLEncode(postData)
'------------------------------------
	Set Xobj = Server.CreateObject("Msxml2.XMLHTTP")
	Xobj.Open "POST",gServer,false
	Xobj.setRequestHeader "Content-Type","application/x-www-form-urlencoded"
	Xobj.Send postData
    result = Xobj.Responsetext 

	'Set Xobj = CreateObject("SOFTWING.ASPtear")
	'Xobj.FollowRedirects=True
	'result = Xobj.Retrieve(gServer, 1, postData, "", "")

	Set Xobj  = Nothing

donenxml = result

'Response.Write "<P>" & donenxml
'Response.End

'------------------------------------
Set objXML = CreateObject("Microsoft.XMLDOM") 
objXML.async = false 
objXML.LoadXML donenxml

approved  = objXML.childNodes(1).childNodes(0).text
respCode  = objXML.childNodes(1).childNodes(1).text
respText   = objXML.childNodes(1).childNodes(2).text
yourIP      = objXML.childNodes(1).childNodes(3).text

sonuc  ="<B>İşlem Sonucu dönen değerler</B><P> "
sonuc  = sonuc & "approved  :" & approved  & "<BR>"
sonuc  = sonuc & "respCode  :" & respCode  & "<BR>"
sonuc  = sonuc & "respText :" & respText & "<BR>"
sonuc  = sonuc & "yourIP :" & yourIP & "<BR>"

'response.write sonuc
'response.End

Set objXML=Nothing

'------------------------------------

If  approved <> 0 Then

k_sonuc="ok"

Else

k_sonuc="hata"
hata = respCode &"<P>"& respText

End If 

%>

Akbank :

<%

Number        = Trim(Number)
Ay              = Trim(Right(Ay,2))
Yil               = Trim(Right(Yil,2))
Cvv2Val       = Trim(Cvv2Val)
total           = Trim(total)
gExpire         = Ay & "/" & Yil

'--------------------------------------------
gServer = "https://vpos.est.com.tr/servlet/cc5ApiServer"
'gServer = "https://cc5test.est.com.tr/servlet/cc5ApiServer" 'TEST
'--------------------------------------------

postdata = "<?xml version=""1.0"" encoding=""ISO-8859-1""?>" & vbNewLine
postdata = postdata & "<CC5Request>" & vbNewLine
postdata = postdata & "	<Name>" & Name & "</Name>" & vbNewLine
postdata = postdata & "	<Password>" & Password & "</Password>" & vbNewLine
postdata = postdata & "	<ClientId>" & ClientId & "</ClientId>" & vbNewLine
postdata = postdata & "	<Mode>P</Mode>" & vbNewLine
postdata = postdata & "	<OrderId>" & OrderId & "</OrderId>" & vbNewLine
postdata = postdata & "	<Type>Auth</Type>" & vbNewLine
postdata = postdata & "	<IPAddress></IPAddress>" & vbNewLine
postdata = postdata & "	<Number>" & Number & "</Number>" & vbNewLine
postdata = postdata & "	<Expires>" & gExpire & "</Expires>" & vbNewLine
postdata = postdata & "	<Cvv2Val>" & Cvv2Val & "</Cvv2Val>" & vbNewLine
postdata = postdata & "	<Total>" & total & "</Total>" & vbNewLine
postdata = postdata & "	<Taksit>" & taksit & "</Taksit>" & vbNewLine
postdata = postdata & "	<Currency>949</Currency>" & vbNewLine
postdata = postdata & "	<UserId></UserId>" & vbNewLine
postdata = postdata & "	<email></email>" & vbNewLine
postdata = postdata & "	<CardholderPresentCode>1</CardholderPresentCode>" & vbNewLine
postdata = postdata & "	<PayerSecurityLevel>13</PayerSecurityLevel>" & vbNewLine
postdata = postdata & "	<PayerTxnId>1</PayerTxnId>" & vbNewLine
postdata = postdata & "	<PayerAuthenticationCode>1</PayerAuthenticationCode>" & vbNewLine
postdata = postdata & "	<BillTo>" & vbNewLine
postdata = postdata & "	<Name></Name>" & vbNewLine
postdata = postdata & "		<Street1></Street1>" & vbNewLine
postdata = postdata & "		<Street2></Street2>" & vbNewLine
postdata = postdata & "		<Street3></Street3>" & vbNewLine
postdata = postdata & "		<City></City>" & vbNewLine
postdata = postdata & "		<PostalCode></PostalCode>" & vbNewLine
postdata = postdata & "		<TelVoice></TelVoice>" & vbNewLine
postdata = postdata & "	</BillTo>" & vbNewLine
postdata = postdata & "	<ShipTo>" & vbNewLine
postdata = postdata & "		<Name></Name>" & vbNewLine
postdata = postdata & "		<Street1></Street1>" & vbNewLine
postdata = postdata & "		<Street2></Street2>" & vbNewLine
postdata = postdata & "		<Street3></Street3>" & vbNewLine
postdata = postdata & "		<City></City>" & vbNewLine
postdata = postdata & "		<PostalCode></PostalCode>" & vbNewLine
postdata = postdata & "		<TelVoice></TelVoice>" & vbNewLine
postdata = postdata & "	</ShipTo>" & vbNewLine
postdata = postdata & "</CC5Request>" & vbNewLine


'------------------------------------
postData = "DATA=" & Server.URLEncode(postData)
'------------------------------------

	Set Xobj = Server.CreateObject("Msxml2.XMLHTTP")
	Xobj.Open "POST",gServer,false
	Xobj.setRequestHeader "Content-Type","application/x-www-form-urlencoded"
	Xobj.Send postData
    result = Xobj.Responsetext 

	'Set Xobj = CreateObject("SOFTWING.ASPtear")
	'Xobj.FollowRedirects=True
	'result = Xobj.Retrieve(gServer, 1, postData, "", "")

	Set Xobj  = Nothing

donenxml = result

'Response.Write "<P>" & donenxml
'Response.End


'------------------------------------
Set objXML = CreateObject("Microsoft.XMLDOM") 
objXML.async = false 
objXML.LoadXML donenxml

OrderID = objXML.childNodes(1).childNodes(0).text
GroupId = objXML.childNodes(1).childNodes(1).text
Responseg = objXML.childNodes(1).childNodes(2).text
AuthCode = objXML.childNodes(1).childNodes(3).text
HostRefNumber = objXML.childNodes(1).childNodes(4).text
ProcReturnCode = objXML.childNodes(1).childNodes(5).text
TransId = objXML.childNodes(1).childNodes(6).text
ErrMsg = objXML.childNodes(1).childNodes(7).text
Extra = objXML.childNodes(1).childNodes(8).text

sonuc  ="<B>İşlem Sonucu dönen değerler</B><P> "
sonuc  = sonuc &"OrderID :" & OrderID & "<BR>"
sonuc  = sonuc & "GroupId :" & GroupId & "<BR>"
sonuc  = sonuc & "Responseg :" & Responseg& "<BR>"
sonuc  = sonuc & "AuthCode :" & AuthCode & "<BR>"
sonuc  = sonuc & "HostRefNumber :" & HostRefNumber & "<BR>"
sonuc  = sonuc & "ProcReturnCode :" & ProcReturnCode& "<BR>"
sonuc  = sonuc & "TransId :" & TransId & "<BR>"
sonuc  = sonuc & "ErrMsg :" & ErrMsg & "<BR>"
sonuc  = sonuc & "Extra :" & Extra& "<BR>"

'response.write sonuc
'response.End

Set objXML=Nothing

'------------------------------------

If  ProcReturnCode = 0 Then

k_sonuc="ok"

Else

k_sonuc="hata"
hata = ErrMsg &"<P>"& Extra

End If 

%><!-- CEVAP ÖRNEĞİ
<?xml version="1.0" encoding="ISO-8859-9"?>
<CC5Response>
  <OrderId>19127148</OrderId>
  <GroupId></GroupId>
  <Response>Error</Response>
  <AuthCode></AuthCode>
  <HostRefNum></HostRefNum>
  <ProcReturnCode>99</ProcReturnCode>
  <TransId></TransId>
  <ErrMsg>Insufficient permissions to perform requested operation.</ErrMsg>
  <Extra>
    <HOSTMSG>Islem yetkisi yok, client id, kullanici adi veya sifre hatali girilmis olabilir.</HOSTMSG>
    <NUMCODE>00009900641096</NUMCODE>
  </Extra>
</CC5Response>
-->

Bankasya yok malesef=)

03-12-2009, 21:17:23

#2

omer_ozer08

php bölümünde olsa daha yararlı olur sanırım
03-12-2009, 21:26:46

#3

~~hostingrehber~~

Üyeliği durduruldu

aspde kullanılabilir.Aspyi bu kadar hor görmeyin arkadaşlar.Paylaşım için saol hocam..
07-12-2009, 19:15:20

#4

~~CaLLaKi~~

Üyeliği durduruldu

çok teşekkürler gerçekten çok faydalı bir bilgi bende sadece epayapi.dll ile çalışan garanti kodu vardı ama tüm bankaların xml ile bağlanılan bu pos kodları çok iyi oldu.

Ayrıca bu kodlar aynı mantık ile PHP ye dönüştürülebilir. Sonuçta XML request ediyoruz ve xml olarak response bilgisi dönüyor.
05-01-2010, 21:36:13

#5

UnIRC

Eyw Saolasın Yararlı Bilgi
17-01-2010, 12:21:26

#6

hayat_okulu

Kimlik doğrulama veya yönetimden onay bekliyor.

Benim sormak istediğim sadece 1 sayfa üzerinden mi sanalpos tan kredi kartı çekiliyor.ayrıca bankanın bize verdiği kodlar nereye ekleniyor.?

vesselam
23-02-2010, 00:04:28

#7

sevdigime

hayat_okulu adlı üyeden alıntı: mesajı görüntüle

Benim sormak istediğim sadece 1 sayfa üzerinden mi sanalpos tan kredi kartı çekiliyor.ayrıca bankanın bize verdiği kodlar nereye ekleniyor.?

vesselam

aynı soruyu bende soruyorum.teşekkürler
25-03-2010, 10:29:38

#8

Reaky
2 farkli odeme cesiti var, biri 3D secure diger sanal pos uygulamasi veya ikisi bir arada.
3D Secure bankaya baglanilarak tahsilat yapmaktadir, sanal pos ise siteniz uzerinden olusturulan form ile bankaya veri gonderir, gonderilen cevaba gore islem yaptirilir.

Gibi ;
```
If  ProcReturnCode = 0 Then

k_sonuc="ok"

Else

k_sonuc="hata"
hata = ErrMsg &"<P>"& Extra

End If
```
02-04-2010, 00:11:24

#9

~~ahmet007~~

Üyeliği durduruldu

Reaky kardeş ben bu kodları çok aramıştım 4 yıl önce ellerine saglık bankanın verdiginden temiz olmuş 3d sucure olayını da bu şekilde temizler yayınlarsan çok faydalı olur saygılar...
birde HALK BANK DA AYNI SİSTEMİ KULLANIYORMUŞ ÖYLEMİ ?
Tekrar Teşekkürler