<%
Dim fs, filename, readfile
Dim Text, TStream
%>
<%
Set fs = CreateObject("Scripting.FileSystemObject")
'filename=server.mappath("1")
'response.write filename
Set readfile=fs.OpenTextFile("C:\InetPub\wwwroot\PMS\inc\dbname.txt",1,False,False)...