Salve.
Ho preferito aprire un nuovo thread perchè qui vorrei avere delle informazioni su una connessione ad un db sql server.
La situazione è sempre la stessa: io ho una pagina asp che deve connettersi ad un db che risiede però su un altro server di hosting.
Usando il codice:
<%
Dim conn, rs, cont
Set conn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject ("ADODB.Recordset")
str= "Provider=SQLOLEDB.1; Password=miapassword; Persist Security Info=True; User ID=mioUserID; Initial Catalog=nomeDB; Data Source=IPdelserver"
conn.open str
SQL = "select * from nomeTabella"
rs.open SQL, conn
FOR cont = 1 to 10
'Stampiamo a video i records
response.write rs.fields("CodArt")
response.write rs.fields("CatMerce")
rs.movenext
next
'Alla fine distruggiamo i 2 oggetti
rs.Close
Set rs = Nothing
conn.Close
Set conn = Nothing
%>
-----------------------------------------
mi esce il seguente errore:
Microsoft OLE DB Provider for SQL Server error '80004005'
[DBNETLIB][ConnectionOpen (Connect()).]SQL Server does not exist or access denied.
/ConnDB Esterno.asp, line 27
In pratica l'errore lo segna alla riga di "conn.open str".
E' da ieri che ci sto impazzendo!!! :incazz2: Il bello è che la stessa stringa di connessione l'ho inserita in un file scritto in Visual Basic e si collega correttamente!!! :incazz2::incazz2::incazz2:
Non solo...anche in locale mi si collega perfettamente!!! E' su Aruba che non va! :hammer:
Cos'è che sbaglio?
Grazie
Max!
Ho preferito aprire un nuovo thread perchè qui vorrei avere delle informazioni su una connessione ad un db sql server.
La situazione è sempre la stessa: io ho una pagina asp che deve connettersi ad un db che risiede però su un altro server di hosting.
Usando il codice:
<%
Dim conn, rs, cont
Set conn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject ("ADODB.Recordset")
str= "Provider=SQLOLEDB.1; Password=miapassword; Persist Security Info=True; User ID=mioUserID; Initial Catalog=nomeDB; Data Source=IPdelserver"
conn.open str
SQL = "select * from nomeTabella"
rs.open SQL, conn
FOR cont = 1 to 10
'Stampiamo a video i records
response.write rs.fields("CodArt")
response.write rs.fields("CatMerce")
rs.movenext
next
'Alla fine distruggiamo i 2 oggetti
rs.Close
Set rs = Nothing
conn.Close
Set conn = Nothing
%>
-----------------------------------------
mi esce il seguente errore:
Microsoft OLE DB Provider for SQL Server error '80004005'
[DBNETLIB][ConnectionOpen (Connect()).]SQL Server does not exist or access denied.
/ConnDB Esterno.asp, line 27
In pratica l'errore lo segna alla riga di "conn.open str".
E' da ieri che ci sto impazzendo!!! :incazz2: Il bello è che la stessa stringa di connessione l'ho inserita in un file scritto in Visual Basic e si collega correttamente!!! :incazz2::incazz2::incazz2:
Non solo...anche in locale mi si collega perfettamente!!! E' su Aruba che non va! :hammer:
Cos'è che sbaglio?
Grazie
Max!
Ultima modifica:
scherzo 
