Hello,
Can anybody see what I wrong with this page ?
When I open it it creates a connection, but then I close it in the code, when I click on a building it opens up another page with more details.
however, if I look in my SQL Server connections the first page isn't closing ?
<HTML>
<BODY>
<p align="center"><b><font size="+2"> View Buildings </font></b></p>
<%
Dim SearchTextbuilding, MyConnbuilding, SQLbuilding, RSbuilding
Set MyConnbuilding=Server.CreateObject("ADODB.Connection"
MyConnbuilding.Open "personnel","personnel","personnel"
SQLbuilding = "Select BuildingID, Building From tblBuilding Order by Building"
Set RSbuilding = MyConnbuilding.Execute(SQLbuilding)
%>
<%Dim Count
Count = 1%>
<CENTER>
Please choose a Building :
<FORM METHOD="POST" name="selectbuilding" ACTION="./showselectedbuilding.asp">
<Select size="12" name = "buildingID">
<option selected>--Select Building--
<% While Not RSbuilding.EOF
if count = 1 then %>
<option style="color:red" value="<%=RSbuilding("BuildingID"%>">
<%count = 2
else %>
<option style="color:blue" value="<%=RSbuilding("BuildingID"%>">
<%count = 1
end if %>
<%=RSbuilding.Fields("Building"%>
<%
RSbuilding.MoveNext
Wend
%>
</select>
<%
RSbuilding.Close
MyConnbuilding.Close
Set RSbuilding = Nothing
Set MyConnbuilding = Nothing
%>
<BR>
<BR>
<input type="button" onClick="SubmitForm('showselectedbuilding.asp');" value="View Building">
<input type="button" onClick="SubmitForm('printselectedbuilding.asp');" value="Print Building">
</form>
</font></p></CENTER>
</form>
</td>
</tr>
</table>
</center></div>
</body></html>
thanks in advance.
Can anybody see what I wrong with this page ?
When I open it it creates a connection, but then I close it in the code, when I click on a building it opens up another page with more details.
however, if I look in my SQL Server connections the first page isn't closing ?
<HTML>
<BODY>
<p align="center"><b><font size="+2"> View Buildings </font></b></p>
<%
Dim SearchTextbuilding, MyConnbuilding, SQLbuilding, RSbuilding
Set MyConnbuilding=Server.CreateObject("ADODB.Connection"
MyConnbuilding.Open "personnel","personnel","personnel"
SQLbuilding = "Select BuildingID, Building From tblBuilding Order by Building"
Set RSbuilding = MyConnbuilding.Execute(SQLbuilding)
%>
<%Dim Count
Count = 1%>
<CENTER>
Please choose a Building :
<FORM METHOD="POST" name="selectbuilding" ACTION="./showselectedbuilding.asp">
<Select size="12" name = "buildingID">
<option selected>--Select Building--
<% While Not RSbuilding.EOF
if count = 1 then %>
<option style="color:red" value="<%=RSbuilding("BuildingID"
%>"> <%count = 2
else %>
<option style="color:blue" value="<%=RSbuilding("BuildingID"
%>"> <%count = 1
end if %>
<%=RSbuilding.Fields("Building"
%><%
RSbuilding.MoveNext
Wend
%>
</select>
<%
RSbuilding.Close
MyConnbuilding.Close
Set RSbuilding = Nothing
Set MyConnbuilding = Nothing
%>
<BR>
<BR>
<input type="button" onClick="SubmitForm('showselectedbuilding.asp');" value="View Building">
<input type="button" onClick="SubmitForm('printselectedbuilding.asp');" value="Print Building">
</form>
</font></p></CENTER>
</form>
</td>
</tr>
</table>
</center></div>
</body></html>
thanks in advance.
