Visual Basic Programming
 
Forums: » Register « |  User CP |  Games |  Calendar |  Members |  FAQs |  Sitemap |  Support | 
 
 
User Name:
Password:
Remember me
Go Back   ASP Free ForumsProgrammingVisual Basic Programming

Reply
Add This Thread To:
  Del.icio.us   Digg   Google   Spurl   Blink   Furl   Simpy   Y! MyWeb 
Thread Tools Search this Thread Rate Thread Display Modes
 
Unread ASP Free Forums Sponsor:
SlickEdit: Code in over 40 languages across 7 platforms. SlickEdit’s unmatched power, speed, and flexibility allows even the most accomplished developers to write better code faster. Download a free trial today!
  #1  
Old February 15th, 2004, 02:11 AM
GenkiDave's Avatar
GenkiDave GenkiDave is offline
Contributing User
ASP Free Newbie (0 - 499 posts)
 
Join Date: Jan 2004
Location: Canada
Posts: 60 GenkiDave User rank is Just a Lowly Private (1 - 20 Reputation Level) 
Time spent in forums: < 1 sec
Reputation Power: 5
Radio Button Search Form

Can someone please tell me what is wrong with this code? I keep getting an: Expeted 'Then' Error.

//////////////////////////////////////////////////////////////////


<FORM NAME="frmLNsearch" ACTION="results.asp" METHOD="GET">

<TABLE BORDER=1 bordercolorlight="#FF0000" cellspacing="0" cellpadding="0" bordercolordark="#FF0000" background="images/back.jpg" style="border-collapse: collapse" bordercolor="#111111">
<TR>
<TH COLSPAN=2><font face="Verdana" size="2" color="#FFFFFF">Search For Actor or Director</font></TH>
</TR>
<TR>
<TD COLSPAN=2 ALIGN=CENTER>
<INPUT NAME="txtLNsearch" VALUE=" Enter Last Name Here" onFocus='this.value=""' size="29">&nbsp; <INPUT TYPE="SUBMIT" NAME=btnSearch" VALUE="Search"></TD>
</TR>
<TR>
<TD><font face="Verdana" size="2" color="#FFFFFF">Actor's Last Name</font><font face="Verdana" color="#FFFFFF"><INPUT TYPE="RADIO" NAME="rdoLname" VALUE="alname"></font></TD>
<TD><font face="Verdana" size="2" color="#FFFFFF">Director's Last Name</font><font face="Verdana" color="#FFFFFF"><INPUT TYPE="RADIO" NAME="rdoLname"VALUE="dlname"></font></TD>
</TR>

</TABLE>
</FORM>

<%
Dim frmLNsearch

If frmLNsearch.txtLNsearch Value="alname" Then

sql="SELECT tblActors.fldAFname, tblActors.fldALname, tblMovies.fldMovieName, tblGenres.fldGenre, tblMovies.fldNotes FROM (tblGenres INNER JOIN tblMovies ON tblGenres.fldGenreID = tblMovies.fldGenreID) INNER JOIN (tblActors INNER JOIN tblMovieActor ON tblActors.fldActorID = tblMovieActor.fldActorID) ON tblMovies.fldMovieID = tblMovieActor.fldMovieID ORDER ASC"

ElseIf frmLNsearch.txtLNsearch Valu ="dlname" Then

sql="SELECT tblDirectors.fldDLname, tblDirectors.fldDFname, tblMovies.fldMovieName, tblMovies.fldYear, tblGenres.fldGenre, tblMovies.fldNotes FROM (tblGenres INNER JOIN tblMovies ON tblGenres.fldGenreID = tblMovies.fldGenreID) INNER JOIN (tblDirectors INNER JOIN tblMovieDirector ON tblDirectors.fldDirectorID = tblMovieDirector.fldDirectorID) ON tblMovies.fldMovieID = tblMovieDirector.fldMovieID ORDER ASC"

Else

Msg="Please Choose Which Last Name You Would Like To Search For. ACtor or Director"

EndIf

EndIf
%>

Reply With Quote
  #2  
Old February 15th, 2004, 09:23 AM
Doug G Doug G is offline
Grumpier Old Moderator
ASP Free God 11th Plane (10000 - 10499 posts)
 
Join Date: Sep 2003
Posts: 10,143 Doug G User rank is First Lieutenant (10000 - 20000 Reputation Level)Doug G User rank is First Lieutenant (10000 - 20000 Reputation Level)Doug G User rank is First Lieutenant (10000 - 20000 Reputation Level)Doug G User rank is First Lieutenant (10000 - 20000 Reputation Level)Doug G User rank is First Lieutenant (10000 - 20000 Reputation Level)Doug G User rank is First Lieutenant (10000 - 20000 Reputation Level)Doug G User rank is First Lieutenant (10000 - 20000 Reputation Level)Doug G User rank is First Lieutenant (10000 - 20000 Reputation Level) 
Time spent in forums: 3 Weeks 4 Days 18 h 33 m 48 sec
Reputation Power: 180
Looks like you have an extra endif
__________________
======
Doug G
======
I didn't attend the funeral, but I sent a nice letter saying I approved of it. --Mark Twain

Reply With Quote
  #3  
Old April 2nd, 2004, 07:35 PM
ladytech ladytech is offline
Registered User
ASP Free Newbie (0 - 499 posts)
 
Join Date: Apr 2004
Location: New Jersey, USA
Posts: 1 ladytech User rank is Just a Lowly Private (1 - 20 Reputation Level) 
Time spent in forums: < 1 sec
Reputation Power: 0
Send a message via Yahoo to ladytech
Possible Typo

seem like you might also have a typo, shouldn't Valu be Value

ElseIf frmLNsearch.txtLNsearch Valu ="dlname" Then

Reply With Quote
  #4  
Old April 2nd, 2004, 09:18 PM
GenkiDave's Avatar
GenkiDave GenkiDave is offline
Contributing User
ASP Free Newbie (0 - 499 posts)
 
Join Date: Jan 2004
Location: Canada
Posts: 60 GenkiDave User rank is Just a Lowly Private (1 - 20 Reputation Level) 
Time spent in forums: < 1 sec
Reputation Power: 5
Quote:
Originally Posted by Doug G
Looks like you have an extra endif


Where?

There is an If and ElseIf
__________________
Genki Dave

Reply With Quote
  #5  
Old April 2nd, 2004, 09:25 PM
GenkiDave's Avatar
GenkiDave GenkiDave is offline
Contributing User
ASP Free Newbie (0 - 499 posts)
 
Join Date: Jan 2004
Location: Canada
Posts: 60 GenkiDave User rank is Just a Lowly Private (1 - 20 Reputation Level) 
Time spent in forums: < 1 sec
Reputation Power: 5
Wait a second! That radio button search isn't even mine!

I never even thought of using a radio button search form, but someone is using my nick to submit it.

How did that happen???


Reply With Quote
Reply

Viewing: ASP Free ForumsProgrammingVisual Basic Programming > Radio Button Search Form


Thread Tools  Search this Thread 
Search this Thread:

Advanced Search
Display Modes  Rate This Thread 
Rate This Thread:


Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

vB code is On
Smilies are On
[IMG] code is On
HTML code is Off
View Your Warnings | New Posts | Latest News | Latest Threads | Shoutbox
Forum Jump


Forums: » Register « |  User CP |  Games |  Calendar |  Members |  FAQs |  Sitemap |  Support | 
  
 





© 2003-2008 by Developer Shed. All rights reserved. DS Cluster 3 hosted by Hostway