none
Microsoft VBScript runtime error '800a000d'

    Question

  • Hello,

    I all of a sudden seem to be getting the following error:

    "Microsoft VBScript runtime error '800a000d'

    Type mismatch: 'QueryString'

    /admin/equipment/addequipment.asp, line 128 "

    I am running an intranet site desgned on dreamweaver using SQL Server 2005. I have a page where I can update equitement, all the other equipemnt links work fine but it won't let me update this one.

    The section in dremaweaver it refers to is:

    Dim equipspec__urlid
    equipspec__urlid = "1"
    If (QueryString("ID")  <> "") Then
      equipspec__urlid = QueryString("ID")
    End If
    %>
    <%
    Dim equipspec
    Dim equipspec_numRows

    Set equipspec = Server.CreateObject("ADODB.Recordset")
    equipspec.ActiveConnection = MM_intranet_STRING
    equipspec.Source = "SELECT *  FROM EquipSpec  WHERE " + Replace(equipspec__urlid, "'", "''") + " = EquipSpec.ID"
    equipspec.CursorType = 0
    equipspec.CursorLocation = 2
    equipspec.LockType = 1
    equipspec.Open()

    This has benn working fine up until now, can anyone help?

    Thanks, Andrew

    Thursday, July 27, 2006 3:20 PM