VB Script Question - Teh Forum

<body> <div id="header"> <span class="left"> <span class="back"><a href="lthread_list.php?webtag=DEFAULT"><span class="image mobile_back" title="Back"></span></a></span> <span class="image mobile_logo" title="Beehive Forum Logo"></span> </span> <ul> <li> <a class="reply_all" href="lpost.php?webtag=DEFAULT&reply_to=33245.0&return_msg=33245.5"> <span class="image mobile_reply_all"></span><span class="text">Reply to All</span> </a> </li> <li> <a class="navigation" href="#"> <span class="image mobile_navigation"></span><span class="text">Show messages</span> </a> </li> <li> <a class="main" href="#"><span class="image mobile_menu" title="Menu"></span> </a> </li> </ul> </div> <div class="menu main"> <ul> <li><a href="lthread_list.php?webtag=DEFAULT">Messages</a></li> <li><a href="lpm.php?webtag=DEFAULT">Inbox</a></li> <li><a href="lsearch.php?webtag=DEFAULT">Search</a></li> <li><a href="llogon.php?webtag=DEFAULT">Login</a></li> </ul> </div> <div class="menu navigation"><a href="lmessages.php?webtag=DEFAULT&msg=33245.1">1–10</a><a href="lmessages.php?webtag=DEFAULT&msg=33245.11">11–20</a>…<a href="lmessages.php?webtag=DEFAULT&msg=33245.31">31</a></div> <div id="page_content"> <h3 class="thread_title"><a href="index.php?webtag=DEFAULT&amp;msg=33245.5">VB Script Question</a> </h3> <div id="messages" data-navigation="33245_5_31_10"> <a name="a33245_5"></a><div class="message" id="message_33245_5"> <div class="message_header"> <div class="message_from"> From: Kenny J (WINGNUTKJ)<span class="message_time">26 Sep 2007 11:00</span> <div class="clearer"></div> </div><div class="message_to">To: Mod_Inside (MODINSIDE) <span><span class="image post_read" title="Read: 26 Sep 2007 11:33"></span></span> <span class="message_count">5 of 31</span><div class="clearer"></div> </div> </div> <div class="message_links"> <a href="lmessages.php?webtag=DEFAULT&msg=33245.5">33245.5</a> In reply to <a href="lmessages.php?webtag=DEFAULT&msg=33245.3">33245.3</a></div> <div class="message_body"> <div class="quotetext" id="code-"><b> code:</b></div><pre class="code"> Function calcHotWaterFactorLikeANormalPerson(ByVal strdegday As Integer) as integer Dim result as integer Select Case strdegday Case 0 To 6 result = 0 Case 7 To 10 result = 1 Case 11 To 16 result = 2 Case Else result = 3 End Select calcHotWaterFactor = result End Function </pre><br /> <br /> I can't be bothered working out if Peter's version would be more efficient or in some other way advantageous - it's unreadable. </div> <div class="message_footer"> <div class="message_footer_links"><a href="lpost.php?webtag=DEFAULT&reply_to=33245.5&return_msg=33245.5" class="reply"><span class="image post"></span>Reply</a></div> <div class="message_vote_form" data-msg="33245.5"> <span class="rating">0/0</span> <span class="image vote vote_down vote_down_off" title="Vote Down"></span> <span class="image vote vote_up vote_up_off" title="Vote Up"></span> </div> </div> </div><a name="a33245_6"></a><div class="message" id="message_33245_6"> <div class="message_header"> <div class="message_from"> From: bob (BOBFARRELL)<span class="message_time">26 Sep 2007 11:13</span> <div class="clearer"></div> </div><div class="message_to">To: ALL<span class="message_count">6 of 31</span><div class="clearer"></div> </div> </div> <div class="message_links"> <a href="lmessages.php?webtag=DEFAULT&msg=33245.6">33245.6</a></div> <div class="message_body"> <p>Ahahaha, AHAHAHAHAHAHA. VB indeed. Ever heard of JavaScript? SOOoooooo much better, ZZZZZZZzzzzzzzzzzzzzzzzzzz.</p> </div> <div class="message_footer"> <div class="message_footer_links"><a href="lpost.php?webtag=DEFAULT&reply_to=33245.6&return_msg=33245.5" class="reply"><span class="image post"></span>Reply</a></div> <div class="message_vote_form" data-msg="33245.6"> <span class="rating">0/0</span> <span class="image vote vote_down vote_down_off" title="Vote Down"></span> <span class="image vote vote_up vote_up_off" title="Vote Up"></span> </div> </div> </div><a name="a33245_7"></a><div class="message" id="message_33245_7"> <div class="message_header"> <div class="message_from"> From: Mod_Inside (MODINSIDE)<span class="message_time">26 Sep 2007 11:38</span> <div class="clearer"></div> </div><div class="message_to">To: Kenny J (WINGNUTKJ) <span><span class="image post_read" title="Read: 26 Sep 2007 11:57"></span></span> <span class="message_count">7 of 31</span><div class="clearer"></div> </div> </div> <div class="message_links"> <a href="lmessages.php?webtag=DEFAULT&msg=33245.7">33245.7</a> In reply to <a href="lmessages.php?webtag=DEFAULT&msg=33245.5#a33245_5" target="_self">33245.5</a></div> <div class="message_body"> <p>Hmm, anything i'm maybe doing wrong?</p> <p> </p> <p>Error Type:<br /> Microsoft VBScript compilation (0x800A03EA)<br /> Syntax error<br /> /Degday/DegreeDayslist.asp, line 486<br /> Function calcHotWaterFactor(ByVal strdegday As Integer) as integer</p></div> <div class="message_footer"> <div class="message_footer_links"><a href="lpost.php?webtag=DEFAULT&reply_to=33245.7&return_msg=33245.5" class="reply"><span class="image post"></span>Reply</a></div> <div class="message_vote_form" data-msg="33245.7"> <span class="rating">0/0</span> <span class="image vote vote_down vote_down_off" title="Vote Down"></span> <span class="image vote vote_up vote_up_off" title="Vote Up"></span> </div> </div> </div><a name="a33245_8"></a><div class="message" id="message_33245_8"> <div class="message_header"> <div class="message_from"> From: Peter (BOUGHTONP)<span class="message_time">26 Sep 2007 11:44</span> <div class="clearer"></div> </div><div class="message_to">To: Mod_Inside (MODINSIDE) <span><span class="image post_read" title="Read: 26 Sep 2007 11:45"></span></span> <span class="message_count">8 of 31</span><div class="clearer"></div> </div> </div> <div class="message_links"> <a href="lmessages.php?webtag=DEFAULT&msg=33245.8">33245.8</a> In reply to <a href="lmessages.php?webtag=DEFAULT&msg=33245.5#a33245_7" target="_self">33245.7</a></div> <div class="message_body"> Does the integer need to be Integer? </div> <div class="message_footer"> <div class="message_footer_links"><a href="lpost.php?webtag=DEFAULT&reply_to=33245.8&return_msg=33245.5" class="reply"><span class="image post"></span>Reply</a></div> <div class="message_vote_form" data-msg="33245.8"> <span class="rating">0/0</span> <span class="image vote vote_down vote_down_off" title="Vote Down"></span> <span class="image vote vote_up vote_up_off" title="Vote Up"></span> </div> </div> </div><a name="a33245_9"></a><div class="message" id="message_33245_9"> <div class="message_header"> <div class="message_from"> From: Mod_Inside (MODINSIDE)<span class="message_time">26 Sep 2007 11:47</span> <div class="clearer"></div> </div><div class="message_to">To: Peter (BOUGHTONP) <span><span class="image post_read" title="Read: 26 Sep 2007 11:54"></span></span> <span class="message_count">9 of 31</span><div class="clearer"></div> </div> </div> <div class="message_links"> <a href="lmessages.php?webtag=DEFAULT&msg=33245.9">33245.9</a> In reply to <a href="lmessages.php?webtag=DEFAULT&msg=33245.5#a33245_8" target="_self">33245.8</a></div> <div class="message_body"> <p>Doesnt appear to be?</p> <p> </p> <p>Error Type:<br /> Microsoft VBScript compilation (0x800A03EA)<br /> Syntax error<br /> /Degday/DegreeDayslist.asp, line 486<br /> Function calcHotWaterFactor (ByVal strdegday As Integer) as Integer</p></div> <div class="message_footer"> <div class="message_footer_links"><a href="lpost.php?webtag=DEFAULT&reply_to=33245.9&return_msg=33245.5" class="reply"><span class="image post"></span>Reply</a></div> <div class="message_vote_form" data-msg="33245.9"> <span class="rating">0/0</span> <span class="image vote vote_down vote_down_off" title="Vote Down"></span> <span class="image vote vote_up vote_up_off" title="Vote Up"></span> </div> </div> </div><a name="a33245_10"></a><div class="message" id="message_33245_10"> <div class="message_header"> <div class="message_from"> From: Mod_Inside (MODINSIDE)<span class="message_time">26 Sep 2007 11:52</span> <div class="clearer"></div> </div><div class="message_to">To: Peter (BOUGHTONP) <span><span class="image post_read" title="Read: 26 Sep 2007 11:54"></span></span> <span class="message_count">10 of 31</span><div class="clearer"></div> </div> </div> <div class="message_links"> <a href="lmessages.php?webtag=DEFAULT&msg=33245.10">33245.10</a> In reply to <a href="lmessages.php?webtag=DEFAULT&msg=33245.5#a33245_8" target="_self">33245.8</a></div> <div class="message_body"> <p>When I run your one you created I get this too</p> <p> </p> <p>Technical Information (for support personnel)</p> <p> </p> <p>Error Type:<br /> Microsoft VBScript compilation (0x800A03EA)<br /> Syntax error<br /> /Degday/DegreeDayslist.asp, line 486<br /> Function calcHotWaterFactor(strdegday)</p> <p> </p> <p>Any ideas ?</p></div> <div class="message_footer"> <div class="message_footer_links"><a href="lpost.php?webtag=DEFAULT&reply_to=33245.10&return_msg=33245.5" class="reply"><span class="image post"></span>Reply</a></div> <div class="message_vote_form" data-msg="33245.10"> <span class="rating">0/0</span> <span class="image vote vote_down vote_down_off" title="Vote Down"></span> <span class="image vote vote_up vote_up_off" title="Vote Up"></span> </div> </div> </div><a name="a33245_11"></a><div class="message" id="message_33245_11"> <div class="message_header"> <div class="message_from"> From: Kenny J (WINGNUTKJ)<span class="message_time">26 Sep 2007 11:58</span> <div class="clearer"></div> </div><div class="message_to">To: Mod_Inside (MODINSIDE) <span><span class="image post_read" title="Read: 26 Sep 2007 12:00"></span></span> <span class="message_count">11 of 31</span><div class="clearer"></div> </div> </div> <div class="message_links"> <a href="lmessages.php?webtag=DEFAULT&msg=33245.11">33245.11</a> In reply to <a href="lmessages.php?webtag=DEFAULT&msg=33245.5#a33245_7" target="_self">33245.7</a></div> <div class="message_body"> Oh - ASP VBScript - it doesn't bother with types, everything's a variant, so remove all the "AS Integer" stuff, and the ByVal in front of the parameter. </div> <div class="message_footer"> <div class="message_footer_links"><a href="lpost.php?webtag=DEFAULT&reply_to=33245.11&return_msg=33245.5" class="reply"><span class="image post"></span>Reply</a></div> <div class="message_vote_form" data-msg="33245.11"> <span class="rating">0/0</span> <span class="image vote vote_down vote_down_off" title="Vote Down"></span> <span class="image vote vote_up vote_up_off" title="Vote Up"></span> </div> </div> </div><a name="a33245_12"></a><div class="message" id="message_33245_12"> <div class="message_header"> <div class="message_from"> From: Mod_Inside (MODINSIDE)<span class="message_time">26 Sep 2007 12:03</span> <div class="clearer"></div> </div><div class="message_to">To: Kenny J (WINGNUTKJ) <span><span class="image post_read" title="Read: 26 Sep 2007 12:14"></span></span> <span class="message_count">12 of 31</span><div class="clearer"></div> </div> </div> <div class="message_links"> <a href="lmessages.php?webtag=DEFAULT&msg=33245.12">33245.12</a> In reply to <a href="lmessages.php?webtag=DEFAULT&msg=33245.5#a33245_11" target="_self">33245.11</a></div> <div class="message_body"> <p>Thanks Kenny,</p> <p> </p> <p>Heres what I get now </p> <p> </p> <p>Technical Information (for support personnel)</p> <p> </p> <p>Error Type:<br /> Microsoft VBScript compilation (0x800A03EA)<br /> Syntax error<br /> /Degday/DegreeDayslist.asp, line 486<br /> Function calcHotWaterFactorLikeANormalPerson</p> <p> </p> <p>Using this,</p> <p> </p> <p><% Function calcHotWaterFactorLikeANormalPerson<br /> Dim result<br /> Select Case strdegday<br /> Case 0 To 6<br /> result = 0<br /> Case 7 To 10<br /> result = 1<br /> Case 11 To 16<br /> result = 2<br /> Case Else<br /> result = 3<br /> End Select</p> <p> calcHotWaterFactor = result<br /> End Function %></p></div> <div class="message_footer"> <div class="message_footer_links"><a href="lpost.php?webtag=DEFAULT&reply_to=33245.12&return_msg=33245.5" class="reply"><span class="image post"></span>Reply</a></div> <div class="message_vote_form" data-msg="33245.12"> <span class="rating">0/0</span> <span class="image vote vote_down vote_down_off" title="Vote Down"></span> <span class="image vote vote_up vote_up_off" title="Vote Up"></span> </div> </div> </div><a name="a33245_13"></a><div class="message" id="message_33245_13"> <div class="message_header"> <div class="message_from"> From: Mod_Inside (MODINSIDE)<span class="message_time">26 Sep 2007 12:04</span> <div class="clearer"></div> </div><div class="message_to">To: Kenny J (WINGNUTKJ) <span><span class="image post_read" title="Read: 26 Sep 2007 12:14"></span></span> <span class="message_count">13 of 31</span><div class="clearer"></div> </div> </div> <div class="message_links"> <a href="lmessages.php?webtag=DEFAULT&msg=33245.13">33245.13</a> In reply to <a href="lmessages.php?webtag=DEFAULT&msg=33245.5#a33245_11" target="_self">33245.11</a></div> <div class="message_body"> Is there a certain place that the code needs to go within the page? Making an arse of this !</div> <div class="message_footer"> <div class="message_footer_links"><a href="lpost.php?webtag=DEFAULT&reply_to=33245.13&return_msg=33245.5" class="reply"><span class="image post"></span>Reply</a></div> <div class="message_vote_form" data-msg="33245.13"> <span class="rating">0/0</span> <span class="image vote vote_down vote_down_off" title="Vote Down"></span> <span class="image vote vote_up vote_up_off" title="Vote Up"></span> </div> </div> </div><a name="a33245_14"></a><div class="message" id="message_33245_14"> <div class="message_header"> <div class="message_from"> From: Peter (BOUGHTONP)<span class="message_time">26 Sep 2007 12:05</span> <div class="clearer"></div> </div><div class="message_to">To: Mod_Inside (MODINSIDE) <span><span class="image post_read" title="Read: 26 Sep 2007 12:06"></span></span> <span class="message_count">14 of 31</span><div class="clearer"></div> </div> </div> <div class="message_links"> <a href="lmessages.php?webtag=DEFAULT&msg=33245.14">33245.14</a> In reply to <a href="lmessages.php?webtag=DEFAULT&msg=33245.5#a33245_10" target="_self">33245.10</a></div> <div class="message_body"> >> Any ideas ?<br /> <br /> Other than taking Bob's advice and using JavaScript, no. <span class="emoticon e_sad" title=":("><span class="e__">:(</span></span><br /> <br /> <br /> Here's how it could be done with JS:<br /> <div class="quotetext" id="code-JavaScript"><b>JavaScript code:</b></div><pre class="code"><span style="color: #003366; font-weight: bold;">function</span> calcHotWaterFactor<span style="color: #66cc66;">(</span>strdegday<span style="color: #66cc66;">)</span> <span style="color: #66cc66;">{</span> <span style="color: #000066; font-weight: bold;">if</span> <span style="color: #66cc66;">(</span>strdegday <= <span style="color: #CC0000;">6</span><span style="color: #66cc66;">)</span> <span style="color: #000066; font-weight: bold;">return</span> <span style="color: #CC0000;">0</span> <span style="color: #000066; font-weight: bold;">else</span> <span style="color: #000066; font-weight: bold;">if</span> <span style="color: #66cc66;">(</span>strdegday <= <span style="color: #CC0000;">10</span><span style="color: #66cc66;">)</span> <span style="color: #000066; font-weight: bold;">return</span> <span style="color: #CC0000;">1</span> <span style="color: #000066; font-weight: bold;">else</span> <span style="color: #000066; font-weight: bold;">if</span> <span style="color: #66cc66;">(</span>strdegday <= <span style="color: #CC0000;">16</span><span style="color: #66cc66;">)</span> <span style="color: #000066; font-weight: bold;">return</span> <span style="color: #CC0000;">2</span> <span style="color: #000066; font-weight: bold;">else</span> <span style="color: #000066; font-weight: bold;">return</span> <span style="color: #CC0000;">3</span>; <span style="color: #66cc66;">}</span></pre> </div> <div class="message_footer"> <div class="message_footer_links"><a href="lpost.php?webtag=DEFAULT&reply_to=33245.14&return_msg=33245.5" class="reply"><span class="image post"></span>Reply</a></div> <div class="message_vote_form" data-msg="33245.14"> <span class="rating">0/0</span> <span class="image vote vote_down vote_down_off" title="Vote Down"></span> <span class="image vote vote_up vote_up_off" title="Vote Up"></span> </div> </div> </div></div> <div class="message_page_footer"> <ul> <li class="right_col"><form accept-charset="utf-8" method="get" action="lmessages.php" target="_self"><input type="hidden" name="webtag" id="webtag" class="bhinputtext" value="DEFAULT" dir="ltr" /><input type="hidden" name="msg" id="msg" class="bhinputtext" value="33245.15" dir="ltr" /><input type="submit" name="submit" id="keep_reading" value="Keep reading…" class="button" /></form></li> </ul> </div> </div> </body>