View Single Post
  #3 (permalink)  
Old December 7th, 2007, 04:30 AM
ours ours is offline
Registered User
 
Join Date: Nov 2007
Posts: 8
Thanks: 0
Thanked 0 Times in 0 Posts
Send a message via ICQ to ours Send a message via MSN to ours
Default

Quote:
quote:Originally posted by woodyz
 For starters, here are a few changes to make:

     Dim visit
     Set visit = Server.CreateObject("WroxCommerce.Visit")
    
     visit.Configure "Jo's Cofee", "jocofee.com", "driver=SQL Server;" & _
     "DATABASE=Jo's Coffee; UID=jocofeeWeb; PWD=eermlate; SERVER=localhost"

You might have a lot of trouble getting this code to work. There needs to be a sql server database and possibly a com object in a dll named "WroxCommerce" that has a class named Visit. I think I had this book, but not in Russian.





Woody Z
http://www.learntoprogramnow.com
How to use a forum to help solve problems
The mistake of compilation Microsoft VBScript (0x800A0400) Is supposed presence of the instruction/jocoffee/site.asp, line 53 " driver=SQL Server; " and _

Code of page

' 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

In your variant the same mistake.
Please help