Skip to main content
Participant
August 2, 2006
Answered

Microsoft VBScript runtime error '800a000d'

  • August 2, 2006
  • 1 reply
  • 741 views
Hello,

I am currently getting the following error:

Microsoft VBScript runtime error '800a000d'

Type mismatch: 'QueryString'

/admin/equipment/addequipment.asp, line 128

This is when i try to submit a new database item in Dreamweaver. The DB I am using is SQL Server 2005.

My code is as follows:

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()

Would be greatful if anybody could help, let me know if you need more info.

Many thanks.
This topic has been closed for replies.
Correct answer AK3000
Excellent thank you this has solved the problem.

1 reply

Inspiring
August 2, 2006
It's Request.QueryString, not QueryString

"AK3000" <webforumsuser@macromedia.com> wrote in message
news:eaqbsm$36t$1@forums.macromedia.com...
> Hello,
>
> I am currently getting the following error:
>
> Microsoft VBScript runtime error '800a000d'
>
> Type mismatch: 'QueryString'
>
> /admin/equipment/addequipment.asp, line 128
>
> This is when i try to submit a new database item in Dreamweaver. The DB I
> am
> using is SQL Server 2005.
>
> My code is as follows:
>
> 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()
>
> Would be greatful if anybody could help, let me know if you need more
> info.
>
> Many thanks.
>


AK3000AuthorCorrect answer
Participant
August 3, 2006
Excellent thank you this has solved the problem.