Change from case to do all case....

cs168

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

KUB365

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

cs168

Quote:

Originally Posted by KUB365

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?

Change from case to do all case....

re: Change from case to do all case....

re: Change from case to do all case....

Similar ASP / Active Server Pages bytes

/bytes/development

/bytes/it

/bytes/about