angeldawn4u
Posts: 3
|
Posted: 06/03/2011, 6:18 AM |
|
hey there,
first time ever posting any of my errors but I'm about to pull my hair out! Please help.
I get an error:
Server object error 'ASP 0177 : 800401f3'
Server.CreateObject Failed
/start.asp, line 1261
800401f3
when opening the page for this script: (the top line is 1261)
dim serialreason
'set m_Auction = server.createobject("Auction.ProgID")
' Determine database connection string
dim connectionstring
connectionstring = "Data Source=tcp:s05.winhost.com;Initial Catalog=DB_25327_flippit;User ID=DB_25327_flippit_user;Password=******;Integrated Security=False;"
const MAX_DEADLOCK_RETRIES = 3
const DEADLOCK_RETRY_DELAY = 3
dim bReloadPrefs
dim dWebServerTime, sUniqueID, sScriptName, sQueryString, iUserID, sSerNum
dim bWriteBannerData
if session("serialnum") <> "" then
sSerNum = session("serialnum")
session("serialnum") = ""
else
sSerNum = empty
end if
if bTrackActivity then
dWebServerTime=Now()
sUniqueID = month(dWebServerTime) & "_" & day(dWebServerTime) & "_" & minute(dWebServerTime) & "_" & second(dWebServerTime) & "_" & Session.SessionID
sScriptName = request.ServerVariables("script_name")
sQueryString = request.ServerVariables("query_string")
if getuser <> "" then
iUserID = GetUser
else
iUserID = empty
end if
else
sUniqueID = empty
sScriptName = empty
sQueryString = empty
iUserID = empty
end if
bWriteBannerData = false
if Application("SitePrefsLoaded") = "loaded" then
if Application("BannerImpCount") <> "" then
if CLng(Application("BannerImpCount")) >= BANNER_IMPRESSION_DUMP_THRESHHOLD then
bWriteBannerData = true
end if
end if
bReloadPrefs = false
populatedSitePrefs = Application("SitePrefs")
popCurrencies = Application("Currencies")
popBannerAds = Application("BannerAds")
call m_Auction.Initialize(connectionstring, logpath, serialreason _
, sSerNum, logging, stringpath, full_url, "", error, Debug_Trace _
, QuickCatCount, sUniqueID, sScriptName, sQueryString, iUserID _
, EmailLogCleanupDays, MAX_DEADLOCK_RETRIES, DEADLOCK_RETRY_DELAY _
, False, rwAuctionAgentEnabled, populatedSitePrefs, popCurrencies _
, bReloadPrefs, popBannerAds, bWriteBannerData, popTrStrings, currentLang _
, UseFullTextIndex, , AUTOMATIC_ITEM_PROCESSING, FT_NOISE_WORD_DELIMITER, FT_NOISE_WORD_LIST _
, auctioninc_logging, ENABLE_US_STATE_TAX_RATES)
else
bReloadPrefs = true
, sSerNum, logging, stringpath, full_url, "", error, Debug_Trace _
, QuickCatCount, sUniqueID, sScriptName, sQueryString, iUserID _
, EmailLogCleanupDays, MAX_DEADLOCK_RETRIES, DEADLOCK_RETRY_DELAY _
, False, rwAuctionAgentEnabled, arrSitePrefs, arrCurrencies _
, bReloadPrefs, arrBannerAds, bWriteBannerData, popTrStrings, currentLang _
, UseFullTextIndex, , AUTOMATIC_ITEM_PROCESSING, FT_NOISE_WORD_DELIMITER, FT_NOISE_WORD_LIST _
, auctioninc_logging, ENABLE_US_STATE_TAX_RATES)
if error = "" then
Application("SitePrefsLoaded") = "loaded"
Application.Lock
Application("SitePrefs") = arrSitePrefs
Application("Currencies") = arrCurrencies
Application("BannerAds") = arrBannerAds
Application.UnLock
end if
end if
if error <> "" then
Application("strings_loaded") = ""
session("error") = error
DoRedirect "error_setup.asp?error=" & error
end if
if serialreason <> "" then
session("serial_needed") = "1"
session("problem") = serialreason
DoRedirect("serial.asp")
end if
'if bClearsLangFileList then call m_Auction.Preference.SetLangFileList(sLangFileList)
end if
set Auction = m_Auction
end function
Thank you so much
Angel
|
|
|
angeldawn4u
Posts: 3
|
Posted: 06/03/2011, 9:28 AM |
|
I'm sorry that's the wrong line:
the correct line that gets an error is:
dim serial reason
|
|
|
Oper
Posts: 1195
|
Posted: 06/06/2011, 7:06 PM |
|
Server.CreateObject Failed
That your error and shoudl be one of your obj CREATE
_________________
____________________________
http://www.7bz.com (Free CMS,CRM Developed in CCS)
http://www.PremiumWebTemplate.com
Affiliation Web Site Templates
Please do backup first |
|
|
angeldawn4u
Posts: 3
|
Posted: 06/07/2011, 4:06 AM |
|
I know that much, but what's that mean? how do I fix that? I am total newbie, just trying to install software I bought onto my server.
|
|
|
Rocket
Posts: 45
|
Posted: 08/28/2011, 10:52 PM |
|
This normally indicates that you have not registered the component correctly, or you registrered it, then re-registered it (without unregistering it). Essentially the PROGID for the component is all wacked up.
Try to Unreg regsvr32 myobject.dll / u with then register it.
If it is a component that you created, change the compatability to Binary (or whatever your dev tool calls or refers to it as).
Here is a link that I pulled from my DB system that may help: http://support.microsoft.com/kb/315453
Another anomolly that I see in your second post is this: dim serial reason. If this is a correct exert from your script, you need a COMMA between "serial" and "reason", but in your original post, you show it as one word.
Anyway, check you component registration and/or the actual component referrence guide to make sure that you are instantiating the object "Auction.ProgID". Seems weird to me that a component object would have a name like ProgID. It's a reserved word used in the registry to identify a components ProgID value. So if I were a betting man (and oh my I am), I would have to say that's where your problem is.
Hope this helps.
|
|
|
|