Hello and welcome to our community! Is this your first visit?
Register
Enjoy an ad free experience by logging in. Not a member yet? Register.
Results 1 to 6 of 6
  1. #1
    Regular Coder
    Join Date
    Feb 2006
    Posts
    107
    Thanks
    0
    Thanked 0 Times in 0 Posts

    VERY VERY URGENT(error message problem)

    hi...i'm newbie in asp....please help me!!!deadline tomorrow!!!
    four fields here...
    1.Bank (combo box)
    2.date (combo box)
    3.amount (text box)
    4.email (text box)

    when user leave all fields empty and clcik submit button...it should shows the error msgs in asp but not the ALERT msgs...but...now the problem is for the date's error msg will popup first...then disappear...after that, the rest error msgs will only show after the date's error msg disappear.....the text in bold(<myspan>) is for date.....

    thank you in advance!!!

    Code:
    <!-- #include file = "../SharedScripts/include.asp" -->
    <%
    Response.AddHeader "Progma", "no-cache"
    Response.AddHeader "cache-control", "no-store"
    Response.Buffer = True
    Response.ExpiresAbsolute = Now() - 1
    Response.Expires = 0
    Response.CacheControl = "no-cache"
    
    dim haha, valemail, subop2,subop6,subop8,subop10,subop15
    
    Set objRS3 = Server.CreateObject("ADODB.Recordset")
    Set objRS4 = Server.CreateObject("ADODB.Recordset")
    Set objRS5 = Server.CreateObject("ADODB.Recordset")
    Set objRS6 = Server.CreateObject("ADODB.Recordset")
    Set objRS7 = Server.CreateObject("ADODB.Recordset")
    Set objRS8 = Server.CreateObject("ADODB.Recordset")
    Set objRS9 = Server.CreateObject("ADODB.Recordset")
    Set objRS10 = Server.CreateObject("ADODB.Recordset")
    
    minYear=1900
    maxYear=2100
    
    haha = request("a")
    subop2 = request("subop2")
    subop6 = request("subop6")
    subop8 = request("subop8")
    subop10 = request("bank")
    c=request("amount")
    d=request("email")
    b=request("txtDate1")
    e=request("txtDate2")
    f=request("txtDate3")
    
    valemail = true
    
    
    ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    
    if haha = "passup" then
    
                   if request("bank")="none" then
                   subop10="empty"
                   end if
    
                   if request("txtDate1")="0" or request("txtDate2")="0" then
                           subop8="errordate"
                   end if
    
                   if valamount="" or valamount=false then
                   subop6="erroramount"
                   end if
    
              txtDate3 = DatePart("yyyy", Date())
    
    end if
    %>
    
    <html>
    <head>
    <SCRIPT language=Javascript>
    //only allow numbers and dot(.)
             function isNumberKey(evt)
         {
                   if(!((event.keyCode>=48&&event.keyCode<=57)||(event.keyCode==46)))
                                   event.returnValue=false;
          }
    </SCRIPT>
    
    <script type="text/javascript">
    function addMonths() {
           var MONTHS=["Jan ", "Feb ", "Mar ", "Apr ", "May ", "Jun ", "Jul ", "Aug ", "Sep ", "Oct ", "Nov ", "Dec "];
           var today=new Date();
           var thisYear=today.getFullYear();
           var thisMonth=today.getMonth();
           for (var x=0; x<=thisMonth; x++) { // Use this if you want January to be first
           //for (var x=thisMonth; x>=0; x--) { // Use this if you want the current month to be first
                   var option = document.createElement('option');
                   option.value=thisMonth+1;
                   var text = document.createTextNode(MONTHS[x]+' '+thisYear);
                   option.appendChild(text);
                   document.getElementById('months').appendChild(option);
           }
    }
    </script>
    
    <script type="text/javascript">
    var today = new Date();
    var allM = ['Jan','Feb','Mar','Apr','May','Jun','Jul','Aug','Sep','Oct','Nov','Dec']
    var ty=today.getFullYear();
    var tm=today.getMonth();
    var td=today.getDate();
    var mes ='Please, select a valid date';
    var mes1 ='Please, select a date in the past';
    function validate(){
    var txt = document.getElementById('myspan').firstChild;
    var pm = document.getElementById('months').selectedIndex-1;
    var nd = document.getElementById('dates').selectedIndex-1;
    if(pm<0||nd<0){txt.data=mes;return false}
    var pd = Number(document.getElementById('dates').value);
    var pdate = new Date(ty,pm,pd);
    if(pdate.getDate()!=pd){txt.data=mes;return false}
    if(pdate>=today){txt.data=mes1;return false}
    }
    onload = function(){
    var root = document.getElementById('months');
    var i=0;
    while(i<=tm){
    var opt = document.createElement('option');
    opt.setAttribute('value',allM[i]+' '+ty);
    opt.appendChild(document.createTextNode(allM[i]+' '+ty));
    root.appendChild(opt)
    i++
    }
    }
    </script>
    
    <title>Untitled Document</title>
    <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
    </head>
    
    <body onload="addMonths();">
    <center><b>Bank Payment</b></center>
    <form name="form" action="clickhere.asp" method="post" onsubmit="return validate()">
    <table align="center" border=0>
    <tr>
    <td width="88">Bank:</td>
    <td width="24"></td>
    <td colspan="5"><Select name="bank">
    </Select><% if subop10="empty" then%><span class="red">*</span><% end if %></td>
    </tr>
    
    <tr>
    <td>Payment Date:</td>
    <td></td>
    <td width="48"><select name="txtDate2" id="dates">
    <option value="0">---</option>
    <option value="1">01</option>
    <option value="2">02</option>
    <option value="3">03</option>
    <option value="4">04</option>
    <option value="5">05</option>
    <option value="6">06</option>
    <option value="7">07</option>
    <option value="8">08</option>
    <option value="9">09</option>
    <option value="10">10</option>
    <option value="11">11</option>
    <option value="12">12</option>
    <option value="13">13</option>
    <option value="14">14</option>
    <option value="15">15</option>
    <option value="16">16</option>
    <option value="17">17</option>
    <option value="18">18</option>
    <option value="19">19</option>
    <option value="20">20</option>
    <option value="21">21</option>
    <option value="22">22</option>
    <option value="23">23</option>
    <option value="24">24</option>
    <option value="25">25</option>
    <option value="26">26</option>
    <option value="27">27</option>
    <option value="28">28</option>
    <option value="29">29</option>
    <option value="30">30</option>
    <option value="31">31</option>
    </select></td>
    <td width="14" align="left">-</td>
    
    <td width="102">
    <select name="txtDate1" id="months">
    <option>---</option>
    </select>
    <% if subop8="errordate" then%><span class="red">*</span><% end if %>
    </td>
    <td width="0" align="center"></td>
    <td width="108">
    </td>
    </tr>
    
    <tr>
    <td></td>
    <td></td>
    <td align="center">dd</td>
    <td align="left">-</td>
    <td>mm, yyyy</td>
    </tr>
    
    <tr>
    <td>Amount:</td>
    <td>RM</td>
    <td colspan=5><input type="text" name="amount" onkeypress="return isNumberKey(event)" value="<%if haha<>"cancel" then%><%=server.HTMLEncode(request("amount"))%><%end if%>"><% if subop6="erroramount" then %><span class="red">*</span><% end if %></td>
    </tr>
    
    <tr>
    <td>Email:</td>
    <td></td>
    <td colspan=5><input type="text" name="email" size=40 value="<%if haha<>"cancel" then%><%=server.HTMLEncode(request("email"))%><%end if%>"><% if subop5="invalidEmail" or valemail = false then %><span class="red">*</span><% end if %></td>
    </tr>
    
    <tr>
    <td colspan=7 align="center"><input type="button" value="Submit" onclick=change("passup");validate()>
    <input type="button" value="Cancel" onclick=change("cancel")></td>
    </tr>
    <tr>
    <td align="center" colspan=7>
    <% if subop10="empty" then%>Please select a bank.<br><br><% end if %>
    <% if subop8="errordate" then%>Please enter a valid date.<br><br><% end if %>
    <span id="myspan">&nbsp;<br><br></span>
    <% if subop6="erroramount" then%>Please enter an amount.<br><br><% end if %>
    <% if valemail=false or subop5="invalidEmail" then%>Please enter a valid email.<br><br><% end if %>
    </td>
    </tr>
    </table>
    <input type="hidden" name="a">
    </form>
    <br>
    <table border="1" align="center">
    <tr>
    <td>
    <b>IMPORTANT NOTICE</b><br><br>
    Please note that activation keys will ONLY be sent to you upon receiving copies of<br>your deposit slips<br><br>
    via fax<br>
    Fax No.: 04-2278 718<br>
    OR<br><br>
    by post<br>
    addressed to: Our-science.com Sdn. Bhd. (521441-V)<br>
    18-13-G, Gurney Tower,<br>
    Gurney Drive,<br>
    10250 Penang.<br><br>
    However, if you do NOT RECEIVE your activation keys 7 days after sending us<br>
    your copy of deposit slips, please contact us via EMAIL at info@icdsites.com<br>
    </td>
    </tr>
    </table>
    <center>
    <form action="../../../index.asp">
    <input type="submit" value="Back to Main">
    </form>
    </center>
    </body>
    </html>
    <script language="vbscript">
    <!--
    sub change(operation)
           form.a.value=operation
           form.submit
    end sub
    -->
    </script>
    Last edited by tanhaha_how; 02-25-2006 at 02:02 AM.

  • #2
    Regular Coder
    Join Date
    Feb 2006
    Posts
    107
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Exclamation

    i change the code again to make u all expert easy to check for me.......really urgent.....help me please.....

    thanks in advance

  • #3
    New Coder
    Join Date
    Apr 2004
    Location
    Columbus, Ohio
    Posts
    30
    Thanks
    0
    Thanked 0 Times in 0 Posts
    Well I hope you have figured this out. Giving us 1 day to fix something like this is really diffacult. We are not getting paid for the help we provide. We need some time to sit down for a cup or coffee or Mt. Dew (the 2 programmers blood) get away from the women (or men - this involves the don't ask, don't tell rule - or there could be women programmers []) and look over problematic codes.

    In this case, I would have done the entire thing differently. There would be Request.Form ("someformnames") and found empty values, and then sent them back to the form that needed to be fixed with some highlighted fields.

    If you have not figured it out let us know so we can start looking at it
    Hate something?
    Tell us about it
    Go Complain

  • #4
    New Coder
    Join Date
    Apr 2004
    Location
    Columbus, Ohio
    Posts
    30
    Thanks
    0
    Thanked 0 Times in 0 Posts
    Here I actually forgot that I did something for someone else at one time:

    This is a simple form that will check if field exist and will tell what fields are blank:

    KEEP IN MIND THAT THIS CODE CAN BE SLIMMED DOWN ALOT! I wrote it this way for simplicity in the demonstration.

    Code:
    <%
    	IF Request.QueryString("method") = "checkform" Then
    		IF Request.Form("firstone") = "" Then FirstTextForm = 2 ELSE FirstTextForm = 1
    		IF Request.Form("secondone") = "" Then SecondTextForm = 2 ELSE SecondTextForm = 1
    		IF Request.Form("thirdone") = "" Then thirdTextForm = 2 ELSE thirdTextForm = 1
    		IF FirstTextForm > 1 or SecondTextForm > 1 or ThirdTextForm > 1 Then
    			Response.Write	"<center>There was a problem with your entry<br>" & vbNewLine & _
    							"<ol>" & vbNewLine & _
    			IF FirstTextForm = 2 Then
    				Response.Write "	<li>First Field was empty</li>"
    			END IF
    			IF SecondTextForm = 2 Then
    				Response.Write "	<li>Second Field was empty</li>"
    			END IF
    			IF ThirdTextForm = 2 Then
    				Response.Write "	<li>Third Field was empty</li>"
    			END IF
    			Response.Write	"<a href=""pagename.asp"">Go back and enter data</a>"
                    END IF
    	ELSE
    		Response.Write	"<form name=""pagename"" method=""post"" action=""pagename.asp?method=checkform"">" & vbNewLine & _
    						"	<input type=text name=""firstone"" value=" & Request.Form("firstone") & "size=""25"">" & vbNewLine & _
    						"	<input type=text name=""secondone"" value=" & Request.Form("secondone") & "size=""25"">" & vbNewLine & _
    						"	<input type=text name=""thirdone"" value=" & Request.Form("thirdone") & " size=""25"">" & vbNewLine & _
    						"	<input name=""Submit"" type=""submit"" value=""Submit"">" & vbNewLine & _
    						"</form>" & vbNewLine
    	END IF
    %>
    Last edited by GoComplain; 02-27-2006 at 09:30 PM.
    Hate something?
    Tell us about it
    Go Complain

  • #5
    New Coder
    Join Date
    Apr 2004
    Location
    Columbus, Ohio
    Posts
    30
    Thanks
    0
    Thanked 0 Times in 0 Posts
    Wow, I was looking over my code there and I see some small problems:

    1. If only one of the fields were left blank, then you will see an error, when you go back to re-enter the empty fields all of them will be empty.
    a. You can fix this a couple of ways. Probably the easiest would be either "METHODS" i.e. <a href=""pagename.asp?field1=" & fieldone & "&field2=" & fieldtwo & "&field3=" & fieldthree & "" & vbNewLine

    Something like that...

    2. Create a javascript goback link (may or maynot work on certain browsers)
    3. Another way is to simply create another form with hidden input fields.

    Ok, maybe it doesn't matter, or maybe he didn't even use my code, maybe I am over thinking this WAY TOO MUCH. Maybe the voices in my head are not calm yet, maybe I haven't had a Mt Dew for 6 hours and it is causing my psychostick side to come out.

    Oh well, have a good day
    Hate something?
    Tell us about it
    Go Complain

  • #6
    Regular Coder
    Join Date
    Feb 2006
    Posts
    107
    Thanks
    0
    Thanked 0 Times in 0 Posts
    Hey, i"m using your code.....mayb it is not what i want....But i've used this in another function....nvm...i'll fix it again...any problem i'll post a msg here...

    Thank you very very much....


  •  

    Posting Permissions

    • You may not post new threads
    • You may not post replies
    • You may not post attachments
    • You may not edit your posts
    •