
<!-- #include file="../include.asp" -->

<%
main()
Sub main

	Dim Port
	Port = Request.ServerVariables("SERVER_PORT")


	Dim ShortCutFile
	ShortCutFile = "[DEFAULT]" & vbCrLf
	ShortCutFile = ShortCutFile & "BASEURL=http://" & Request.ServerVariables("HTTP_HOST") &  "/" & Request("url") & vbCrLf
	ShortCutFile = ShortCutFile & "[InternetShortcut]" & vbCrLf
	ShortCutFile = ShortCutFile & "URL=http://" & Request.ServerVariables("HTTP_HOST") & "/" & Request("url") & vbCrLf

	Dim Lavel
	Response.Expires = 0
	Response.Buffer = TRUE
	Response.Clear
	Response.Charset = "shift_jis"
	If Request("url") = "" & HomeAlias & "" Then
		Lavel = AppTitle & ".url"
		Response.ContentType = "application/download; name=" & Lavel
		Response.AddHeader "Content-Disposition", "attachment; filename=" & Lavel
		Response.AddHeader "Content-Disposition", "inline; filename=" & Lavel
	ElseIf Request("url") = "CyberTrade" Then
		Lavel = "サイバートレード21.url"
		Response.ContentType = "application/download; name=" & Lavel
		Response.AddHeader "Content-Disposition", "attachment; filename=" & Lavel
		Response.AddHeader "Content-Disposition", "inline; filename=" & Lavel
	ElseIf Request("url") = "sj4weblink" Then
		Lavel = "データリンク For Web.url"
		Response.ContentType = "application/download; name=" & Lavel
		Response.AddHeader "Content-Disposition", "attachment; filename=" & Lavel
		Response.AddHeader "Content-Disposition", "inline; filename=" & Lavel
	ElseIf Request("url") = "cs" Then
		Lavel = "サイバースクエア.url"
		Response.ContentType = "application/download; name=" & Lavel
		Response.AddHeader "Content-Disposition", "attachment; filename=" & Lavel
		Response.AddHeader "Content-Disposition", "inline; filename=" & Lavel
	End If
	Response.Write ShortCutFile
	Response.End

End Sub
%>