Value of list is lost when form is submitted

198 New Member

I am using Oracle 9i and ASP

I have empno, empname, designation, category, dob.
Category have two option 'S' or 'O'

When I enter empno, empname, designation, category and dob
and when I press enter key all the data remains on the form but only list value is lost. what should I do ? How can I solve this.

Expand|Select|Wrap|Line Numbers

 
<%@ Language=VBScript%>

<%Option Explicit%>

<html>

<head>

<title>Barauni Refinery - Post Retirement Data Management </title>

</head>

<%

Dim R

Dim R1 

Dim vempno, vempname, vdesign, vcategory

Dim vdobyyyy, vdobmm, vdobdd

  If Not IsEmpty(Request.Form("submit")) then

    vempno = Request.Form("vempno")

    vempname = Request.Form("vempname")

    vdesign = Request.Form("vdesign")

    vcategory = Request.Form("vcategory")

    vdobyyyy = Request.Form("vdobyyyy")

    vdobmm = Request.Form("vdobmm")

    vdobdd = Request.Form("vdobdd")

    If len(vempno) = 0 then

      errorMsg = "You must enter employee number."

    End If

    If len(errorMsg) = 0 Then

      If len(vempname) = 0 Then

        errorMsg = "Your must enter either employee name."

      Elseif len(vempname) > 20 Then

        errorMsg = "The employee name > 20 characters. Please reduce the size."

      Else

        For i = 1 to len(vempname)

          If instr(1, "_/()[]{}abcdefghijklmnopqrstuvwxyz0123456789 ", mid(vempname, i, 1), vbTextCompare) = 0 then

            errorMsg = "The employee name is invalid. Please re-enter this field."

            Exit For

          End If

        Next

      End If

    End If

    If len(errorMsg) = 0 Then

      conn.Close

      conn.Mode = adModeReadWrite

      conn.Open

      R.Open "Select * from SABF", conn, 2, 3

      R.Addnew

      R("empno") = vempno

      R("empname") = vempname

      R("design") = vdesign

      R("category") = vcategory

      R("dob") = Cdate(vdobmm & "/" & vdobdd & "/" & vdobyyyy)

      R.UPdate

    End If

  End If %>

    <form method="POST" action="sabf.asp">

<%

      If len(errorMsg) > 0 Then

        Response.Write "<p><font color='red'>" & errorMsg & "</font></p>"

      End If

%>
 
      <table width=900>

        <tr>

          <table align="center">

            <tr>

              <td align="center"><font face="arial"><h3>SABF Entry</h3></font></h3>

            </tr>
 
          </table>

        </tr>

        <tr>

          <table align="center">

            <tr>

              <td align="right"><font face="arial" size=2>Employee No : </font></td>

              <td align='left'><input type="text" style="width:100px" name="vempno" value="<%=vempno%>"></td>

              <td align="right"><font face="arial" size=2>Employee Name : </font></td>

              <td align='left'><input type="text" style="width:300px" name="vempname" value="<%=vempname%>"></td>

            </tr>

            <tr>

              <td align="right"><font face="arial" size=2>Designation : </font></td>

              <td align='left'><input type="text" style="width:200px" name="vdesig"></td>

              <td align="right"><font face="arial" size=2>Category : </font></td>

              <td align="left">

                 <font face="arial" size=2><select name="vcategory" value="<%=vcategory%>">

                       <option value="O">Officer</option>

                       <option value="S" selected>Staff</option></select>

                 </font>

              </td>

            </tr>

            <tr>

              <td align="right"><font face="arial" size=2>Date of Birth : </font></td>

              <td>

                <select name="vdobyyyy" value="<%=vdobyyyy%>">

                  <%i=1965

                  do while i <= 2010

                    If i = 2009 Then%>

                      <option value="2009" selected>2009</option>

                    <%Else%>

                        <option value="<%=i%>"><%=i%></option>

                    <%End If

                    i = i + 1

                  loop%>

                </select>

                <select name="vdobmm" value="<%=vdobmm%>">

                  <%i=1

                  Do while i <= 12

                    If i = Cint(vdobmm) then%>

                      <option value="<%=vdobmm%>" selected><%=vdobmm%></option>

                    <%Else%>

                      <option value="<%=i%>"><%=i%></option>

                    <%End If

                    i = i + 1

                  loop%>

                </select>

                <select name="vdobdd" value="<%=vdobdd%>">

                  <%If vdobyyyy mod 4 = 0 And vdobmm = 2 Then

                    no_of_day = 29

                  ElseIf vdobyyyy mod 4 <> 0 and vdobmm = 2 Then

                    no_of_day = 28

                  ElseIf vdobmm=4 or vdobmm=6 or vdobmm=9 or vdobmm=11 Then

                    no_of_day = 30

                  Else

                    no_of_day = 31

                  End If

                  i=1

                  Do while i <= no_of_day

                    If i = Cint(vdobdd) Then%>

                      <option value="<%=vdobdd%>" selected><%=vdobdd%></option>

                    <%Else%>

                      <option value="<%=i%>"><%=i%></option>

                    <%End If

                    i = i + 1

                  loop%>

                </select><font color='blue' size=2>(yyyy-mm-dd)</font>

              </td>

            </tr>

        <tr>

          <table align="center">

            <tr>

              <td align="center"><input type="Submit" name="submit" value="Save">

                                 <input type="reset" name="reset" value="Reset">

              </td>

            </tr>

          </table>

        </tr>

      </table>

    </form>

</body>

</html>

Oct 21 '09 #1

Subscribe Reply

1417

Similar topics

9267

Session data lost in Firefox

by: Jeremy Epstein | last post by:

I've got a 4-page form that lets users enter a whole lot of information, which is then submitted and emailed at the end. All the fields are stored as session data. The whole thing works fine: ...

PHP

4185

How can I retain value of pulldown list in form?

by: Mark R | last post by:

I have one .asp page with a SELECT pulldown list on it and some INPUT fields. When SUBMIT is clicked the form data is submitted to that same page and validated. If INPUT fields are empty the asp...

ASP / Active Server Pages

3001

Multiple Email Recipients depending on Value

by: dmiller23462 | last post by:

So here's my problem.....I need to set up different email distributions based on which option in the following Select form has been chosen....For instance if "Putaway" is chosen it needs to email...

ASP / Active Server Pages

2913

Assign value to control

by: ckerns | last post by:

I want to loop thru an array of controls,(39 of them...defaults = 0). If value is null or non-numeric I want to assign the value of "0". rowString = "L411" //conrol name if (isNaN(eval...

Javascript

1858

Need to get a value in a form?

by: cmc_dermo | last post by:

I have a form that has a select list. A user chooses a value and the page refreshes showing the selected value in the dropdown box. So I want to use Javascript to get the selected query from...

Javascript

4981

textbox value lost upon postback

by: Ashish | last post by:

Hi All, I have a server runnable textbox control. I also have a server side button object but I hook up javascript to it to show a modal dialog. Upon return it places the value in the textbox...

ASP.NET

23742

Dropdownlist selected value lost after postback

by: Celine | last post by:

I have a webform with multiple panels with textboxes, dropdownlists, radiobuttonlists, etc. The user navigates through the panels and then submits the information at the end. The first panel...

ASP.NET

4529

Determining Dropdown Value Problem

by: Mike Collins | last post by:

I cannot get the correct drop down list value from a drop down I have on my web form. I get the initial value that was loaded in the list. It was asked by someone else what the autopostback was...

C# / C Sharp

1432

form submission donot take value of dynamically added option to dropdown list

by: godkrishna | last post by:

Hi Guys.. I am new to javascript.. pls bare with me :) In my form, i have a table with two columns. first column has checkboxes and second has dropdown lists. On check of each check box.....

Javascript

7018

Changing the language in Windows 10

by: Hystou | last post by:

Most computers default to English, but sometimes we require a different language, especially when relocating. Forgot to request a specific language before your computer shipped? No problem! You can...

Windows Server

7182

Problem With Comparison Operator <=> in G++

by: Oralloy | last post by:

Hello folks, I am unable to find appropriate documentation on the type promotion of bit-fields when using the generalised comparison operator "<=>". The problem is that using the GNU compilers,...

C / C++

7232

Maximizing Business Potential: The Nexus of Website Design and Digital Marketing

by: jinu1996 | last post by:

In today's digital age, having a compelling online presence is paramount for businesses aiming to thrive in a competitive landscape. At the heart of this digital strategy lies an intricately woven...

Online Marketing

7397

Discussion: How does Zigbee compare with other wireless protocols in smart home applications?

by: tracyyun | last post by:

Dear forum friends, With the development of smart home technology, a variety of wireless communication protocols have appeared on the market, such as Zigbee, Z-Wave, Wi-Fi, Bluetooth, etc. Each...

General

5490

AI Job Threat for Devs

by: agi2029 | last post by:

Let's talk about the concept of autonomous AI software engineers and no-code agents. These AIs are designed to manage the entire lifecycle of a software development project—planning, coding, testing,...

Career Advice

3110

Trying to create a lan-to-lan vpn between two differents networks

by: TSSRALBI | last post by:

Hello I'm a network technician in training and I need your help. I am currently learning how to create and manage the different types of VPNs and I have a question about LAN-to-LAN VPNs. The...

Networking - Hardware / Configuration

3106

Windows Forms - .Net 8.0

by: adsilva | last post by:

A Windows Forms form does not have the event Unload, like VB6. What one acts like?

Visual Basic .NET

672

How to add payments to a PHP MySQL app.

by: muto222 | last post by:

How can i add a mobile payment intergratation into php mysql website.

PHP

316

Comprehensive Guide to Website Development in Toronto: Expert Insights from BSMN Consultancy

by: bsmnconsultancy | last post by:

In today's digital era, a well-designed website is crucial for businesses looking to succeed. Whether you're a small business owner or a large corporation in Toronto, having a strong online presence...

General