 set step on
oInet = CREATEOBJECT("InetCtls.Inet")
if oInet.OpenURL("http://59.144.126.28/smsserver/smsserverchk.asp") = "Server Connected" then
	? oInet.OpenURL("http://59.144.126.28/smsserver/SMS10n.aspx?UserID=wiprasms&UserPassWord=success&PhoneNumber=919825929787&Text=This+is+a+test.&GSM=&CDMA=919898251863")
else
	if oInet.OpenURL("http://220.226.128.2/smsserver/smsserverchk.asp") = "Server Connected" then
		? oInet.OpenURL("http://220.226.128.2/smsserver/SMS10n.aspx?UserID=wiprasms&UserPassWord=success&PhoneNumber=919825929787&Text=This+is+a+test.&GSM=&CDMA=919898251863")
	else
		? "Server disconnected"
	endif
endif
