Asp Script Kurulumu Hakkında

Arkadaşlar Kolay gelsin;

Elimde bir adet alışveriş scripti var asp ile yazılmış, Ancek ben php ile ilgilendiğim için bunun mantığını bir türlü kavrayamadım,

Şimdi ben tüm dosyaları ftp den dizine attım, veritabanı ile alaklı "confing" "install" gibi dosyalar göremediğim için veritabanı ile ilgili hiçbirşey yapamadım,

Sayfayı görüntülemek istediğimde bana aşağıdaki gibi hata veriyor ilgilenebiliece bir arkadaş var ise yardımlarını bekliyorum,

HATA;-----------------
Server object error 'ASP 0177 : 800401f3'

Server.CreateObject Failed

/includes\siteload.asp, line 7

800401f3
-----------------------

Bahsedilen dosyanın ilgili satırındaki kod yapısı

<% Response.CodePage = 65001 %>
<%
'If Application ("SiteLoad")="OK" and (LCase(left(Request.ServerVariables ("SERVER_NAME"),3))<>"www" Or LCase(left(Request.ServerVariables ("SERVER_NAME"),4))<>"test") Then response.redirect(application("RootURL"))
Dim objSite

'if len(Application ("SiteLoad"))=0 then
set objSite=Server.CreateObject("TPortal.Site")
objSite.LoadSite
if objSite.Result ="OK" then
Application ("SiteLoad")="OK"
else
Response.Write objSite.Result & objSite.ErrorCode
Response.Write "Site could not load"
Response.End
end if
objSite.LoadTextMessages
if objSite.Result ="OK" then
Application ("SiteLoad")="OK"
else
Response.Write objSite.Result & objSite.ErrorCode
Response.Write "SiteTexts could not load"
Response.End
end if
set objSite= nothing
'end if
if len(Session("LanguageID"))=0 then
set objSite=Server.CreateObject("TPortal.Site")
objSite.LoadLanguage(application("DefaultClientLan guage"))
' objSite.LoadLanguage(1)
if objSite.Result <>"OK" then
Response.Write objSite.Result & objSite.ErrorCode
Response.Write "Site could not load"
Response.End
end if
set objSite= nothing
end if
%>

Yokmu arkadaşlar yardımcı olacak biri