<% Function Bint(str) str = Trim(str) If str = "" Or IsNull(str) Or Not IsNumeric(str) Then str = "0" str = Replace(str, "'", "") Bint = Round(str, 0) End Function k=Bint(Request.Cookies(G_u_Cookies)("soojs_id")) Shortcut = "[InternetShortcut] " & vbCrLf IF k<>"0" Then Shortcut = Shortcut & "URL="&G_WEBURL&"?"&k & vbCrLf Else Shortcut = Shortcut & "URL="&G_WEBURL & vbCrLf End IF Shortcut = Shortcut & "IDList= " & vbCrLf Shortcut = Shortcut & "[{000214A0-0000-0000-C000-000000000046}] " & vbCrLf Shortcut = Shortcut & "Prop3=19,2 " & vbCrLf Shortcut = Shortcut & " " & vbCrLf Response.AddHeader "Content-Disposition", "attachment;filename="&G_WEBNAME&".url;" Response.ContentType = "application/octet-stream" Response.Write Shortcut %>