Microsoft VBScript runtime (0x800A000D)

Hello:

I have Error Type:
Microsoft VBScript runtime (0x800A000D)
Type mismatch: '[string: "C-07-05, 0"]'
The error happened at this line:bookno = chr(bookno)

The code like this:

bookno = Request.Form("book_no")
If bookno = "" Then
bookno = 0
Else
bookno = chr(bookno)
End If

If bookno = 0 Then
empno = ""
dept = ""
bookname = ""
issuedate = ""
returndate = ""
Else
Set Recordset2 = Server.CreateObject("ADODB.Recordset")
Set Recordset2 = conn.Execute("SELECT * FROM transact WHERE book_no = " & bookno)
If Recordset2.BOF = True Then
empno = ""
dept = ""
bookname = ""
issuedate = ""
returndate = ""
Else
empno = Recordset2("emp_no")
dept = Recordset2("dept")
bookname = Recordset2("book_name")
issuedate = Recordset2("issue_date")
returndate = Recordset2("return_date")
End If
End If
..........

I got Error Type mismatch: '[string: "C-07-05, 0"]'


What am I missing here?

Your help is highly appreciated.