sub saveMail ()
	
	
	
		if document.getElementById("eMail").value = "" then
		
				document.getElementById("mess").innerHTML = "Lütfen E-Posta adresinizi girin."
				'document.getElementById("mess").innerHTML = "Please type your e-mail."
				document.getElementById("blackBox").style.visibility = "visible"
				document.getElementById("messageBox").style.visibility = "visible"
			
		else
	
			Set oXML = CreateObject("Msxml2.XMLHTTP")
			
			randomize timer
			
			fg = int(rnd * 100000)
						
			oXML.Open "GET", "xmlProcess.asp?action=saveEmail&fg=" & fg & "&eMail=" & document.getElementById("eMail").value & "", False 
			oXML.setRequestHeader "Content-Type", "application/form" 
			oXML.Send 
			
			xmlString = Cstr(oXML.responseText) 
			Set oXML = nothing 
			
			dim objXML
			set objXML = CreateObject("Microsoft.XMLDOM")
			objXML.async = false
			objXML.LoadXML xmlString

			
			if objXML.getElementsByTagName("field1")(0).firstChild.nodeValue = "OK" then
			
				
				document.getElementById("mess").innerHTML = "Kaydiniz basariyla yapildi."
				document.getElementById("blackBox").style.visibility = "visible"
				document.getElementById("messageBox").style.visibility = "visible"
				
			else 
			
				if objXML.getElementsByTagName("field1")(0).firstChild.nodeValue = 2 then
				
					document.getElementById("mess").innerHTML = "Bu e-posta adresi zaten kayitli."
					document.getElementById("blackBox").style.visibility = "visible"
					document.getElementById("messageBox").style.visibility = "visible"	
					
				else  	
				
					document.getElementById("mess").innerHTML = objXML.getElementsByTagName("field1")(0).firstChild.nodeValue
					document.getElementById("blackBox").style.visibility = "visible"
					document.getElementById("messageBox").style.visibility = "visible"					
				
				end if
			
			end if
			
		end if
		
		document.getElementById("eMail").value = ""
	
	end sub
	
	sub closeMessageBox()
	
		document.getElementById("blackBox").style.visibility = "hidden"
		document.getElementById("messageBox").style.visibility = "hidden"	
	
	end sub