Subrutinas asp

Código Asp

<%  
TheName=request.form("name) 
if TheName="John" then 
ResponseToJohn() 
else 
ResponseToUnknown() 
end if 
Sub ResponseToJohn() 
response.write ("Hi, John. How are you?") 
response.write ("<br>Did you know I got married last month?") 
End Sub 
Sub ResponseToUnknown() 
response.write ("Hi. How are you?") 
End Sub 
%>