29. april 2005 - 15:20
#1
Et foreslag kunne være at lave i asp en nested select case
----
<%
under = request.form("under")
over= request.form("over")
Select Case under
Case 65,66,67
Select Case over
Case 77,78
response.write("65 A")
Case 79,80
response.write("65 B")
Case 81,82
response.write("65 C")
Case 83,84
response.write("65 D")
Case 85,86
response.write("65 E")
Case 87,88
response.write("65 F")
Case 89,90
response.write("65 G")
Case 91,92
response.write("65 H")
Case Else response.write("over mål er forkert")
End Select
Case 68,69,70,71,72
Case 73,74,75,76,77
Case 78,79,80,81,82
Case 83,84,85,86,87
Case 88,89,90,91
Case 92,93,94,95,96,97
Case 98,99,100,101,102
Case Else
Response.Write("under mål er forkert")
End Select
%>
---
hvor de blanke selvfølgelig skal udfyldes tilsvarende for de resterende størrelser
29. april 2005 - 15:23
#2
Det eneste det så kræver er at du laver en form
----
<form action="denne_side.asp" method="post">
<input type="text" name="under">
<input type="text" name="over">
<input type="submit" name="findBH" value="Find BH">
</form>
<%
if request.form("findBH") <> "" then
// Og så den ovenstående kode her
29. april 2005 - 15:32
#3
Jeg håber du kan følge analogien i det
Altså først finde ud af under målet...dernæst tilsvarende over mål..
Ellers spørger du bare :o)
For resten så er request.form("under") og request.form("over") jo nok ikke tal men tekst
Så de skal nok konverteres først og så bliver det også mere overskueligt når de er det
---
<%
under = CInt(request.form("under"))
over= CInt(request.form("over"))
Select Case under
Case 65 To 67
Select Case over
Case 77,78
response.write("65 A")
Case 79,80
response.write("65 B")
Case 81,82
response.write("65 C")
Case 83,84
response.write("65 D")
Case 85,86
response.write("65 E")
Case 87,88
response.write("65 F")
Case 89,90
response.write("65 G")
Case 91,92
response.write("65 H")
Case Else response.write("over mål er forkert")
End Select
Case 68 To 72
Case 73 To 77
Case 78 To 82
Case 83 To 87
Case 88 To 91
Case 92 To 97
Case 98 To 102
Case Else
Response.Write("under mål er forkert")
End Select
%>
Hejsa
Sorry jeg ikke har svaret endnu...
Tusinde tak for hjælpen.
Jeg får desværre en lille fejl:
Microsoft VBScript compilation error '800a0400'
Expected statement
/maal.asp, line 13
Case 65 to 67
--------^
Kan du hjælpe med den også?
Smider du ikke også et svar?