<%
Dim Donus
Dim RequestMsg
RequestMsg="V3 MESAJ FORMATINA UYGUN OLARAK MESAJ"
Set x = Server.CreateObject("Msxml2.XMLHTTP")
x.open "GET", "https://subesiz.vakifbank.com.tr/vpos724v3/?" & RequestMsg, False
x.send
Donus=x.responseText
response.write("Cevap:" & Donus)
response.write("
Donus cevabi XML formatindadir.Parse edilerek dokumana uygun sekilde kullanilmalidir.")
%>