Hosing Server

M

Mark A. Sam

Hello,

The company which hosts my website claims that my active server pages are
hosing his server. I have had these pages for 4 years pretty much as they
were written. I didn't write them but added criteria and changed the output
format, but a while ago. I have had them on several servers and was never
told of a problem This recenlt company has never reported a problem, but
now claims they had to quarantine my site to protect the other site on the
server. I have been having trouble that I know if since they upgraded from
Win2000 to Win2003. There is no logic to the claim that my pages are the
problem. It seems the problem must be with Win2003 or the configuration.
Here is page that is run most frequently. It is run from a form on another
ASP. I am hoping someone will look at it and see if there is a problem
which can be identified to cause problems on the server.

Thanks in advance.


<%

SortBy = Request.Form("SortBy")
SortMess = ""
If SortBy = "DateLoading" then
SortOrder = "DateLoading, OriginState, OriginCity, DestinationState,
DestinationCity "
SortMess = "Sorted by Load Date/ Origin State/ Destination State"
ElseIf SortBy = "OriginState" then
SortOrder = "OriginState, OriginCity, DestinationState, DestinationCity,
DateLoading"
SortMess = "Sorted by Origin State/ Destination State/ Load Date"
ElseIf SortBy = "DestinationState" then
SortOrder = "DestinationState, DestinationCity, OriginState, OriginCity,
DateLoading"
SortMess = "Sorted by Destination State/ Origin State/ Load Date"
End If


Set rs = Server.CreateObject("ADODB.RecordSet")
q = "SELECT LoadID, OriginCity, OriginState, DestinationCity, " &_
"DestinationState, DateLoading, TrailerLength, TrailerType, comments,
Recurring FROM Loads WHERE (Recurring = False) AND (1=1)"
dateavail = Request.Form("dateavail")
if dateavail <> "" then
if NOT IsDate(dateavail) then
Session("mess") = "The date you entered for the Date Loading is not
formatted properly. Please enter it again."
Response.Redirect "searchloads.asp"
else
q = q & " AND (DateLoading = #" & dateavail & "#)"
end if
else
q = q & " AND (DateLoading >= #" & date() & "#)"
end if
originstate = Request.Form("originstate")
if originstate <> "" then
q = q & " AND (OriginState LIKE '%" & originstate & "%')"
end if
destinationstate = Request.Form("destinationstate")
if destinationstate <> "" then
q = q & " AND (DestinationState LIKE '%" & destinationstate & "%')"
end if
trailertype = Request.Form("trailertype")

q = q & " AND (TrailerType LIKE '%" & trailertype & "%')"
q = q & " Order by " & SortOrder

rs.Open q, "DSN=TruckLoadsDev;"

%>
<html>

<head>
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<title>Search Loads - Matching Records</title>
<meta name="Microsoft Border" content="tb">
</head>

<body bgcolor="#FFFFFF" link="#000080" vlink="#800080" alink="#000080"
background="../images/trucksbg3.jpg">

<table width="800" cellpadding="2" align="LEFT" valign="TOP">
<tr>
<!-- Button Column -->
<td width="125" align="LEFT" valign="TOP"> </td>
<!-- Content column -->
<td align="LEFT" valign="TOP"><table border="0" width="100%">
<tr>
<td width="100%" align="left"><font size="4"><strong>Search Loads -
Matching Records</strong></font></td>
</tr>
</table>
<p><%if NOT rs.EOF then%><b><font size="2" color="#800000">Records
matching the parameters you specified are listed below. To see the details
or
contact the Company which owns the load, click on the Origin&nbsp; for
that load.</font></b></p>
<p><a href="../asp/searchloads.asp"><strong>Search
Again</strong></a></p>
<div align="left">
<table border="0" cellpadding="0" cellspacing="0" width="100%">
<tr>
<td width="100%"><b><% Response.Write SortMess %></b></td>
</tr>
</table>
</div>
<table border="0" width="800">
<tr>
<td width="155" valign="top" align="left"
bgcolor="#9999FF"><strong><font size="2">Origin
State,&nbsp; City</font></strong></td>
<td width="165" valign="top" align="left"
bgcolor="#9999FF"><strong><font size="2">
Destination State, City</font></strong></td>
<td width="128" valign="top" align="left"
bgcolor="#9999FF"><strong><font size="2">Trailer Type</font></strong></td>
<td width="78" valign="top" align="left"
bgcolor="#9999FF"><strong><font size="2">Date
Loading</font></strong></td>
<td width="242" valign="top" align="left"
bgcolor="#9999FF"><strong><font size="2">Comment</font></strong></td>
</tr>

<%while NOT rs.EOF
Datel = ""
Recur = ""
if rs("Recurring") = False then
DateL = rs("DateLoading")
else
Recur = "Recurring"
End If
if rs("TrailerLength") = 0 then
tLength = ""
else
tlength = rs("TrailerLength")
End If


%>
<tr>
<td width="155" valign="top" align="left" bgcolor="#FFFFFF"><a
target="_blank" href="loaddetails.asp?loadid=<%=rs("LoadID")%>"><font
size="2"><%Response.Write rs("OriginState") & ", " &
rs("OriginCity")%></font></a>
</td>
<td width="165" valign="top" align="left" bgcolor="#FFFFFF"><font
size="2"><%=rs("DestinationState") & ", " & rs("DestinationCity")%></font>
</td>
<td width="128" valign="top" align="left" bgcolor="#FFFFFF"><font
size="2"><%=tlength & " " & rs("TrailerType")%></font>
</td>
<td width="78" valign="top" align="left" bgcolor="#FFFFFF"><font
size="2"><%=DateL%></font>
</td>
<td width="242" valign="top" align="left" bgcolor="#FFFFFF"><font
size="2"><%=rs("Comments")%>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
&nbsp;&nbsp;&nbsp;</font> </td>
</tr>
<tr>
<%
rs.MoveNext

wend%>
</tr>
</table>
<p><strong><a href="../asp/searchloads.asp">Search Again</a>
<br>
</strong></p>
<p><%else%></p>
<p><strong><font size="4"><font color="#FF0000">No Loads matched your
query.</font>&nbsp;&nbsp;
<a href="../asp/searchloads.asp">Try again</a></font></strong></p>
<p><%end if%>
<p>&nbsp;</td>
</tr>
<tr>
<td width="150" align="LEFT" valign="TOP"></td>
<td align="LEFT" valign="TOP"><strong><a
href="../TruckTrackingLog/Def_NoLinks.htm" target="_blank">Try
our free Truck Tracking Program<br>
(written for Microsoft access)</a></strong></td>
</tr>
</table>

<p>&nbsp;<img
src="http://www.stattrax.com/cgi/stattrax.cgi?account=3333&amp;page=513"
width="1" height="1"> </body>
</html>
 
J

Jon

Hi Mark,
there's not much wrong with that - looks like a basic database lookup. You
should destroy your recordset when you're done with it
<%
rs.close: set rs=nothing
%>
But that's not going to make much difference. Unless your database is huge I
can't see any problems with this page. Did he tell you what issues he's
having with your page?

Jon
Microsoft MVP - FP
 
M

Mark A. Sam

Hello Jon,
there's not much wrong with that - looks like a basic database lookup. You
should destroy your recordset when you're done with it
<%
rs.close: set rs=nothing
%>
Click to expand...

Thanks for that suggestion.
Did he tell you what issues he's
having with your page?
Click to expand...

This is what he said:

" We haven't touched your account other than to put it into its own memory
and processing pool because it was continually hosing our machine. We
haven't touched your database, pages, files or anything associated with your
account. We have no third party components that are accessing or are
associated with your site at all. Period!! You might want to check on
Microsoft's site on known issues of Front Page generated code and Windows
2003. "

My issue is that I don't have any control over the server administration,
nor do I want it. That is they job of the hosting company.

" We have made every attempt to help you get your application back up an
running but unless we developed it, we have nothing to provide to you
regarding why your app isn't working properly on Windows 2003. "

Except that it worked prior to upgrading to Win2003. I didn't ask for the
upgrade.

I guess the problem is the computer industry and especially Microsoft. The
company has grown so large and complex that it is out of control. I can't
say that it wouldn't happen to any company after a while. Computers are
nothing but a plague anymore. I'm about ready to turn my off for good.

Thanks for your help, and God Bless,

Mark
 
J

Jon

Hi mark,
there's any easy answer to this - switch hosts. There's nothing wrong with
win2003 (as I'm sure you know) and it can certainly handle the code you've
written.

People in this group can point you to quality windows hosts that will handle
your requirements properly (I'd recommend mine but they're UK based). I'd
suggest getting away from these jokers as soon as you can.

Jon
Microsoft MVP - FP
 
M

Mark A. Sam

Thanks Jon,

I am thinking of taking the site offline until I get funding to do it right
with my own server and someone to program and administrate it. Paying only
a couple $hundred a year, I can't expect any great quality or service.

God Bless,

Mark
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Error message "An error has occured in the script on this page" 1
Report Grouping 2
Receiving code instead of graphics 0
CSS DOES NOT DISPLAY IN IE7 FROM AN INDEX PAGE 4
Front page Template ?? 3
Can one include data from javascript in form 1
Frontpage removes javascript after save 6
Problem seeing some characters when sending email to Outlook client 60

Top