Classic ASP Discussion - ASP Combo Box

ASP Combo Box

Printed From: Web Wiz Forums
Category: General Discussion
Forum Name: Classic ASP Discussion
Forum Description: Discussion on Active Server Pages (Classic ASP).
URL: https://forums.webwiz.net/forum_posts.asp?TID=12837
Printed Date: 30 March 2026 at 11:05pm
Software Version: Web Wiz Forums 12.08 - https://www.webwizforums.com

Topic: ASP Combo Box

Posted By: KenW
Subject: ASP Combo Box
Date Posted: 05 December 2004 at 1:26pm

I have a form which populates a combo box from an access 2000 database see code below.

It works fine with no problems however I would like to insert some code which would redirect the user if the database is empty.

I have tried the following code

If lstviewpages = "" Then Response.Redirect "pages_index.asp?select=ID No Messages"

in various places but even when the database is full it still redirects the user.

any help would be most welcome

Regards

Ken

<form method="get" action="Ken_view.asp"><p>
<%
Dim objPagesview, lstviewpages
Set objPagesview = Server.CreateObject("ADODB.Recordset")
objPagesview.ActiveConnection = DSNtemp
objPagesview.Open "tblKen"
objPagesview.movefirst
%>
<select class="smltext" name="lstviewpages" size="1">
<%
Do while not objPagesview.EOF
response.write "<option value='" & objPagesview("delID") & "'>"
response.write objPagesview("MessageTitle") & "</option>"
objPagesview.movenext
loop
objPagesview.close
set objPagesview=nothing
%>
</select></p><BR>
<p><input type="submit" class="smltext" style="width: 10em; height: 2.2em; margin: 0 0 3 0" VALUE="View Message"></p>
</form>

-------------
Ken Home User enjoys ASP as a hobby

Replies:

Posted By: Gullanian
Date Posted: 05 December 2004 at 1:29pm

Right after:

objPagesview.Open "tblKen"

Do:

If objPagesview.EOF then
'Close all your objects here
'Redirect user
End if

Posted By: KenW
Date Posted: 05 December 2004 at 4:11pm

Gullanian
I tried out your code but it just keeps asking me for a loop serveral hundred lines down the page?

This is the code I used am I missing something?

(The inserted code is in red)

Regards

Ken

<table width="75%" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td align="center" class="text">Please select a Message to View / Print.</td>
</tr>
<tr>
<td align="center" class="text">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</td>
</tr>
<tr>

Posted By: KenW
Date Posted: 07 December 2004 at 5:02pm

Gullanian

I now have it working I took a different approach the inserted code is in red. Thanks for your help.

Regards

Ken

<form method="get" action="Ken_print.asp"><p>
<%
Dim objPagesview, lstviewpages
Set objPagesview = Server.CreateObject("ADODB.Recordset")
objPagesview.ActiveConnection = DSNtemp
objPagesview.Open "tblKen"
IF objPagesview.EOF THEN

Response.Write "<table width=""80%"" align=""center"" border=""0"">"%>
<tr>
<td align="center" class="text">There are no messages in your Inbox.</td></tr>
<tr><td align="center">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</td></tr>
<tr><td align="center" class="text">Please try again later.</td></tr>
<tr><td align="center">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</td></tr>
<% Response.Write "</table>"
ELSE

objPagesview.movefirst
%>
<select class="smltext" name="lstmainpage" size="1">
<%
Do while not objPagesview.EOF
response.write "<option value='" & objPagesview("delID") & "'>"
response.write objPagesview("MessageTitle") & "</option>"
objPagesview.movenext
loop
objPagesview.close
set objPagesview=nothing
%>
</select></p>
<p><input type="submit" class="smltext" style="width: 12em; height: 2.2em; margin: 0 0 3 0" VALUE="Read / Print Message"></p>
</form>
</td>
</tr>
</table>

-------------
Ken Home User enjoys ASP as a hobby