<%
UseSSL = true
kkno=Request.Form("kkno")
cvc=Request.Form("cvc")
gecay=Request.Form("gecay")
gecyil=Request.Form("gecyil")
tutar=Request.Form("tutar")
taksit="00"
sonkullanma=gecyil & gecay
'sanırım sisteme sabit ip adresini girmek gerekiyor. Adres gelince ona göre aşağıdakini güncellersin
'taksit=Request.Form("taksit")
IP="85.95.237.126"
'VakıfBank gönderilen bilgiler kısmında PNR ve SID ile alakalı bir şey göremedim o yüzden iptal ettim
'PNR=Request.Form("PNR")
'SID=Request.Form("SID")
%>
<%
if not isNumeric(kkno) or Len(kkno)<15 then
Response.Write "Kredi Kart No Hatalı"
else
End if
if isNumeric(tutar) or Int(tutar)>1 then 'burada tutarı: 000000000000 formatında istiyor, son iki rakam kuruş, onun için daha sonra tutar&00 olarak kullandım
For i=Len(tutar)+1 to 10
tutar="0" & tutar
kurus="00"
Next
End if
odeme=tutar & kurus
RequestMsg="kullanici=0001&sifre=78817228&islem=PRO&uyeno=000020123&posno=vp001996&kkno=" & kkno & "&gectar=" & sonkullanma & "&cvc=" & cvc & "&tutar=" & odeme & "&provno=000000&taksits=" & taksit & "&islemyeri=I&uyeref=UYEREF&vbref=0&khip=85.95.237.126&xcip=N7U18TV3QN"
Set Xobj = Server.CreateObject("Msxml2.XMLHTTP")
Xobj.open "GET", "https://subesiz.vakifbank.com.tr/vpos724v3/?" & RequestMsg, False
Xobj.send
result = Xobj.Responsetext
Set Xobj = Nothing
donenxml = result
response.write donenxml
'response.end
'------------------------------------
Set objXML = CreateObject("Microsoft.XMLDOM")
objXML.async = false
objXML.LoadXML donenxml
kod = objXML.childNodes(1).childNodes(0).text
sonuc ="
İşlem Sonucu dönen değerler "
sonuc = sonuc &"Kod :" & kod & "
"
Set objXML=Nothing
'------------------------------------
If kod = "00" Then
sonuc="ok"
Else
sonuc="hata"
hata = mesaj
End If
%>