Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another ER

Discussion in 'ASP General' started by SyrUser03, Mar 11, 2005.

  1. SyrUser03

    SyrUser03 Guest

    I am getting this error and I can't seem to figure it out.

    <%

    Set cdoConfig = CreateObject("CDO.Configuration")

    With cdoConfig.Fields
    .Item(cdoSendUsingMethod) = cdoSendUsingPort ***** ERRORS ON
    THIS LINE *****
    .Item(cdoSMTPServer) = "CT00EXCIM01"
    .Update
    End With

    dim conn, RS, strSQL, mycount

    SCRIPT_NAME = Request.ServerVariables("SCRIPT_NAME")
    Ticket = Request.QueryString("tn")

    Function sIn(s)
    sIn = "'" & Replace(s, "'", "''") & "'"
    End Function

    Set Conn = Server.CreateObject("ADODB.Connection")
    DSNtest="Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" &
    Server.MapPath("/database/sa inventory.mdb")
    Conn.Provider = "Microsoft.Jet.OLEDB.4.0"
    Conn.Open DSNtest

    conn.execute ("SELECT * FROM Problems LEFT JOIN Resolutions ON
    Problems.TicketNumber = Resolutions.TicketNumber WHERE Problems.TicketNumber
    = " & Ticket & " ORDER BY Resolutions.ActDate DESC;")
     
    SyrUser03, Mar 11, 2005
    #1
    1. Advertising

  2. SyrUser03

    Steven Burn Guest

    It's cdoSendUsing not cdoSendUsingMethod

    --
    Regards

    Steven Burn
    Ur I.T. Mate Group
    www.it-mate.co.uk

    Keeping it FREE!

    "SyrUser03" <> wrote in message news:...
    > I am getting this error and I can't seem to figure it out.
    >
    > <%
    >
    > Set cdoConfig = CreateObject("CDO.Configuration")
    >
    > With cdoConfig.Fields
    > .Item(cdoSendUsingMethod) = cdoSendUsingPort ***** ERRORS ON
    > THIS LINE *****
    > .Item(cdoSMTPServer) = "CT00EXCIM01"
    > .Update
    > End With
    >
    > dim conn, RS, strSQL, mycount
    >
    > SCRIPT_NAME = Request.ServerVariables("SCRIPT_NAME")
    > Ticket = Request.QueryString("tn")
    >
    > Function sIn(s)
    > sIn = "'" & Replace(s, "'", "''") & "'"
    > End Function
    >
    > Set Conn = Server.CreateObject("ADODB.Connection")
    > DSNtest="Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" &
    > Server.MapPath("/database/sa inventory.mdb")
    > Conn.Provider = "Microsoft.Jet.OLEDB.4.0"
    > Conn.Open DSNtest
    >
    > conn.execute ("SELECT * FROM Problems LEFT JOIN Resolutions ON
    > Problems.TicketNumber = Resolutions.TicketNumber WHERE Problems.TicketNumber
    > = " & Ticket & " ORDER BY Resolutions.ActDate DESC;")
    >
    >
    >
     
    Steven Burn, Mar 11, 2005
    #2
    1. Advertising

  3. SyrUser03

    Dthmtgod Guest

    cdoSendUsingMethod works on all my other websites. I think I was missing
    the METADATA file

    <!--
    METADATA
    TYPE="typelib"
    UUID="CD000000-8B95-11D1-82DB-00C04FB1625D"
    NAME="CDO for Windows 2000 Library"
    -->

    I added this code to my page and it moved on a little farther. Thanks for
    your help.



    "Steven Burn" <> wrote in message
    news:er8Wl$...
    It's cdoSendUsing not cdoSendUsingMethod

    --
    Regards

    Steven Burn
    Ur I.T. Mate Group
    www.it-mate.co.uk

    Keeping it FREE!

    "SyrUser03" <> wrote in message
    news:...
    > I am getting this error and I can't seem to figure it out.
    >
    > <%
    >
    > Set cdoConfig = CreateObject("CDO.Configuration")
    >
    > With cdoConfig.Fields
    > .Item(cdoSendUsingMethod) = cdoSendUsingPort ***** ERRORS ON
    > THIS LINE *****
    > .Item(cdoSMTPServer) = "CT00EXCIM01"
    > .Update
    > End With
    >
    > dim conn, RS, strSQL, mycount
    >
    > SCRIPT_NAME = Request.ServerVariables("SCRIPT_NAME")
    > Ticket = Request.QueryString("tn")
    >
    > Function sIn(s)
    > sIn = "'" & Replace(s, "'", "''") & "'"
    > End Function
    >
    > Set Conn = Server.CreateObject("ADODB.Connection")
    > DSNtest="Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" &
    > Server.MapPath("/database/sa inventory.mdb")
    > Conn.Provider = "Microsoft.Jet.OLEDB.4.0"
    > Conn.Open DSNtest
    >
    > conn.execute ("SELECT * FROM Problems LEFT JOIN Resolutions ON
    > Problems.TicketNumber = Resolutions.TicketNumber WHERE

    Problems.TicketNumber
    > = " & Ticket & " ORDER BY Resolutions.ActDate DESC;")
    >
    >
    >
     
    Dthmtgod, Mar 11, 2005
    #3
    1. Advertising

Want to reply to this thread or ask your own question?

It takes just 2 minutes to sign up (and it's free!). Just click the sign up button to choose a username and then you can ask your own questions on the forum.
Similar Threads
  1. Antoon Pardon
    Replies:
    2
    Views:
    869
    Antoon Pardon
    Dec 21, 2005
  2. Wayne Shu
    Replies:
    8
    Views:
    316
    Markus Svilans
    Jan 29, 2007
  3. J. Muenchbourg
    Replies:
    1
    Views:
    163
  4. Tim Gaunt
    Replies:
    7
    Views:
    182
    Tim Gaunt
    Dec 18, 2003
  5. Jack
    Replies:
    1
    Views:
    228
    Ray Costanzo [MVP]
    Dec 14, 2004
Loading...

Share This Page