<%@ Language=VBScript %>
<html>
<head>
<title>rep</title>
</head>
<body>
<p><font face="Arial"
size="2"><b>Please enter
region (North, South, East, West)</b></font>
<p>
<form method="POST"
<p><font
face="Arial" size="2"><b>Enter
Region:</b></font> <input
type="text" name="region"
size="20"><input type="submit"
value="Submit" name="B1"></p>
</form>
<%
dim varRegion
dim str
varRegion =
request.form("region")
str = " representative is "
getregion(varRegion)
sub getregion(region)
Select Case
region
Case
"North" response.write
"<font face = ""Arial""
size=""4"">" & region & str &
"Brian at 01952 454545"
Case
"East" response.write
"<font face = ""Arial""
size=""4"">" & region & str & "Fen
at 01952 636363"
Case
"South" response.write
"<font face = ""Arial""
size=""4"">" & region & str & "Dave
at 01952 212121"
Case
"West" response.write
"<font face = ""Arial""
size=""4"">" & region & str & "Ken
at 01952 383838"
End Select
End Sub
%>
<p> </p>
<p> </p>
<p align="center"><font
face="Arial" size="2"><a
href="http://fentyler.co.uk/vbscript.htm">Return
to VBScript Page</a></font></p>
</body>
</html>