--------------------------------------------------------------------------
<%
UseSSL = true
kkno=Request.Form("kkno")
gecay=Request.Form("gecay")
gecyil=Request.Form("gecyil")
cvc=Request.Form("cvc")
tutar=Request.Form("tutar")
ip=Request.Form("ip")
PNR=Request.Form("PNR")
SID=Request.Form("SID")
%>
<%
if not isNumeric(kkno) or Len(kkno)<15 then
Response.Write "Kredi Kart No Hatalı"
else
For i=Len(kkno)+1 to 22
kkno=kkno + " "
Next
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
Next
End if
postData="kullanici=0001&sifre=XXXXXXXX&islem=KKT&uyeno=XXXXXXXXX&posno=xxxxxxxx&kkno="& kkno& "&gectar="& gecyil & gecay & "&cvc=" & cvc & "&tutar="&tutar&"00&provno=000000&taksits=00&islemyeri=I&uyeref=0&vbref=0&khip=" & IP & "&xcip=ABABABABAB"
Set Xobj = Server.CreateObject("Msxml2.XMLHTTP")
Xobj.open "GET", "https://subesiz.vakifbank.com.tr/vpos724v3/?" & postData, 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
%>
Bana verdiği hata mesajı: 97 77.245.145.134
97 nolu hata: IP adresi yanlış.
iide zaten IP'yi Request.ServerVariables("remote_host") şeklinde alıyorum neyi yanlış oluyor anlamadım...
Burda neyi yanlış yapıyorum ben?
yoksa baştan mı yanlış bu
yardim
P.S. Değerler XXX veya ABABA şeklinde gizlenmiştir.
Sorun çözüldü.
Sunucu çıkış IP'si ve normal IP'si farklıymış. Çıkış IP'si bankaya kaydedildi ve problem ortadan kalktı.