Microsoft VBScript runtime error '800a000d'

Question

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.

Answer 1

It's Request.QueryString, not QueryString
"AK3000" <[email protected]> wrote in
message
news:eaqbsm$36t$[email protected]..
> 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.
>