Answered
Microsoft VBScript runtime error '800a000d'
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.
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.
