hi,
plz check ur database connection string.
I am alredy chk my string
Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
[Microsoft][ODBC Driver Manager] Data source name not found and no default driver specified
I am using following script,when i am connected to VB it's work,
Sub OpenDB()
Set conDB = Server.CreateObject("ADODB.Connection")
conDB.ConnectionTimeOut=60
If Request.ServerVariables("HTTP_HOST")="www.shan.com " Or Request.ServerVariables("HTTP_HOST")="shan.com" Then
conDB.Open "shan", "shan1", "test"
Else
conDB.Open "shan", "", "test1"
End If
End Sub