Tc Kimlik No Kontrolü Yardım

vallahi hiç denemedim desem

peki 11 karakter kontrolünü nasıl yaparım

if Len(tckimlik) < 11 then
...
end if

çok teşekkürler onuda yaptım sayenizde Love R10

arkadaşlar sizlere kendi hazırlamış olduğum asp dosyasını veriyorum.

<% 
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
%>

@burak_57,

Nvi nin xmlwebservisleri için id ve password yoklarsa işe yaramaz

evet katılıyorum bende.

ilk olarak bu arkadaşımın hesabı. ben burak_57 arkadaşlar üyeliğim durduruldu neden bilmiyorum moderator arkadaşlardan birine msj attm cevap bekliyorum bakalım neyse konumuza dönersek.

Id ve password isteyene kadar devam ozmn isterse ona göre bir bot yazmak düşer ama şuanda bu sistem sorunsuz çalışmakta. devlet her an sistem değişikliğine gittiğine göre yapacak fazlada birşey yok olana ayak uydurmamız gerekiyor gibi.