Microsoft VBScript runtime (0x800A000D)

Hello:

I have Error Type:
Microsoft VBScript runtime (0x800A000D)
Type mismatch: '[string: "d-03-07, 0"]'
/OnlineLIB/BNosearch1.asp, line 32

The error happened at this line:bookno = chr(bookno)

The code like this:

Expand|Select|Wrap|Line Numbers

 <%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>

<!--#include file="Connections/Dcon.asp" -->

<%

Dim empno, dept, bookno, bookname, issuedate, returndate
 
Dim Recordset1, Recordset2

Dim Recordset1_numRows

Set Conn = Server.CreateObject("ADODB.Connection")

'Conn.open "DSN=MQIS"

Conn.open "Driver={SQL Server};Server=KBLPC027;Database=libraryinfo;Trusted_Connection=Yes;"

'Conn.open "Initial Catalog=lib;Data Source=KBLPC107;Integrated Security=SSPI"

'Conn.open "Driver={SQL Server};Server=KBLPC107;Database=lib;Uid=sa;Pwd=;"

%> 

<%

Set Recordset1 = Server.CreateObject("ADODB.Recordset")

Recordset1.ActiveConnection = MM_Dcon_STRING

Recordset1.Source = "SELECT *  FROM dbo.transact"

Recordset1.CursorType = 0

Recordset1.CursorLocation = 2

Recordset1.LockType = 1

Recordset1.Open()
 
Recordset1_numRows = 0
 
'----- Populate If Posted any Data

bookno = Request.Form("book_no")

'search = Request.Form("search")
 
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

%>

<html>

<head>

<title>Untitled Document</title>

<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">

</head>
 
<body bgcolor="#FFBFE1">

<form name="form1" method="post" action="">

  <p align="center">&nbsp;</p>

  <div align="center">

    <table width="590" border="1">

      <tr> 

        <td width="580"><div align="left"><font size="+1"><strong>Search by:</strong> 

            </font><strong><a href="seaching.asp"><font color="#000000">Employee 

            Number</font></a> <font color="#000000"><a href="Book No.asp">Book 

            Number</a> <a href="bookname.asp">Book Name</a> </font></strong></div></td>

      </tr>

    </table>

  </div>

  <div align="center">

    <table width="85%" border="1">

      <tr bgcolor="#CC9966"> 

        <td width="46%" bgcolor="#FF99CC"><strong>S e a r c h B y</strong></td>

        <td width="54%" bgcolor="#FF99CC"> <select name="search">

            <option value="empno">Employee Number</option>

            <option value="dept">Department</option>

            <option value="bookno">Book Number</option>

            <option value="bookname">Book Name</option>

            <option value="issuedate">Issue Date</option>

            <option value="returndate">Return Date</option>

            <option value="available">Availability</option>

          </select>

          <b> 

          <input type="submit" name="Submit" value="  Submit  " style="font-size: 1em; color: #FFFF00; text-decoration: blink; font-family: Arial Narrow; font-weight: bold; background-color: #CA0000; background-image: url('Sandeep_pic/50.gif'); " tabindex="3">

          </b> </td>

      </tr>

    </table>

  </div>

  <p align="center">&nbsp;</p>

  <div align="center"> 

    <table width="85%" border="1">

      <tr> 

        <td width="46%" height="13"><div align="left"><font color="#003300"><strong>Book 

            Number </strong></font></div></td>

        <td width="54%"><div align="left"><font color="#003300"> 

            <select name="book_no" onChange="this.form.submit();">

              <option value="0"></option>

              <%If Recordset1.EOF = False Then 

      Recordset1.MoveFirst

      Do While Recordset1.EOF =False

      %>

              <option value="<%=(Recordset1.Fields.Item("book_no").Value)%>" <%If Recordset1("book_no") = bookno Then %> Selected <%End if%>  ><%=(Recordset1.Fields.Item("book_no").Value)%></option>

              <%Recordset1.MoveNext

      Loop

      End If%>

            </select>

            </font></div></td>

      </tr>

    </table>

  </div>

  <p>&nbsp;</p>

  <div align="center"> 

    <table width="86%" border="1">

      <tr> 

        <td><strong><font color="#660033">E m p l o y e e N u m b e r</font></strong></td>

        <td> <input name="emp_no" type="text" id="emp_no" value="<%= empno %>"> 

        </td>

      </tr>

      <tr> 

        <td><strong><font color="#660033">D e p a r t m e n t</font></strong></td>

        <td><input name="dept" type="text" id="dept" value="<%= dept %>"></td>

      </tr>

      <tr> 

        <td width="46%"><strong><font color="#660033">B o o k N u m b e r </font></strong></td>

        <td width="54%"><input name="book_no" type="text" id="book_no" value="<%= bookno %>"></td>

      </tr>

      <tr> 

        <td><strong><font color="#660033">B o o k N a m e</font></strong> </td>

        <td><input name="book_name" type="text" id="book_name" value="<%= bookname %>"></td>

      </tr>

      <tr> 

        <td><strong><font color="#660033">I s s u e D a t e</font></strong></td>

        <td><input name="issue_date" type="text" id="issue_date" value="<%= issuedate %>"></td>

      </tr>

      <tr> 

        <td><strong><font color="#660033">R e t u r n D a t e</font></strong></td>

        <td><input name="return_date" type="text" id="return_date" value="<%= returndate %>"></td>

      </tr>

    </table>

  </div>

  <p>&nbsp;</p>

  <div align="center"> 

    <table width="86%" border="1">

      <tr> 

        <td height="23" bgcolor="#FF99CC"><div align="center"> </div></td>

      </tr>

    </table>

  </div>

  <p>&nbsp;</p>

  <p>&nbsp;</p>

  <p>&nbsp;</p>

</form>

</body>

</html>

<%

Recordset1.Close()

Set Recordset1 = Nothing

%>

.....

I got mismatch "'[string: "d-03-07, 0"]'
" error.

What am I missing here?

Your help is highly appreciated.

Apr 26 '07 #1

Subscribe Post Reply

4054

jhardman

3,406

Expert 2GB

Expand|Select|Wrap|Line Numbers

 
'----- Populate If Posted any Data

'bookno = Request.Form("book_no")

'search = Request.Form("search")
 
If request.form("book_no") = "" Then

    bookno = chr(0)

Else

    bookno = chr(request.form("book_no"))

End If

The problem was coming up because you tried to change the variable type. Even though you don't choose a variable type when you declare a variable, you can't change the type of variable after it is assigned a value.

Let me know if this helps.

Jared

Apr 26 '07 #2

by: Matt | last post by:

<% hour = Request("controlname") %> will yield the following error: Microsoft VBScript runtime (0x800A01F5) Illegal assignment: 'hour' However, if I declare hour, then it is fine. <% Dim...

ASP / Active Server Pages

Microsoft VBScript runtime error '800a01c9'

by: PaulieS | last post by:

Hi all. Am migrating a customer from IIS5 on W2K server to IIS6 on W2K3. Zipped all the websites and unzipped them to the identical locations on new server. Used IISMT to migrate metabase. ...

ASP.NET

Microsoft VBScript runtime (0x800A000D) Type mismatch: '[string: "

by: Snow | last post by:

Hello: I have Error Type: Microsoft VBScript runtime (0x800A000D) Type mismatch: '' The error happened at this line: if session("systemIdCount" & arrSystems(iLoop)) 0 The code like this:

ASP / Active Server Pages

Microsoft VBScript runtime error '800a0046'

by: anidmarty | last post by:

Hey I'm a Sysadmin and my users are getting this error on my production box. It works fine on the dev box. There is a script that is run that generates this error. Production is clustered...

IIS / Internet Information Server

Microsoft VBScript runtime error '800a13ba'

by: =?Utf-8?B?TWF0dCBDYWxob29u?= | last post by:

HI there, I am getting an error on my page which calls up a web service. Microsoft VBScript runtime error '800a13ba' Unknown runtime error: 'SearchQueryXML' /SearchResults.asp, line 142

.NET Framework

Microsoft VBScript runtime (0x800A000D)

by: monika | last post by:

Hello: I have Error Type: Microsoft VBScript runtime (0x800A000D) Type mismatch: '' The error happened at this line:bookno = chr(bookno) The code like this: bookno =...

ASP / Active Server Pages

Asp Error: Microsoft VBScript runtime (0x800A01A8) Object required: ''

by: Genken | last post by:

Hi can anybody help me i get this error when running this code. Error Type: Microsoft VBScript runtime (0x800A01A8) Object required: '' And then a line number indicating where the error is, i...

ASP / Active Server Pages

Microsoft VBScript runtime (0x800A000D) Type mismatch: '[string: "MI001"]'

by: FOREST GOLDEN | last post by:

i'M want to select multiple choice by using checkbox, but it come out the above mistake, plz help me solve it, thankx....... my ItemCode is using text eg:cg001 <%@ Language=VBScript %> <HTML>...

ASP / Active Server Pages

Microsoft VBScript runtime (0x800A01A8) Object Required: "

by: jasone | last post by:

hi everyone! any advice given will be MUCH appreciated, i have spent about 10 hours on this bit of script... a rating system. I am having realt trouble overcoming this problem at runtime ...

ASP / Active Server Pages

How to turn on java script in a villaon keypad mobile phone

by: Charles Arthur | last post by:

How do i turn on java script on a villaon, callus and itel keypad mobile phone

Java

Migrating Website to Cloud - Emmanuel Katto

by: emmanuelkatto | last post by:

Hi All, I am Emmanuel katto from Uganda. I want to ask what challenges you've faced while migrating a website to cloud. Please let me know. Thanks! Emmanuel

General

Navigating the Data Structures and Algorithms (DSA)

by: BarryA | last post by:

What are the essential steps and strategies outlined in the Data Structures and Algorithms (DSA) roadmap for aspiring data scientists? How can individuals effectively utilize this roadmap to progress...

Algorithms / Advanced Math

Looking to do Android software development, any suggestions? Is flutter better?

by: nemocccc | last post by:

hello, everyone, I want to develop a software for my android phone for daily needs, any suggestions?

General

Changing the language in Windows 10

by: Hystou | last post by:

Most computers default to English, but sometimes we require a different language, especially when relocating. Forgot to request a specific language before your computer shipped? No problem! You can...

Windows Server

Maximizing Business Potential: The Nexus of Website Design and Digital Marketing

by: jinu1996 | last post by:

In today's digital age, having a compelling online presence is paramount for businesses aiming to thrive in a competitive landscape. At the heart of this digital strategy lies an intricately woven...

Online Marketing

The easy way to turn off automatic updates for Windows 10/11

by: Hystou | last post by:

Overview: Windows 11 and 10 have less user interface control over operating system update behaviour than previous versions of Windows. In Windows 11 and 10, there is no way to turn off the Windows...

Windows Server

AI Job Threat for Devs

by: agi2029 | last post by:

Let's talk about the concept of autonomous AI software engineers and no-code agents. These AIs are designed to manage the entire lifecycle of a software development project—planning, coding, testing,...

Career Advice

Access Europe - Using VBA to create a class based on a table - Wed 1 May

by: isladogs | last post by:

The next Access Europe User Group meeting will be on Wednesday 1 May 2024 starting at 18:00 UK time (6PM UTC+1) and finishing by 19:30 (7.30PM). In this session, we are pleased to welcome a new...

Microsoft Access / VBA

Similar topics