fonction classique d'ouverture DB ASP ne fonctionne pas

Question

J'ai transféré un site classique asp fonctionnant sur Windows Server 2003 à Windows Server 2008, mais tout à coup le code ci-dessous a cessé de fonctionner.

Const connStr_FC08 = "Provider=SQLNCLI10;Server=DS-47500;Database=TestDB;Uid=TestLogin;Pwd=test;Network=dbmssocn;" 

Function connDB(OpenDB) 
    DIM conn 
    SET conn = Server.CreateObject("ADODB.Connection") 
    conn.open = connStr_FC08 
    If OpenDB = "Y" Then conn.open 
    connDB = conn 
End Function 

dim cn, cmd 
cn = connDB("Y") 
response.Write(cn.state) 

Cela renvoie l'erreur ci-dessous

Microsoft VBScript runtime error '800a01a8' 

Object required: 'Provider=SQLNCLI10.1' 

Cela se produit sur la ligne ci-dessous

response.write(cn.state) 

Merci Chris

Answer 1

Vous avez ce fournisseur SQL installé droit?

Vous pouvez mettre cette fonction dans un simple script VBScript pour tester sans modifier vos pages tout.

Answer 2

Si je prends l'ouverture de la connexion de la fonction et de mettre en ligne alors il n'y a pas d'erreur et il fonctionne.

Mais mon site fonctionne tout en utilisant cette fonction si a) Je ne veux pas avoir à réécrire mon code et b) Je ne comprends pas pourquoi cela ne fonctionne pas quand il utilisé pour.

Answer 3

Je vois quelques problèmes possibles de syntaxe avec le code affiché:

... 
    conn.open = connStr_FC08 
    ... 
    connDB = conn 
... 
cn = connDB("Y") 

Faut-il être mis à jour à ce qui suit?

... 
    conn.ConnectionString = connStr_FC08 
    ... 
    Set connDB = conn 
... 
Set cn = connDB("Y")