uknites
Posts: 12
|
| Posted: 11/05/2006, 7:49 AM |
|
im getting Microsoft VBScript runtime error '800a01fa'
Class not defined: 'clsDBParents_En'
on line 5 from the code pasted below.
Plz tell me whats the problem
Redirect = ""
TemplateFileName = "default.html"
Set CCSEvents = CreateObject("Scripting.Dictionary")
PathToCurrentPage = "./"
FileName = "default.asp"
PathToRoot = "./"
ScriptPath = Left(Request.ServerVariables("PATH_TRANSLATED"), Len(Request.ServerVariables("PATH_TRANSLATED")) - Len(FileName))
TemplateFilePath = ScriptPath
'End Initialize Page
thanks
|
 |
 |
Edd
Posts: 547
|
| Posted: 11/06/2006, 3:10 PM |
|
Quote :Class not defined: 'clsDBParents_En'
In CCS all database references start with clsDB therefore check that the page references the database object or that the code references the database before it is instantiated (e.g. BeforeInitialize event)
_________________
Accepting and instigating change are life's challenges.
http://www.syntech.com.au |
|
|
|
uknites
Posts: 12
|
| Posted: 11/06/2006, 10:18 PM |
|
First of all thanks for the reply
the problem is of the reference only. It works fine on my local machine but when i am uploading to a remote server. I am getting that error.
Am i suppose to change the references, and if yes, how to?
regards
|
|
|
|
Edd
Posts: 547
|
| Posted: 11/07/2006, 4:19 AM |
|
So this is on every uploaded page ar just one.
If it is all pages then your database is not being able to be references. If it is an access database use the examples in CCS example pack to seek an alternative.
If it is just one page, check the tables that you are accessing - see if they are different from the local database.
Edd
_________________
Accepting and instigating change are life's challenges.
http://www.syntech.com.au |
|
|
|
Benjamin Krajmalnik
|
| Posted: 11/24/2006, 9:31 PM |
|
Your problem is taking place when tring to instantiate the
Scripting.Dictionary object.
This means you have a corrupted scripting engine.
You need to reinstall the Microsoft Scripting engine.
"uknites" <uknites@forum.codecharge> wrote in message
news:64550251e7e331@news.codecharge.com...
> First of all thanks for the reply
>
> the problem is of the reference only. It works fine on my local machine
> but
> when i am uploading to a remote server. I am getting that error.
> Am i suppose to change the references, and if yes, how to?
>
> regards
> ---------------------------------------
> Sent from YesSoftware forum
> http://forums.codecharge.com/
>
|
|
|
|
uknites
Posts: 12
|
| Posted: 01/30/2007, 2:51 AM |
|
thanks Benjamin Krajmalnik but the problem is still there, I checked there is nothing wrong with the Microsoft Scripting engine. Are there any special requirements or any new objects used in CCS 3.1.
If there are any specific changed required in the server let me know. I am using Windows Advanced server 2000.
thanks
|
|
|
|
peterr
Posts: 5971
|
| Posted: 01/30/2007, 3:02 AM |
|
The above code sample doesn't look like the one that results in the error because it doesn't do anything with clsDBParents. What is the code that is causing the error? Which ASP script and in which line number?
_________________
Peter R.
YesSoftware Forums Moderator
For product support please visit http://support.yessoftware.com |
|
|
|
uknites
Posts: 12
|
| Posted: 01/30/2007, 4:10 AM |
|
the error message is
Microsoft VBScript runtime error '800a01fa'
Class not defined: 'clsDBDCCAdmitted'
/path of my files on secver/DCCAdmitted/AD061Search.asp, line 41
Code upto line 90 is
<%@ CodePage=1252 %>
<%
'Include Common Files @1-6F84F411
%>
<!-- #INCLUDE FILE="Common.asp"-->
<!-- #INCLUDE FILE="Cache.asp" -->
<!-- #INCLUDE FILE="Template.asp" -->
<!-- #INCLUDE FILE="Sorter.asp" -->
<!-- #INCLUDE FILE="Navigator.asp" -->
<%
'End Include Common Files
'Initialize Page @1-29AB408C
' Variables
Dim PathToRoot, ScriptPath, TemplateFilePath
Dim FileName
Dim Redirect
Dim Tpl, HTMLTemplate
Dim TemplateFileName
Dim ComponentName
Dim PathToCurrentPage
' Events
Dim CCSEvents
Dim CCSEventResult
' Connections
Dim DBDCCAdmitted
' Page controls
Dim AllResultsSearch
Dim AllResults
Dim ChildControls
Session.CodePage=28591
Response.Charset = "iso-8859-1"
Redirect = ""
TemplateFileName = "AD061Search.html"
Set CCSEvents = CreateObject("Scripting.Dictionary")
PathToCurrentPage = "./"
FileName = "AD061Search.asp"
PathToRoot = "./"
ScriptPath = Left(Request.ServerVariables("PATH_TRANSLATED"), Len(Request.ServerVariables("PATH_TRANSLATED")) - Len(FileName))
TemplateFilePath = ScriptPath
'End Initialize Page
'Initialize Objects @1-CC02B6B0
Set DBDCCAdmitted = New clsDBDCCAdmitted
DBDCCAdmitted.Open
' Controls
Set AllResultsSearch = new clsRecordAllResultsSearch
Set AllResults = New clsGridAllResults
AllResults.Initialize DBDCCAdmitted
' Events
%>
<!-- #INCLUDE FILE="AD061Search_events.asp" -->
<%
BindEvents
CCSEventResult = CCRaiseEvent(CCSEvents, "AfterInitialize", Nothing)
'End Initialize Objects
'Execute Components @1-D8BD1A9B
AllResultsSearch.Operation
'End Execute Components
'Go to destination page @1-6D35F4FD
If NOT ( Redirect = "" ) Then
UnloadPage
Response.Redirect Redirect
End If
'End Go to destination page
'Initialize HTML Template @1-E749163D
CCSEventResult = CCRaiseEvent(CCSEvents, "OnInitializeView", Nothing)
Set HTMLTemplate = new clsTemplate
HTMLTemplate.Encoding = "iso-8859-1"
Set HTMLTemplate.Cache = TemplatesRepository
HTMLTemplate.LoadTemplate TemplateFilePath & TemplateFileName
Set Tpl = HTMLTemplate.Block("main")
CCSEventResult = CCRaiseEvent(CCSEvents, "BeforeShow", Nothing)
'End Initialize HTML Template
'Show Page @1-026F2548
Set ChildControls = CCCreateCollection(Tpl, Null, ccsParseOverwrite, _
Array(AllResultsSearch, AllResults))
ChildControls.Show
Dim MainHTML
Please tell me whats wrong. Thanks
|
|
|
|
peterr
Posts: 5971
|
| Posted: 01/30/2007, 1:37 PM |
|
I see that you probably manually modified the generated code. Just delete the whole script (AD061Search.asp), press F9 and it should work again.
_________________
Peter R.
YesSoftware Forums Moderator
For product support please visit http://support.yessoftware.com |
|
|
|
uknites
Posts: 12
|
| Posted: 01/31/2007, 3:29 AM |
|
i rebuilt the project. The only thing i chaged on all pages is
<!-- #INCLUDE VIRTUAL="/DCCAdmitted/Common.asp"-->
to
<!-- #INCLUDE FILE="Common.asp"-->
and the connection string
ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Inetpub\wwwroot\DCCAdmitted\dbw\DCCadmitted.mdb;Persist Security Info=False"
to
ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source=" & Server.MapPath("\dbw\DCCadmitted.mdb") & ";Persist Security Info=False"
other things are the same. But still im getting the same error as i mentioned above.
|
|
|
|
peterr
Posts: 5971
|
| Posted: 01/31/2007, 3:40 AM |
|
CCS shows that the modified code is somewhere within this block:
'Initialize Objects @1-CC02B6B0
Set DBDCCAdmitted = New clsDBDCCAdmitted
DBDCCAdmitted.Open
' Controls
Set AllResultsSearch = new clsRecordAllResultsSearch
Set AllResults = New clsGridAllResults
AllResults.Initialize DBDCCAdmitted
' Events
%>
<!-- #INCLUDE FILE="AD061Search_events.asp" -->
<%
BindEvents
CCSEventResult = CCRaiseEvent(CCSEvents, "AfterInitialize", Nothing)
'End Initialize Objects
Can you please paste here the new generated code that is not altered manually.
Possibly this will not resolve the issue, however, this is one obvious problem that should be solved before looking for other causes.
_________________
Peter R.
YesSoftware Forums Moderator
For product support please visit http://support.yessoftware.com |
|
|
|
uknites
Posts: 12
|
| Posted: 01/31/2007, 5:04 AM |
|
here is the code generated now. Without any changes i am posting first 100 lines here
<%@ CodePage=1252 %>
<%
'Include Common Files @1-6F84F411
%>
<!-- #INCLUDE VIRTUAL="/DCCAdmitted/Common.asp"-->
<!-- #INCLUDE VIRTUAL="/DCCAdmitted/Cache.asp" -->
<!-- #INCLUDE VIRTUAL="/DCCAdmitted/Template.asp" -->
<!-- #INCLUDE VIRTUAL="/DCCAdmitted/Sorter.asp" -->
<!-- #INCLUDE VIRTUAL="/DCCAdmitted/Navigator.asp" -->
<%
'End Include Common Files
'Initialize Page @1-84C0E030
' Variables
Dim PathToRoot, ScriptPath, TemplateFilePath
Dim FileName
Dim Redirect
Dim Tpl, HTMLTemplate
Dim TemplateFileName
Dim ComponentName
Dim PathToCurrentPage
Dim Attributes
' Events
Dim CCSEvents
Dim CCSEventResult
' Connections
Dim DBDCCAdmitted
' Page controls
Dim AllResultsSearch
Dim AllResults
Dim ChildControls
Session.CodePage=28591
Response.Charset = "iso-8859-1"
Redirect = ""
TemplateFileName = "AD061Search.html"
Set CCSEvents = CreateObject("Scripting.Dictionary")
PathToCurrentPage = "./"
FileName = "AD061Search.asp"
PathToRoot = "./"
ScriptPath = Left(Request.ServerVariables("PATH_TRANSLATED"), Len(Request.ServerVariables("PATH_TRANSLATED")) - Len(FileName))
TemplateFilePath = ScriptPath
'End Initialize Page
'Initialize Objects @1-83315637
Set DBDCCAdmitted = New clsDBDCCAdmitted
DBDCCAdmitted.Open
Set Attributes = New clsAttributes
' Controls
Set AllResultsSearch = new clsRecordAllResultsSearch
Set AllResults = New clsGridAllResults
AllResults.Initialize DBDCCAdmitted
CCSEventResult = CCRaiseEvent(CCSEvents, "AfterInitialize", Nothing)
'End Initialize Objects
'Execute Components @1-D8BD1A9B
AllResultsSearch.Operation
'End Execute Components
'Go to destination page @1-6D35F4FD
If NOT ( Redirect = "" ) Then
UnloadPage
Response.Redirect Redirect
End If
'End Go to destination page
'Initialize HTML Template @1-2DA4DCFB
CCSEventResult = CCRaiseEvent(CCSEvents, "OnInitializeView", Nothing)
Set HTMLTemplate = new clsTemplate
HTMLTemplate.Encoding = "iso-8859-1"
Set HTMLTemplate.Cache = TemplatesRepository
HTMLTemplate.LoadTemplate TemplateFilePath & TemplateFileName
HTMLTemplate.SetVar "@CCS_PathToRoot", PathToRoot
Set Tpl = HTMLTemplate.Block("main")
CCSEventResult = CCRaiseEvent(CCSEvents, "BeforeShow", Nothing)
'End Initialize HTML Template
'Show Page @1-B4BFDFFE
Attributes.Show HTMLTemplate, "page:"
Set ChildControls = CCCreateCollection(Tpl, Null, ccsParseOverwrite, _
Array(AllResultsSearch, AllResults))
ChildControls.Show
Dim MainHTML
HTMLTemplate.Parse "main", False
MainHTML = HTMLTemplate.GetHTML("main")
Dim MDK5D3D9H8Q : MDK5D3D9H8Q="<center><font face=""Arial""><small>Generated <!-- SCC -->with <!-- CCS -->CodeCharge <!-- SCC -->Studio.</small></font></center>"
If InStr(1, MainHTML, "</body", 1) > 0 Then
MainHTML = Replace(MainHTML, "</body", MDK5D3D9H8Q & "</body", 1, -1, 1)
ElseIf InStr(1, MainHTML, "</frameset", 1) = 0 Then
MainHTML = Replace(MainHTML, "</html", MDK5D3D9H8Q & "</html", 1, -1, 1)
End If
CCSEventResult = CCRaiseEvent(CCSEvents, "BeforeOutput", Nothing)
If CCSEventResult Then Response.Write MainHTML
'End Show Page
thanks
|
|
|
|
uknites
Posts: 12
|
| Posted: 02/04/2007, 12:46 AM |
|
anyone can help me please 
|
|
|
|
peterr
Posts: 5971
|
| Posted: 02/05/2007, 2:31 AM |
|
I suspect that connection "DCCAdmitted" doesn't exist in your project. Though at this point I recommend contacting product support.
_________________
Peter R.
YesSoftware Forums Moderator
For product support please visit http://support.yessoftware.com |
|
|
|
|
