1
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>
<!--
function SelectEmail(form)
{
if(document.form.mlist.value=="Enter Email Here")
{
document.form.mlist.value="";
}
}
function CheckMList(form)
{
var varAtPos,varAtPos1,varMListComm,varEmail,varCheck
varEmail = document.form.mlist.value
varAtPos = varEmail.indexOf("@")
varAtPos1 = varEmail.indexOf(".")
varMListComm = varEmail.indexOf("'")
if(document.form.mlist.value=="")
{
alert("Please enter email");
document.form.mlist.focus();
return false;
}
if(varMListComm!=-1)
{
alert("Please enter valid email");
document.form.mlist.value="";
document.form.mlist.focus();
return false;
}
if(varAtPos==-1)
{
alert("Please enter valid email");
document.form.mlist.value="";
document.form.mlist.focus();
return false;
}
if(varAtPos1==-1)
{
alert("Please enter valid email");
document.form.mlist.value="";
document.form.mlist.focus();
return false;
}
if(varAtPos1<=varAtPos)
{
alert("Please enter valid email");
document.form.mlist.value="";
document.form.mlist.focus();
return false;
}
if(varAtPos=="0")
{
alert("Please enter valid email");
document.form.mlist.value="";
document.form.mlist.focus();
return false;
}
if(varAtPos+1==varAtPos1)
{
alert("Please enter valid email");
document.form.mlist.value="";
document.form.mlist.focus();
return false;
}
if(varEmail.indexOf("@",varAtPos + 1) != -1)
{
alert("Please enter valid email");
document.form.mlist.value="";
document.form.mlist.focus();
return false;
}
if(varAtPos1+3>varEmail.length)
{
alert("Domain name must be of atleast 2 characters");
document.form.mlist.value="";
document.form.mlist.focus();
return false;
}
return true;
}
function CheckUserLogin(frmUserLogin)
{
if(document.frmUserLogin.txtUName.value=="")
{
alert("Please enter user name");
document.frmUserLogin.txtUName.focus();
return false;
}
if(document.frmUserLogin.txtPass.value=="")
{
alert("Please enter password");
document.frmUserLogin.txtPass.focus();
return false;
}
return true;
}
function SelectUserName(frmUserLogin)
{
if(document.frmUserLogin.txtUName.value=="Username ")
{
document.frmUserLogin.txtUName.value="";
}
}
function SelectPassword(frmUserLogin)
{
if(document.frmUserLogin.txtPass.value=="Password" )
{
document.frmUserLogin.txtPass.value="";
}
}
function CheckSearch(frmSearch)
{
if(document.frmSearch.txtSWord.value=="")
{
alert("Please enter search word");
document.frmSearch.txtSWord.focus();
return false;
}
if(document.frmSearch.SMCat.value=="none")
{
alert("Please select category");
document.frmSearch.SMCat.focus();
return false;
}
return true;
}
//-->
</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>
<!--
<!--
var message="";
///////////////////////////////////
function clickIE() {if (document.all) {(message);return false;}}
function clickNS(e) {if
(document.layers||(document.getElementById&&!docum ent.all)) {
if (e.which==2||e.which==3) {(message);return false;}}}
if (document.layers)
{document.captureEvents(Event.MOUSEDOWN);document. onmousedown=clickNS;}
else{document.onmouseup=clickNS;document.oncontext menu=clickIE;}
document.oncontextmenu=new Function("return false")
// -->
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"> <!--#include file="default2.asp"-->
</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
