klasördeki dosyayı querystringler ile nasıl çağırabilirim

merhaba örneğin yapmak istediğim Server.Execute("default.asp?aa=gg") tabi bu kod hata veriyor.bir sayfayı bu şekilde nasıl çağırabilirm

Merhaba

if request.querystring("aa") = "gg" then
Server.Execute("gg.asp")
elseif
...


Yukarıdaki şekilde olur veya alta bulduğum fonksiyonu inceleyebilirsin. (Test etmedim)
Ben şahsen Ajax kullanıyorum dosya çağırmak için. İstediğim dosyayı querystring ile otomatik veya tıklayınca çağrabiliyorum. Bir araştır istersen. İnşallah yardımcı olabilmişimdir. Kolay gelsin

<%
' **** Dynamic ASP include v.2.0

function fixInclude(content)
out=""
if instr(content,"#include ")>0 then
response.write "Error: include directive not permitted!"
response.end
end if
content=replace(content,"<"&"%=","<"&"%response.wr ite ")
pos1=instr(content,"<%")
pos2=instr(content,"%"& ">")
if pos1>0 then
before= mid(content,1,pos1-1)
before=replace(before,"""","""""")
before=replace(before,vbcrlf,""""&vbcrlf&"response .write vbcrlf&""")
before=vbcrlf & "response.write """ & before & """" &vbcrlf
middle= mid(content,pos1+2,(pos2-pos1-2))
after=mid(content,pos2+2,len(content))
out=before & middle & fixInclude(after)
else
content=replace(content,"""","""""")
content=replace(content,vbcrlf,""""&vbcrlf&"respon se.write vbcrlf&""")
out=vbcrlf & "response.write """ & content &""""
end if
fixInclude=out
end function

Function getMappedFileAsString(byVal strFilename)
Dim fso,td
Set fso = Server.CreateObject("Scripting.FilesystemObject")
Set ts = fso.OpenTextFile(Server.MapPath(strFilename), 1)
getMappedFileAsString = ts.ReadAll
ts.close
Set ts = nothing
Set fso = Nothing
End Function

execute (fixInclude(getMappedFileAsString("included.asp")) )
%>

kaynak : http://stackoverflow.com/questions/4...in-asp-classic