How to...

This is my page:

<%
'-------------------------------------
Option Explicit
Response.Buffer = True

Dim strNav
Dim strPage
'-------------------------------------

strNav = request("nav")
If strNav = "" Then
  strNav = "navigator"
End If

'-------------------------------------
strNav = "lev_" & strNav & "ID"

strPage = request("id")
If strPage = "" Then
  strPage = "main"
End If

'--------------------------------------

Sub readPage(strPage)

  Dim fs,f,filename
  filename = server.mappath(strPage & ".asp")
 
      Set fs = CreateObject("Scripting.FileSystemObject")
      If not fs.FileExists(filename) then
          response.write("<center><b><p>&nbsp;</p><p>&nbsp;</p><p>&nbsp;</p><p>&nbsp;</p><p>&nbsp;</p><p style='color:#FF0000'> Страницата која ја барате не е достапена во моментот. Можеби и е променето името или е избришана од серверот или е во изработка. Се извинуваме. </p><p style='color:#FF0000'>  The page cannot be found. The page you are looking for might have been removed, had its name changed, or is temporarily unavailable. </p><p style='color:#FF0000'>webmaster</p><center>")
          exit sub
      End If
      set f = fs.OpenTextFile(filename)
      response.write(f.ReadAll)
      f.Close
   Set f = nothing
      Set fs = nothing
End Sub
'--------------------------------------------------
%>

Hot to add another exp. strPage1 and id1 ?