Error Type:Microsoft VBScript runtime (0x800A01A8) line 262

I am using following asp file default.asp
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">

<META http-equiv=Content-Type content="text/html; charset=windows-1252">
<META content="0 Days" name=revisit-after>
<META content=info@siderinternational.com name=email>
<META content="Omer Safdar" name=author>
<META content=MegaStudios.com name=publisher>
<META content="Copyright ©2005 - MegaStudios.com" name=copyright>
<SCRIPT language=javascript>

</SCRIPT>

<STYLE>.textarea {
BORDER-RIGHT: #ffffff 1px solid; BORDER-TOP: #ffffff 1px solid; FONT-SIZE: 10px; BORDER-LEFT: #ffffff 1px solid; COLOR: #333333; BORDER-BOTTOM: #ffffff 1px solid; FONT-FAMILY: Verdana, Arial, Helvetica, sans-serif; TEXT-ALIGN: justify
}
</STYLE>

<SCRIPT language=JavaScript>


function MM_preloadImages() { //v3.0
var d=document; if(d.images){ if(!d.MM_p) d.MM_p=new Array();
var i,j=d.MM_p.length,a=MM_preloadImages.arguments; for(i=0; i<a.length; i++)
if (a[i].indexOf("#")!=0){ d.MM_p[j]=new Image; d.MM_p[j++].src=a[i];}}
}
//-->
</SCRIPT>
<LINK href="02_files/style.css" type=text/css rel=stylesheet>
<META content="MSHTML 6.00.2900.2180" name=GENERATOR></HEAD>
<BODY bgColor=#FFFFFF text=#000000 leftMargin=0 topMargin=0 marginwidth="0"
marginheight="0">
<%
dim SecDesc,rs3
SecDesc = Request("SecDesc")
' Model = Request("Model")
%>
<TABLE cellSpacing=0 cellPadding=0 border=0>
<TBODY>
<TR>
<TD vAlign=top align=middle><TABLE WIDTH=990 BORDER=0 CELLPADDING=0 CELLSPACING=0>
<TR>
<TD COLSPAN=2 ROWSPAN=2> <IMG SRC="images/top_01.jpg" WIDTH=806 HEIGHT=153 ALT=""></TD>
<TD> <IMG SRC="images/top_02.jpg" WIDTH=184 HEIGHT=3 ALT=""></TD>
<TD> <IMG SRC="images/spacer.gif" WIDTH=1 HEIGHT=3 ALT=""></TD>
</TR>
<TR>
<TD ROWSPAN=3> <IMG SRC="images/top_03.jpg" WIDTH=184 HEIGHT=239 ALT=""></TD>
<TD> <IMG SRC="images/spacer.gif" WIDTH=1 HEIGHT=150 ALT=""></TD>
</TR>
<TR>

<TD COLSPAN=2> <a href="default.asp"><IMG SRC="images/top_04.jpg" ALT="" WIDTH=806 HEIGHT=30 border="0"></a></TD>
<TD> <IMG SRC="images/spacer.gif" WIDTH=1 HEIGHT=30 ALT=""></TD>
</TR>
<TR>
<TD ROWSPAN=2> <IMG SRC="images/top_05.jpg" WIDTH=2 HEIGHT=69 ALT=""></TD>
<TD ROWSPAN=2> <IMG SRC="images/top_06.jpg" WIDTH=804 HEIGHT=69 ALT=""></TD>
<TD> <IMG SRC="images/spacer.gif" WIDTH=1 HEIGHT=59 ALT=""></TD>
</TR>
<TR>
<TD> <IMG SRC="images/top_07.jpg" WIDTH=184 HEIGHT=10 ALT=""></TD>
<TD> <IMG SRC="images/spacer.gif" WIDTH=1 HEIGHT=10 ALT=""></TD>
</TR>
</TABLE></TD>
</TR>
<TR>
<TD vAlign=top align=middle> <TABLE cellSpacing=0 cellPadding=0 width=990 border=0>
<TBODY>
<TR>
<TD vAlign=bottom><object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0" width="699" height="234">
<param name="movie" value="maincentani.swf">
<param name="quality" value="high">
<embed src="maincentani.swf" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" width="699" height="234"></embed></object>
</TD>

<TD vAlign=top width=287 height=175> </TD>
</TR>
</TBODY>
</TABLE></TD>
</TR>
<TR>
<TD vAlign=top align=middle> <TABLE cellSpacing=0 cellPadding=0 width=990 border=0>
<TBODY>
<TR>
<TD align=middle> <TABLE cellSpacing=0 cellPadding=0 width=970 border=0>
<TBODY>
<TR>
<TD width=570 height="124">

<FORM name=Search onsubmit="return CheckSearch(Search);"
action=search.asp method=post>
<TABLE cellSpacing=0 cellPadding=0 width=570 border=0>
<TBODY>
<TR>
<TD class=text1 align=middle width=204><font size="1" face="Verdana, Arial, Helvetica, sans-serif">Enter
an Item No or Keywords</font></TD>

<TD align=middle width=110>  </TD>
<TD align=right width=215><select name="SecDesc" id="SecDesc" class="TextBox">
<%
rs3.open"select SecDesc from tbl_Section where SecDesc <>'' order by SecDesc",cnn,3,1
%>
<%
while not rs3.eof

rs3.movenext
wend
rs3.close
%>
</select></TD>
<TD vAlign=bottom width=41> <DIV align=right>
<INPUT type=image height=27 width=34
src="images/go_pink.gif" border=0 name=imageField2>
</DIV></TD>
</TR>
</TBODY>
</TABLE>
</FORM></TD>
<TD width=400 height="100" valign="top"> 
</TD>
</TR>
</TBODY>
</TABLE></TD>
</TR>
</TBODY>
</TABLE></TD>
</TR>
<TR>
<TD vAlign=top align=left> <TABLE cellSpacing=0 cellPadding=0 width=990 border=0>
<TBODY>
<TR>
<TD vAlign=bottom height=20><img height=11
src="images/top_page.gif" width=990></TD>
</TR>
<TR>
<TD vAlign=top align=middle background=images/center_page.gif>
<TABLE cellSpacing=0 cellPadding=0 width=970 border=0>
<TBODY>
<TR>
<TD vAlign=top width=428 height=250><IMG height=27
src="images/company.gif" width=255><BR> <STYLE>BODY {
SCROLLBAR-FACE-COLOR: #ffffff; SCROLLBAR-HIGHLIGHT-COLOR: #ffffff; SCROLLBAR-SHADOW-COLOR: #f6fdd1; SCROLLBAR-3DLIGHT-COLOR: #dcdcdc; SCROLLBAR-ARROW-COLOR: #ce201f; SCROLLBAR-TRACK-COLOR: #f4f4f4; SCROLLBAR-DARKSHADOW-COLOR: #dcdcdc
}
</STYLE>
<textarea class=textarea name=textfield rows=36 wrap=VIRTUAL cols=80>Dear Customer,
Thanks for your kind attention in a precious time.

Your's Truly

Managing Director</textarea>
</TD>

<TD valign="top" width="300"><strong> <font color="#cd1f1e" size="3" face="Verdana, Arial, Helvetica, sans-serif">Event & News </font> </strong>
<marquee direction="up" onmouseover="this.stop()" onmouseout="this.start()" scrollamount="3" align="left" height="200" width="300">

<table width="300" border="0" cellspacing="0" cellpadding="0" align="left" bgcolor="#CCCCCC">
<%
set rs = server.CreateObject("adodb.recordset")
rs.open "select * from tbl_news",cnn,3,1
if not rs.eof then
while not rs.eof
%>
<tr >
<td class="paging"><%=rs("heading")%></td>
</tr>
<tr>
<td class="paging"><%=rs("date")%></td>
</tr>
<tr>
<td class="paging"><%=rs("detail")%></td>
</tr>
<tr>
<td height="1" bgcolor="#000000"><img src="images/spacer.gif" width="1" height="1"></td>
</tr>
<%
rs.movenext
wend
end if
rs.close
%>

</table>

</marquee>
</TD>

<TD width=1 background=02_files/dots.gif> </TD>
<TD vAlign=top width=270> <IMG height=18 src="images/contacts.gif" width=120> <BR>
<TABLE cellSpacing=0 cellPadding=0 width=256 align=center
border=0>
<TBODY>
<TR vAlign=top>
<TD class=text1 colSpan=2><STRONG><BR>
</STRONG><STRONG></STRONG><BR>
<STRONG class=text1>01</STRONG><BR>
<strong><BR>
</strong></TD>
</TR>
<TR class=text1>
<TD width=62 height=15><STRONG>Tel</STRONG></TD>
<TD width=194</TD>
</TR>
<TR class=text1>
<TD width=62 height=15><STRONG>Fax</STRONG></TD>
<TD width=194</TD>
</TR>
<TR class=text1>
<TD width=62 height=15><STRONG>Fax</STRONG></TD>
<TD width=194</TD>
</TR>
<TR class=text1>
<TD width=62 height=15><STRONG></STRONG></TD>
<TD width=194><STRONG></STRONG></TD>
</TR>
<TR class=text1>
<TD height=15> </TD>
<TD height=15> </TD>
</TR>
<TR class=text1>
<TD height=15 colspan="2"><strong><font color="#CC3333" size="3" face="Verdana, Arial, Helvetica, sans-serif"></font></strong></TD>
</TR>
<TR vAlign=top>
<TD class=text1 colSpan=2><STRONG><BR>
</STRONG><STRONG></STRONG><BR>
<STRONG class=text1></STRONG><BR>
<strong><BR>
Ontario </strong></TD>
</TR>
<TR class=text1 align=middle>
<TD align=right colSpan=2 height=15> <div align="left"></div></TD>
</TR>
<TR class=text1 align=middle>
<TD align=right height=15><div align="left"><STRONG>Tel</STRONG></div></TD>
<TD align=right height=15><div align="left">+1 (41)
68 30 73 63</div></TD>
</TR>
<TR class=text1 align=middle>
<TD align=right height=15><div align="left"><STRONG>E-mail</STRONG></div></TD>
<TD align=right height=15><div align="left"><strong></strong></div></TD>
</TR>
<TR class=text1 align=middle>
<TD align=right height=15><div align="left"></div></TD>
<TD align=right height=15><div align="left"></div></TD>
</TR>
<TR class=text1 align=middle>
<TD height=18 colSpan=2 align=right><div align="left"><strong><font color="#CC3333" size="3" face="Verdana, Arial, Helvetica, sans-serif">
</font></strong></div></TD>
</TR>
<TR vAlign=top>
<TD class=text1 colSpan=2><STRONG><BR>
</STRONG><STRONG>l</STRONG><BR>
<STRONG class=text1>12 </STRONG><BR>
<strong><BR>
</strong></TD>
</TR>
<TR class=text1 align=middle>
<TD height=15 align=right><div align="left"><STRONG>Tel</STRONG></div></TD>
<TD height=15 align=right><div align="left">+35
(38) 61 63 19 58</div></TD>
</TR>
<TR class=text1 align=middle>
<TD align=right height=15><div align="left"><STRONG>E-mail</STRONG></div></TD>
<TD align=right height=15><div align="left"><strong></strong></div></TD>
</TR>
</TBODY>
</TABLE></TD>
</TR>
</TBODY>
</TABLE></TD>
</TR>
<TR>
<TD><IMG height=10 src="images/bottom_page.gif"
width=990></TD>
</TR>
</TBODY>
</TABLE></TD>
</TR>
<TR>
<TD align=middle height=60> <FORM id=form name=form onsubmit="return CheckMList(form);"
action=saveemail.asp method=post>
<TABLE cellSpacing=0 cellPadding=0 width=990 border=0>
<TBODY>
<TR>
<TD vAlign=center align=middle background=images/bg_list.gif
height=40> <TABLE cellSpacing=0 cellPadding=0 width=970 border=0>
<TBODY>
<TR>
<TD width=422> <TABLE cellSpacing=0 cellPadding=0 width=410 border=0>
<TBODY>
<TR>
<TD class=text1 align=middle width=220><font size="1" face="Verdana, Arial, Helvetica, sans-serif">Join
us for new arrivals & promotions</font></TD>
<TD align=middle width=160><INPUT class=input id=mlist2
onfocus=SelectEmail(form) size=25
value="Enter Email Here" name=mlist></TD>
<TD align=middle width=30><INPUT type=image height=23
width=24 src="images/go.gif" border=0
name=imageField3></TD>
</TR>
</TBODY>
</TABLE></TD>
<TD width=1 background=02_files/dots.gif> </TD>
<TD class=text1 align=middle width=400><font size="1" face="Verdana, Arial, Helvetica, sans-serif">©
copyright Sider International Group. All Rights Reserverd</font>.
</TD>
<TD width=1 background=02_files/dots.gif> </TD>
<TD class=text1 align=middle width=225></TD>
</TR>
</TBODY>
</TABLE></TD>
</TR>
</TBODY>
</TABLE>
</FORM></TD>
</TR>
</TBODY>
</TABLE>
</BODY></HTML>

about which following is connection file code
<%
response.Buffer = true
dim con_str,picpath,imgpath
con_str="DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("/sider/dbase1/cuircon_db2.mdb") & ";uid=;Password="
session.Timeout = 100
picpath = "/sider/pimgs/" 'path for Prducts
imgpath = "/sider/pimgs/main_img/" 'path for images

Dim rsMenus1 : Set rsMenus1 = server.CreateObject("ADODB.RecordSet")
Dim rsMenus2 : Set rsMenus2 = server.CreateObject("ADODB.RecordSet")
Dim rsMenus3 : Set rsMenus3 = server.CreateObject("ADODB.RecordSet")
Dim rsMenus4 : Set rsMenus4 = server.CreateObject("ADODB.RecordSet")
set rs3 = Server.CreateObject("ADODB.RecordSet")

Dim Link1, Link2

Dim MCellColor, SCellColor, DefFontColor
DefFontColor = "666666"
%>
<%
' Dim pid,pid_array
' pid = Request.QueryString("pid")
' pid_array = split(pid,"-")
' if not pid= "" then
' ProductID = pid_array(0)
' SubID = pid_array(1)
' MainID = pid_array(2)
' SecID = pid_array(3)
' else
' SecID = 10
' MainID = 1
' SubID = 1
' ProductID = 0
' end if

Dim cnn : set cnn = Server.CreateObject("ADODB.Connection")
Dim rscats : set rscats = Server.CreateObject("ADODB.RecordSet")
Dim rsXtra : set rsXtra = Server.CreateObject("ADODB.RecordSet")
set srs = Server.CreateObject("ADODB.RecordSet")
'set rs3 = Server.CreateObject("ADODB.RecordSet")
cnn.open con_str

Dim Cry
rscats.open"Select * from tbl_settings where id=4",cnn,3,2
if not rscats.eof then
Cry = rscats("status")
end if
rscats.Close
Dim cart
rscats.open"Select * from tbl_settings where id=5",cnn,3,2
if not rscats.eof then
cart = rscats("status")
end if
rscats.Close

Application.Lock
Application("cptitle") = "CONTROL PANEL ()"
Application("utitle") = ""
Application("tablestyle") = "border='1' align='center' cellpadding='0' cellspacing='0' bordercolor='#cccccc' id='AutoNumber3' style='border-collapse: collapse'"
Application("maxfeature") = 5
Application.UnLock
%>

and i am using IIS server for browsig file. But following is error

"Error Type:Microsoft VBScript runtime (0x800A01A8) line 262 "

in browser I.E 6.05 with sp2

King help me in debuging error

Mudassar

Aug 9 '07 #1

Subscribe Post Reply

3859

jhardman

3,406

Expert 2GB

which is line 262?

Aug 10 '07 #2

by: John Davis | last post by:

I don't understand when I do (2), it will throw the error when I run the ASP. (1) is working fine. Should I use a single quote between the string in SQL statement in ASP? (1) strSQL = "SELECT *...

ASP / Active Server Pages

Runtime Error: [Microsoft][ODBC SQL Server Driver]Invalid time format

by: Tim Groulx | last post by:

Hello All, I am getting the following error when attemping to open a table in SQL2kSP3a. ________________________________________ SQL Server Enterprise Manager Database Server: Microsoft SQL...

Microsoft SQL Server

How can i retrieve only error line in error hndl

by: Itzik | last post by:

Hi i have any error in my function can i get only error line Thanks

C# / C Sharp

Unable to cast COM object of type 'Microsoft.VisualStudio.DeviceConnectivity.Interop.ConManClass'

by: Reshma Prabhu | last post by:

Hello, I am encountering a problem after installing VS2005 Beta 2. Whenever I try to open a Pocket PC application in Design mode, I am getting following exception:- Unable to cast COM object...

C# / C Sharp

Error line doesn't show in Visual Studio 2005 C# web project.

by: Tony | last post by:

In visual studio 2005, while debugging a new web project in C#, the error line does not show up in the error dialog box. The actual error shows up correctly, but it does not tell me what line it...

ASP.NET

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

Run-time error "7": Error executing statement! Error:[Microsoft][ODBC dBase Driver]

by: DontB3 | last post by:

Hi, I'm new in this forum, and i hope someone can help. I'm creating an automatic application that transfer a database from Access -> DBF -> Oracle. When My App try to execute Insert SQL...

Visual Basic 4 / 5 / 6

Identifying Error Line in a Stored Proc

by: rthimmana | last post by:

Hi We record the error line using the Err_Line() function within the catch block for our procedures. When we open the procedure and check the corresponding line number using a Management...

Microsoft SQL Server

Getting this error: XML parsing failed: syntax error (Line: 1, Character: 1)

by: Ananthu | last post by:

Hi I have created one website named OTMS using ASP.NET in a File System Format.My project location is in F: drive(F:\Project\OTMS). I have installed IIS properly and the website runs properly in...

ASP.NET

Basic Javascript concepts

by: aa123db | last post by:

Variable and constants Use var or let for variables and const fror constants. Var foo ='bar'; Let foo ='bar';const baz ='bar'; Functions function $name$ ($parameters$) { } ...

Javascript

Batch import of multiple excel files into the database

by: ryjfgjl | last post by:

If we have dozens or hundreds of excel to import into the database, if we use the excel import function provided by database editors such as navicat, it will be extremely tedious and time-consuming...

Data Management

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

Is that possible of reading the .csv file in column wise and the column have different lengths ?

by: Sonnysonu | last post by:

This is the data of csv file 1 2 3 1 2 3 1 2 3 1 2 3 2 3 2 3 3 the lengths should be different i have to store the data by column-wise with in the specific length. suppose the i have to...

C / C++

How to build RAID in BIOS?

by: Hystou | last post by:

There are some requirements for setting up RAID: 1. The motherboard and BIOS support RAID configuration. 2. The motherboard has 2 or more available SATA protocol SSD/HDD slots (including MSATA, M.2...

Computer Hardware

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,...

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

Error Type:Microsoft VBScript runtime (0x800A01A8) line 262

Similar topics