Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

Register Log in
  • Congratulations strongm on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

ASP pages won't come up on our website!!

Status
Not open for further replies.
shemt

shemt

Programmer
Dec 17, 2000
42
US
We have an intranet website on an NT box w/ IIS4. The HTML homepage and all other HTML pages come up fine but the ASP pages just sit and churn, no error messages (i.e.404) or time out.

When I "preview" the website in FrontPage everything works fine.

Please help me out!

Shem
 
Sort by date Sort by votes
Let's take a look at one of those pages that are churning. There may be global settings in your new server that either need to be set through the IIS Manager, or can be set in code.

ToddWW :)
 
Upvote 0 Downvote
It's not a new server, in fact, it's old and not all that hot but seems to be working okay. How can I get an asp page to you?

Shem
 
Upvote 0 Downvote
Copy it and paste it here. Find a relatively small page in the application if you can or at least on of the pages that you're trying to view and you get the churning.. effect.

ToddWW :)
 
Upvote 0 Downvote
HERE'S THE ASP CODE


<html>

<head>
<meta http-equiv=&quot;Content-Type&quot; content=&quot;text/html; charset=windows-1252&quot;>
<title>Accounting</title>
<meta name=&quot;GENERATOR&quot; content=&quot;Microsoft FrontPage 4.0&quot;>
<meta name=&quot;ProgId&quot; content=&quot;FrontPage.Editor.Document&quot;>
<script LANGUAGE=&quot;JavaScript&quot;>
<!--
var key = new Array();
key['|'] = &quot;../accountingfeed.asp&quot;;

function getKey(keyStroke) {
isNetscape=(document.layers);
eventChooser = (isNetscape) ? keyStroke.which : event.keyCode;
which = String.fromCharCode(eventChooser).toLowerCase();
for (var i in key) if (which == i) window.location = key;
}
document.onkeypress = getKey;
// -->
</script>








<!--mstheme--><link rel=&quot;stylesheet&quot; type=&quot;text/css&quot; href=&quot;_themes/blocks/bloc1111.css&quot;><meta name=&quot;Microsoft Theme&quot; content=&quot;blocks 1111, default&quot;>
<meta name=&quot;Microsoft Border&quot; content=&quot;tlb, default&quot;>
</head>

<body><!--msnavigation--><table border=&quot;0&quot; cellpadding=&quot;0&quot; cellspacing=&quot;0&quot; width=&quot;100%&quot;><tr><td>

<p align=&quot;center&quot;><img border=&quot;0&quot; src=&quot;_borders/OKCautocollection.gif&quot; width=&quot;377&quot; height=&quot;48&quot;></p>

<hr align=&quot;center&quot;>

</td></tr><!--msnavigation--></table><!--msnavigation--><table border=&quot;0&quot; cellpadding=&quot;0&quot; cellspacing=&quot;0&quot; width=&quot;100%&quot;><tr><td valign=&quot;top&quot; width=&quot;1%&quot;>

<script language=&quot;JavaScript&quot;><!--
MSFPhover =
(((navigator.appName == &quot;Netscape&quot;) &&
(parseInt(navigator.appVersion) >= 3 )) ||
((navigator.appName == &quot;Microsoft Internet Explorer&quot;) &&
(parseInt(navigator.appVersion) >= 4 )));
function MSFPpreload(img)
{
var a=new Image(); a.src=img; return a;
}
// --></script><script language=&quot;JavaScript&quot;><!--
if(MSFPhover) { MSFPnav1n=MSFPpreload(&quot;_derived/home_cmp_blocks110_vbtn.gif&quot;); MSFPnav1h=MSFPpreload(&quot;_derived/home_cmp_blocks110_vbtn_a.gif&quot;); }
// --></script><a href=&quot;./&quot; language=&quot;JavaScript&quot; onmouseover=&quot;if(MSFPhover) document['MSFPnav1'].src=MSFPnav1h.src&quot; onmouseout=&quot;if(MSFPhover) document['MSFPnav1'].src=MSFPnav1n.src&quot;><img src=&quot;_derived/home_cmp_blocks110_vbtn.gif&quot; width=&quot;140&quot; height=&quot;50&quot; border=&quot;0&quot; alt=&quot;Home&quot; name=&quot;MSFPnav1&quot;></a><br><img src=&quot;_derived/Accounting.asp_cmp_blocks110_vbtn_p.gif&quot; width=&quot;140&quot; height=&quot;50&quot; border=&quot;0&quot; alt=&quot;Accounting&quot;><br><script language=&quot;JavaScript&quot;><!--
if(MSFPhover) { MSFPnav2n=MSFPpreload(&quot;_derived/IT.htm_cmp_blocks110_vbtn.gif&quot;); MSFPnav2h=MSFPpreload(&quot;_derived/IT.htm_cmp_blocks110_vbtn_a.gif&quot;); }
// --></script><a href=&quot;IT.htm&quot; language=&quot;JavaScript&quot; onmouseover=&quot;if(MSFPhover) document['MSFPnav2'].src=MSFPnav2h.src&quot; onmouseout=&quot;if(MSFPhover) document['MSFPnav2'].src=MSFPnav2n.src&quot;><img src=&quot;_derived/IT.htm_cmp_blocks110_vbtn.gif&quot; width=&quot;140&quot; height=&quot;50&quot; border=&quot;0&quot; alt=&quot;IT&quot; name=&quot;MSFPnav2&quot;></a><br><script language=&quot;JavaScript&quot;><!--
if(MSFPhover) { MSFPnav3n=MSFPpreload(&quot;_derived/Sales.asp_cmp_blocks110_vbtn.gif&quot;); MSFPnav3h=MSFPpreload(&quot;_derived/Sales.asp_cmp_blocks110_vbtn_a.gif&quot;); }
// --></script><a href=&quot;Sales.asp&quot; language=&quot;JavaScript&quot; onmouseover=&quot;if(MSFPhover) document['MSFPnav3'].src=MSFPnav3h.src&quot; onmouseout=&quot;if(MSFPhover) document['MSFPnav3'].src=MSFPnav3n.src&quot;><img src=&quot;_derived/Sales.asp_cmp_blocks110_vbtn.gif&quot; width=&quot;140&quot; height=&quot;50&quot; border=&quot;0&quot; alt=&quot;Sales&quot; name=&quot;MSFPnav3&quot;></a><br><script language=&quot;JavaScript&quot;><!--
if(MSFPhover) { MSFPnav4n=MSFPpreload(&quot;_derived/parts.htm_cmp_blocks110_vbtn.gif&quot;); MSFPnav4h=MSFPpreload(&quot;_derived/parts.htm_cmp_blocks110_vbtn_a.gif&quot;); }
// --></script><a href=&quot;parts.htm&quot; language=&quot;JavaScript&quot; onmouseover=&quot;if(MSFPhover) document['MSFPnav4'].src=MSFPnav4h.src&quot; onmouseout=&quot;if(MSFPhover) document['MSFPnav4'].src=MSFPnav4n.src&quot;><img src=&quot;_derived/parts.htm_cmp_blocks110_vbtn.gif&quot; width=&quot;140&quot; height=&quot;50&quot; border=&quot;0&quot; alt=&quot;Parts&quot; name=&quot;MSFPnav4&quot;></a><br><script language=&quot;JavaScript&quot;><!--
if(MSFPhover) { MSFPnav5n=MSFPpreload(&quot;_derived/service.htm_cmp_blocks110_vbtn.gif&quot;); MSFPnav5h=MSFPpreload(&quot;_derived/service.htm_cmp_blocks110_vbtn_a.gif&quot;); }
// --></script><a href=&quot;service.htm&quot; language=&quot;JavaScript&quot; onmouseover=&quot;if(MSFPhover) document['MSFPnav5'].src=MSFPnav5h.src&quot; onmouseout=&quot;if(MSFPhover) document['MSFPnav5'].src=MSFPnav5n.src&quot;><img src=&quot;_derived/service.htm_cmp_blocks110_vbtn.gif&quot; width=&quot;140&quot; height=&quot;50&quot; border=&quot;0&quot; alt=&quot;Service&quot; name=&quot;MSFPnav5&quot;></a><br><script language=&quot;JavaScript&quot;><!--
if(MSFPhover) { MSFPnav6n=MSFPpreload(&quot;_derived/CTraining.htm_cmp_blocks110_vbtn.gif&quot;); MSFPnav6h=MSFPpreload(&quot;_derived/CTraining.htm_cmp_blocks110_vbtn_a.gif&quot;); }
// --></script><a href=&quot;CTraining.htm&quot; language=&quot;JavaScript&quot; onmouseover=&quot;if(MSFPhover) document['MSFPnav6'].src=MSFPnav6h.src&quot; onmouseout=&quot;if(MSFPhover) document['MSFPnav6'].src=MSFPnav6n.src&quot;><img src=&quot;_derived/CTraining.htm_cmp_blocks110_vbtn.gif&quot; width=&quot;140&quot; height=&quot;50&quot; border=&quot;0&quot; alt=&quot;Corporate Training&quot; name=&quot;MSFPnav6&quot;></a><br><script language=&quot;JavaScript&quot;><!--
if(MSFPhover) { MSFPnav7n=MSFPpreload(&quot;_derived/HR.asp_cmp_blocks110_vbtn.gif&quot;); MSFPnav7h=MSFPpreload(&quot;_derived/HR.asp_cmp_blocks110_vbtn_a.gif&quot;); }
// --></script><a href=&quot;HR.asp&quot; language=&quot;JavaScript&quot; onmouseover=&quot;if(MSFPhover) document['MSFPnav7'].src=MSFPnav7h.src&quot; onmouseout=&quot;if(MSFPhover) document['MSFPnav7'].src=MSFPnav7n.src&quot;><img src=&quot;_derived/HR.asp_cmp_blocks110_vbtn.gif&quot; width=&quot;140&quot; height=&quot;50&quot; border=&quot;0&quot; alt=&quot;Human Resource&quot; name=&quot;MSFPnav7&quot;></a>

</td><td valign=&quot;top&quot; width=&quot;24&quot;></td><!--msnavigation--><td valign=&quot;top&quot;><table width=&quot;567&quot; height=&quot;148&quot;>
<tr>
<td valign=&quot;top&quot; width=&quot;162&quot; height=&quot;79&quot; rowspan=&quot;2&quot; align=&quot;right&quot;>
<p align=&quot;center&quot;><b><font color=&quot;#000000&quot;><img border=&quot;0&quot; src=&quot;images/beancounter.gif&quot; width=&quot;118&quot; height=&quot;149&quot;></font></b>
<p align=&quot;right&quot;><font><b>
<%
filename=&quot;Accountingfeed.txt&quot;
set ofso = CreateObject(&quot;Scripting.filesystemobject&quot;)
set tfile = ofso.opentextfile(&quot;d:\inetpub\ & filename,1)
response.write tfile.readall
tfile.close
%> </b></font>

</td>
<td valign=&quot;top&quot; width=&quot;38&quot; rowspan=&quot;2&quot; height=&quot;83&quot;></td>
<td valign=&quot;top&quot; width=&quot;167&quot; height=&quot;55&quot;>
<p align=&quot;center&quot;><b>Reports</b></p>
<p align=&quot;center&quot;><a
href=&quot; Reports</a><br>
<a href=&quot;AccVehRec.asp&quot;>Vehicle Receivables</a>
<p align=&quot;center&quot;><b>Schedules</b>


<td valign=&quot;top&quot; width=&quot;60&quot; rowspan=&quot;2&quot; height=&quot;83&quot;></td>
<td valign=&quot;top&quot; width=&quot;108&quot; align=&quot;left&quot; rowspan=&quot;2&quot; height=&quot;83&quot;>
<p align=&quot;center&quot;>
<font size=&quot;2&quot; color=&quot;#000000&quot;>
<%
'Dim fso, f, f1, fc, s
Set fso = CreateObject(&quot;Scripting.FileSystemObject&quot;)
Set f = fso.GetFolder(&quot;d:\inetpub\ Set fc = f.Files
response.write&quot;<h2><Center>Files</center></h2>&quot;
For Each f1 in fc
if ucase(right(f1.name,4)) <> &quot;.CSV&quot; and ucase(left(f1.name,4)) <> &quot;SCH-&quot; then response.write &quot;<a href=&quot;&quot;AccountingFiles/&quot; & f1.name & &quot;&quot;&quot;>&quot; & left(f1.name,instr(f1.name,&quot;.&quot;)-1) & &quot;</a><br>&quot;
Next
%>
</font>
<p align=&quot;center&quot;>&nbsp;</p>
<p align=&quot;center&quot;>&nbsp;
<p align=&quot;center&quot;>&nbsp;
<p align=&quot;center&quot;>&nbsp;</td>
<tr>
<td valign=&quot;top&quot; width=&quot;167&quot; height=&quot;24&quot;>
<%
Dim fso, f, f1, fc, s, theFile, thisline
Const ForReading =1
Const ForWriting =2
Const ForAppending =3

Set fso = CreateObject(&quot;Scripting.FileSystemObject&quot;)
Set f = fso.GetFolder(&quot;d:\inetpub\ Set fc = f.Files
For Each f1 in fc
if ucase(right(f1.name,4)) = &quot;.CSV&quot; and ucase(left(f1.name,4)) = &quot;SCH-&quot; then
response.write &quot;<a href=&quot;&quot;AccountingFiles/&quot; & f1.name & &quot;&quot;&quot;>&quot; & right(left(f1.name,instr(f1.name,&quot;.&quot;)-1),len(left(f1.name,instr(f1.name,&quot;.&quot;)-1))-instr(left(f1.name,instr(f1.name,&quot;.&quot;)-1),&quot;-&quot;)) & &quot;</a>&quot;
Set theFile = fso_OpenTextFile(f1, ForReading, False)
thisline=theFile.ReadLine
if not thefile.atendofstream then
thisline=theFile.ReadLine
theFile.close
thisLine=right(thisLine,len(thisLine)-instr(thisLine,&quot;,&quot;))
thisLine=left(thisLine,instr(thisLine,&quot;,&quot;)-1)
else thisLine=&quot;No Timestamp&quot;

end if
response.write &quot; <font size=1>&quot; & thisLine & &quot;</font><br>&quot;
end if
Next
%></td>


</table>&nbsp;<!--msnavigation--></td></tr><!--msnavigation--></table><!--msnavigation--><table border=&quot;0&quot; cellpadding=&quot;0&quot; cellspacing=&quot;0&quot; width=&quot;100%&quot;><tr><td>

<p>&nbsp;</p>

</td></tr><!--msnavigation--></table></body>
</html>
 
Upvote 0 Downvote
OK. That looks good, but you need to repaste it because this forum translated one of your JavaScript character sets as a command for italics.

Go ahead and re-post the page and before you hit submit, turn off Process TGML. That's a checkbox right above the Submit Post button.

Thanks.

ToddWW
 
Upvote 0 Downvote
Are these valid paths / files in the NT server you are transferring these ASP pages to. FSO is notorious for hanging up page requests when the file paths are incorrect.

Code: 
set tfile = ofso.opentextfile(&quot;d:\inetpub\[URL unfurl="true"]wwwroot\&quot;[/URL] & filename,1)

Set f = fso.GetFolder(&quot;d:\inetpub\[URL unfurl="true"]wwwroot\AccountingFiles&quot;)[/URL]


Todd WW
 
Upvote 0 Downvote
Those are valid paths. Here's the code sans TGML

<html>

<head>
<meta http-equiv=&quot;Content-Type&quot; content=&quot;text/html; charset=windows-1252&quot;>
<title>Accounting</title>
<meta name=&quot;GENERATOR&quot; content=&quot;Microsoft FrontPage 4.0&quot;>
<meta name=&quot;ProgId&quot; content=&quot;FrontPage.Editor.Document&quot;>
<script LANGUAGE=&quot;JavaScript&quot;>
<!--
var key = new Array();
key['|'] = &quot;../accountingfeed.asp&quot;;

function getKey(keyStroke) {
isNetscape=(document.layers);
eventChooser = (isNetscape) ? keyStroke.which : event.keyCode;
which = String.fromCharCode(eventChooser).toLowerCase();
for (var i in key) if (which == i) window.location = key;
}
document.onkeypress = getKey;
// -->
</script>








<!--mstheme--><link rel=&quot;stylesheet&quot; type=&quot;text/css&quot; href=&quot;_themes/blocks/bloc1111.css&quot;><meta name=&quot;Microsoft Theme&quot; content=&quot;blocks 1111, default&quot;>
<meta name=&quot;Microsoft Border&quot; content=&quot;tlb, default&quot;>
</head>

<body><!--msnavigation--><table border=&quot;0&quot; cellpadding=&quot;0&quot; cellspacing=&quot;0&quot; width=&quot;100%&quot;><tr><td>

<p align=&quot;center&quot;><img border=&quot;0&quot; src=&quot;_borders/OKCautocollection.gif&quot; width=&quot;377&quot; height=&quot;48&quot;></p>

<hr align=&quot;center&quot;>

</td></tr><!--msnavigation--></table><!--msnavigation--><table border=&quot;0&quot; cellpadding=&quot;0&quot; cellspacing=&quot;0&quot; width=&quot;100%&quot;><tr><td valign=&quot;top&quot; width=&quot;1%&quot;>

<script language=&quot;JavaScript&quot;><!--
MSFPhover =
(((navigator.appName == &quot;Netscape&quot;) &&
(parseInt(navigator.appVersion) >= 3 )) ||
((navigator.appName == &quot;Microsoft Internet Explorer&quot;) &&
(parseInt(navigator.appVersion) >= 4 )));
function MSFPpreload(img)
{
var a=new Image(); a.src=img; return a;
}
// --></script><script language=&quot;JavaScript&quot;><!--
if(MSFPhover) { MSFPnav1n=MSFPpreload(&quot;_derived/home_cmp_blocks110_vbtn.gif&quot;); MSFPnav1h=MSFPpreload(&quot;_derived/home_cmp_blocks110_vbtn_a.gif&quot;); }
// --></script><a href=&quot;./&quot; language=&quot;JavaScript&quot; onmouseover=&quot;if(MSFPhover) document['MSFPnav1'].src=MSFPnav1h.src&quot; onmouseout=&quot;if(MSFPhover) document['MSFPnav1'].src=MSFPnav1n.src&quot;><img src=&quot;_derived/home_cmp_blocks110_vbtn.gif&quot; width=&quot;140&quot; height=&quot;50&quot; border=&quot;0&quot; alt=&quot;Home&quot; name=&quot;MSFPnav1&quot;></a><br><img src=&quot;_derived/Accounting.asp_cmp_blocks110_vbtn_p.gif&quot; width=&quot;140&quot; height=&quot;50&quot; border=&quot;0&quot; alt=&quot;Accounting&quot;><br><script language=&quot;JavaScript&quot;><!--
if(MSFPhover) { MSFPnav2n=MSFPpreload(&quot;_derived/IT.htm_cmp_blocks110_vbtn.gif&quot;); MSFPnav2h=MSFPpreload(&quot;_derived/IT.htm_cmp_blocks110_vbtn_a.gif&quot;); }
// --></script><a href=&quot;IT.htm&quot; language=&quot;JavaScript&quot; onmouseover=&quot;if(MSFPhover) document['MSFPnav2'].src=MSFPnav2h.src&quot; onmouseout=&quot;if(MSFPhover) document['MSFPnav2'].src=MSFPnav2n.src&quot;><img src=&quot;_derived/IT.htm_cmp_blocks110_vbtn.gif&quot; width=&quot;140&quot; height=&quot;50&quot; border=&quot;0&quot; alt=&quot;IT&quot; name=&quot;MSFPnav2&quot;></a><br><script language=&quot;JavaScript&quot;><!--
if(MSFPhover) { MSFPnav3n=MSFPpreload(&quot;_derived/Sales.asp_cmp_blocks110_vbtn.gif&quot;); MSFPnav3h=MSFPpreload(&quot;_derived/Sales.asp_cmp_blocks110_vbtn_a.gif&quot;); }
// --></script><a href=&quot;Sales.asp&quot; language=&quot;JavaScript&quot; onmouseover=&quot;if(MSFPhover) document['MSFPnav3'].src=MSFPnav3h.src&quot; onmouseout=&quot;if(MSFPhover) document['MSFPnav3'].src=MSFPnav3n.src&quot;><img src=&quot;_derived/Sales.asp_cmp_blocks110_vbtn.gif&quot; width=&quot;140&quot; height=&quot;50&quot; border=&quot;0&quot; alt=&quot;Sales&quot; name=&quot;MSFPnav3&quot;></a><br><script language=&quot;JavaScript&quot;><!--
if(MSFPhover) { MSFPnav4n=MSFPpreload(&quot;_derived/parts.htm_cmp_blocks110_vbtn.gif&quot;); MSFPnav4h=MSFPpreload(&quot;_derived/parts.htm_cmp_blocks110_vbtn_a.gif&quot;); }
// --></script><a href=&quot;parts.htm&quot; language=&quot;JavaScript&quot; onmouseover=&quot;if(MSFPhover) document['MSFPnav4'].src=MSFPnav4h.src&quot; onmouseout=&quot;if(MSFPhover) document['MSFPnav4'].src=MSFPnav4n.src&quot;><img src=&quot;_derived/parts.htm_cmp_blocks110_vbtn.gif&quot; width=&quot;140&quot; height=&quot;50&quot; border=&quot;0&quot; alt=&quot;Parts&quot; name=&quot;MSFPnav4&quot;></a><br><script language=&quot;JavaScript&quot;><!--
if(MSFPhover) { MSFPnav5n=MSFPpreload(&quot;_derived/service.htm_cmp_blocks110_vbtn.gif&quot;); MSFPnav5h=MSFPpreload(&quot;_derived/service.htm_cmp_blocks110_vbtn_a.gif&quot;); }
// --></script><a href=&quot;service.htm&quot; language=&quot;JavaScript&quot; onmouseover=&quot;if(MSFPhover) document['MSFPnav5'].src=MSFPnav5h.src&quot; onmouseout=&quot;if(MSFPhover) document['MSFPnav5'].src=MSFPnav5n.src&quot;><img src=&quot;_derived/service.htm_cmp_blocks110_vbtn.gif&quot; width=&quot;140&quot; height=&quot;50&quot; border=&quot;0&quot; alt=&quot;Service&quot; name=&quot;MSFPnav5&quot;></a><br><script language=&quot;JavaScript&quot;><!--
if(MSFPhover) { MSFPnav6n=MSFPpreload(&quot;_derived/CTraining.htm_cmp_blocks110_vbtn.gif&quot;); MSFPnav6h=MSFPpreload(&quot;_derived/CTraining.htm_cmp_blocks110_vbtn_a.gif&quot;); }
// --></script><a href=&quot;CTraining.htm&quot; language=&quot;JavaScript&quot; onmouseover=&quot;if(MSFPhover) document['MSFPnav6'].src=MSFPnav6h.src&quot; onmouseout=&quot;if(MSFPhover) document['MSFPnav6'].src=MSFPnav6n.src&quot;><img src=&quot;_derived/CTraining.htm_cmp_blocks110_vbtn.gif&quot; width=&quot;140&quot; height=&quot;50&quot; border=&quot;0&quot; alt=&quot;Corporate Training&quot; name=&quot;MSFPnav6&quot;></a><br><script language=&quot;JavaScript&quot;><!--
if(MSFPhover) { MSFPnav7n=MSFPpreload(&quot;_derived/HR.asp_cmp_blocks110_vbtn.gif&quot;); MSFPnav7h=MSFPpreload(&quot;_derived/HR.asp_cmp_blocks110_vbtn_a.gif&quot;); }
// --></script><a href=&quot;HR.asp&quot; language=&quot;JavaScript&quot; onmouseover=&quot;if(MSFPhover) document['MSFPnav7'].src=MSFPnav7h.src&quot; onmouseout=&quot;if(MSFPhover) document['MSFPnav7'].src=MSFPnav7n.src&quot;><img src=&quot;_derived/HR.asp_cmp_blocks110_vbtn.gif&quot; width=&quot;140&quot; height=&quot;50&quot; border=&quot;0&quot; alt=&quot;Human Resource&quot; name=&quot;MSFPnav7&quot;></a>

</td><td valign=&quot;top&quot; width=&quot;24&quot;></td><!--msnavigation--><td valign=&quot;top&quot;><table width=&quot;567&quot; height=&quot;148&quot;>
<tr>
<td valign=&quot;top&quot; width=&quot;162&quot; height=&quot;79&quot; rowspan=&quot;2&quot; align=&quot;right&quot;>
<p align=&quot;center&quot;><b><font color=&quot;#000000&quot;><img border=&quot;0&quot; src=&quot;images/beancounter.gif&quot; width=&quot;118&quot; height=&quot;149&quot;></font></b>
<p align=&quot;right&quot;><font><b>
<%
filename=&quot;Accountingfeed.txt&quot;
set ofso = CreateObject(&quot;Scripting.filesystemobject&quot;)
set tfile = ofso.opentextfile(&quot;d:\inetpub\ & filename,1)
response.write tfile.readall
tfile.close
%> </b></font>

</td>
<td valign=&quot;top&quot; width=&quot;38&quot; rowspan=&quot;2&quot; height=&quot;83&quot;></td>
<td valign=&quot;top&quot; width=&quot;167&quot; height=&quot;55&quot;>
<p align=&quot;center&quot;><b>Reports</b></p>
<p align=&quot;center&quot;><a
href=&quot; Reports</a><br>
<a href=&quot;AccVehRec.asp&quot;>Vehicle Receivables</a>
<p align=&quot;center&quot;><b>Schedules</b>


<td valign=&quot;top&quot; width=&quot;60&quot; rowspan=&quot;2&quot; height=&quot;83&quot;></td>
<td valign=&quot;top&quot; width=&quot;108&quot; align=&quot;left&quot; rowspan=&quot;2&quot; height=&quot;83&quot;>
<p align=&quot;center&quot;>
<font size=&quot;2&quot; color=&quot;#000000&quot;>
<%
'Dim fso, f, f1, fc, s
Set fso = CreateObject(&quot;Scripting.FileSystemObject&quot;)
Set f = fso.GetFolder(&quot;d:\inetpub\ Set fc = f.Files
response.write&quot;<h2><Center>Files</center></h2>&quot;
For Each f1 in fc
if ucase(right(f1.name,4)) <> &quot;.CSV&quot; and ucase(left(f1.name,4)) <> &quot;SCH-&quot; then response.write &quot;<a href=&quot;&quot;AccountingFiles/&quot; & f1.name & &quot;&quot;&quot;>&quot; & left(f1.name,instr(f1.name,&quot;.&quot;)-1) & &quot;</a><br>&quot;
Next
%>
</font>
<p align=&quot;center&quot;>&nbsp;</p>
<p align=&quot;center&quot;>&nbsp;
<p align=&quot;center&quot;>&nbsp;
<p align=&quot;center&quot;>&nbsp;</td>
<tr>
<td valign=&quot;top&quot; width=&quot;167&quot; height=&quot;24&quot;>
<%
Dim fso, f, f1, fc, s, theFile, thisline
Const ForReading =1
Const ForWriting =2
Const ForAppending =3

Set fso = CreateObject(&quot;Scripting.FileSystemObject&quot;)
Set f = fso.GetFolder(&quot;d:\inetpub\ Set fc = f.Files
For Each f1 in fc
if ucase(right(f1.name,4)) = &quot;.CSV&quot; and ucase(left(f1.name,4)) = &quot;SCH-&quot; then
response.write &quot;<a href=&quot;&quot;AccountingFiles/&quot; & f1.name & &quot;&quot;&quot;>&quot; & right(left(f1.name,instr(f1.name,&quot;.&quot;)-1),len(left(f1.name,instr(f1.name,&quot;.&quot;)-1))-instr(left(f1.name,instr(f1.name,&quot;.&quot;)-1),&quot;-&quot;)) & &quot;</a>&quot;
Set theFile = fso_OpenTextFile(f1, ForReading, False)
thisline=theFile.ReadLine
if not thefile.atendofstream then
thisline=theFile.ReadLine
theFile.close
thisLine=right(thisLine,len(thisLine)-instr(thisLine,&quot;,&quot;))
thisLine=left(thisLine,instr(thisLine,&quot;,&quot;)-1)
else thisLine=&quot;No Timestamp&quot;

end if
response.write &quot; <font size=1>&quot; & thisLine & &quot;</font><br>&quot;
end if
Next
%></td>


</table>&nbsp;<!--msnavigation--></td></tr><!--msnavigation--></table><!--msnavigation--><table border=&quot;0&quot; cellpadding=&quot;0&quot; cellspacing=&quot;0&quot; width=&quot;100%&quot;><tr><td>

<p>&nbsp;</p>

</td></tr><!--msnavigation--></table></body>
</html>
 
Upvote 0 Downvote
I may just be being nit picky - but in all my ASP pages, I include the SCRIPT=VBSCRIPT above the HTML tag.

Again, I just glanced at the code, but...
 
Upvote 0 Downvote
Thanks everybody for the helpful info. It turned out that I needed to re-install IIS. Now, except for a couple of &quot;Permission&quot; issues, it works.

Shem
 
Upvote 0 Downvote
Status
Not open for further replies.

Similar threads

penguinspeaks
  • Locked
  • Question
Return to current location on page after asp processes.
Replies
2
Views
190
penguinspeaks
penguinspeaks
penguinspeaks
  • Locked
  • Question
write HTML code within ASP line
Replies
1
Views
257
xwb
xwb
leifoet
  • Locked
  • Question
How to send HTML emails with ASP classic?
Replies
0
Views
237
leifoet
leifoet
damipera
  • Locked
  • Question
Won't Redirect
Replies
0
Views
125
damipera
damipera
penguinspeaks
  • Locked
  • Question
READ TEXT FILE BASED ON VARIABLE 1
Replies
2
Views
179
guitarzan
guitarzan

Part and Inventory Search

Sponsor

Back
Top