scriptblur
09-23-2002, 07:21 AM
Hi guys... can you all please kindly help me with this problem... thank a lot...
i got this error '80004005'
Unspecified error
/sze_sean/html/check_booking.asp, line 15 for my program below...
Program:
<% @ Language=VBScript %>
<% Option Explicit %>
<%
Dim conn,rs,sql
set conn=Server.CreateObject("ADODB.Connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.Open(Server.Mappath("zone.mdb"))
set rs=Server.CreateObject("ADODB.Recordset")
sql = "SELECT Week,Day,Zones FROM Zone WHERE Week='"&Request.Form("weeks")&"' , Day='"&Request.Form("days")&"' , Zones='"&Request.Form("location")&"'"
rs.Open sql, conn
if(Request.Form("weeks") <> "") then
if(Request.Form("days") <> "") then
if(Request.Form("location") <> "") then
Session("Week") = Request.Form("weeks")
Session("Day") = Request.Form("days")
Session("Zones") = Request.Form("location")
response.redirect="approved_page.asp"
else
response.redirect="Failed.asp"
end if
end if
end if
%>
Why is that such an eror, is it program cannot be done???
:confused:
i got this error '80004005'
Unspecified error
/sze_sean/html/check_booking.asp, line 15 for my program below...
Program:
<% @ Language=VBScript %>
<% Option Explicit %>
<%
Dim conn,rs,sql
set conn=Server.CreateObject("ADODB.Connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.Open(Server.Mappath("zone.mdb"))
set rs=Server.CreateObject("ADODB.Recordset")
sql = "SELECT Week,Day,Zones FROM Zone WHERE Week='"&Request.Form("weeks")&"' , Day='"&Request.Form("days")&"' , Zones='"&Request.Form("location")&"'"
rs.Open sql, conn
if(Request.Form("weeks") <> "") then
if(Request.Form("days") <> "") then
if(Request.Form("location") <> "") then
Session("Week") = Request.Form("weeks")
Session("Day") = Request.Form("days")
Session("Zones") = Request.Form("location")
response.redirect="approved_page.asp"
else
response.redirect="Failed.asp"
end if
end if
end if
%>
Why is that such an eror, is it program cannot be done???
:confused: