Microsoft VBScript runtime (0x800A000D) Type mismatch

Collapse
X
Collapse
 
  • Page of 1
  • Time
  • Show
Clear All
new posts
Previous template Next
  • Jimgunkel
    New Member
    • Jul 2010
    • 19
    #1

    Microsoft VBScript runtime (0x800A000D) Type mismatch

    I'm getting an error message:

    Technical Information (for support personnel)

    Error Type:
    Microsoft VBScript runtime (0x800A000D)
    Type mismatch
    /paneldatatest/indiana/fdp/updatefibercomm ents.asp, line 61


    Browser Type:
    Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; .NET CLR 1.1.4322; .NET CLR 2.0.50727; MS-RTC LM 8; .NET CLR 3.0.4506.2152; .NET CLR 3.5.30729)

    Page:
    POST 78 bytes to /paneldatatest/indiana/fdp/updatefibercomm ents.asp

    POST Data:
    location=109909 9FDP099MS01-01&afibcab=TK02 3&afib=1&zfibca b=TK023&zfib=1& num=24

    ASP Code:
    Code:
    <% @language="vbscript" %>
<% Response.buffer = true %>
<% Dim rsAddComments %>
<% Dim strSQL %>
<% Dim LocSplit %>

<%

'************************************************************
'ADO is the keyword for google searches on help with DB stuff
'************************************************************

locvar = Request.Form("location")

locCount = 1

locSize = Request.Form("num")

locSize = Cint(locSize)


Set MyConn = Server.CreateObject("ADODB.Connection") ' Establish the connection object
MyConn.Open ("Driver={Microsoft Access Driver (*.mdb)};Dbq=C:\Inetpub\wwwroot\paneldatatest\databases\FDPIN.mdb;Uid=;Pwd=niemtel;") 

Set rsUpdateComments = Server.CreateObject("ADODB.Recordset")


do until locCount > locSize

rsUpdateComments.CursorType = 2
rsUpdateComments.LockType = 3

strSql = "select *  from panel where location like '" &  locvar & "'"    'Set up a SQL command in a string variable

rsUpdateComments.Open strSQL, MyConn

locafib = Request.Form("afib")
loczfib = Request.Form("zfib")

rsUpdateComments.Fields("AFiberCable")= Request.Form("afibcab")
rsUpdateComments.Fields("AFiber")= locafib
rsUpdateComments.Fields("ZFiberCable")= Request.Form("zfibcab")
rsUpdateComments.Fields("ZFiber")= loczfib

rsUpdateComments.Update

locafib = (locafib + 1)
loczfib = (loczfib + 1)

locCount = (locCount + 1)

LocSplit = Split(locvar,"-")

'LocSplit(1) = CInt(LocSplit(1))

'LocSplit(1) = (LocSplit(1) + 1)

'LocSplit = CStr(LocSplit(1))


locvar = Join("-",LocSplit)

rsUpdateComments.Close


loop

Set rsUpdateComments = Nothing

MyConn.close  ' close the database connection


%>

<html>
<body>
<center>
<h1> Updated Fiber Distrubution Data For Indiana</h1>  

<%


%>
</table>

</body>
</html>
    I hope you can help!

    Thanks Jim
    Last edited by Niheel; Jul 27 '10, 08:13 PM. Reason: added code tags around code [code] . . . [/code]
    Tags: None
    • Jimgunkel
      New Member
      • Jul 2010
      • 19
      #2
      Microsoft VBScript runtime (0x800A000D) Type mismatch

      Error message:
      Error Type:
      Microsoft VBScript runtime (0x800A000D)
      Type mismatch
      /paneldatatest/indiana/fdp/updatefibercomm ents.asp, line 59


      Browser Type:
      Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; .NET CLR 1.1.4322; .NET CLR 2.0.50727; MS-RTC LM 8; .NET CLR 3.0.4506.2152; .NET CLR 3.5.30729)

      Page:
      POST 78 bytes to /paneldatatest/indiana/fdp/updatefibercomm ents.asp

      POST Data:
      location=109909 9FDP099MS01-01&afibcab=TK02 3&afib=1&zfibca b=TK023&zfib=1& num=24

      Code:
      do until locCount > locSize

strSql = "select *  from panel where location like '" &  locvar & "'"    'Set up a SQL command in a string variable

rsUpdateComments.Open strSQL, MyConn

rsUpdateComments.Fields("AFiberCable")= Request.Form("afibcab")
rsUpdateComments.Fields("AFiber")= locafib
rsUpdateComments.Fields("ZFiberCable")= Request.Form("zfibcab")
rsUpdateComments.Fields("ZFiber")= loczfib

rsUpdateComments.Update

locafib = (locafib + 1)
loczfib = (loczfib + 1)

locCount = (locCount + 1)

LocSplit = Split(locvar,"-")

LocSplit(1) = CInt(LocSplit(1))

LocSplit(1) = (LocSplit(1) + 1)

LocSplit(1) = CStr(LocSplit(1))

locvar = Join("-",LocSplit)

rsUpdateComments.Close

loop

Set rsUpdateComments = Nothing

MyConn.close  ' close the database connection

        Comment

        • jhardman
          Recognized Expert Specialist
          • Jan 2007
          • 3405
          #3
          which line is line 59? The error suggests you have a variable of one type (integer for example) that you are trying to use as a different type (string or null for example). Let me know if this helps.

          Jared

            Comment

            • jhardman
              Recognized Expert Specialist
              • Jan 2007
              • 3405
              #4
              join function on line 61 has the arguments in the wrong order. it should be
              Code:
              locvar = Join(LocSplit, "-")
              Jared

                Comment

                • jhardman
                  Recognized Expert Specialist
                  • Jan 2007
                  • 3405
                  #5
                  joined the threads, these appear to be the same question.

                  Jared

                    Comment

                    • Jimgunkel
                      New Member
                      • Jul 2010
                      • 19
                      #6
                      Originally posted by jhardman
                      join function on line 61 has the arguments in the wrong order. it should be
                      Code:
                      locvar = Join(LocSplit, "-")
                      Jared
                      Jared thanks that fixed my type mismatch but now I'm getting a different error message:


                      Technical Information (for support personnel)

                      Error Type:
                      ADODB.Recordset (0x800A0BCD)
                      Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record.
                      /paneldatatest/indiana/fdp/updatefibercomm ents.asp, line 38


                      Browser Type:
                      Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; .NET CLR 1.1.4322; .NET CLR 2.0.50727; MS-RTC LM 8; .NET CLR 3.0.4506.2152; .NET CLR 3.5.30729)

                      Page:
                      POST 78 bytes to /paneldatatest/indiana/fdp/updatefibercomm ents.asp

                      POST Data:
                      location=109909 9FDP099MS01-01&afibcab=TK02 3&afib=1&zfibca b=TK023&zfib=1& num=24

                      Code:
                      <% @language="vbscript" %>
<% Response.buffer = true %>
<% Dim rsAddComments %>
<% Dim strSQL %>
<% Dim LocSplit %>

<%

'************************************************************
'ADO is the keyword for google searches on help with DB stuff
'************************************************************

locvar = Request.Form("location")

locCount = 1

locSize = Request.Form("num")

locSize = Cint(locSize)

Set MyConn = Server.CreateObject("ADODB.Connection") ' Establish the connection object
MyConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Inetpub\wwwroot\Paneldatatest\Databases\FDPIN.mdb;Jet OLEDB:Database Password=niemtel;"

Set rsUpdateComments = Server.CreateObject("ADODB.Recordset")

rsUpdateComments.CursorType = 2
rsUpdateComments.LockType = 3

locafib = Request.Form("afib")
loczfib = Request.Form("zfib")

do until locCount > locSize

strSql = "select *  from panel where location like '" &  locvar & "'"    'Set up a SQL command in a string variable

rsUpdateComments.Open strSQL, MyConn

rsUpdateComments.Fields("AFiberCable")= Request.Form("afibcab")
rsUpdateComments.Fields("AFiber")= locafib
rsUpdateComments.Fields("ZFiberCable")= Request.Form("zfibcab")
rsUpdateComments.Fields("ZFiber")= loczfib

rsUpdateComments.Update

locafib = (locafib + 1)
loczfib = (loczfib + 1)

locCount = (locCount + 1)

LocSplit = Split(locvar, "-")

LocSplit(1) = CInt(LocSplit(1))

LocSplit(1) = (LocSplit(1) + 1)

LocSplit(1) = CStr(LocSplit(1))

locvar = Join(LocSplit, "-")

rsUpdateComments.Close

loop

Set rsUpdateComments = Nothing

MyConn.close  ' close the database connection


%>

                        Comment

                        • jhardman
                          Recognized Expert Specialist
                          • Jan 2007
                          • 3405
                          #7
                          Originally posted by Jimgunkel
                          Jared thanks that fixed my type mismatch but now I'm getting a different error message:


                          Technical Information (for support personnel)

                          Error Type:
                          ADODB.Recordset (0x800A0BCD)
                          Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record.
                          /paneldatatest/indiana/fdp/updatefibercomm ents.asp, line 38


                          Browser Type:
                          Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; .NET CLR 1.1.4322; .NET CLR 2.0.50727; MS-RTC LM 8; .NET CLR 3.0.4506.2152; .NET CLR 3.5.30729)

                          Page:
                          POST 78 bytes to /paneldatatest/indiana/fdp/updatefibercomm ents.asp

                          POST Data:
                          location=109909 9FDP099MS01-01&afibcab=TK02 3&afib=1&zfibca b=TK023&zfib=1& num=24

                          Code:
                          <% @language="vbscript" %>
<% Response.buffer = true %>
<% Dim rsAddComments %>
<% Dim strSQL %>
<% Dim LocSplit %>

<%

'************************************************************
'ADO is the keyword for google searches on help with DB stuff
'************************************************************

locvar = Request.Form("location")

locCount = 1

locSize = Request.Form("num")

locSize = Cint(locSize)

Set MyConn = Server.CreateObject("ADODB.Connection") ' Establish the connection object
MyConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Inetpub\wwwroot\Paneldatatest\Databases\FDPIN.mdb;Jet OLEDB:Database Password=niemtel;"

Set rsUpdateComments = Server.CreateObject("ADODB.Recordset")

rsUpdateComments.CursorType = 2
rsUpdateComments.LockType = 3

locafib = Request.Form("afib")
loczfib = Request.Form("zfib")

do until locCount > locSize

strSql = "select *  from panel where location like '" &  locvar & "'"    'Set up a SQL command in a string variable

rsUpdateComments.Open strSQL, MyConn

rsUpdateComments.Fields("AFiberCable")= Request.Form("afibcab")
rsUpdateComments.Fields("AFiber")= locafib
rsUpdateComments.Fields("ZFiberCable")= Request.Form("zfibcab")
rsUpdateComments.Fields("ZFiber")= loczfib

rsUpdateComments.Update

locafib = (locafib + 1)
loczfib = (loczfib + 1)

locCount = (locCount + 1)

LocSplit = Split(locvar, "-")

LocSplit(1) = CInt(LocSplit(1))

LocSplit(1) = (LocSplit(1) + 1)

LocSplit(1) = CStr(LocSplit(1))

locvar = Join(LocSplit, "-")

rsUpdateComments.Close

loop

Set rsUpdateComments = Nothing

MyConn.close  ' close the database connection


%>
                          ok, this error means you didn't get any rows returned when you queried the db (or you scrolled all the way through the recordset, but I know you didn't do that). So, check the query you got in line 34 (you can do a quick response.write strSql) and see if the query is formed as it should. If it looks good, check your query in a query analyzer to see if your database returns anything from this query.

                          Jared

                            Comment

                            • Jimgunkel
                              New Member
                              • Jul 2010
                              • 19
                              #8
                              I was missing the "0" on 01-09. Thanks for your help!

                                Comment

                                Previous template Next
                                Working...