- MSSQL
- ASP clssic
- field value is an int

I am trying to delete a record with the code below but get the error
below. I don't know where I went wrong. Any ideas?

error--------

Microsoft VBScript runtime error '800a000d'

Type mismatch

code--------

<%
' *** Delete Record: construct a sql delete statement and execute it

If (CStr(Request("ttaidn")) <> "error") Then

' execute the delete
Set BC_DelCmd = Server.CreateObject ("ADODB.Command")
BC_DelCmd.ActiveConnection = MM_connBritMship_STRING
BC_DelCmd.CommandText = "DELETE FROM Vol_Who WHERE VID = ?"
BC_DelCmd.Parameters.Append BC_DelCmd.CreateParameter("param1", 5,
1, -1, CStr((rs_volbase("vid")))) ' adDouble
BC_DelCmd.Execute
BC_DelCmd.ActiveConnection.Close
' append the query string to the redirect URL
End If
%>

--