p2p.wrox.com: Archives - asp_web

asp_web_howto thread: form update problem ; plz help!!!!

Message #1 by "taherm@f... on Wed, 23 May 2001 12:01:18

i have a form with around 7-8 fields out of which 2 are drop down menu type

name comapny name and client account number.



The scenario

when i select a company name from the drop down menu , the appropriate 

client number should be displayed. IT DOES THIS!!!



the problem 

it displays the appropriate client number in the text box but company name 

gets reset to the previous value.

for example company name A has client number 1

            company name B has client number 2

            company name C has client number 3

when the page loads it shows A in the company name box and nothing in the 

client number whic is fine!!

when i select B from the company name the page refreshes and displays 2 in 

the client number but in the company name it displays A which is what i 

dont want.



The code for teh page is below.

plz help me!!!





<%@LANGUAGE="VBSCRIPT"%> 

<!--#include file="../Connections/clientdb.asp" -->

<%

set Recordset2 = Server.CreateObject("ADODB.Recordset")

Recordset2.ActiveConnection = MM_clientdb_STRING

Recordset2.Source = "SELECT *  FROM ClientDetails"

Recordset2.CursorType = 0

Recordset2.CursorLocation = 2

Recordset2.LockType = 3

Recordset2.Open()

Recordset2_numRows = 0

%>

<%

Dim Recordset1__MMColParam

Recordset1__MMColParam = "1"

if (Request.Form("companyname") <> "") then Recordset1__MMColParam = 

Request.Form("companyname")

%>

<%

set Recordset1 = Server.CreateObject("ADODB.Recordset")

Recordset1.ActiveConnection = MM_clientdb_STRING

Recordset1.Source = "SELECT * FROM ClientDetails WHERE CompanyName = '" + 

Replace(Recordset1__MMColParam, "'", "''") + "'"

Recordset1.CursorType = 0

Recordset1.CursorLocation = 2

Recordset1.LockType = 3

Recordset1.Open()

Recordset1_numRows = 0

%>

<html>

<head>

<title>Fusion Client Domain Details</title>

<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">

</head>

<body bgcolor="#FFFFFF" text="#000000">

<p align="center"><font size="+3"><b><font color="#000099">Enter New 

Client Domain 

  Information</font></b></font></p>

<p align="center"><b><i><font size="+1" color="#FF3333">Step 

3</font></i></b></p>

<p align="left"><font size="+1" color="#000066"><a 

href="companyinsert.asp">Company 

  Information</a>, <a href="Contactinsert.asp">Contact Details</a>, <a 

href="domaininsert.asp">Domain 

  Details</a>,<a href="emailinsert.asp"> Email Details</a>, <a 

href="hostinginsert.asp">Hosting 

  Details</a>,<a href="ftpinsert.asp"> FTP Details</a>, <a 

href="../inserts/domainreg.asp">Domain 

  Reg Details</a>, <a href="ispinsert.asp">ISP Details</a></font></p>

<form name="form1" method="post" action="test.asp">

  <p>Company Name: 

    <select name="companyname" onChange="this.form.submit();">

      <%

While (NOT Recordset2.EOF)

%>

      <option value="<%=(Recordset2.Fields.Item("CompanyName").Value)%>" 

><%=(Recordset2.Fields.Item("CompanyName").Value)%></option>

      <%

  Recordset2.MoveNext()

Wend

If (Recordset2.CursorType > 0) Then

  Recordset2.MoveFirst

Else

  Recordset2.Requery

End If

%>

    </select>

  </p>

  <p>Client Account Number: 

    <select name="number" >

      <%

While (NOT Recordset1.EOF)

%>

      <option value="<%=(Recordset1.Fields.Item

("ClientAccountNumber").Value)%>" ><%=(Recordset1.Fields.Item

("ClientAccountNumber").Value)%></option>

      <%

  Recordset1.MoveNext()

Wend

If (Recordset1.CursorType > 0) Then

  Recordset1.MoveFirst

Else

  Recordset1.Requery

End If

%>

    </select>

  </p>

  <p>Domain Address: 

    <input type="text" name="Domain Address">

  </p>

  <p>ISP Holding Tag: 

    <input type="text" name="ISP Holding Tag">

  </p>

  <p>Primary Name Server: 

    <input type="text" name="Primary Name Server">

  </p>

  <p> 

    <input type="submit" name="Submit" value="Submit">

  </p>

</form>

<p> </p>

</body>

</html>

<%

Recordset2.Close()

%>

<%

Recordset1.Close()

%>

Message #2 by <abhilashbr@y...> on Wed, 23 May 2001 18:41:16 +0100

Hi



    I modified your code. Pls check the following code.

**************************************************************

<%@LANGUAGE="VBSCRIPT"%>

<!--#include file="../Connections/clientdb.asp" -->

<%

set Recordset2 = Server.CreateObject("ADODB.Recordset")

Recordset2.ActiveConnection = MM_clientdb_STRING

Recordset2.Source = "SELECT *  FROM ClientDetails"

Recordset2.CursorType = 0

Recordset2.CursorLocation = 2

Recordset2.LockType = 3

Recordset2.Open()

Recordset2_numRows = 0

%>

<%

Dim Recordset1__MMColParam

Recordset1__MMColParam = "1"

if (Request.Form("companyname") <> "") then Recordset1__MMColParam 

Request.Form("companyname")

%>

<%

set Recordset1 = Server.CreateObject("ADODB.Recordset")

Recordset1.ActiveConnection = MM_clientdb_STRING

Recordset1.Source = "SELECT * FROM ClientDetails WHERE CompanyName = '" +

Replace(Recordset1__MMColParam, "'", "''") + "'"

Recordset1.CursorType = 0

Recordset1.CursorLocation = 2

Recordset1.LockType = 3

Recordset1.Open()

Recordset1_numRows = 0

%>

<html>

<head>

<title>Fusion Client Domain Details</title>

<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">

</head>

<body bgcolor="#FFFFFF" text="#000000">

<p align="center"><font size="+3"><b><font color="#000099">Enter New

Client Domain

  Information</font></b></font></p>

<p align="center"><b><i><font size="+1" color="#FF3333">Step

3</font></i></b></p>

<p align="left"><font size="+1" color="#000066"><a

href="companyinsert.asp">Company

  Information</a>, <a href="Contactinsert.asp">Contact Details</a>, <a

href="domaininsert.asp">Domain

  Details</a>,<a href="emailinsert.asp"> Email Details</a>, <a

href="hostinginsert.asp">Hosting

  Details</a>,<a href="ftpinsert.asp"> FTP Details</a>, <a

href="../inserts/domainreg.asp">Domain

  Reg Details</a>, <a href="ispinsert.asp">ISP Details</a></font></p>

<form name="form1" method="post" action="test.asp">

  <p>Company Name:

  <%'********************Check Here****************************%>

    <select name="companyname" onChange="this.form.submit();">

      <%

While (NOT Recordset2.EOF)

 If (Recordset2.Fields.Item("CompanyName").Value = Recordset1__MMColParam)

Then%>



      <option SELECTED

value="<%=(Recordset2.Fields.Item("CompanyName").Value)%>">

      <%=(Recordset2.Fields.Item("CompanyName").Value)%></option>

    <%Else%>

      <option value="<%=(Recordset2.Fields.Item("CompanyName").Value)%>">

      <%=(Recordset2.Fields.Item("CompanyName").Value)%></option>

    <%End If%>

<%

  Recordset2.MoveNext()

Wend

  <%'********************Check Here****************************%>

If (Recordset2.CursorType > 0) Then

  Recordset2.MoveFirst

Else

  Recordset2.Requery

End If

%>

    </select>

  </p>

  <p>Client Account Number:

    <select name="number" >

      <%

While (NOT Recordset1.EOF)

%>

      <option value="<%=(Recordset1.Fields.Item

("ClientAccountNumber").Value)%>" ><%=(Recordset1.Fields.Item

("ClientAccountNumber").Value)%></option>

      <%

  Recordset1.MoveNext()

Wend

If (Recordset1.CursorType > 0) Then

  Recordset1.MoveFirst

Else

  Recordset1.Requery

End If

%>

    </select>

  </p>

  <p>Domain Address:

    <input type="text" name="Domain Address">

  </p>

  <p>ISP Holding Tag:

    <input type="text" name="ISP Holding Tag">

  </p>

  <p>Primary Name Server:

    <input type="text" name="Primary Name Server">

  </p>

  <p>

    <input type="submit" name="Submit" value="Submit">

  </p>

</form>

<p> </p>

</body>

</html>

<%

Recordset2.Close()

%>

<%

Recordset1.Close()

%>

**************************************************************



Abhilash



----- Original Message -----

From: <taherm@f...>

To: ASP Web HowTo <asp_web_howto@p...>

Sent: Wednesday, May 23, 2001 12:01 PM

Subject: [asp_web_howto] form update problem ; plz help!!!!





> i have a form with around 7-8 fields out of which 2 are drop down menu

type

> name comapny name and client account number.

>

> The scenario

> when i select a company name from the drop down menu , the appropriate

> client number should be displayed. IT DOES THIS!!!

>

> the problem

> it displays the appropriate client number in the text box but company name

> gets reset to the previous value.

> for example company name A has client number 1

>             company name B has client number 2

>             company name C has client number 3

> when the page loads it shows A in the company name box and nothing in the

> client number whic is fine!!

> when i select B from the company name the page refreshes and displays 2 in

> the client number but in the company name it displays A which is what i

> dont want.

>

> The code for teh page is below.

> plz help me!!!

>

>

> <%@LANGUAGE="VBSCRIPT"%>

> <!--#include file="../Connections/clientdb.asp" -->

> <%

> set Recordset2 = Server.CreateObject("ADODB.Recordset")

> Recordset2.ActiveConnection = MM_clientdb_STRING

> Recordset2.Source = "SELECT *  FROM ClientDetails"

> Recordset2.CursorType = 0

> Recordset2.CursorLocation = 2

> Recordset2.LockType = 3

> Recordset2.Open()

> Recordset2_numRows = 0

> %>

> <%

> Dim Recordset1__MMColParam

> Recordset1__MMColParam = "1"

> if (Request.Form("companyname") <> "") then Recordset1__MMColParam 

> Request.Form("companyname")

> %>

> <%

> set Recordset1 = Server.CreateObject("ADODB.Recordset")

> Recordset1.ActiveConnection = MM_clientdb_STRING

> Recordset1.Source = "SELECT * FROM ClientDetails WHERE CompanyName = '" +

> Replace(Recordset1__MMColParam, "'", "''") + "'"

> Recordset1.CursorType = 0

> Recordset1.CursorLocation = 2

> Recordset1.LockType = 3

> Recordset1.Open()

> Recordset1_numRows = 0

> %>

> <html>

> <head>

> <title>Fusion Client Domain Details</title>

> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">

> </head>

> <body bgcolor="#FFFFFF" text="#000000">

> <p align="center"><font size="+3"><b><font color="#000099">Enter New

> Client Domain

>   Information</font></b></font></p>

> <p align="center"><b><i><font size="+1" color="#FF3333">Step

> 3</font></i></b></p>

> <p align="left"><font size="+1" color="#000066"><a

> href="companyinsert.asp">Company

>   Information</a>, <a href="Contactinsert.asp">Contact Details</a>, <a

> href="domaininsert.asp">Domain

>   Details</a>,<a href="emailinsert.asp"> Email Details</a>, <a

> href="hostinginsert.asp">Hosting

>   Details</a>,<a href="ftpinsert.asp"> FTP Details</a>, <a

> href="../inserts/domainreg.asp">Domain

>   Reg Details</a>, <a href="ispinsert.asp">ISP Details</a></font></p>

> <form name="form1" method="post" action="test.asp">

>   <p>Company Name:

>     <select name="companyname" onChange="this.form.submit();">

>       <%

> While (NOT Recordset2.EOF)

> %>

>       <option value="<%=(Recordset2.Fields.Item("CompanyName").Value)%>"

> ><%=(Recordset2.Fields.Item("CompanyName").Value)%></option>

>       <%

>   Recordset2.MoveNext()

> Wend

> If (Recordset2.CursorType > 0) Then

>   Recordset2.MoveFirst

> Else

>   Recordset2.Requery

> End If

> %>

>     </select>

>   </p>

>   <p>Client Account Number:

>     <select name="number" >

>       <%

> While (NOT Recordset1.EOF)

> %>

>       <option value="<%=(Recordset1.Fields.Item

> ("ClientAccountNumber").Value)%>" ><%=(Recordset1.Fields.Item

> ("ClientAccountNumber").Value)%></option>

>       <%

>   Recordset1.MoveNext()

> Wend

> If (Recordset1.CursorType > 0) Then

>   Recordset1.MoveFirst

> Else

>   Recordset1.Requery

> End If

> %>

>     </select>

>   </p>

>   <p>Domain Address:

>     <input type="text" name="Domain Address">

>   </p>

>   <p>ISP Holding Tag:

>     <input type="text" name="ISP Holding Tag">

>   </p>

>   <p>Primary Name Server:

>     <input type="text" name="Primary Name Server">

>   </p>

>   <p>

>     <input type="submit" name="Submit" value="Submit">

>   </p>

> </form>

> <p> </p>

> </body>

> </html>

> <%

> Recordset2.Close()

> %>

> <%

> Recordset1.Close()

> %>

>

Return to Index

P2P Archives