By using this site, you agree to our updated Privacy Policy and our Terms of Use. Manage your Cookies Settings.
424,657 Members | 751 Online
Bytes IT Community
+ Ask a Question
Need help? Post your question and get tips & solutions from a community of 424,657 IT Pros & Developers. It's quick & easy.

Please wait ...message

P: n/a
Hi guys
I display one page in popup window...that fetches some data from sql and
perfom some calculation (tht approx 10 secs) and display result....
I am trying to display "Please wait ..."message while its performing
calculation...
I'm using the below code...that i have got from following link
http://aspfaq.com/show.asp?id=2498

but somehow it doesnt work and displays nothing....it display only for a
second before the actual result is displayed...

Below is my code snippet:

<%@LANGUAGE="VBSCRIPT"%>
<!-- #include file="common/constants.asp"--> 'tht containts sql
connection string
<!-- #include file="common/database.asp"--> ' contains one class to
perform to database and record set operation
<% Response.Buffer = True %>
<html>
<head>
<title>My Style - Plan Matrix</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link rel="stylesheet" href="common/m8extranet.css" type="text/css">
</head>
<style>
..boxText {font-family:Arial; font-size:9pt; color:222222; font-weight:400;}
</style>
<body>
<script>
<!--
if (document.all)
{
document.write("<span id=wxx>Please");
document.write(" wait...</span>");
}
//-->
</script>

<% Response.Flush() %>

<%
sql = "Select * From Phoneprice Order by phprice"
set rs = database.executequery(sql)
sql = "Select * From Plancommi WHERE ptype='My Style' Order By planid"
set rs1 = database.executequery(sql)
%>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><table width="100%" border="0" cellspacing="1" cellpadding="0">
<tr>
<td width="10%" class="header"><div
align="right"><b>Plan</b></div></td>
<td width="9%" class="header"><b>&nbsp;Matrix</b></td>
<td width="9%" bgcolor="#CFF2FE" class="topMenubig"> <div
align="center"><strong>My
Style 16</strong></div></td>
<td width="9%" bgcolor="#AEAEFF" class="topMenubig"> <div
align="center"><strong>My
Style 20</strong></div></td>
<td width="9%" bgcolor="#FFD9D7" class="topMenubig"> <div
align="center"><strong>My
Style 30</strong></div></td>
<td width="9%" bgcolor="#DBB7FF" class="topMenubig"> <div
align="center"><strong>My
Style 40</strong></div></td>
<td width="9%" bgcolor="#FAE2AD" class="topMenubig"> <div
align="center"><strong>My
Style 50</strong></div></td>
<td width="9%" bgcolor="#FECBFD" class="topMenubig"> <div
align="center"><strong>My
Style 70</strong></div></td>
<td width="9%" bgcolor="#BBFFBB" class="topMenubig"> <div
align="center"><strong>My
Style 90</strong></div></td>
<td width="9%" bgcolor="#BFDFFF" class="topMenubig"> <div
align="center"><strong>My
Style 150</strong></div></td>
<td width="9%" bgcolor="#D3D3A9" class="topMenubig"> <div
align="center"><strong>My
Style 200</strong></div></td>
</tr>
<tr><td colspan="12">&nbsp;</td></tr>
<%
while not rs.eof
Response.write "<tr>"
Response.write "<td height=24 bgcolor=#DFDFDF align=center
class=boxText>"&rs("phname")&"</td>"
Response.write "<td bgcolor=#DFDFDF align=center
class=boxText>"&rs("phmodel")&"</td>"
'Response.write "<td bgcolor=#DFDFDF align=center
class=boxText>"&FormatCurrency(rs("phprice"),2)&"</td>"
rs1.movefirst
cnt=1
while not rs1.eof
mystr = "tx_mar"&cnt
tmpSql = "Select * From IMEIBonus WHERE Phid="&rs("phid")&" AND
PlanId="&rs1("planid")
'Response.write tmpSql
'response.End()
set rs_imei = database.executequery(tmpSql)
If Not rs_imei.eof then
IMEIBonus = rs_imei("Bonus")
else
IMEIBonus = 0
End If
myno = (rs1("commission") + IMEIBonus) -
(rs("phprice")+Request.form(cstr(mystr)))
If myno >= 0 Then
Response.write "<td align=center bgcolor=#"&rs1("bgcol")&"
class=boxText>Free</td>"
Else
myno = Abs(myno)
Response.write "<td align=center bgcolor=#"&rs1("bgcol")&"
class=boxText>"&FormatCurrency(myno,0)&"</td>"
End If
set rs_imei = Nothing
rs1.movenext
cnt = cnt + 1
wend
rs.movenext
wend
%>
</table></td>
</tr>
</table>
<%
set rs= Nothing
set rs1 = Nothing
%>
<script>
<!--
if (document.all)
{
document.all("wxx").style.display = 'none';
}
//-->
</script>
</body>
</html>

can any one help me??
Thanx in advance
dave
Jul 22 '05 #1
Share this Question
Share on Google+
4 Replies


P: n/a
(a) move the response.buffer line to BEFORE the <!--#include references.

(b) STOP NESTING RECORDSETS! STOP USING SELECT *! Use <th> instead of
<td..><strong> to reduce the weight of your HTML! Ugh, you will probably
eliminate the need for a please wait message if you spend some time making
this page more efficient. Please, please, please read
http://www.aspfaq.com/2424


On 3/1/05 10:13 PM, in article #v**************@tk2msftngp13.phx.gbl, "dave"
<fo****@foo.netREMOVE> wrote:
Hi guys
I display one page in popup window...that fetches some data from sql and
perfom some calculation (tht approx 10 secs) and display result....
I am trying to display "Please wait ..."message while its performing
calculation...
I'm using the below code...that i have got from following link
http://aspfaq.com/show.asp?id=2498

but somehow it doesnt work and displays nothing....it display only for a
second before the actual result is displayed...

Below is my code snippet:

<%@LANGUAGE="VBSCRIPT"%>
<!-- #include file="common/constants.asp"--> 'tht containts sql
connection string
<!-- #include file="common/database.asp"--> ' contains one class to
perform to database and record set operation
<% Response.Buffer = True %>
<html>
<head>
<title>My Style - Plan Matrix</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link rel="stylesheet" href="common/m8extranet.css" type="text/css">
</head>
<style>
.boxText {font-family:Arial; font-size:9pt; color:222222; font-weight:400;}

</style>
<body>
<script>
<!--
if (document.all)
{
document.write("<span id=wxx>Please");
document.write(" wait...</span>");
}
//-->
</script>

<% Response.Flush() %>

<%
sql = "Select * From Phoneprice Order by phprice"
set rs = database.executequery(sql)
sql = "Select * From Plancommi WHERE ptype='My Style' Order By planid"
set rs1 = database.executequery(sql)
%>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><table width="100%" border="0" cellspacing="1" cellpadding="0">
<tr>
<td width="10%" class="header"><div
align="right"><b>Plan</b></div></td>
<td width="9%" class="header"><b>&nbsp;Matrix</b></td>
<td width="9%" bgcolor="#CFF2FE" class="topMenubig"> <div
align="center"><strong>My
Style 16</strong></div></td>
<td width="9%" bgcolor="#AEAEFF" class="topMenubig"> <div
align="center"><strong>My
Style 20</strong></div></td>
<td width="9%" bgcolor="#FFD9D7" class="topMenubig"> <div
align="center"><strong>My
Style 30</strong></div></td>
<td width="9%" bgcolor="#DBB7FF" class="topMenubig"> <div
align="center"><strong>My
Style 40</strong></div></td>
<td width="9%" bgcolor="#FAE2AD" class="topMenubig"> <div
align="center"><strong>My
Style 50</strong></div></td>
<td width="9%" bgcolor="#FECBFD" class="topMenubig"> <div
align="center"><strong>My
Style 70</strong></div></td>
<td width="9%" bgcolor="#BBFFBB" class="topMenubig"> <div
align="center"><strong>My
Style 90</strong></div></td>
<td width="9%" bgcolor="#BFDFFF" class="topMenubig"> <div
align="center"><strong>My
Style 150</strong></div></td>
<td width="9%" bgcolor="#D3D3A9" class="topMenubig"> <div
align="center"><strong>My
Style 200</strong></div></td>
</tr>
<tr><td colspan="12">&nbsp;</td></tr>
<%
while not rs.eof
Response.write "<tr>"
Response.write "<td height=24 bgcolor=#DFDFDF align=center
class=boxText>"&rs("phname")&"</td>"
Response.write "<td bgcolor=#DFDFDF align=center
class=boxText>"&rs("phmodel")&"</td>"
'Response.write "<td bgcolor=#DFDFDF align=center
class=boxText>"&FormatCurrency(rs("phprice"),2)&"</td>"
rs1.movefirst
cnt=1
while not rs1.eof
mystr = "tx_mar"&cnt
tmpSql = "Select * From IMEIBonus WHERE Phid="&rs("phid")&" AND
PlanId="&rs1("planid")
'Response.write tmpSql
'response.End()
set rs_imei = database.executequery(tmpSql)
If Not rs_imei.eof then
IMEIBonus = rs_imei("Bonus")
else
IMEIBonus = 0
End If
myno = (rs1("commission") + IMEIBonus) -
(rs("phprice")+Request.form(cstr(mystr)))
If myno >= 0 Then
Response.write "<td align=center bgcolor=#"&rs1("bgcol")&"
class=boxText>Free</td>"
Else
myno = Abs(myno)
Response.write "<td align=center bgcolor=#"&rs1("bgcol")&"
class=boxText>"&FormatCurrency(myno,0)&"</td>"
End If
set rs_imei = Nothing
rs1.movenext
cnt = cnt + 1
wend
rs.movenext
wend
%>
</table></td>
</tr>
</table>
<%
set rs= Nothing
set rs1 = Nothing
%>
<script>
<!--
if (document.all)
{
document.all("wxx").style.display = 'none';
}
//-->
</script>
</body>
</html>

can any one help me??
Thanx in advance
dave


Jul 22 '05 #2

P: n/a
thanx for prompt reply
now it works on localhost but funny thing when i upload to web server..it
doesnt work...
couldnt figure out whts going on
dave

"Aaron [SQL Server MVP]" <te*****@dnartreb.noraa> wrote in message
news:BE4AA9ED.1ACD%te*****@dnartreb.noraa...
(a) move the response.buffer line to BEFORE the <!--#include references.

(b) STOP NESTING RECORDSETS! STOP USING SELECT *! Use <th> instead of
<td..><strong> to reduce the weight of your HTML! Ugh, you will probably
eliminate the need for a please wait message if you spend some time making
this page more efficient. Please, please, please read
http://www.aspfaq.com/2424


On 3/1/05 10:13 PM, in article #v**************@tk2msftngp13.phx.gbl, "dave" <fo****@foo.netREMOVE> wrote:
Hi guys
I display one page in popup window...that fetches some data from sql and
perfom some calculation (tht approx 10 secs) and display result....
I am trying to display "Please wait ..."message while its performing
calculation...
I'm using the below code...that i have got from following link
http://aspfaq.com/show.asp?id=2498

but somehow it doesnt work and displays nothing....it display only for a
second before the actual result is displayed...

Below is my code snippet:

<%@LANGUAGE="VBSCRIPT"%>
<!-- #include file="common/constants.asp"--> 'tht containts sql
connection string
<!-- #include file="common/database.asp"--> ' contains one class to
perform to database and record set operation
<% Response.Buffer = True %>
<html>
<head>
<title>My Style - Plan Matrix</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link rel="stylesheet" href="common/m8extranet.css" type="text/css">
</head>
<style>
.boxText {font-family:Arial; font-size:9pt; color:222222; font-weight:400;}
</style>
<body>
<script>
<!--
if (document.all)
{
document.write("<span id=wxx>Please");
document.write(" wait...</span>");
}
//-->
</script>

<% Response.Flush() %>

<%
sql = "Select * From Phoneprice Order by phprice"
set rs = database.executequery(sql)
sql = "Select * From Plancommi WHERE ptype='My Style' Order By planid"
set rs1 = database.executequery(sql)
%>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><table width="100%" border="0" cellspacing="1" cellpadding="0">
<tr>
<td width="10%" class="header"><div
align="right"><b>Plan</b></div></td>
<td width="9%" class="header"><b>&nbsp;Matrix</b></td>
<td width="9%" bgcolor="#CFF2FE" class="topMenubig"> <div
align="center"><strong>My
Style 16</strong></div></td>
<td width="9%" bgcolor="#AEAEFF" class="topMenubig"> <div
align="center"><strong>My
Style 20</strong></div></td>
<td width="9%" bgcolor="#FFD9D7" class="topMenubig"> <div
align="center"><strong>My
Style 30</strong></div></td>
<td width="9%" bgcolor="#DBB7FF" class="topMenubig"> <div
align="center"><strong>My
Style 40</strong></div></td>
<td width="9%" bgcolor="#FAE2AD" class="topMenubig"> <div
align="center"><strong>My
Style 50</strong></div></td>
<td width="9%" bgcolor="#FECBFD" class="topMenubig"> <div
align="center"><strong>My
Style 70</strong></div></td>
<td width="9%" bgcolor="#BBFFBB" class="topMenubig"> <div
align="center"><strong>My
Style 90</strong></div></td>
<td width="9%" bgcolor="#BFDFFF" class="topMenubig"> <div
align="center"><strong>My
Style 150</strong></div></td>
<td width="9%" bgcolor="#D3D3A9" class="topMenubig"> <div
align="center"><strong>My
Style 200</strong></div></td>
</tr>
<tr><td colspan="12">&nbsp;</td></tr>
<%
while not rs.eof
Response.write "<tr>"
Response.write "<td height=24 bgcolor=#DFDFDF align=center
class=boxText>"&rs("phname")&"</td>"
Response.write "<td bgcolor=#DFDFDF align=center
class=boxText>"&rs("phmodel")&"</td>"
'Response.write "<td bgcolor=#DFDFDF align=center
class=boxText>"&FormatCurrency(rs("phprice"),2)&"</td>"
rs1.movefirst
cnt=1
while not rs1.eof
mystr = "tx_mar"&cnt
tmpSql = "Select * From IMEIBonus WHERE Phid="&rs("phid")&" AND
PlanId="&rs1("planid")
'Response.write tmpSql
'response.End()
set rs_imei = database.executequery(tmpSql)
If Not rs_imei.eof then
IMEIBonus = rs_imei("Bonus")
else
IMEIBonus = 0
End If
myno = (rs1("commission") + IMEIBonus) -
(rs("phprice")+Request.form(cstr(mystr)))
If myno >= 0 Then
Response.write "<td align=center bgcolor=#"&rs1("bgcol")&"
class=boxText>Free</td>"
Else
myno = Abs(myno)
Response.write "<td align=center bgcolor=#"&rs1("bgcol")&"
class=boxText>"&FormatCurrency(myno,0)&"</td>"
End If
set rs_imei = Nothing
rs1.movenext
cnt = cnt + 1
wend
rs.movenext
wend
%>
</table></td>
</tr>
</table>
<%
set rs= Nothing
set rs1 = Nothing
%>
<script>
<!--
if (document.all)
{
document.all("wxx").style.display = 'none';
}
//-->
</script>
</body>
</html>

can any one help me??
Thanx in advance
dave

Jul 22 '05 #3

P: n/a
Could be buffering is enabled in one place and disabled in the other. Could
be that your include files are different in the two places, and the ones
where it DOESN'T work set response.buffer = false (a stretch, I know, but
possible).

Tough to tell without being able to show us both environments.
On 3/1/05 11:48 PM, in article OT*************@TK2MSFTNGP10.phx.gbl, "dave"
<fo****@foo.netREMOVE> wrote:
thanx for prompt reply
now it works on localhost but funny thing when i upload to web server..it
doesnt work...
couldnt figure out whts going on
dave

"Aaron [SQL Server MVP]" <te*****@dnartreb.noraa> wrote in message
news:BE4AA9ED.1ACD%te*****@dnartreb.noraa...
(a) move the response.buffer line to BEFORE the <!--#include references.

(b) STOP NESTING RECORDSETS! STOP USING SELECT *! Use <th> instead of
<td..><strong> to reduce the weight of your HTML! Ugh, you will probably
eliminate the need for a please wait message if you spend some time making
this page more efficient. Please, please, please read
http://www.aspfaq.com/2424


On 3/1/05 10:13 PM, in article #v**************@tk2msftngp13.phx.gbl,

"dave"
<fo****@foo.netREMOVE> wrote:
Hi guys
I display one page in popup window...that fetches some data from sql and
perfom some calculation (tht approx 10 secs) and display result....
I am trying to display "Please wait ..."message while its performing
calculation...
I'm using the below code...that i have got from following link
http://aspfaq.com/show.asp?id=2498

but somehow it doesnt work and displays nothing....it display only for a
second before the actual result is displayed...

Below is my code snippet:

<%@LANGUAGE="VBSCRIPT"%>
<!-- #include file="common/constants.asp"--> 'tht containts sql
connection string
<!-- #include file="common/database.asp"--> ' contains one class to
perform to database and record set operation
<% Response.Buffer = True %>
<html>
<head>
<title>My Style - Plan Matrix</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link rel="stylesheet" href="common/m8extranet.css" type="text/css">
</head>
<style>
.boxText {font-family:Arial; font-size:9pt; color:222222; font-weight:400;}
</style>
<body>
<script>
<!--
if (document.all)
{
document.write("<span id=wxx>Please");
document.write(" wait...</span>");
}
//-->
</script>

<% Response.Flush() %>

<%
sql = "Select * From Phoneprice Order by phprice"
set rs = database.executequery(sql)
sql = "Select * From Plancommi WHERE ptype='My Style' Order By planid"
set rs1 = database.executequery(sql)
%>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><table width="100%" border="0" cellspacing="1" cellpadding="0">
<tr>
<td width="10%" class="header"><div
align="right"><b>Plan</b></div></td>
<td width="9%" class="header"><b>&nbsp;Matrix</b></td>
<td width="9%" bgcolor="#CFF2FE" class="topMenubig"> <div
align="center"><strong>My
Style 16</strong></div></td>
<td width="9%" bgcolor="#AEAEFF" class="topMenubig"> <div
align="center"><strong>My
Style 20</strong></div></td>
<td width="9%" bgcolor="#FFD9D7" class="topMenubig"> <div
align="center"><strong>My
Style 30</strong></div></td>
<td width="9%" bgcolor="#DBB7FF" class="topMenubig"> <div
align="center"><strong>My
Style 40</strong></div></td>
<td width="9%" bgcolor="#FAE2AD" class="topMenubig"> <div
align="center"><strong>My
Style 50</strong></div></td>
<td width="9%" bgcolor="#FECBFD" class="topMenubig"> <div
align="center"><strong>My
Style 70</strong></div></td>
<td width="9%" bgcolor="#BBFFBB" class="topMenubig"> <div
align="center"><strong>My
Style 90</strong></div></td>
<td width="9%" bgcolor="#BFDFFF" class="topMenubig"> <div
align="center"><strong>My
Style 150</strong></div></td>
<td width="9%" bgcolor="#D3D3A9" class="topMenubig"> <div
align="center"><strong>My
Style 200</strong></div></td>
</tr>
<tr><td colspan="12">&nbsp;</td></tr>
<%
while not rs.eof
Response.write "<tr>"
Response.write "<td height=24 bgcolor=#DFDFDF align=center
class=boxText>"&rs("phname")&"</td>"
Response.write "<td bgcolor=#DFDFDF align=center
class=boxText>"&rs("phmodel")&"</td>"
'Response.write "<td bgcolor=#DFDFDF align=center
class=boxText>"&FormatCurrency(rs("phprice"),2)&"</td>"
rs1.movefirst
cnt=1
while not rs1.eof
mystr = "tx_mar"&cnt
tmpSql = "Select * From IMEIBonus WHERE Phid="&rs("phid")&" AND
PlanId="&rs1("planid")
'Response.write tmpSql
'response.End()
set rs_imei = database.executequery(tmpSql)
If Not rs_imei.eof then
IMEIBonus = rs_imei("Bonus")
else
IMEIBonus = 0
End If
myno = (rs1("commission") + IMEIBonus) -
(rs("phprice")+Request.form(cstr(mystr)))
If myno >= 0 Then
Response.write "<td align=center bgcolor=#"&rs1("bgcol")&"
class=boxText>Free</td>"
Else
myno = Abs(myno)
Response.write "<td align=center bgcolor=#"&rs1("bgcol")&"
class=boxText>"&FormatCurrency(myno,0)&"</td>"
End If
set rs_imei = Nothing
rs1.movenext
cnt = cnt + 1
wend
rs.movenext
wend
%>
</table></td>
</tr>
</table>
<%
set rs= Nothing
set rs1 = Nothing
%>
<script>
<!--
if (document.all)
{
document.all("wxx").style.display = 'none';
}
//-->
</script>
</body>
</html>

can any one help me??
Thanx in advance
dave



Jul 22 '05 #4

P: n/a
I copied two files which i was using in include statement just to make sure
both side same code..
also tried with response.buffer = false..but got error msg saying
buffer must be on
dave

"Aaron [SQL Server MVP]" <te*****@dnartreb.noraa> wrote in message
news:BE4AB299.1ADE%te*****@dnartreb.noraa...
Could be buffering is enabled in one place and disabled in the other. Could be that your include files are different in the two places, and the ones
where it DOESN'T work set response.buffer = false (a stretch, I know, but
possible).

Tough to tell without being able to show us both environments.
On 3/1/05 11:48 PM, in article OT*************@TK2MSFTNGP10.phx.gbl, "dave" <fo****@foo.netREMOVE> wrote:
thanx for prompt reply
now it works on localhost but funny thing when i upload to web server..it doesnt work...
couldnt figure out whts going on
dave

"Aaron [SQL Server MVP]" <te*****@dnartreb.noraa> wrote in message
news:BE4AA9ED.1ACD%te*****@dnartreb.noraa...
(a) move the response.buffer line to BEFORE the <!--#include references.
(b) STOP NESTING RECORDSETS! STOP USING SELECT *! Use <th> instead of
<td..><strong> to reduce the weight of your HTML! Ugh, you will probably eliminate the need for a please wait message if you spend some time making this page more efficient. Please, please, please read
http://www.aspfaq.com/2424


On 3/1/05 10:13 PM, in article #v**************@tk2msftngp13.phx.gbl,

"dave"
<fo****@foo.netREMOVE> wrote:

Hi guys
I display one page in popup window...that fetches some data from sql and perfom some calculation (tht approx 10 secs) and display result....
I am trying to display "Please wait ..."message while its performing
calculation...
I'm using the below code...that i have got from following link
http://aspfaq.com/show.asp?id=2498

but somehow it doesnt work and displays nothing....it display only for a second before the actual result is displayed...

Below is my code snippet:

<%@LANGUAGE="VBSCRIPT"%>
<!-- #include file="common/constants.asp"--> 'tht containts sql
connection string
<!-- #include file="common/database.asp"--> ' contains one class to
perform to database and record set operation
<% Response.Buffer = True %>
<html>
<head>
<title>My Style - Plan Matrix</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> <link rel="stylesheet" href="common/m8extranet.css" type="text/css">
</head>
<style>
.boxText {font-family:Arial; font-size:9pt; color:222222;

font-weight:400;}

</style>
<body>
<script>
<!--
if (document.all)
{
document.write("<span id=wxx>Please");
document.write(" wait...</span>");
}
//-->
</script>

<% Response.Flush() %>

<%
sql = "Select * From Phoneprice Order by phprice"
set rs = database.executequery(sql)
sql = "Select * From Plancommi WHERE ptype='My Style' Order By planid"
set rs1 = database.executequery(sql)
%>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><table width="100%" border="0" cellspacing="1" cellpadding="0"> <tr>
<td width="10%" class="header"><div
align="right"><b>Plan</b></div></td>
<td width="9%" class="header"><b>&nbsp;Matrix</b></td>
<td width="9%" bgcolor="#CFF2FE" class="topMenubig"> <div
align="center"><strong>My
Style 16</strong></div></td>
<td width="9%" bgcolor="#AEAEFF" class="topMenubig"> <div
align="center"><strong>My
Style 20</strong></div></td>
<td width="9%" bgcolor="#FFD9D7" class="topMenubig"> <div
align="center"><strong>My
Style 30</strong></div></td>
<td width="9%" bgcolor="#DBB7FF" class="topMenubig"> <div
align="center"><strong>My
Style 40</strong></div></td>
<td width="9%" bgcolor="#FAE2AD" class="topMenubig"> <div
align="center"><strong>My
Style 50</strong></div></td>
<td width="9%" bgcolor="#FECBFD" class="topMenubig"> <div
align="center"><strong>My
Style 70</strong></div></td>
<td width="9%" bgcolor="#BBFFBB" class="topMenubig"> <div
align="center"><strong>My
Style 90</strong></div></td>
<td width="9%" bgcolor="#BFDFFF" class="topMenubig"> <div
align="center"><strong>My
Style 150</strong></div></td>
<td width="9%" bgcolor="#D3D3A9" class="topMenubig"> <div
align="center"><strong>My
Style 200</strong></div></td>
</tr>
<tr><td colspan="12">&nbsp;</td></tr>
<%
while not rs.eof
Response.write "<tr>"
Response.write "<td height=24 bgcolor=#DFDFDF align=center
class=boxText>"&rs("phname")&"</td>"
Response.write "<td bgcolor=#DFDFDF align=center
class=boxText>"&rs("phmodel")&"</td>"
'Response.write "<td bgcolor=#DFDFDF align=center
class=boxText>"&FormatCurrency(rs("phprice"),2)&"</td>"
rs1.movefirst
cnt=1
while not rs1.eof
mystr = "tx_mar"&cnt
tmpSql = "Select * From IMEIBonus WHERE Phid="&rs("phid")&" AND
PlanId="&rs1("planid")
'Response.write tmpSql
'response.End()
set rs_imei = database.executequery(tmpSql)
If Not rs_imei.eof then
IMEIBonus = rs_imei("Bonus")
else
IMEIBonus = 0
End If
myno = (rs1("commission") + IMEIBonus) -
(rs("phprice")+Request.form(cstr(mystr)))
If myno >= 0 Then
Response.write "<td align=center bgcolor=#"&rs1("bgcol")&"
class=boxText>Free</td>"
Else
myno = Abs(myno)
Response.write "<td align=center bgcolor=#"&rs1("bgcol")&"
class=boxText>"&FormatCurrency(myno,0)&"</td>"
End If
set rs_imei = Nothing
rs1.movenext
cnt = cnt + 1
wend
rs.movenext
wend
%>
</table></td>
</tr>
</table>
<%
set rs= Nothing
set rs1 = Nothing
%>
<script>
<!--
if (document.all)
{
document.all("wxx").style.display = 'none';
}
//-->
</script>
</body>
</html>

can any one help me??
Thanx in advance
dave


Jul 22 '05 #5

This discussion thread is closed

Replies have been disabled for this discussion.