Need help with IF in HTML/ASP

A. GRebstad · August 29th, 2003, 05:29 AM

I have designed a webpage using FORM to print out all fields in a table fra my Access database. I need to manipulate the HTML code according to the value of certain fields in my table, ie. I have an Option-box which contains 3 values. If value1 then display a new fieldA, if value2 then display a new fieldB, if value3 then I don't need to dislay any new fields. As you can see I need the IF .. THEN procedure to be mutually exclusive, but I haven't managed to do this.
Here's an example of my code:
(Lets assume that the "Ownership" field below is a select option-box with 3 different values: own, rent, free)

<TR>
<TD>Ownership: </TD>
<TD>
  <INPUT TYPE="Text"
   NAME="payment"
   VALUE="<% Response.Write Rs1("[ownership]") >"
   SIZE="20">
</TD>
</TR>

<%
  If Rs1("[ownership]") = "Own" Then ... [Print out "Cost:" field below]
  If Rs1("[ownership]") = "Rent" Then ... [Print out "Owners name:" field below]
  If Rs1("[ownership]") = "Free" Then ... [Nothing]
%>

<TR>
<TD>Cost: </TD>
<TD>
  <INPUT TYPE="Text"
   NAME="cost"
   VALUE="<% Response.Write Rs1("[cost]") %>"
   SIZE="20">
</TD>
</TR>

<TR>
<TD>Owners name: </TD>
<TD>
  <INPUT TYPE="Text"
   NAME="owner"
   VALUE="<% Response.Write Rs1("[ownername]") %>"
   SIZE="20">
</TD>
</TR>

How do I write my IF sentences so that this will work as I want it to.

Thanks for your help!

A. GRebstad

pgtips · August 29th, 2003, 05:39 AM

Code:

<% 
  Select Case UCase(Rs1("[ownership]"))
    Case "OWN"
%>

<TR>
 <TD>Cost: </TD>
 <TD>
  <INPUT TYPE="Text" 
   NAME="cost" 
   VALUE="<%=Rs1("[cost]") %>"
   SIZE="20">
 </TD>
</TR>  
<% Case "RENT" %>
<TR>
 <TD>Owners name: </TD>
 <TD>
  <INPUT TYPE="Text" 
   NAME="owner" 
   VALUE="<%=Rs1("[ownername]") %>"
   SIZE="20">
 </TD>
</TR>
<% Case Else
      ' do nothing
   End Select %>

A. GRebstad · August 29th, 2003, 06:04 AM

Your code looks fine, but I get the following error:
---

Microsoft VBScript compilation error '800a0408'

Ugyldig tegn (translated to English: Illegal symbol?)

/test/database/updatetable.asp, line 148

Case "OWN"
^

---

What could be wrong ?

Thanks for your help by the way!

pgtips · August 29th, 2003, 06:40 AM

Hmm interesting! There's nothing wrong with that syntax. Are you sure there's not some duff syntax just before it? The line numbers for syntax errors can be unreliable.

A. GRebstad · August 29th, 2003, 06:42 AM

Ahh.. Nevermind my previous post, I've managed to get it working now.

BUT, the select statements does -not- work.

The only fields that are displayed using your method is whatever is in the last

<% Case Else
' do nothing
End Select %>

which is nothing..

I'm still stuck.

A. GRebstad · August 29th, 2003, 06:51 AM

I don't know if I should laugh or cry, sorry to bother you with all these questions, but it's funny that right after I post my questions, I manage to get it working myself. Thanks to your code, it was nothing wrong with that - My first error was because of some "duff-string" as you called it, because I copied the code from this forum and right into my Frontpage. The last error was simply due to me overlooking your Ucase, and subsequently using lowercase in my Case.

Thanks, it's all looking very neat now! :)

spraveens · September 3rd, 2003, 05:36 AM

Hi
If I execute a query "select * from customerinfo where name= 'steve' " and if there are no queries matching the criteria , then I would like to have a "no records available " message displayed. How do I do It?

thank You

kilika · September 3rd, 2003, 01:09 PM

when you load it into a recordset (example: rs) then after you open it or fill it with a conn.execute(SQL) simply check it for the end of file:

Code:

If Not rs.EOF Then
   'do what you want with records
else
   'Show "No Messages" text
end if

...edited the code tag...
Chris