sub sendMailForSave()
	
		set x = document.getElementById("txt_name")
		set y = document.getElementById("txt_email")
		
		if x.value = "" or y.value = "" then
		
			i = msgbox ("Lütfen adinizi, soyadinizi ve e-posta adresinizi eksiksiz giriniz.",vbOKOnly+vbDefButton2+vbInformation, "Laura Alisveris Merkezi")
			
		else
		
			Set oXML = CreateObject("Msxml2.XMLHTTP")
				
			randomize timer
			
			fg = int(rnd * 100000)
		
			oXML.Open "GET", "xmlProcess.asp?action=saveEmail&namex=" & x.value & "&emailx=" & y.value & "&fg=" & fg & "", 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("id")(0).firstChild.nodeValue = "ok" then
			
				i = msgbox ("E-Posta adresiniz basariyla kaydedildi. Ilginiz için tesekkürler.",vbOKOnly+vbDefButton2+vbInformation, "Laura Alisveris Merkezi")
		
			else
			
				i = msgbox ("Kayit sirasinda bir hata olustu: " & objXML.getElementsByTagName("id")(0).firstChild.nodeValue,vbOKOnly+vbDefButton2+vbInformation, "Laura Alisveris Merkezi")
			
			end if	
			
			x.value = ""
			y.value = ""		
		
		end if
		
	end sub