Hi Guys I have the following VB Script running on a SQL7.0 database wuth asp pages.
I have to port up to sql2k, how can I get this script to run on SQL2k?


Script :::


<SCRIPT LANGUAGE=VBScript RUNAT=Server>

Sub Session_OnStart
CAll SetLocale("en-ie")

Dim Globalshop, strConnection


Set GlobalShop =
Server.CreateObject("CyronaCOMShop11.Shop")
strConnection= "Provider=SQLOLEDB; Data Source=Server53;
Initial Catalog=encom;Network Library=dbmssocn; User ID=WebUser;
Password=psd;"
GlobalShop.DSN =strConnection
'GlobalShop.dsn = "Provider=SQLOLEDB; Data
Source=10.1.1.1,1433; Initial Catalog=encom; User ID=WebUser;
Password=psd;"

'GlobalShop.DSN = "Provider=SQLOLEDB; Data
Source=10.1.1.1,1433;Network Library=DBMSSCON;Initial Catalog=encom;User
ID=EncomWebUser; Password=r0adrunner;"

'GlobalShop.DebugMode=True
'GlobalShop.LogFilePath = "C:\logpath\file.txt"


Set Session.Contents("shop")= GlobalShop
Set GlobalShop = Nothing
'Session.Contents("MailServer")="Address"
Session.Contents("MailServer")="IPAddress"

Session.Contents("CyronaRecipient")="clyde.hatter@ cyrona.com"
Session.Contents("CustomerRecipient")="emailadress "


End Sub


Sub Session_OnEnd

set Session.Contents("shop") = Nothing


Any help appreciated...