scriptblur
09-13-2002, 06:22 AM
Hi guys.. please help.
The error is error '80004005'
Unspecified error
It on the rs.Open sql, conn.....
<% @ Language=VBScript %>
<% Option Explicit %>
<html>
<head>
<%
Dim conn,sql
set conn=Server.CreateObject("ADODB.Connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.Open(Server.Mappath("ELP_zone.mdb"))
Dim rs
set rs=Server.CreateObject("ADODB.Recordset")
sql ="SELECT * FROM Zone E"
rs.Open sql, conn
%>
</head>
<body>
<table border = 1>
<tr>
<td><b>ELP_Zone E</b></td>
<td><b>Week</b></td>
<td><b>Day</b></td>
<td><b>Time: 0800-0850</b></td>
<td><b>Time: 0900-0950</b></td>
<td><b>Time: 1010-1100</b></td>
<td><b>Time: 1110-1200</b></td>
<td><b>Time: 1205-1255</b></td>
<td><b>Time: 1300-1350</b></td>
<td><b>Time: 1400-1450</b></td>
<td><b>Time: 1510-1600</b></td>
<td><b>Time: 1610-1700</b></td>
<td><b>Time: 1705-1755</b></td>
<td><b>Time: 1840-1930</b></td>
<td><b>Time: 1940-2030</b></td>
<td><b>Time: 2040-2130</b></td>
</tr>
<%
Do While Not rs.EOF
Response.Write"<tr><td> " & rs("ELP_Zone E") & "</td>"
Response.Write"<td>" & rs("Week") &"</td>"
Response.Write"<td> " & rs("Day") &"</td>"
Response.Write"<td>" & rs("Time: 0800-0850") &"</td>"
Response.Write"<td>" & rs("Time: 0900-0950") &"</td>"
Response.Write"<td>" & rs("Time: 1010-1100") &"</td>"
Response.Write"<td>" & rs("Time: 1110-1200") &"</td>"
Response.Write"<td>" & rs("Time: 1205-1255") &"</td>"
Response.Write"<td>" & rs("Time: 1300-1350") &"</td>"
Response.Write"<td>" & rs("Time: 1400-1450") &"</td>"
Response.Write"<td>" & rs("Time: 1510-1600") &"</td>"
Response.Write"<td>" & rs("Time: 1610-1700") &"</td>"
Response.Write"<td>" & rs("Time: 1705-1755") &"</td>"
Response.Write"<td>" & rs("Time: 1840-1930") &"</td>"
Response.Write"<td>" & rs("Time: 1940-2030") &"</td>"
Response.Write"<td>" & rs("Time: 2040-2130") &"</td>"
rs.MoveNext
Loop
rs.Close
set rs = Nothing
conn.Close
set conn = Nothing
%>
</table>
</body>
</html>
The error is error '80004005'
Unspecified error
It on the rs.Open sql, conn.....
<% @ Language=VBScript %>
<% Option Explicit %>
<html>
<head>
<%
Dim conn,sql
set conn=Server.CreateObject("ADODB.Connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.Open(Server.Mappath("ELP_zone.mdb"))
Dim rs
set rs=Server.CreateObject("ADODB.Recordset")
sql ="SELECT * FROM Zone E"
rs.Open sql, conn
%>
</head>
<body>
<table border = 1>
<tr>
<td><b>ELP_Zone E</b></td>
<td><b>Week</b></td>
<td><b>Day</b></td>
<td><b>Time: 0800-0850</b></td>
<td><b>Time: 0900-0950</b></td>
<td><b>Time: 1010-1100</b></td>
<td><b>Time: 1110-1200</b></td>
<td><b>Time: 1205-1255</b></td>
<td><b>Time: 1300-1350</b></td>
<td><b>Time: 1400-1450</b></td>
<td><b>Time: 1510-1600</b></td>
<td><b>Time: 1610-1700</b></td>
<td><b>Time: 1705-1755</b></td>
<td><b>Time: 1840-1930</b></td>
<td><b>Time: 1940-2030</b></td>
<td><b>Time: 2040-2130</b></td>
</tr>
<%
Do While Not rs.EOF
Response.Write"<tr><td> " & rs("ELP_Zone E") & "</td>"
Response.Write"<td>" & rs("Week") &"</td>"
Response.Write"<td> " & rs("Day") &"</td>"
Response.Write"<td>" & rs("Time: 0800-0850") &"</td>"
Response.Write"<td>" & rs("Time: 0900-0950") &"</td>"
Response.Write"<td>" & rs("Time: 1010-1100") &"</td>"
Response.Write"<td>" & rs("Time: 1110-1200") &"</td>"
Response.Write"<td>" & rs("Time: 1205-1255") &"</td>"
Response.Write"<td>" & rs("Time: 1300-1350") &"</td>"
Response.Write"<td>" & rs("Time: 1400-1450") &"</td>"
Response.Write"<td>" & rs("Time: 1510-1600") &"</td>"
Response.Write"<td>" & rs("Time: 1610-1700") &"</td>"
Response.Write"<td>" & rs("Time: 1705-1755") &"</td>"
Response.Write"<td>" & rs("Time: 1840-1930") &"</td>"
Response.Write"<td>" & rs("Time: 1940-2030") &"</td>"
Response.Write"<td>" & rs("Time: 2040-2130") &"</td>"
rs.MoveNext
Loop
rs.Close
set rs = Nothing
conn.Close
set conn = Nothing
%>
</table>
</body>
</html>