<% Dim string_var,string_find,string_replace string_var="show.asp?" & Request.QueryString if inStr (string_var, "site") > 1 Then Response.Redirect("index.html") end if string_find= ".asp?" string_replace=".html_" theurl = Replace(string_var,string_find,string_replace) %> <% Set fs=Server.CreateObject("Scripting.FileSystemObject") Set f=fs.OpenTextFile(Server.MapPath(theurl), 1) Response.Write(f.ReadAll) f.Close Set f=Nothing Set fs=Nothing %>