Microsoft VBScript runtime error

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 is not a TSQL issue. You have a type mismatch in your VB code. The error message contains the line in your source code so check that to see the problem.