<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>