<html>
<head>
<title>Sub kullanımı</title>
</head>

<body>
<%
Dim Sayfa

Sayfa=Request.QueryString("page")


If Sayfa="uyeler" Then
	Call Uyegoster()
Elseif Sayfa="mektup" Then
	Call Mektupgoster()
Else
	Call Basla()
End if


Sub Basla
Response.Write("Merhaba başlangıç sayfası")
End Sub

Sub Uyegoster
Response.Write("Merhaba Üyeleri göstereceğiz")
End Sub


Sub Mektupgoster
Response.Write("Mektup yazdık")
End Sub
%>
<br>
<a href="?page=uyeler">Uyeler</a> - <a href="?page=mektup">Mektup</a>
</body>
</html>