Programalama > ASP

		<%'nolovelust
		  '05.05.2003
		  'www.smslust.net
		    url="http://wwp.icq.com/scripts/WWPMsg.dll?from="&request("un")&"&fromemail="&request("email")&"&subject=smslust.net+wap+IcqPager&body="&server.urlencode(request("mesaj"))&"&to="&request("icq")&"&Send=Send+Message"
			Set smsLUST = Server.CreateObject("Msxml2.XMLHTTP")
			smslust.open "GET",url, false 
			smslust.send()
			sonuc=smslust.responseText
			set smsLUST=Nothing
			if instr(sonuc,"will locate")>0 then
			sonuc="Your pager has been sent to icq number: "&request("icq")&""
			else
            sonuc="Your pager hasnot been sent!"
			end if
			Set smsLUST = nothing

			%>