Salve.
Nel mio sito ho una pagina che deve connettersi ad un db che risiede su un server diverso da quello che ospita il mio sito.
Ora, ho scritto il seguente codice, ma non ho chiaro come e dove inserire i seguenti dati:
1) il nome del server (o l'indirizzo ip) a cui collegarmi
2) l'username e la password di un utente che ha l'accesso al sito
Ecco il codice:
<%
Dim conn
Set conn = Server.CreateObject("ADODB.Connection")
str = "Provider = Microsoft.Jet.OLEDB.4.0; Data Source =" &Server.MapPath("\mdb-database\ProvaMax.mdb") &"; Persist Security Info = False"
'Apriamo la connessione
conn.open str
'Eseguiamo la ricerca
set rds_calciatori = conn.execute("select * from Clienti")
do while not rds_calciatori.eof
'Stampiamo a video i records
response.write rds_calciatori.fields("Nome") & " "
response.write rds_calciatori.fields("Cognome") & " "
response.write rds_calciatori.fields("Tel") & " "
rds_calciatori.movenext
loop
'Alla fine distruggiamo i 2 oggetti
Set str = Nothing
Set conn = Nothing
%>
---------------------------------------
Mi dite gentilmente come modificare questo codice?
Grazie
Max!
Nel mio sito ho una pagina che deve connettersi ad un db che risiede su un server diverso da quello che ospita il mio sito.
Ora, ho scritto il seguente codice, ma non ho chiaro come e dove inserire i seguenti dati:
1) il nome del server (o l'indirizzo ip) a cui collegarmi
2) l'username e la password di un utente che ha l'accesso al sito
Ecco il codice:
<%
Dim conn
Set conn = Server.CreateObject("ADODB.Connection")
str = "Provider = Microsoft.Jet.OLEDB.4.0; Data Source =" &Server.MapPath("\mdb-database\ProvaMax.mdb") &"; Persist Security Info = False"
'Apriamo la connessione
conn.open str
'Eseguiamo la ricerca
set rds_calciatori = conn.execute("select * from Clienti")
do while not rds_calciatori.eof
'Stampiamo a video i records
response.write rds_calciatori.fields("Nome") & " "
response.write rds_calciatori.fields("Cognome") & " "
response.write rds_calciatori.fields("Tel") & " "
rds_calciatori.movenext
loop
'Alla fine distruggiamo i 2 oggetti
Set str = Nothing
Set conn = Nothing
%>
---------------------------------------
Mi dite gentilmente come modificare questo codice?
Grazie
Max!
Ultima modifica: