Dim cat
cat = Request.Querystring("cat")
Select Case cat
Case "about"
Server.Execute("about.asp")
Case "email"
Server.Execute("email.asp")
Case "guestbook"
Server.Execute("guestbook.asp")
Case Else
Server.Execute("404.asp")
End Select
Dim cat
cat = Request.Querystring("cat")
Select Case cat
Case "about"
Server.Execute("about.asp")
Case "email"
Server.Execute("email.asp")
Case "guestbook"
Server.Execute("guestbook.asp")
Case Else
Server.Execute("404.asp")
End Select