View Single Post
  #1 (permalink)  
Old April 15th, 2004, 04:30 AM
mwlyoung mwlyoung is offline
Registered User
Join Date: Apr 2004
Location: , , .
Posts: 2
Thanks: 0
Thanked 0 Times in 0 Posts
Default Microsoft VBScript runtime error '800a000d'

Hi there

We have recently upgraded from MSSQL7 to MSSQL2000 and since then I have been experiencing some problems.

My connection string in global.asa:

Sub Application_OnStart
End Sub

In clientheader.asp:

Set cnClientReports = Server.CreateObject ("ADODB.Connection")
        cnClientReports.Open Application("ConnectionString")
        cnClientReports.CommandTimeout = 300

        Set rsElectricity = Server.CreateObject ("ADODB.Recordset")
        rsElectricity.CursorType = adOpenStatic
        rsElectricity.Open "SELECT bElec FROM tbl_OutletOperations WHERE szSiteNo = '" & Trim(Session("Outlet") & "'"), cnClientReports

In footer.asp:

<a href="clientmenu.asp" class="whitetext" style="text-decoration : none">Home</a> | <a href="rpt_outletdetail.asp" class="whitetext" style="text-decoration : none">Order Details</a> | <a href="rpt_normalsales.asp" class="whitetext" style="text-decoration : none">Normal Sales</a> | <a href="rpt_vouchersreissued.asp" class="whitetext" style="text-decoration : none">Reissued Vouchers</a> <% if rsElectricity("bElec") then %>| <a href="rpt_elecsales.asp" class="whitetext" style="text-decoration : none">Electricity Sales</a> | <a href="rpt_electrans.asp" class="whitetext" style="text-decoration : none">Electricity Transactions</a> <% end if %> <% if NOT rsISOOutlet.EOF then %> | <a href="rpt_isosales.asp" class="whitetext" style="text-decoration : none">Integrated Sales</a> <% end if %>

bElec is of type bit in the database.

The error message that I am getting is:

Microsoft VBScript runtime error '800a000d'

Type mismatch: 'rsElectricity'

/admin/footer.asp, line 9

Any help will be greatly appreciated.

Reply With Quote