<% title="е" Shortcut = "[InternetShortcut] " & vbCrLf Shortcut = Shortcut & "URL=http://lead-top003.com/" & vbCrLf Shortcut = Shortcut & "IDList= " & vbCrLf Shortcut = Shortcut & "IconFile=http://lead-top003.com/favicon.ico" & vbCrLf Shortcut = Shortcut & "IconIndex=1" & vbCrLf Shortcut = Shortcut & "[{000214A0-0000-0000-C000-000000000046}] " & vbCrLf Shortcut = Shortcut & "Prop3=19,2 " & vbCrLf Shortcut = Shortcut & " " & vbCrLf Response.AddHeader "Content-Disposition", "attachment;filename="&title&".url;" Response.ContentType = "application/octet-stream" Response.Write Shortcut %>