none
Info connessione da esterno RRS feed

  • Domanda

  • Ciao a tutti, ho un SQL 2000 sp4 su un 2003 SRV R2

    Su questo server ho qualche servizio attivo e anche qualche sito che, tramite pagine ASP, riesce a collegarsi al DB e tirat fuori dati ecc.

    Ora ho la necessità di aprire il mio DB per poterlo leggere da remoto, ho apeto la 1433 per l'accesso da remoto, creato uno user in SQL in sola lettura e poi ho caricato una pagina ASP su un server gestito da terzi (che supporta asp, cmq è un gestore molto grande in italia...) ch estrare alcuni dati dal db drettamente ma dopo un minuto circa va in errore e mi restituisce questo errore

    Microsoft OLE DB Provider for SQL Server error '80004005'

    [DBNETLIB][ConnectionOpen (Connect()).]SQL Server does not exist or access denied.

    /prova1.asp, line 9

    Ora vi allego qui sotto il codice della pagina.

    <%
      Dim MM_ssss_STRING
      'MM_ssss_STRING = "Provider=SQLOLEDB;Data Source=10.10.10.10;Initial Catalog=asdiiisss;User ID=dasdsadasdas;Password=1234585455"
      MM_ssss_STRING = "Provider=SQLOLEDB;Data Source=10.10.10.10;Network Library=DBMSSOCN; Initial Catalog=saaasss;User ID=sadsdasdas_All;Password=@123456@"
       'MM_easyshop_STRING = "Provider=SQLOLEDB;Data Source=10.10.10.10,1433;Initial Catalog=database;User ID=xxxxxx_All;Password=123456789"
      'MM_sss_STRING = "Provider=SQLOLEDB;Data Source=10.10.10.10;Initial Catalog=as1245;User ID=xxxx;Password=xxxxx"
      Dim Dettagli_News
      Set Dettagli_News = Server.CreateObject("ADODB.Recordset")
      Dettagli_News.ActiveConnection = MM_sss_STRING
      Dettagli_News.Source = "SELECT * FROM dbo.News"
      Dettagli_News.CursorType = 0
      Dettagli_News.CursorLocation = 2
      Dettagli_News.LockType = 1
      Dettagli_News.Open()
      %>

      <table width="100%" border="1" cellpadding="2" cellspacing="2">
       <%
       do while not Dettagli_News.eof 
       %>
       <tr>
        <td><%=(Dettagli_News.Fields.Item("ID_News").Value)%></td>
        <td><%=(Dettagli_News.Fields.Item("Titolo").Value)%></td>
       </tr>
       <tr><td colspan="3"><hr /></td></tr>
       <%
       Dettagli_News.movenext
       loop
       %>   
      </table>
      <%
      Dettagli_News.Close()
      Set Dettagli_News = Nothing
      %>

     

    Ho cambiato alcnui nomi, password e ip per non lasciare nulla di visibile, vi assicuro che la pagina localmente funziona, ovvero caricata sullo stesso server e pubblicata sul web (ovviamente SQL viene chiamato con l'ip interno della DMZ).

    Avete qualche idea? L'errore si presenta alla riga 9

    Dettagli_News.ActiveConnection = MM_sss_STRING

    quindi quando esegue la connessione...

    Grazie


    spackmeier
    martedì 17 maggio 2011 14:05

Risposte

Tutte le risposte