ASP Loads (refresh crashes) Loads again

Nilgni · Feb 8, 2007

REPOST (Tried this in ASP forum with no replies - thought that this may be the correct forum)

Hosting a site with 1and1 - asp pages connecting to MS Access database (2003)

The static pages load fine

The dynamic pages load if there hasn't been a request from the database in about 30 seconds.

When it does crash I get this error:
Provider error '80004005'
Unspecified error

I researched this and it appears to be one of three possible things - read/write permissions, a record locking or something to do with a temp lock folder on the server.

The iuser account has the correct permission, I unchecked the the record level box in the database and have had the hosting company on notice for three days trying to fix this.

Are there any other suggestions? Getting desperate for an answer. I created a page that asks for a record based on set values so 1and1 can test the problem, but what else am I looking for.

The key to the whole thing for me is that if you make a request after about 30 seconds it answers - so what locks for 30 seconds?

Problems that give you a cut and dry error message really make things easier LOL

Keith

Code:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!--#include file="../../../../Connections/scsl.asp" -->
<%
Dim rsConfInfo__MMColParam
rsConfInfo__MMColParam = "Brown"
If (Request("MM_EmptyValue") <> "") Then 
  rsConfInfo__MMColParam = Request("MM_EmptyValue")
End If
%>
<%
Dim rsConfInfo__MMColParam1
rsConfInfo__MMColParam1 = "Alton"
If (Request("MM_EmptyValue") <> "") Then 
  rsConfInfo__MMColParam1 = Request("MM_EmptyValue")
End If
%>
<%
Dim rsConfInfo
Dim rsConfInfo_numRows

Set rsConfInfo = Server.CreateObject("ADODB.Recordset")
rsConfInfo.ActiveConnection = MM_scsl_STRING
rsConfInfo.Source = "SELECT *  FROM 01_tbl_ContactInformation  WHERE PlayerLastName = '" + Replace(rsConfInfo__MMColParam, "'", "''") + "' And PlayerFirstName = '" + Replace(rsConfInfo__MMColParam1, "'", "''") + "'"
rsConfInfo.CursorType = 0
rsConfInfo.CursorLocation = 2
rsConfInfo.LockType = 1
rsConfInfo.Open()

rsConfInfo_numRows = 0
%>
<html>
<head>
<title>SignUpConfirmation</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_reloadPage(init) {  //reloads the window if Nav4 resized
  if (init==true) with (navigator) {if ((appName=="Netscape")&&(parseInt(appVersion)==4)) {
    document.MM_pgW=innerWidth; document.MM_pgH=innerHeight; onresize=MM_reloadPage; }}
  else if (innerWidth!=document.MM_pgW || innerHeight!=document.MM_pgH) location.reload();
}
MM_reloadPage(true);
//-->
</script>
</head>

<body><div id="Content" style="position:absolute; width:820; z-index:1; left: 101; top: 176;"> 
<table width="600" border="0" cellspacing="0" cellpadding="2">
  <tr> 
    <td><p><font size="5" face="Verdana, Arial, Helvetica, sans-serif"><strong><em>SCSL 
        2007 Spring Player Registration Confirmation Page</em></strong></font> 
      </p>
      <p><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><%=(rsConfInfo.Fields.Item("PlayerFirstName").Value)%>&nbsp; <%=(rsConfInfo.Fields.Item("PlayerLastName").Value)%> has sucessfully been added to our registration 
        database. Please review the information for accuracy.</font></p>
      <p><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><strong>Player 
        Information:</strong> <br>
        <%=(rsConfInfo.Fields.Item("PlayerFirstName").Value)%>&nbsp; <%=(rsConfInfo.Fields.Item("PlayerLastName").Value)%>&nbsp;&nbsp; Date of Birth: <%=(rsConfInfo.Fields.Item("DOB_Month").Value)%>/<%=(rsConfInfo.Fields.Item("DOB_Day").Value)%>/<%=(rsConfInfo.Fields.Item("DOB_Year").Value)%><br>
        <%=(rsConfInfo.Fields.Item("AddressOne").Value)%>&nbsp; <%=(rsConfInfo.Fields.Item("AddressTwo").Value)%><br>
        <%=(rsConfInfo.Fields.Item("City").Value)%>&nbsp; <%=(rsConfInfo.Fields.Item("State").Value)%>&nbsp; <%=(rsConfInfo.Fields.Item("Zip").Value)%></font></p>
      <blockquote>
        <p><font size="2" face="Verdana, Arial, Helvetica, sans-serif">Email: 
          <%=(rsConfInfo.Fields.Item("Email_Address").Value)%> <br>
          Cell Phone: <%=(rsConfInfo.Fields.Item("CellPhoneNumber").Value)%></font></p>
        <p><font size="2" face="Verdana, Arial, Helvetica, sans-serif">Shirt 
          Size Requested: <%=(rsConfInfo.Fields.Item("ShirtSize").Value)%></font></p>
      </blockquote>
      <p><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><strong>Guardian 
        One Information</strong> - <%=(rsConfInfo.Fields.Item("ContactOneRelationship").Value)%></font></p>
      <blockquote> 
        <p><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><%=(rsConfInfo.Fields.Item("ContactOneFirstName").Value)%>&nbsp; <%=(rsConfInfo.Fields.Item("ContactOneLastName").Value)%><br>
          <%=(rsConfInfo.Fields.Item("ContactOneAddressOne").Value)%>&nbsp; <%=(rsConfInfo.Fields.Item("ContactOneAddressTwo").Value)%><br>
          <%=(rsConfInfo.Fields.Item("ContactOneCity").Value)%>&nbsp; <%=(rsConfInfo.Fields.Item("ContactOneState").Value)%> <%=(rsConfInfo.Fields.Item("ContactOneZip").Value)%></font></p>
        <p><font size="2" face="Verdana, Arial, Helvetica, sans-serif">Email: 
          <%=(rsConfInfo.Fields.Item("ContactOneHomeEmail").Value)%> | <%=(rsConfInfo.Fields.Item("ContactOneOtherEmail").Value)%><br>
          Phone (home): <%=(rsConfInfo.Fields.Item("ContactOneHomePhone").Value)%><br>
          Phone (work): <%=(rsConfInfo.Fields.Item("ContactOneWorkPhone").Value)%> <%=(rsConfInfo.Fields.Item("ContactOneWorkExtension").Value)%><br>
          Phone (cell): <%=(rsConfInfo.Fields.Item("ContactOneCellPhone").Value)%></font></p>
      </blockquote>
      <p><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><strong>Guardian 
        Two Information</strong> - <%=(rsConfInfo.Fields.Item("ContactTwoRelationship").Value)%></font></p>
      <blockquote> 
        <p><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><%=(rsConfInfo.Fields.Item("ContactTwoFirstName").Value)%>&nbsp; <%=(rsConfInfo.Fields.Item("ContactTwoLastName").Value)%><br>
          <%=(rsConfInfo.Fields.Item("ContactTwoAddressOne").Value)%>&nbsp; <%=(rsConfInfo.Fields.Item("ContactTwoAddressTwo").Value)%><br>
          <%=(rsConfInfo.Fields.Item("ContactTwoCity").Value)%>&nbsp; <%=(rsConfInfo.Fields.Item("ContactTwoState").Value)%> <%=(rsConfInfo.Fields.Item("ContactTwoZip").Value)%></font></p>
        <p><font size="2" face="Verdana, Arial, Helvetica, sans-serif">Email: 
          <%=(rsConfInfo.Fields.Item("ContactTwoHomeEmail").Value)%> | <%=(rsConfInfo.Fields.Item("ContactTwoOtherEmail").Value)%><br>
          Phone (home): <%=(rsConfInfo.Fields.Item("ContactTwoHomePhone").Value)%><br>
          Phone (work): <%=(rsConfInfo.Fields.Item("ContactTwoWorkPhone").Value)%> <%=(rsConfInfo.Fields.Item("ContactTwoWorkExtension").Value)%><br>
          Phone (cell): <%=(rsConfInfo.Fields.Item("ContactTwoCellPhone").Value)%></font></p>
      </blockquote>
      <p><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><strong>Additional 
        Comments</strong></font></p>
      <blockquote> 
        <p><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><%=(rsConfInfo.Fields.Item("Comments").Value)%></font><br>
        </p>
      </blockquote></td>
  </tr>
</table>
<p>&nbsp;</p>
  </body>
</html>
<%
rsConfInfo.Close()
Set rsConfInfo = Nothing
%>
<p><br>
    <br>
    <br>
  </p>
  <p><br>
  </p></div>
</body> </html>

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!

ASP Loads (refresh crashes) Loads again

Nilgni

Instructor

Similar threads

Part and Inventory Search

Sponsor