d:\web\localuser\godt-nok.dk\public_html\EksASP\ATAFshop\database\atafshop.mdb<BR>DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=d:\web\localuser\godt-nok.dk\public_html\EksASP\ATAFshop\database\atafshop.mdb<BR>The physical path of this file is:<BR>d:\web\localuser\godt-nok.dk\public_html\EksASP\teststi.asp<BR><BR>
The ASP code of this page: <BR><BR><FONT SIZE="-1">&lt;%&nbsp;@&nbsp;LANGUAGE&nbsp;=&nbsp;VBScript&nbsp;%&gt;<BR>
&lt;%&nbsp;Option&nbsp;Explicit&nbsp;%&gt;<BR>
&lt;%<BR>
Const&nbsp;ForReading&nbsp;=&nbsp;1,&nbsp;ForWriting&nbsp;=&nbsp;2,&nbsp;ForAppending&nbsp;=&nbsp;8<BR>
Const&nbsp;TristateUseDefault&nbsp;=&nbsp;-2&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;'&nbsp;Opens&nbsp;the&nbsp;file&nbsp;using&nbsp;the&nbsp;system&nbsp;default.<BR>
Const&nbsp;TristateTrue&nbsp;=&nbsp;-1&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;'&nbsp;Opens&nbsp;the&nbsp;file&nbsp;as&nbsp;Unicode.<BR>
Const&nbsp;TristateFalse&nbsp;=&nbsp;&nbsp;0&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;'&nbsp;Opens&nbsp;the&nbsp;file&nbsp;as&nbsp;ASCII.<BR>
Dim&nbsp;objFileSystem,&nbsp;objTextStream,&nbsp;strFile,&nbsp;strLine,&nbsp;strHTML<BR>
Dim&nbsp;virtuelsti<BR>
virtuelsti&nbsp;=&nbsp;request.servervariables(&quot;PATH_INFO&quot;)<BR>
Dim&nbsp;dsnstr,&nbsp;fysisksti&nbsp;<BR>
fysisksti&nbsp;=&nbsp;server.mappath(&quot;ATAFshop/database/atafshop.mdb&quot;)<BR>
Response.Write&nbsp;(fysisksti)&nbsp;&amp;&nbsp;&quot;&lt;BR&gt;&quot;<BR>
dsnstr=&quot;DRIVER={Microsoft&nbsp;Access&nbsp;Driver&nbsp;(*.mdb)};&nbsp;DBQ=&quot;&nbsp;&amp;&nbsp;fysisksti&nbsp;<BR>
Response.Write&nbsp;(dsnstr)&nbsp;&amp;&nbsp;&quot;&lt;BR&gt;&quot;<BR>
<BR>
<BR>
<BR>
Set&nbsp;objFileSystem&nbsp;=&nbsp;Server.CreateObject(&quot;Scripting.FileSystemObject&quot;)<BR>
<BR>
strFile&nbsp;=&nbsp;Server.MapPath(Request.ServerVariables(&quot;SCRIPT_NAME&quot;))<BR>
Response.Write&nbsp;&quot;The&nbsp;physical&nbsp;path&nbsp;of&nbsp;this&nbsp;file&nbsp;is:&lt;BR&gt;&quot;&nbsp;&amp;&nbsp;strFile&nbsp;&amp;&nbsp;&quot;&lt;BR&gt;&lt;BR&gt;&quot;&nbsp;&amp;&nbsp;VbCrLf<BR>
Set&nbsp;objTextStream&nbsp;=&nbsp;objFileSystem.OpenTextFile(strFile,&nbsp;ForReading,TristateFalse)<BR>
<BR>
<BR>
Response.Write&nbsp;&quot;The&nbsp;ASP&nbsp;code&nbsp;of&nbsp;this&nbsp;page:&nbsp;&lt;BR&gt;&lt;BR&gt;&quot;<BR>
Response.Write&nbsp;&quot;&lt;FONT&nbsp;SIZE=&quot;&quot;-1&quot;&quot;&gt;&quot;<BR>
Do&nbsp;While&nbsp;objTextStream.AtEndOfStream&nbsp;&lt;&gt;&nbsp;True<BR>
&nbsp;&nbsp;&nbsp;strLine&nbsp;=&nbsp;objTextStream.ReadLine<BR>
&nbsp;&nbsp;&nbsp;strHTML&nbsp;=&nbsp;Server.HTMLEncode(strLine)<BR>
&nbsp;&nbsp;&nbsp;strHTML&nbsp;=&nbsp;Replace(strHTML,vbTab,&quot;&amp;nbsp;&amp;nbsp;&amp;nbsp;&quot;)<BR>
&nbsp;&nbsp;&nbsp;strHTML&nbsp;=&nbsp;Replace(strHTML,&quot;&nbsp;&quot;,&quot;&amp;nbsp;&quot;)<BR>
&nbsp;&nbsp;&nbsp;Response.Write&nbsp;strHTML&nbsp;&amp;&nbsp;&quot;&lt;BR&gt;&quot;&nbsp;&amp;&nbsp;VbCrLf<BR>
Loop<BR>
Response.Write&nbsp;&quot;&lt;/FONT&gt;&quot;<BR>
objTextStream.Close<BR>
<BR>
&nbsp;&nbsp;&nbsp;<BR>
<BR>
<BR>
Set&nbsp;objTextStream&nbsp;=&nbsp;Nothing<BR>
Set&nbsp;objFileSystem&nbsp;=&nbsp;Nothing<BR>
%&gt;<BR>
</FONT>