<% 
Dim TCKimlikNo, Ad, Soyad, Yil
  TCKimlikNo	= 00000000000
  TCAd			= "test"
  TCSoyad		= "test"
  TCYil			= "2010"

Function XMLWebservices(byVal KimlikNo,Ad,Soyad,Yil) 
	Dim SOAP 
		 SOAP = "<?xml version=""1.0"" encoding=""utf-8""?>" &_ 
				 "<soap:Envelope xmlns:xsi=""http://www.w3.org/2001/XMLSchema-instance"" xmlns:xsd=""http://www.w3.org/2001/XMLSchema"" xmlns:soap=""http://schemas.xmlsoap.org/soap/envelope/"">" &_ 
				 "  <soap:Body>" &_ 
				 "    <TCKimlikNoDogrula xmlns=""http://tckimlik.nvi.gov.tr/WS"">" &_ 
				 "      <TCKimlikNo>" & KimlikNo &"</TCKimlikNo>" &_ 
				 "      <Ad>" & Ad &"</Ad>" &_
				 "      <Soyad>" & Soyad &"</Soyad>" &_
				 "      <DogumYili>" & Yil &"</DogumYili>" &_
				 "    </TCKimlikNoDogrula>" &_ 
				 "  </soap:Body>" &_ 
				 "</soap:Envelope>" 

	Set objWebServices = Server.CreateObject("Msxml2.ServerXMLHTTP" ) 
	   objWebServices.Open "POST" , "http://tckimlik.nvi.gov.tr/Service/KPSPublic.asmx" , false 
	   objWebServices.setRequestHeader "Content-Type" , "text/xml; charset=utf-8" 
	   objWebServices.setRequestHeader "Content-Length" , "length" 
	   objWebServices.setRequestHeader "soapAction" , "http://tckimlik.nvi.gov.tr/WS/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,TCAd,TCSoyad,TCYil)) 

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" ) 
		if objNode.childNodes.item(0).Text = "true" then
			Response.Write "Doğru Bilgi"
		Else
			Response.Write "Yanlış Bilgi"
		End if
					
	Set objNODE = Nothing 
	Set objXML = Nothing 

Else 
	Response.Write "Girdiğiniz Bilgi Doğrulanamadı!" 
End If
%>