V
vinodkus
HV TAKEN A DRON DOWN AND FETCH RECORD OF THREE COLUMN FROM A TABLE,
AND I HAVE TAKEN A SUBMIT BUTTON.JUST I WANT TO SHOW ALL RECORD IN
NEXT PAGE JUST SPLIT THEM AND STORIN IN AN ARRAY BUT IT GIVES AN
ERROR
IT HAS TWO PAGES
FIRST PAGE check1.asp
<!--#include file="../../INCLUDES/SSPHARMASOFTCON.INC"-->
<html>
<head>
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta http-equiv="Content-Type" content="text/html;
charset=windows-1252">
<title>New Page 1</title>
</head>
<body>
<form name = form1 action = "check2.asp" method = post>
<select name = "drp1">
<%
set rs = Con.Execute("select
EXECODE,EXEFNAME,EXELNAME,EXEAREA,EXEDESIGCODE from SS_EXEDETAIL where
EXESTATUS='Y' AND EXECODE<>'SS-001' AND EXEDESIGCODE<>'MR' order by
EXECODE")
if not rs.eof then
while not rs.eof
%>
<option value = <%=rs(0)%>;<%=rs(1)%>;<%=rs(2)%>><%=rs(0)%>:<
%=rs(1)%>:<%=rs(2)%></option>
<%
rs.movenext
wend
end if
%>
<input type = submit value = submit name = submit>
</body>
</html>
SECOND PAGE check2.asp
<html>
<head>
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta http-equiv="Content-Type" content="text/html;
charset=windows-1252">
<title>New Page 1</title>
</head>
<body>
<%
drp = Request.Form("drp1")
'Response.write(drp)
x = split(drp,";")
response.write(x(0))
response.write(x(1))
response.write(x(2))
%>
</body>
</html>
Error Type:
Microsoft VBScript runtime (0x800A0009)
Subscript out of range: '[number: 1]'
/sspharmasoft/softadmin/MISREPORTS/check2.asp, line 16
AND I HAVE TAKEN A SUBMIT BUTTON.JUST I WANT TO SHOW ALL RECORD IN
NEXT PAGE JUST SPLIT THEM AND STORIN IN AN ARRAY BUT IT GIVES AN
ERROR
IT HAS TWO PAGES
FIRST PAGE check1.asp
<!--#include file="../../INCLUDES/SSPHARMASOFTCON.INC"-->
<html>
<head>
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta http-equiv="Content-Type" content="text/html;
charset=windows-1252">
<title>New Page 1</title>
</head>
<body>
<form name = form1 action = "check2.asp" method = post>
<select name = "drp1">
<%
set rs = Con.Execute("select
EXECODE,EXEFNAME,EXELNAME,EXEAREA,EXEDESIGCODE from SS_EXEDETAIL where
EXESTATUS='Y' AND EXECODE<>'SS-001' AND EXEDESIGCODE<>'MR' order by
EXECODE")
if not rs.eof then
while not rs.eof
%>
<option value = <%=rs(0)%>;<%=rs(1)%>;<%=rs(2)%>><%=rs(0)%>:<
%=rs(1)%>:<%=rs(2)%></option>
<%
rs.movenext
wend
end if
%>
<input type = submit value = submit name = submit>
</body>
</html>
SECOND PAGE check2.asp
<html>
<head>
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta http-equiv="Content-Type" content="text/html;
charset=windows-1252">
<title>New Page 1</title>
</head>
<body>
<%
drp = Request.Form("drp1")
'Response.write(drp)
x = split(drp,";")
response.write(x(0))
response.write(x(1))
response.write(x(2))
%>
</body>
</html>
Error Type:
Microsoft VBScript runtime (0x800A0009)
Subscript out of range: '[number: 1]'
/sspharmasoft/softadmin/MISREPORTS/check2.asp, line 16