What type of error is this:
Error Type:
Microsoft VBScript runtime (0x800A0009)
Subscript out of range: '[number: 0]'
/Public/asp/search.asp, line 134
____
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<link rel="stylesheet" type="text/css" href="../includes/style.css">
<title>Template</title>
<SCRIPT LANGUAGE="JScript">
if (document.images)
{
img1 = new Image();
img2 = new Image();
img1.src = "images/up.gif";
img2.src = "images/down.gif";
}
function moveUp(cD)
{
var x=document.getElementById(cD);
var tpPos=x.offsetTop
var obHgt=x.offsetHeight
offst=tpPos - obHgt
var y=document.getElementById('u'+cD);
y.innerHTML = '';
var z=document.getElementById('t'+cD);
z.innerHTML = ' < Retract';
x.style.visibility="visible"
up(tpPos, offst, cD)
}
function up(spot, offst, cD)
{
var x=document.getElementById(cD);
if (spot!=offst)
{
x.style.top=spot;
spot-=1;
setTimeout('up('+spot+','+offst+','+cD+')',1);
}
else
{
var y=document.getElementById('d'+cD);
y.innerHTML = '<img src="images/down.gif" border="0" align="middle" width="15px" height="15px" alt="Retract fare info." />';
}
}
function moveDown(cD)
{
var x=document.getElementById(cD);
var tpPos=x.offsetTop
var obHgt=x.offsetHeight
offst=tpPos + obHgt
var y=document.getElementById('d'+cD);
y.innerHTML = '';
var z=document.getElementById('t'+cD);
z.innerHTML = ' < Expand';
down(tpPos, offst, cD)
}
function down(spot, offst, cD)
{
var x=document.getElementById(cD);
if (spot!=offst)
{
x.style.top=spot;
spot+=1;
setTimeout('down('+spot+','+offst+','+cD+')',1);
}
else
{
var y=document.getElementById('u'+cD);
y.innerHTML = '<img src="images/up.gif" border="0" align="middle" width="15px" height="15px" alt="Expand fare info." />';
x.style.visibility="hidden"
}
}
function passnextpage(FN)
{
document.form.flight_no.value=FN;
document.form.submit();
}
</script>
<%
response.write "oneret = " & request.form("oneret") & "<br>"
response.write "depapt = " & request.form("depapt") & "<br>"
response.write "depday = " & request.form("depday") & "<br>"
response.write "depmonth = " & request.form("depmonth") & "<br>"
response.write "deptm = " & request.form("deptm") & "<br>"
response.write "retday = " & request.form("retday") & "<br>"
response.write "retmonth = " & request.form("retmonth") & "<br>"
response.write "rettm = " & request.form("rettm") & "<br>"
response.write "class = " & request.form("class") & "<br>"
response.write "airline = " & request.form("airline") & "<br>"
response.write "noa = " & request.form("noa") & "<br>"
response.write "noc = " & request.form("noc") & "<br>"
response.write "noi = " & request.form("noi") & "<br>"
sid = session.SessionID
journey = trim(request.form("oneret"))
depApt = trim(request.form("depapt"))
ariApt = trim(request.form("ariapt"))
depDay = trim(request.form("depday"))
depYrMnth = split(trim(request.form("depmonth")), "#")
depTm = trim(request.form("deptm"))
retDay = trim(request.form("retday"))
retYrMnth = split(trim(request.form("retmonth")), "#")
retTm = trim(request.form("rettm"))
airLine = trim(request.form("airline"))
cabin = trim(request.form("class"))
noa = trim(request.form("noa"))
noc = trim(request.form("noc"))
noi = trim(request.form("noi"))
Select Case cabin
Case "1"
cabinClass = "F"
Case "2"
cabinClass = "C"
Case "3"
cabinClass = "Y"
end select
if len(depDay) = 1 then
depDay = "0" & depDay
end if
depYr = right(depYrMnth(0), 2)
depMnth = depYrMnth(1)
if len(depMnth) = 1 then
depMnth = "0" & depMnth
end if
CStr(depMnth)
depMnth = setdate_rev(depMnth)
depDte = depDay & depMnth & depYr
response.write "depDte = " & depDte & "<br>"
if len(retDay) = 1 then
retDay = "0" & retDay
end if
retYr = right(retYrMnth(0), 2)
retMnth = retYrMnth(1)
if len(retMnth) = 1 then
retMnth = "0" & retMnth
end if
CStr(retMnth)
retMnth = setdate_rev(retMnth)
retDte = retDay & retMnth & retYr
response.write "retDte = " & retDte & "<br>"
%>
<%
'Create XML
set objxml=server.CreateObject("MSXML2.FreeThreadedDOM Document")
objxml.async = 0
'Load XML
if not objxml.load(Server.MapPath("includes/MPReplyExample.xml")) then
response.write objxml.parseerror.reason
response.end
end if
%>
</head>
<body>
<table width="750" bgcolor="#003366" border=1 align="center">
<tr>
<td height="70" bgcolor="#003366" align="left">
<img src="images/mackheader2.gif" height="70px" width="150px">
</td>
<td height="70" bgcolor="#003366" align="right">
<img src="images/mack_login.gif" height="70px" width="215px">
</td>
</tr>
<tr>
<td colspan="2" height="20" align="center">
<div class="font4">menu</div>
</td>
</tr>
<td colspan="2">
<div style="z-index:0; position:relative;">
<table border=0 width="100%" bgcolor="#003366">
<tr><td> </td></tr>
<tr><td> </td></tr>
</table>
</div>
<%
'Loop for Departure segment and Arrival Segment
l = objxml.documentelement.selectnodes("Recommendation ").length -1
zId = 1
for i = 0 to l
set node = objxml.documentelement.selectnodes("Recommendation ").item(i)
zIl = (i + 1) * 3
zId = zIl - 2
zI = zIl - 1
%>
<form name="form">
<input type="hidden" name="flight_no">
</form>
<img src="asp/images/fareSearch.gif" align="middle" name="netfares" width="80" height="15" border="0" id="searchbyfare" onClick="window.location.href='finish.asp';" tabindex="10" title="Search for Mackenzie Fares">
</td>
</tr>
</table>
</body>
</html>
www.crmpicco.co.uk
www.crmpicco.co.uk.tt
www.milklemonadechocolate.uk.tt
www.griswolds.uk.tt
Subscript out of range
