'<job id="desktopshortcut">
'<script language="vbscript">


	' DOWNLOAD ICO FILE
	sSource = "http://www.usgolfpages.com/images/favicon3.ICO" 
	sDest = "c:\favicon3.ICO" 
	sUser = "" 
	sPassword = "" 
	'---End user variables--- 
	'wsh.echo  sSource & vbNewLine & sDest 
	set oHTTP = CreateObject("Microsoft.XMLHTTP") 
	oHTTP.open "GET", sSource, False, sUser, sPassword 
	oHTTP.send 
	const adTypeBinary = 1 
	const adSaveCreateOverwrite = 2 
	set stream = createobject("adodb.stream") 
	stream.type = adTypeBinary 
	stream.mode = adModeReadWrite 
	stream.open 
	stream.write oHTTP.responseBody 
	stream.savetofile sDest, adSaveCreateOverwrite 
	stream.close 
	set oHTTP = nothing 
	set stream = nothing 
	'WScript.Echo "Done DOWNLOADING!" 



	Dim WshShell
	Dim strDesktop
	Dim oMyShortcut

	Set WshShell = CreateObject("Wscript.shell") 
	strDesktop = WshShell.SpecialFolders("Desktop") 

	Set oMyShortcut = WshShell.CreateShortcut(strDesktop + "\USGolfPages.lnk") 
	oMyShortcut.WindowStyle = 4  '3=Maximized 7=Minimized  4=Normal 
	oMyShortcut.IconLocation = "C:\favicon3.ICO" 
	OMyShortcut.TargetPath = "http://www.usgolfpages.com/"
	oMyShortCut.Save 

'</script>
'</job>