Change from case to do all case.... - ASP / Active Server Pages

2 New Member

Hi I am new in ASP programming so I do use the very basic and simple way to do all my stuff. Now I do really got stuck at how can I loop thru the calculation for all my selection.. My full code is as below:-

Expand|Select|Wrap|Line Numbers

  <% 

tBegin = request("beginww") 

tEnd = request("endww") 

tYear = request("wwyear") 

%> 

<body> 
 
<form name= "frmsporttype" method="POST"> 

Year: <select name="wwyear" id="wwyear"> 

<%if tYear = "" then tYear = Year(date) 

for t = 2005 to tYear%> 

<option value="<%=t%>" <%if t = cint(tYear) then%>selected<%end if%>><%=t%></option> 

<%next%> 

</select> 

? 

Start Week: <select name="beginww" id="beginww"> 

<% if tBegin = "" then tBegin = 1 

for t = 1 to 53%> 

<option value="<%=t%>" <%if t = cint(tBegin) then%>selected<%end if%>><%=t%></option> 

<%next%> 

</select> 

? 

End Week: <select name="endww" id="endww"> 

<% if tEnd = "" then tEnd = 1 

for t = 1 to 53%> 

<option value="<%=t%>" <%if t = cint(tEnd) then%>selected<%end if%>><%=t%></option> 

<%next%> 

</select> 

? 

Sport Type: 

<select name="exercise" id="exercise"> 

<option Value="A">All Sport 

<option Value = "Golf">Golf 

<option Value = "Table">Table Tennis 

<option Value = "Tenis">Tennis 

<option Value = "Soccer">Soccer 

<option Value = "Basket">Basketball 

<option Value = "Bowling">Bowling 

<option value="<%=sporttype%>"Selected</option> 

</select> 
 
<INPUT TYPE="submit" runat="server" VALUE="Cal"></INPUT> 

</form> 
 
<% 

if Request.ServerVariables("REQUEST_METHOD") = "POST" then 

%> 

<table width="100%" align="center" bgcolor="#0d5692"> 

<tr> 

<td width="7%" align="center" bgcolor="#ffffff"><font face="verdana" size="2"><b>Sport</b></font></td> 

<td width="5%" align="center" bgcolor="#ffffff"><font face="verdana" size="2"><b>Average 

Hour Play</b></font></td> 

<td width="5%" align="center" bgcolor="#ffffff"><font face="verdana" size="2"><b>Average 

Day Play</b></font></td> 

<td width="7%" align="center" bgcolor="#ffffff"><font face="verdana" size="2"><b>Total 

Record</b></font></td> 

</tr> 
 
<% 

SET RS=CreateObject("ADODB.Recordset") 'create a recordset 

select case request ("exercise") 

case "A" 

sql="select hour, day from tblFiles where sport = '%' and workweek between " & tBegin & " and " & tEnd & " and Year = " & tYear & " Order by date DESC" 

Sportid= "All Sport" 

case "Golf" 

sql="select hour, day from tblFiles where sport Like '%Golf%' and workweek between " & tBegin & " and " & tEnd & " and Year = " & tYear & " Order by date DESC" 

Sportid= "Golf" 

case "Table" 

sql="select hour, day from tblFiles where sport Like '%Table' and workweek between " & tBegin & " and " & tEnd & " and Year = " & tYear & " Order by date DESC" 

Sportid= "Table Tennis" 

case "Tennis" 

sql="select hour, day from tblFiles where sport Like '%Tennis' and not like '%Table" and workweek between " & tBegin & " and " & tEnd & " and Year = " & tYear & " Order by date DESC" 

Sportid= "Tennis" 

case "Soccer" 

sql="select hour, day from tblFiles where sport Like '%Soccer' and workweek between " & tBegin & " and " & tEnd & " and Year = " & tYear & " Order by date DESC" 

Sportid= "Soccer" 

case "Basket" 

sql="select hour, day from tblFiles where sport Like '%Basket' and workweek between " & tBegin & " and " & tEnd & " and Year = " & tYear & " Order by date DESC" 

Sportid= "Basketball" 

case "Bowling" 

sql="select hour, day from tblFiles where sport Like '%Bowling' and workweek between " & tBegin & " and " & tEnd & " and Year = " & tYear & " Order by date DESC" 

Sportid= "Bowling" 

End select 

RS.Open sql,conn,1,2 

sMsg = " No Data Within The WorkWeek you Select Please Select Others WorkWeek." 

if rs.recordcount < 1 Then 

response.write (sMsg) 

else 

if rs.recordcount >= 30 then 

SET RS=CreateObject("ADODB.Recordset") 'create a recordset 

select case request ("exercise") 

case "A" 

sql="select hour, day from tblFiles where sport = '%' and workweek between " & tBegin & " and " & tEnd & " and Year = " & tYear & " Order by date DESC" 

Sportid= "All Sport" 

case "Golf" 

sql="select hour, day from tblFiles where sport Like '%Golf%' and workweek between " & tBegin & " and " & tEnd & " and Year = " & tYear & " Order by date DESC" 

Sportid= "Golf" 

case "Table" 

sql="select hour, day from tblFiles where sport Like '%Table' and workweek between " & tBegin & " and " & tEnd & " and Year = " & tYear & " Order by date DESC" 

Sportid= "Table Tennis" 

case "Tennis" 

sql="select hour, day from tblFiles where sport Like '%Tennis' and not like '%Table" and workweek between " & tBegin & " and " & tEnd & " and Year = " & tYear & " Order by date DESC" 

Sportid= "Tennis" 

case "Soccer" 

sql="select hour, day from tblFiles where sport Like '%Soccer' and workweek between " & tBegin & " and " & tEnd & " and Year = " & tYear & " Order by date DESC" 

Sportid= "Soccer" 

case "Basket" 

sql="select hour, day from tblFiles where sport Like '%Basket' and workweek between " & tBegin & " and " & tEnd & " and Year = " & tYear & " Order by date DESC" 

Sportid= "Basketball" 

case "Bowling" 

sql="select hour, day from tblFiles where sport Like '%Bowling' and workweek between " & tBegin & " and " & tEnd & " and Year = " & tYear & " Order by date DESC" 

Sportid= "Bowling" 

End select 
 
Else 
 
SET RS=CreateObject("ADODB.Recordset") 'create a recordset 

select case request ("exercise") 

case "A" 

sql="select hour, day from tblFiles where sport = '%' and workweek <= " & tEnd & " and Year = " & tYear & " Order by date DESC" 

Sportid= "All Sport" 

case "Golf" 

sql="select hour, day from tblFiles where sport Like '%Golf%' and workweek <= " & tEnd & " and Year = " & tYear & " Order by date DESC" 

Sportid= "Golf" 

case "Table" 

sql="select hour, day from tblFiles where sport Like '%Table' and workweek <= " & tEnd & " and Year = " & tYear & " Order by date DESC" 

Sportid= "Table Tennis" 

case "Tennis" 

sql="select hour, day from tblFiles where sport Like '%Tennis' and not like '%Tableand workweek <= " & tEnd & " and Year = " & tYear & " Order by date DESC" 

Sportid= "Tennis" 

case "Soccer" 

sql="select hour, day from tblFiles where sport Like '%Soccer' and workweek <= " & tEnd & " and Year = " & tYear & " Order by date DESC" 

Sportid= "Soccer" 

case "Basket" 

sql="select hour, day from tblFiles where sport Like '%Basket' and workweek <= " & tEnd & " and Year = " & tYear & " Order by date DESC" 

Sportid= "Basketball" 

case "Bowling" 

sql="select hour, day from tblFiles where sport Like '%Bowling' and workweek <= " & tEnd & " and Year = " & tYear & " Order by date DESC" 

Sportid= "Bowling" 

End select 
 
end if 

Rs.open sql,conn,1,2 

tday=0 

thour=0 

count=0 

Do until rs.eof 

Hour = RS("hour") 

Day = rs("day") 

count = count + 1 

tday= tday + day 

dayave= tday/ count 

thour= thour + hour 

hourave= thour/ count 
 
rs.movenext 

Loop%> 
 
<tr> 

<Td width="7%" bgcolor="#f1f1f1" align="center"><font face="verdana" size="2"><%=Sportid%></font></Td> 
 
<Td width="7%" bgcolor="#f1f1f1" align="center"><font face="verdana" size="2"><%=FormatNumber(dayavg,2)%></font></Td> 
 
<Td width="7%" bgcolor="#f1f1f1" align="center"><font face="verdana" size="2"><%=FormatNumber(houravg,2)%></font></Td> 
 
</tr> 
 
end if%> 

</table> 

</body>

Above is all my code, as now I can only getting the data base on what I select, how can I getting all data in one table that I want in one click?Help and solution are appreciated.
Tks

Aug 10 '05 #1

Subscribe Reply

3190

Niheel

2,456

Recognized Expert Moderator Top Contributor

are you asking how to display all the data/records from the table?

Aug 11 '05 #2

cs168

New Member

are you asking how to display all the data/records from the table?

Hi tks for helping, My code is now go by case base on the user selection, What I want is how can I run all the case in one click..
Below is my case select code:-
SET RS=CreateObject("ADODB.Recordset") 'create a recordset
select case request ("pkgtype")
case "P"
sql="select Avg1, Range1, PkgType from tblFiles where Pkgtype Not Like '%G%' and workweek between " & tBegin & " and " & tEnd & " and Year = " & tYear & " Order by workweek DESC"
Pkgid= "All Sn/Pb Pkg"
case "G"
sql="select Avg1, Range1, PkgType from tblFiles where Pkgtype Like '%G%' and workweek between " & tBegin & " and " & tEnd & " and Year = " & tYear & " Order by workweek DESC"
Pkgid= "All Green Pkg"
case "208"
sql="select Avg1, Range1, PkgType from tblFiles where Pkgtype Like '%208' and Pkgtype Not Like '%G208' and workweek between " & tBegin & " and " & tEnd & " and Year = " & tYear & " Order by workweek DESC"
Pkgid= "PQFP 208"
end select

How can I run all case in one click?

Aug 12 '05 #3

Similar topics

15188

Printer Devicename - Can Change to Upper Case?

by: kchengso | last post by:

One of my printers in my printer.devicename call returns in lower case. Is it possible for me to change it to upper case? I am also wondering how, in the first place, this particular printer...

Visual Basic 4 / 5 / 6

1844

the ability to change an image through an pointer of dropdown

by: Nick Calladine | last post by:

Is this possible to ... I wish to get the value of a dropdown select but gets is indexable value (dont know if that is the right term) if that is possible (the position it assigned get assigned...

Javascript

2385

Anyway to change the "style" of an existing form??

by: Richard Holliingsworth | last post by:

Hello: The group has new 'standards' for online forms and I need to change the 'style' of my existing forms (A2002). Can I do this? I can't find a way using the GUI or the properties. ...

Microsoft Access / VBA

2390

Whats the easiest way to allow a user to change password in an A97 app?

by: MLH | last post by:

What's the simplest way to allow a user of an A97 app to change password?

Microsoft Access / VBA

2013

Change Hyperlink style dynamically

by: Imran Aziz | last post by:

Hello All, I want to change the size of my hyper lnks in a repeater control dynamially using the onItemBound event, as under, but cannot seem to understand how to alter the properties to do...

ASP.NET

5134

who can add users and change passwords?

by: Jan | last post by:

Hi: I have created a secured database for a client. For various reasons, I don't want the client to have full persmissions for the database; they aren't in the admins group. I have instead tried...

Microsoft Access / VBA

6038

Change Connection String during runtime

by: Sankalp | last post by:

Hi, I am using VB 2005. My application has many data bound controls. The connection is stored in the app.config file. I want the application to start with a default connection string and while...

Visual Basic .NET

1943

Change text case

by: Denis | last post by:

How can you get the contents of a text box to change after for click out of it. Eg I have a text box on a form called Ownername. If some one enters a name in lower case that it automatically...

Microsoft Access / VBA

130

3229

FAQ says no attachments - time to change ?

by: Gianni Mariani | last post by:

Attached example CPP files makes it easier to post code and extract code from posts. It's unimaginable at this time where virtually any news reader is capable of dealing with attachments to stick...

C / C++

6663

C/C++ language proposal: Change the 'case expression' from "integral constant-expression" to "integral expression"

by: Adem | last post by:

C/C++ language proposal: Change the 'case expression' from "integral constant-expression" to "integral expression" The C++ Standard (ISO/IEC 14882, Second edition, 2003-10-15) says under...

C / C++

7393

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

7058

The easy way to turn off automatic updates for Windows 10/11

by: Hystou | last post by:

Overview: Windows 11 and 10 have less user interface control over operating system update behaviour than previous versions of Windows. In Windows 11 and 10, there is no way to turn off the Windows...

Windows Server

7502

Discussion: How does Zigbee compare with other wireless protocols in smart home applications?

by: tracyyun | last post by:

Dear forum friends, With the development of smart home technology, a variety of wireless communication protocols have appeared on the market, such as Zigbee, Z-Wave, Wi-Fi, Bluetooth, etc. Each...

General

5635

AI Job Threat for Devs

by: agi2029 | last post by:

Let's talk about the concept of autonomous AI software engineers and no-code agents. These AIs are designed to manage the entire lifecycle of a software development project—planning, coding, testing,...

Career Advice

5057

Access Europe - Using VBA to create a class based on a table - Wed 1 May

by: isladogs | last post by:

The next Access Europe User Group meeting will be on Wednesday 1 May 2024 starting at 18:00 UK time (6PM UTC+1) and finishing by 19:30 (7.30PM). In this session, we are pleased to welcome a new...

Microsoft Access / VBA

3206

Trying to create a lan-to-lan vpn between two differents networks

by: TSSRALBI | last post by:

Hello I'm a network technician in training and I need your help. I am currently learning how to create and manage the different types of VPNs and I have a question about LAN-to-LAN VPNs. The...

Networking - Hardware / Configuration

3191

Windows Forms - .Net 8.0

by: adsilva | last post by:

A Windows Forms form does not have the event Unload, like VB6. What one acts like?

Visual Basic .NET

769

How to add payments to a PHP MySQL app.

by: muto222 | last post by:

How can i add a mobile payment intergratation into php mysql website.

PHP

426

Comprehensive Guide to Website Development in Toronto: Expert Insights from BSMN Consultancy

by: bsmnconsultancy | last post by:

In today's digital era, a well-designed website is crucial for businesses looking to succeed. Whether you're a small business owner or a large corporation in Toronto, having a strong online presence...

General