Tc Kimlik No ile Veri Gösteme

<% Dim TCKimlikNo TCKimlikNo = 111111111111 // KİMLİK NUMARAMIZI BURAYA YAZIYORUZ Function XMLWebservices(byVal KimlikNo) Dim SOAP SOAP = ""&_ ""&_ ""&_ ""&_ ""& KimlikNo &""&_ ""&_ ""&_ "" Set objWebServices = Server.CreateObject("Msxml2.ServerXMLHTTP") objWebServices.Open "POST", "http://tckimlik.nvi.gov.tr/kpspublic.asmx", false objWebServices.setRequestHeader "Content-Type", "text/xml; charset=utf-8" objWebServices.setRequestHeader "soapAction", "http://kps.nvi.gov.tr/WS/Public/TCKimlikNoDogrula" objWebServices.Send(SOAP) Dim Text If objWebServices.readyState = 4 Then If objWebServices.Status = 200 Then Text = objWebServices.responseText End If End If Set objWebServices = Nothing XMLWebservices = Text End Function Dim Sonuc Sonuc = Trim(XMLWebservices(TCKimlikNo)) If (Len(Sonuc) <> 0) Then Set objXML = Server.CreateObject("Microsoft.XMLDOM") objXML.async = False objXML.loadxml(Sonuc) Set objNODE = objXML.selectSingleNode("soap:Envelope/soap:Body/TCKimlikNoDogrulaResponse/TCKimlikNoDogrulaResult") Response.Write "Kimlik No : "& objNode.childNodes.item(0).Text &"

"& vbCrlf Response.Write "Isim : "& objNode.childNodes.item(1).Text &"

"& vbCrlf Response.Write "Soyad : "& objNode.childNodes.item(2).Text &"

"& vbCrlf Response.Write "Doğum Tarihi : "& objNode.childNodes.item(3).Text &"
"& vbCrlf Set objNODE = Nothing Set objXML = Nothing Else Response.Write "Girdiğiniz Bilgi Doğrulanamadı!" End If%>