Microsoft VBScript runtime (0x800A000D) - ASP / Active Server Pages

2 New Member

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 Reply

4066

jhardman

3,406

Recognized Expert Specialist

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

Similar topics

15179

Microsoft VBScript runtime (0x800A01F5): Illegal assignment: variable name

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 hour hour = Request("controlname") %>

ASP / Active Server Pages

2752

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. Got this error when I tried to run a very basic page... code:

ASP.NET

30904

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

15792

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 environment using Microsoft Application Center. This was working before and starting throwing this error about 15 days ago. any help would be much appreciated thanks

IIS / Internet Information Server

2060

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

1197

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

ASP / Active Server Pages

8836

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 cant see any errors with this code please assist. Thanks in advance. <%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>

ASP / Active Server Pages

3246

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> <HEAD> <META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0"> </HEAD> <title>Multiple checkbox select sample</title> <BODY>

ASP / Active Server Pages

8021

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 Microsoft VBScript runtime (0x800A01A8) Object required: '' /ddwassignment2/full_catalogue2.asp, line 180 please find the complete code listing below, i have highlighted line 180... if you spot any other errors please let me know! The function...

ASP / Active Server Pages

8395

What is ONU?

by: marktang | last post by:

ONU (Optical Network Unit) is one of the key components for providing high-speed Internet services. Its primary function is to act as an endpoint device located at the user's premises. However, people are often confused as to whether an ONU can Work As a Router. In this blog post, we’ll explore What is ONU, What Is Router, ONU & Router’s main usage, and What is the difference between ONU and Router. Let’s take a closer look ! Part I. Meaning of...

General

8310

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 effortlessly switch the default language on Windows 10 without reinstalling. I'll walk you through it. First, let's disable language synchronization. With a Microsoft account, language settings sync across devices. To prevent any complications,...

Windows Server

8826

Problem With Comparison Operator <=> in G++

by: Oralloy | last post by:

Hello folks, I am unable to find appropriate documentation on the type promotion of bit-fields when using the generalised comparison operator "<=>". The problem is that using the GNU compilers, it seems that the internal comparison operator "<=>" tries to promote arguments from unsigned to signed. This is as boiled down as I can make it. Here is my compilation command: g++-12 -std=c++20 -Wnarrowing bit_field.cpp Here is the code in...

C / C++

8732

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 tapestry of website design and digital marketing. It's not merely about having a website; it's about crafting an immersive digital experience that captivates audiences and drives business growth. The Art of Business Website Design Your website is...

Online Marketing

8503

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 Update option using the Control Panel or Settings app; it automatically checks for updates and installs any it finds, whether you like it or not. For most users, this new feature is actually very convenient. If you want to control the update process,...

Windows Server

8605

Discussion: How does Zigbee compare with other wireless protocols in smart home applications?

by: tracyyun | last post by:

Dear forum friends, With the development of smart home technology, a variety of wireless communication protocols have appeared on the market, such as Zigbee, Z-Wave, Wi-Fi, Bluetooth, etc. Each protocol has its own unique characteristics and advantages, but as a user who is planning to build a smart home system, I am a bit confused by the choice of these technologies. I'm particularly interested in Zigbee because I've heard it does some...

General

5632

Couldn’t get equations in html when convert word .docx file to html file in C#.

by: conductexam | last post by:

I have .net C# application in which I am extracting data from word file and save it in database particularly. To store word all data as it is I am converting the whole word file firstly in HTML and then checking html paragraph one by one. At the time of converting from word file to html my equations which are in the word document file was convert into image. Globals.ThisAddIn.Application.ActiveDocument.Select();...

C# / C Sharp

4306

Windows Forms - .Net 8.0

by: adsilva | last post by:

A Windows Forms form does not have the event Unload, like VB6. What one acts like?

Visual Basic .NET

2726

transfer the data from one system to another through ip address

by: 6302768590 | last post by:

Hai team i want code for transfer the data from one system to another through IP address by using C# our system has to for every 5mins then we have to update the data what the data is updated we have to send another system

C# / C Sharp