06-10-06 06:21 PM
Heres the whole page ... TIA, PW.
<!-- #include file=aaa_Settings.asp -->
<html>
<head>
<script language="JavaScript" src="scripts\datetimepicker.js"></script>
</head>
<body bgcolor="<%=Session("SystemColourBgStd")%>">
<!-- #include file=aaa_Heading.asp -->
<b>Enter the full details, then press the Ok button</b>
<p>
<form ID="myform" NAME="myform" method="GET" action="AddTask2.asp">
<table width=100% bgcolor="<%=Session("SystemColourBgStd")%>"
style="font-size:<%=Session("SystemFontSizeStd")%>;color:<%=Session("SystemF
ontColourStd")%>;font-family:<%=Session("SystemFontFaceStd")%>">
<tr>
<td>
<b>
Date:
</b>
</td>
<td>
<%
myDate = day(Date()) & "-" & month(Date()) & "-" & year(Date())
%>
<input type="Text" id="txtDateFrom" name="txtCommDate"
value="<%=myDate%>" maxlength="10" size="10"><a
href=" javascript:NewCal('txtDateFrom','ddmmyyy
y',false,24)"><img
src="treeview/treeicons/icons/ocalendar.gif" border="0" alt="Pick a
date"></a>
</td>
</tr>
<tr>
<td>
<b>
<%
if Session("SystemActivity1") = "" then
response.write "Activity 1:"
else
response.write Session("SystemActivity1") & ":"
end if
%>
</b>
</td>
<td>
<%
mySQL = "Select Activity from Activity1 where ActiveFlag = TRUE order
by Activity"
rs5.open mySQL,myDSN
%>
<select name="lbActivity1" size="1">
<option></option>
<%
Do While Not rs5.EOF
response.write "<option>"
response.write rs5("Activity")
response.write "</option>"
rs5.MoveNext
Loop
%>
</select>
<%
rs5.Close
Set rs5 = Nothing
%>
</td>
</tr>
<tr>
<td>
<b>
<%
if Session("SystemActivity2") = "" then
response.write "Activity 2:"
else
response.write Session("SystemActivity2") & ":"
end if
%>
</b>
</td>
<td>
<%
mySQL = "Select Activity from Activity2 where ActiveFlag = TRUE order
by Activity"
rs3.open mySQL,myDSN
%>
<select name="lbActivity2" size="1">
<option></option>
<%
Do While Not rs3.EOF
response.write "<option>"
response.write rs3("Activity")
response.write "</option>"
rs3.MoveNext
Loop
%>
</select>
<%
rs3.Close
Set rs3 = Nothing
%>
</td>
</tr>
<tr>
<td>
<b>
<%
if Session("SystemActivity3") = "" then
response.write "Activity 3:"
else
response.write Session("SystemActivity3") & ":"
end if
%>
</b>
</td>
<td>
<%
mySQL = "Select Activity from Activity3 where ActiveFlag = TRUE order
by Activity"
rs2.open mySQL,myDSN
%>
<select name="lbActivity3" size="1">
<option></option>
<%
Do While Not rs2.EOF
response.write "<option>"
response.write rs2("Activity")
response.write "</option>"
rs2.MoveNext
Loop
%>
</select>
<%
rs2.Close
Set rs2 = Nothing
%>
</td>
</tr>
<tr>
<td>
<b>
<%
if Session("SystemActivity4") = "" then
response.write "Activity 4:"
else
response.write Session("SystemActivity4") & ":"
end if
%>
</b>
</td>
<td>
<%
mySQL = "Select Activity from Activity4 where ActiveFlag = TRUE order
by Activity"
rs6.open mySQL,myDSN
%>
<select name="lbActivity4" size="1">
<option></option>
<%
Do While Not rs6.EOF
response.write "<option>"
response.write rs6("Activity")
response.write "</option>"
rs6.MoveNext
Loop
response.write "</select>"
rs6.Close
Set rs6 = Nothing
%>
</td>
</tr>
<tr>
<td>
<b>
Hours:
</b>
</td>
<td>
<input type=text name="txtHours" size=10>
</td>
</tr>
<tr>
<td valign=top>
<b>
Description:
</b>
</td>
<td>
<textarea rows="5" cols="50" Name="txtDescription"></textarea>
</td>
</tr>
</table>
<!-- #include file=inc_Buttons.asp -->
</form>
</body>
</html>
[ Post a follow-up to this message ]
| 
> ASP is a serverside platform for coding in computer languages
> like vbs or js and doesn't even know browsers exist.
>
> You will have to ask in a clientside NG.
OTOH, he may have Response.Buffer = False or a Response.Flush and some
asp code still running in a loop. Without showing us any code, it's
all a guess at the moment.
--
Mike Brind
