etjohnson81
Programmer
I have a page that works fine the first time it loads, if i refresh the page too quick I get
Provider error '80004005'
Unspecified error
/dshome/classes.asp, line 12
which is where the conn.open is. I am using a DSN database from Access named dscene.
The code follows for the page
<A href="<img src=" border=0></a>
Provider error '80004005'
Unspecified error
/dshome/classes.asp, line 12
which is where the conn.open is. I am using a DSN database from Access named dscene.
The code follows for the page
Code:
the url is [URL unfurl="true"]www.newwaynetworks.com/dshome/classes.asp[/URL]
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "[URL unfurl="true"]http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">[/URL]
<html xmlns="[URL unfurl="true"]http://www.w3.org/1999/xhtml">[/URL]
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<title>Untitled Document</title>
<link href="[URL unfurl="true"]http://www.newwaynetworks.com/dshome/incs/sitestyle.css"[/URL] rel="stylesheet" type="text/css" />
</head>
<%
set conn = Server.CreateObject("ADODB.Connection")
conn.Open "dscene"
classSql ="SELECT tblClasses.ID, tblClasses.txtClassType AS classType, tblClasses.memClassDesc AS classDesc, tblClasses.numWeeks AS weeks, tblClasses.numCost AS cost FROM tblClasses ORDER BY tblClasses.txtClassType"
set Classes=Server.CreateObject("ADODB.recordset")
classes.Open classSql, conn
%>
<body class="main">
<table width="90%" cellspacing="0" cellpadding="0" align="center">
<tr>
<td width="180" class="main"><img src="images/swing2.jpg" style="width:146px; height:197px;"/></td>
<td width="63%" class="logoblock"><table width="100%" cellspacing="0" cellpadding="0">
<tr>
<td colspan="3"><img src="images/Logo2.png" /> </td>
</tr>
<tr>
<td width="2%"> </td>
<td width="63%"> </td>
<td width="35%"><img src="images/withmarg.png"/></td>
</tr>
</table>
<br /></td>
<td width="180" class="main"> </td>
</tr>
<tr>
<td valign="top" class="main"><p/><p/>
<!--#include file="incs/links.asp" -->
</td>
<td class="contentcell" valign="top"><p> </p>
<table width="90%" align="center" cellpadding="0" cellspacing="0">
<tr>
<td> </td>
</tr>
</table>
<p> </p>
<table width="90%" align="center" cellpadding="0" cellspacing="0">
<%classes.movefirst
colorset=1
do while classes.eof = false
%>
<tr>
<td class="classTypeInfo" <% if colorset=1 then response.Write("bgcolor=#CCCCCC")%>><%response.Write(classes("classtype"))%></td>
</tr>
<tr>
<td <% if colorset=1 then response.Write("bgcolor=#CCCCCC")%>><% response.Write(classes("classDesc"))%><br /><br />
Class Price: $<% response.Write(classes("cost")) %>
<br />
Class Length: <% response.Write(classes("weeks"))%> weeks <br/>
<br /></td>
</tr>
<%
colorset= colorset +1
if colorset=3 then colorset = 1
classes.movenext
loop
%>
</table> <p> </p></td>
<td class="main"> </td>
</tr>
</table>
<% classes.close
conn.close
%>
</body>
</html><A href="<img src=" border=0></a>