function saveMailing ()
	
		set x = document.getElementById("mailx")
		
		if x.value <> "" then
		
			Set oXML = CreateObject("Msxml2.XMLHTTP")
				
			randomize timer
			
			fg = int(rnd * 100000)
						
			oXML.Open "GET", "process.asp?action=saveEmail&fg=" & fg & "&eMail=" & x.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
				
				x.value = ""
				msgbox "E-Posta adresiniz basariyla kaydedildi. Tesekkur ederiz"
				
			else 
	
				x.value = ""
				msgbox "Bu e-posta adresi zaten kayitli. Lutfen baska bir adresle deneyin"
			
			end if
			
		else
		
			msgbox "Lutfen kaydetmek istediginiz e-posta adresinizi giriniz"
		
		end if
		

	end function