Not long suffered the old woman, under Christmas having solved...:(
If it is serious, after failure it was necessary to rearrange Windows and now the mistake jumps out: Type of a mistake:

Object Server, ASP 0177 (0x800401F3) Failure Server. CreateObject the Inadmissible line with the instruction of a class/russianphoto/site.asp, line 50

Code with 39 till 60 line
 ' Create somewhere to hold the Visit object as we process the page...
Dim m_visit

' Visit - this function returns an instance of the Visit back to the caller.
' If one doesn't exist, it will create one...
Function Visit

   ' Åñòü ëè ñàéò?
   If IsEmpty(m_visit) Then

      ' Ñîçäàåì ýêçåìïëÿð îáúåêòà Visit
      Set m_visit = Server.CreateObject("WroxCommerce.Visit")

      m_visit.Configure g_sitename, g_domainname,"driver=SQL Server;" & _
         "DATABASE=Jo's Coffee; UID=jocofeeWeb; PWD=eermlate;" & _
                        "SERVER=localhost", Session
   End If

   ' Âîçâðàùàåì îáúåêò Visit ...
   Set Visit = m_visit

End Function

Happy Christmas and New Year!