ASPメッセージプロンプト機能およびリターンまたはターン

'************************
'Subroutine name: message prompt window
'Function: Message prompt and make a return or turn
'Parameters.
'str prompt string
'sstype Processing type: Back Return GoUrl Go to Close Close
'url Go to direction
'************************
Sub MsgBox(str,sype,url)
 response.write "<script language=javascript>"
 response.write "alert('"&str&"');"
 select case stype
 case "Back"
  response.write "history.go(-1);"
 case "GoUrl"
  response.write "window.location='"&url&"'"
 case "Close"
  response.write "window.close()"
 end select
 response.write "</script>"
End Sub