Error message from Browser

I had create an asp website and i had succesfully connect to database within the localhost but i fail when i publish to internet. HELP ME!!!
the error message is :

Microsoft OLE DB Provider for ODBC Drivers error '80004005'

[Microsoft][ODBC Driver Manager] Data source name not found and no default driver specified

/test/wwwroot/digital_camera.asp, line 15

my testing site is www.allit.com.my/test/wwwroot/digital_camera.asp

Comments

  • : I had create an asp website and i had succesfully connect to database within the localhost but i fail when i publish to internet. HELP ME!!!
    : the error message is :
    :
    : Microsoft OLE DB Provider for ODBC Drivers error '80004005'
    :
    : [Microsoft][ODBC Driver Manager] Data source name not found and no default driver specified
    :
    : /test/wwwroot/digital_camera.asp, line 15
    :
    : my testing site is www.allit.com.my/test/wwwroot/digital_camera.asp
    :


    How are you trying to connect,using a DSN?If so,have you created that dsn in the live server?

    Show your connection string.


  • <%@LANGUAGE="VBSCRIPT"%>;

    <%
    Dim Recordset1__MMColParam
    Recordset1__MMColParam = "Digital Camera"
    If (Request("MM_EmptyValue") <> "") Then
    Recordset1__MMColParam = Request("MM_EmptyValue")
    End If
    %>
    <%
    Dim Recordset1
    Dim Recordset1_numRows

    Set Recordset1 = Server.CreateObject("ADODB.Recordset")
    Recordset1.ActiveConnection = MM_Printer_STRING
    Recordset1.Source = "SELECT Brand, Model, Discription, Picture, NormalPrice FROM DigitalProducts WHERE Catagory = '" + Replace(Recordset1__MMColParam, "'", "''") + "' ORDER BY Brand ASC"
    Recordset1.CursorType = 0
    Recordset1.CursorLocation = 2
    Recordset1.LockType = 1
    Recordset1.Open()

    Recordset1_numRows = 0
    %>
    <%
    Dim Repeat1__numRows
    Dim Repeat1__index

    Repeat1__numRows = 5
    Repeat1__index = 0
    Recordset1_numRows = Recordset1_numRows + Repeat1__numRows
    %>
  • : <%@LANGUAGE="VBSCRIPT"%>;
    :
    : <%
    : Dim Recordset1__MMColParam
    : Recordset1__MMColParam = "Digital Camera"
    : If (Request("MM_EmptyValue") <> "") Then
    : Recordset1__MMColParam = Request("MM_EmptyValue")
    : End If
    : %>
    : <%
    : Dim Recordset1
    : Dim Recordset1_numRows
    :
    : Set Recordset1 = Server.CreateObject("ADODB.Recordset")
    : Recordset1.ActiveConnection = MM_Printer_STRING
    : Recordset1.Source = "SELECT Brand, Model, Discription, Picture, NormalPrice FROM DigitalProducts WHERE Catagory = '" + Replace(Recordset1__MMColParam, "'", "''") + "' ORDER BY Brand ASC"
    : Recordset1.CursorType = 0
    : Recordset1.CursorLocation = 2
    : Recordset1.LockType = 1
    : Recordset1.Open()
    :
    : Recordset1_numRows = 0
    : %>
    : <%
    : Dim Repeat1__numRows
    : Dim Repeat1__index
    :
    : Repeat1__numRows = 5
    : Repeat1__index = 0
    : Recordset1_numRows = Recordset1_numRows + Repeat1__numRows
    : %>
    :


    what is the value of MM_Printer_STRING ? We have to see the connection string you are using.(You could change the password before posting it here)

  • Is ok now , i had change to use oledb jet driver already. is working now but the speed is slow
Sign In or Register to comment.

Howdy, Stranger!

It looks like you're new here. If you want to get involved, click one of these buttons!

Categories