<% Action = request("Action") Gubun = request("Gubun") Select Case Action Case "" Server.Execute "List.asp" Case "List" Server.Execute "List.asp" Case "Write" Server.Execute "Write.asp" Case "Edit" Server.Execute "Edit.asp" Case "Delete" Server.Execute "Delete.asp" Case "View" Server.Execute "View.asp" Case "comment" Server.Execute "cmtReg.asp" Case "cmtDel" Server.Execute "cmtDel.asp" End Select %>