| Groups | Blog | Home |
inetserver asp db : VB code is too fast => gives wrong value
is in the client-side vbscript so it will already be executed (and a set to 0) before you submit the form. If you need an alert box to display a result of the form post you will have to put it outside of the onsubmit function Try MsgBox "=<%=totd%>" after the "End Sub" statement in your client-side script block -- Mark Schupp Head of Development Integrity eLearning www.ielearning.com [quoted text, click to view] "Andre" <aa@no.it> wrote in message news:OK2SCgeXEHA.3112@tk2msftngp13.phx.gbl... > Hi, > > I need to fetch a value in an Access db, so i use a form to pass the > parameter for the SQL statement fromVB client to ASP. After the submit line > in VBscript, i expect the value in order to test it and go further in > VBscript. But my problem is when clicking on the button, that the VB code > doesn't wait to get that value and continues directly, so the a=<%=totd%> > line give 0 in stead of the real value. If i click a second time, i get the > value. > Any way to let de VB code after dtot.submit wait before it gets the value? > See the code: > <% > totd = 0 > dat=Request.Form("dt") > If Request.Form("dt") <> "" Then totd = records() > Function records() > set objdc = Server.CreateObject("ADODB.Connection") > objdc.Open("provider=Microsoft.Jet.OLEDB.4.0; Data Source > =d:\access\newres.mdb") > sql="select logon, count(uur) as totdag from studres where cdate(dag)='" & > dat & "' " > set rs=Server.CreateObject("ADODB.recordset") > rs.open sql, objdc, 3, 3 > records=rs.recordcount > Set rs = Nothing > End Function > %> > <html><head><title>Nieuwe pagina 1</title></head><body> > <script language=vbscript> > sub hfd_onclick() > a=0 > dat="6/30/2004" > document.getElementById("dt").value=dat > dtot.action="test3.asp" '=name of this file > dtot.method="post" > dtot.submit > 'too fast here > a=<%=totd%> '=0 on the first click, the real value on the second > click > msgbox a > end sub > </script> > <form name=dtot> > <input name="dt" type="hidden" value="" > > <INPUT name=hfd TYPE="button"> > </form> > > Thanks > andré > >
[quoted text, click to view]
> MsgBox "=<%=totd%>" Or MsgBox "<%=totd%>" -- http://www.aspfaq.com/ (Reverse address to reply.)
That is not how http works. You will have to submit the form and then in the
new page returned by that request to the server, add Javascript code to do whatever further processing you need. -- Mark Schupp Head of Development Integrity eLearning www.ielearning.com [quoted text, click to view] "Andre" <aa@no.it> wrote in message news:uhNKD9gXEHA.2844@TK2MSFTNGP12.phx.gbl... > Thanks, but in fact, i need that value from ASP in the procedure > hfd_onclick() because that value must be tested further in that procedure. I > put msgbox just to check the value. For example, if the value = 2, then > button "A" in the page must become visible, otherwise button "B" etc ... > > "Patrice" <nobody@nowhere.com> wrote in message > news:eMb0vyeXEHA.3016@tk2msftngp13.phx.gbl... > > It looks like you expect the change to take place immediately after > calling > > the submit method. Display the HTML source for your page. It's likely > you'll > > see : > > > > dtot.submit > > a=0 > > MsgBox a > > > > So : > > - the page is "submitted" (actually it's more likely "queued" as the > script > > must terminate before the page is really submitted) > > - a is 0 > > - 0 is displayed > > > > The script ends, the page is submitted and you get the new updated client > > side code... > > > > Patrice > > > > -- > > > > "Andre" <aa@no.it> a écrit dans le message de > > news:OK2SCgeXEHA.3112@tk2msftngp13.phx.gbl... > > > Hi, > > > > > > I need to fetch a value in an Access db, so i use a form to pass the > > > parameter for the SQL statement fromVB client to ASP. After the submit > > line > > > in VBscript, i expect the value in order to test it and go further in > > > VBscript. But my problem is when clicking on the button, that the VB > code > > > doesn't wait to get that value and continues directly, so the > a=<%=totd%> > > > line give 0 in stead of the real value. If i click a second time, i get > > the > > > value. > > > Any way to let de VB code after dtot.submit wait before it gets the > value? > > > See the code: > > > <% > > > totd = 0 > > > dat=Request.Form("dt") > > > If Request.Form("dt") <> "" Then totd = records() > > > Function records() > > > set objdc = Server.CreateObject("ADODB.Connection") > > > objdc.Open("provider=Microsoft.Jet.OLEDB.4.0; Data Source > > > =d:\access\newres.mdb") > > > sql="select logon, count(uur) as totdag from studres where cdate(dag)='" > & > > > dat & "' " > > > set rs=Server.CreateObject("ADODB.recordset") > > > rs.open sql, objdc, 3, 3 > > > records=rs.recordcount > > > Set rs = Nothing > > > End Function > > > %> > > > <html><head><title>Nieuwe pagina 1</title></head><body> > > > <script language=vbscript> > > > sub hfd_onclick() > > > a=0 > > > dat="6/30/2004" > > > document.getElementById("dt").value=dat > > > dtot.action="test3.asp" '=name of this file > > > dtot.method="post" > > > dtot.submit > > > 'too fast here > > > a=<%=totd%> '=0 on the first click, the real value on the > > second > > > click > > > msgbox a > > > end sub > > > </script> > > > <form name=dtot> > > > <input name="dt" type="hidden" value="" > > > > <INPUT name=hfd TYPE="button"> > > > </form> > > > > > > Thanks > > > andré > > > > > > > > > > > >
Hi,
I need to fetch a value in an Access db, so i use a form to pass the parameter for the SQL statement fromVB client to ASP. After the submit line in VBscript, i expect the value in order to test it and go further in VBscript. But my problem is when clicking on the button, that the VB code doesn't wait to get that value and continues directly, so the a=<%=totd%> line give 0 in stead of the real value. If i click a second time, i get the value. Any way to let de VB code after dtot.submit wait before it gets the value? See the code: <% totd = 0 dat=Request.Form("dt") If Request.Form("dt") <> "" Then totd = records() Function records() set objdc = Server.CreateObject("ADODB.Connection") objdc.Open("provider=Microsoft.Jet.OLEDB.4.0; Data Source =d:\access\newres.mdb") sql="select logon, count(uur) as totdag from studres where cdate(dag)='" & dat & "' " set rs=Server.CreateObject("ADODB.recordset") rs.open sql, objdc, 3, 3 records=rs.recordcount Set rs = Nothing End Function %> <html><head><title>Nieuwe pagina 1</title></head><body> <script language=vbscript> sub hfd_onclick() a=0 dat="6/30/2004" document.getElementById("dt").value=dat dtot.action="test3.asp" '=name of this file dtot.method="post" dtot.submit 'too fast here a=<%=totd%> '=0 on the first click, the real value on the second click msgbox a end sub </script> <form name=dtot> <input name="dt" type="hidden" value="" > <INPUT name=hfd TYPE="button"> </form> Thanks andré
It looks like you expect the change to take place immediately after calling
the submit method. Display the HTML source for your page. It's likely you'll see : dtot.submit a=0 MsgBox a So : - the page is "submitted" (actually it's more likely "queued" as the script must terminate before the page is really submitted) - a is 0 - 0 is displayed The script ends, the page is submitted and you get the new updated client side code... Patrice -- "Andre" <aa@no.it> a écrit dans le message de news:OK2SCgeXEHA.3112@tk2msftngp13.phx.gbl... [quoted text, click to view] > Hi, > > I need to fetch a value in an Access db, so i use a form to pass the > parameter for the SQL statement fromVB client to ASP. After the submit line > in VBscript, i expect the value in order to test it and go further in > VBscript. But my problem is when clicking on the button, that the VB code > doesn't wait to get that value and continues directly, so the a=<%=totd%> > line give 0 in stead of the real value. If i click a second time, i get the > value. > Any way to let de VB code after dtot.submit wait before it gets the value? > See the code: > <% > totd = 0 > dat=Request.Form("dt") > If Request.Form("dt") <> "" Then totd = records() > Function records() > set objdc = Server.CreateObject("ADODB.Connection") > objdc.Open("provider=Microsoft.Jet.OLEDB.4.0; Data Source > =d:\access\newres.mdb") > sql="select logon, count(uur) as totdag from studres where cdate(dag)='" & > dat & "' " > set rs=Server.CreateObject("ADODB.recordset") > rs.open sql, objdc, 3, 3 > records=rs.recordcount > Set rs = Nothing > End Function > %> > <html><head><title>Nieuwe pagina 1</title></head><body> > <script language=vbscript> > sub hfd_onclick() > a=0 > dat="6/30/2004" > document.getElementById("dt").value=dat > dtot.action="test3.asp" '=name of this file > dtot.method="post" > dtot.submit > 'too fast here > a=<%=totd%> '=0 on the first click, the real value on the second > click > msgbox a > end sub > </script> > <form name=dtot> > <input name="dt" type="hidden" value="" > > <INPUT name=hfd TYPE="button"> > </form> > > Thanks > andré > >
Thanks, but in fact, i need that value from ASP in the procedure
hfd_onclick() because that value must be tested further in that procedure. I put msgbox just to check the value. For example, if the value = 2, then button "A" in the page must become visible, otherwise button "B" etc ... [quoted text, click to view] "Patrice" <nobody@nowhere.com> wrote in message news:eMb0vyeXEHA.3016@tk2msftngp13.phx.gbl... > It looks like you expect the change to take place immediately after calling > the submit method. Display the HTML source for your page. It's likely you'll > see : > > dtot.submit > a=0 > MsgBox a > > So : > - the page is "submitted" (actually it's more likely "queued" as the script > must terminate before the page is really submitted) > - a is 0 > - 0 is displayed > > The script ends, the page is submitted and you get the new updated client > side code... > > Patrice > > -- > > "Andre" <aa@no.it> a écrit dans le message de > news:OK2SCgeXEHA.3112@tk2msftngp13.phx.gbl... > > Hi, > > > > I need to fetch a value in an Access db, so i use a form to pass the > > parameter for the SQL statement fromVB client to ASP. After the submit > line > > in VBscript, i expect the value in order to test it and go further in > > VBscript. But my problem is when clicking on the button, that the VB code > > doesn't wait to get that value and continues directly, so the a=<%=totd%> > > line give 0 in stead of the real value. If i click a second time, i get > the > > value. > > Any way to let de VB code after dtot.submit wait before it gets the value? > > See the code: > > <% > > totd = 0 > > dat=Request.Form("dt") > > If Request.Form("dt") <> "" Then totd = records() > > Function records() > > set objdc = Server.CreateObject("ADODB.Connection") > > objdc.Open("provider=Microsoft.Jet.OLEDB.4.0; Data Source > > =d:\access\newres.mdb") > > sql="select logon, count(uur) as totdag from studres where cdate(dag)='" & > > dat & "' " > > set rs=Server.CreateObject("ADODB.recordset") > > rs.open sql, objdc, 3, 3 > > records=rs.recordcount > > Set rs = Nothing > > End Function > > %> > > <html><head><title>Nieuwe pagina 1</title></head><body> > > <script language=vbscript> > > sub hfd_onclick() > > a=0 > > dat="6/30/2004" > > document.getElementById("dt").value=dat > > dtot.action="test3.asp" '=name of this file > > dtot.method="post" > > dtot.submit > > 'too fast here > > a=<%=totd%> '=0 on the first click, the real value on the > second > > click > > msgbox a > > end sub > > </script> > > <form name=dtot> > > <input name="dt" type="hidden" value="" > > > <INPUT name=hfd TYPE="button"> > > </form> > > > > Thanks > > andré > > > > > >
Here you are mixing client and server side processing :
- if you want to post the data, post them and have the server side page recreates the page with the appropriate buttons - if you don't need to post the data just have some client JavaScript code that updates the current page Keep in mind that the life cycle is always : - the browser ask a page (possibly posting data) - the server responds with a new page - the browser can then handle the page locally until another request is made to the server (possibly posting data) Patrice "Andre" <aa@no.it> a écrit dans le message de news:uhNKD9gXEHA.2844@TK2MSFTNGP12.phx.gbl... [quoted text, click to view] > Thanks, but in fact, i need that value from ASP in the procedure > hfd_onclick() because that value must be tested further in that procedure. I > put msgbox just to check the value. For example, if the value = 2, then > button "A" in the page must become visible, otherwise button "B" etc ... > > "Patrice" <nobody@nowhere.com> wrote in message > news:eMb0vyeXEHA.3016@tk2msftngp13.phx.gbl... > > It looks like you expect the change to take place immediately after > calling > > the submit method. Display the HTML source for your page. It's likely > you'll > > see : > > > > dtot.submit > > a=0 > > MsgBox a > > > > So : > > - the page is "submitted" (actually it's more likely "queued" as the > script > > must terminate before the page is really submitted) > > - a is 0 > > - 0 is displayed > > > > The script ends, the page is submitted and you get the new updated client > > side code... > > > > Patrice > > > > -- > > > > "Andre" <aa@no.it> a écrit dans le message de > > news:OK2SCgeXEHA.3112@tk2msftngp13.phx.gbl... > > > Hi, > > > > > > I need to fetch a value in an Access db, so i use a form to pass the > > > parameter for the SQL statement fromVB client to ASP. After the submit > > line > > > in VBscript, i expect the value in order to test it and go further in > > > VBscript. But my problem is when clicking on the button, that the VB > code > > > doesn't wait to get that value and continues directly, so the > a=<%=totd%> > > > line give 0 in stead of the real value. If i click a second time, i get > > the > > > value. > > > Any way to let de VB code after dtot.submit wait before it gets the > value? > > > See the code: > > > <% > > > totd = 0 > > > dat=Request.Form("dt") > > > If Request.Form("dt") <> "" Then totd = records() > > > Function records() > > > set objdc = Server.CreateObject("ADODB.Connection") > > > objdc.Open("provider=Microsoft.Jet.OLEDB.4.0; Data Source > > > =d:\access\newres.mdb") > > > sql="select logon, count(uur) as totdag from studres where cdate(dag)='" > & > > > dat & "' " > > > set rs=Server.CreateObject("ADODB.recordset") > > > rs.open sql, objdc, 3, 3 > > > records=rs.recordcount > > > Set rs = Nothing > > > End Function > > > %> > > > <html><head><title>Nieuwe pagina 1</title></head><body> > > > <script language=vbscript> > > > sub hfd_onclick() > > > a=0 > > > dat="6/30/2004" > > > document.getElementById("dt").value=dat > > > dtot.action="test3.asp" '=name of this file > > > dtot.method="post" > > > dtot.submit > > > 'too fast here > > > a=<%=totd%> '=0 on the first click, the real value on the > > second > > > click > > > msgbox a > > > end sub > > > </script> > > > <form name=dtot> > > > <input name="dt" type="hidden" value="" > > > > <INPUT name=hfd TYPE="button"> > > > </form> > > > > > > Thanks > > > andré > > > > > > > > > > > >
Don't see what you're looking for? Try a search.
|
June 2003
July 2003
August 2003
September 2003
October 2003
November 2003
December 2003
January 2004
February 2004
March 2004
April 2004
May 2004
June 2004
July 2004
August 2004
September 2004
October 2004
November 2004
December 2004
January 2005
February 2005
March 2005
April 2005
May 2005
June 2005
July 2005
August 2005
September 2005
October 2005
November 2005
December 2005
January 2006
February 2006
March 2006
April 2006
May 2006
June 2006
July 2006
August 2006
September 2006
October 2006
November 2006
December 2006
January 2007
February 2007
March 2007
April 2007
May 2007
June 2007
July 2007
August 2007
September 2007
October 2007
November 2007
| home · blog · groups | Questions? Comments? Contact the dn |