Archief - JS: Popup met requeststring

Het archief is een bevroren moment uit een vorige versie van dit forum, met andere regels en andere bazen. Deze posts weerspiegelen op geen enkele manier onze huidige ideeën, waarden of wereldbeelden en zijn op sommige plaatsen gecensureerd wegens ontoelaatbaar. Veel zijn in een andere tijdsgeest gemaakt, al dan niet ironisch - zoals in het ironische subforum Off-Topic - en zouden op dit moment niet meer gepost (mogen) worden. Toch bieden we dit archief nog graag aan als informatiedatabank en naslagwerk. Lees er hier meer over of start een gesprek met anderen.
-

-=DT=-Lustra

Legacy Member
Ik heb een probleempje met een javascriptje dat een popup oproept.
De bedoeling van het scriptje is een popup oproepen met een klantenlijst die al gefilterd is door te zoeken naar klanten waarbij de reeds ingegeven letters overeenkomen in de naam. Ik wou dit doen door een requeststring de waarde mee te geven van een tekstveld. Normaal zou ik dit doen door er een formveld van te maken maar het veld maakt al deel uit van een form.

Ik zou iedereen zeer dankbaar zijn moest ik hiervoor een oplossing krijgen want dit maakt deel uit van mijn project voor school en ik vin de oplossing niet. Ben dan ook een totale leek op gebied van JS

Hier is de code:
Code: 
'klantenlijst popup genereren%>
<script language="javascript">
function klanten(strZoek) {

window.open('klanten.asp?str=' + strZoek,'newWin','resizable=1,scrollbars=1,width=350,height=350,top=60,left=60')
}
</script>

      <table width="572" border="0" align="center"> 
    	<tr> 
          <td>Naam: </td> 
          <td><input type="text" name="txtNaam" size="30">
<input type="button" name="bklant" value="Zoek" onClick="klanten(document.frmIngeven.txtNaam.Value)" >
A

Asshen

Legacy Member
Euhm...

waar staat je form !?
Die button moet wel binnen je form tags staan eh (je input field ook trouwens):

<form ...>
<input type="..." ...>
<button onlick="..." ...>
</form>
-

-=DT=-Lustra

Legacy Member
jaja da weet ik wel maar en da staat daar ook zo. Maar had alleen de code van het script en de button hier gepost gewoon omdat het hier ergens fout loopt maar weet niet goed waar ergens.

Ik heb nu een hele tijd zitten checken waar de fout zit ergens. En ben er bij uitgekomen dat de fout zit bij het opvragen van de waarde in het tekstvak. Als iemand mij zou kunnen zeggen hoe ik deze waarde kan opvragen zodat ik de waarde mee kan geven aan mijn functie.

alvast bedankt
-

-=DT=-Lustra

Legacy Member
Voila hier de full code.
Hetgeen waarmee ik problemen heb zit ongeveer op regel 50

Code: 
<!-- #include file="controle.asp" -->
<!-- #include file="stijlBegin.asp" --> 
      <!-- #include file="functions.asp" --> 
      <!-- #include file="adovbs.inc" --> 
      <!-- #include file="cnn.asp" --> 
      <%strRequest = request.QueryString("type")

select case strRequest
case "act"
response.write("<center><b>Activiteit Toevoegen</b></center>")
case "ond"
response.write("<center><b>Onderhoud Toevoegen</b></center>")
case "res"
response.write("<center><b>Reservatie Toevoegen</b></center>")
case "cres"
Session.Contents.Remove("intTeller")
Session.Contents.Remove("resID")
Session.Contents.Remove("arrKamers")
session("intTeller") = -1
case "kmr"
response.write session("intTeller")
session("intTeller") = session("intTeller")+ 1
response.write session("intTeller")
i=session("intTeller")
intKamernr = session("arrKamers")(i)
response.write("<center><b>Reservatie Kamer " & intKamernr & "</b></center>")
response.write(session("intTeller") & "<br />")

for i = 0 to ubound(session("arrKamers"))
response.write(session("arrKamers")(i))
next
end select

'controleren of het het formulier of het bevestingingsform is
if not strRequest="kmr" or strRequest="ckmr" then
set rstKamer = server.CreateObject("ADODB.Recordset")
rstKamer.Open "select * from tblKamer",cnn

set rstArrangement = server.CreateObject("ADODB.Recordset")
rstArrangement.Open "select * from tblArrangement",cnn
end if
if strRequest="act" OR strRequest="res" Or strRequest="ond" or strRequest="kmr" then
      response.write("<form name=""frmIngeven"" method=""POST"" action=""form.asp?type=c" & strRequest & """>")
	  else
	  response.write("<form name=""frmControle"" method=""POST"" action=""add.asp?type=" & strRequest & """>")
	  end if
%> 
        <%
'het formuliergedeelte om klantgegevens in te geven
 if strRequest="act" or strRequest="res"then

'klantenlijst popup genereren%>
<script language="javascript">
function klanten(strZoek) {

strLink = 'klanten.asp?str='+strZoek
document.write(document.frmIngeven.txtNaam.value)
document.write(strLink)
window.open(strLink,'newWin','resizable=1,scrollbars=1,width=350,height=350,top=60,left=60')
}
</script>

      <table width="572" border="0" align="center"> 
    	<tr> 
          <td>Naam: </td> 
          <td><input type="text" name="txtNaam" size="30">
<input type="button" name="bklant" value="Zoek" onClick="klanten(document.forms['frmIngeven'].txtNaam.Value)" >
</td> 
        </tr> 
        <tr> 
          <td>Voornaam: </td> 
          <td><input type="text" name="txtVoornaam" size="30"></td> 
        </tr> 
        <tr> 
          <td>Adres: </td> 
          <td><input type="text" name="txtAdres" size="30"></td> 
        </tr> 
        <tr> 
          <td>Gemeente: </td> 
          <td><input type="text" name="txtGemeente" size="30"></td> 
        </tr> 
        <tr> 
          <td>Telefoonnr: (vb: 011/882697) </td> 
          <td><input type="text" name="txtTelnr" size="20"></td>
        </tr>
<tr> 
          <td>&nbsp;  </td> 
          <td>&nbsp;  </td> 
        </tr>  


        <% end if
select case strRequest
'het formulier om een activiteit in te geven 
case "act" %> 

        <tr> 
          <td>Datum activiteit: </td> 
          <td> <%
		response.write("<select name=""dag"">")
		for intTeller = 1 to aantalDagen(datepart("m", date()))
		response.write("<option value=" & intTeller & " ")
		dagnu = datepart("d", date())
		if intTeller = dagnu  then response.write("selected") end if
		response.write(">" & intTeller & "</option>")
		next 		
		response.write("</select>")

		maanden = "januari,februari,maart,april,mei,juni,juli,augustus,september,oktober,november,december"
		maandArray = Split(maanden,",")
		response.write("<select name=""maand"">")
		for intTeller = 1 to 12
		response.write("<option value=" & intTeller & " ")
		maandnu = datepart("m", date())
		if intTeller = maandnu  then response.write("selected") end if
		response.write(">" & maandArray(intTeller-1) & "</option>")
		next 
		response.write("</select>")
		
		response.write("<select name=""jaar"">")
		for intTeller = datepart("yyyy", date()) to datepart("yyyy", date())+2
		response.write("<option value=" & intTeller & ">" & intTeller & "</option>")
		next 
		response.write("</select>")
		%> </td> 
        </tr> 
        <tr> 
          <td>Duur activiteit: </td> 
          <td> <select name="selDuur"> 
              <%
			for intTeller = 1 to 10
			response.write("<option value=" & intTeller & ">" & intTeller & "</option> uur")
			next
		%> 
            </select> uur/uren </td> 
        </tr> 
        <tr> 
          <td>Aanvang: </td> 
          <td> <select name="aanvangUur"> 
              <%
			for intTeller = 0 to 23
			response.write("<option value=" & intTeller & " ")
			uurnu = datepart("h", now())
			if intTeller = uurnu  then response.write("selected") end if
			response.write(">" & intTeller & "</option>")
			next
		%> 
            </select> 
            :
            <select name="aanvangMinuten"> 
              <%
			for intTeller = 0 to 59 step 10
				if intTeller < 10 then
				minuut = "0" & intTeller
				else
				minuut = intTeller
				end if
			response.write("<option value=" & minuut & ">" & minuut & "</option>")
			next
		%> 
            </select> </td> 
        </tr> 
        <tr> 
          <td> Beschrijving activiteit:</td> 
          <td> <textarea name="txtBeschrijving" cols="30" rows="3"></textarea> 
            </textarea> </td> 
        </tr> 
        <% 
'het formulier om een onderhoudsbeurt in te geven
case "ond" %> 
        <tr> 
          <td>Kamernummer:</td> 
          <td> <select name="lstKamernr" size="1"> 
              <% Do While Not rstKamer.EOF %> 
              <option VALUE="<% =rstKamer("kamernr")%>"><%=rstKamer("kamernr")%></option> 
              <%rstKamer.MoveNext 
        Loop%> 
            </SELECT> </td> 
        </tr> 
        <tr> 
          <td> Begindatum: </td> 
          <td> <%
		response.write("<select name=""dagbegin"">")
		for intTeller = 1 to aantalDagen(datepart("m", date()))
		response.write("<option value=" & intTeller & ">" & intTeller & "</option>")
		next 		
		response.write("</select>")

		maanden = "januari,februari,maart,april,mei,juni,juli,augustus,september,oktober,november,december"
		maandArray = Split(maanden,",")
		response.write("<select name=""maandbegin"">")
		for intTeller = 1 to 12
		response.write("<option value=" & intTeller)
		if intTeller = datepart("m", date()) then response.write(" SELECTED") end if
		response.write(">" & maandArray(intTeller-1) & "</option>")
		next 
		response.write("</select>")
		
		response.write("<select name=""jaarbegin"">")
		for intTeller = datepart("yyyy", date()) to datepart("yyyy", date())+2
		response.write("<option value=" & intTeller & ">" & intTeller & "</option>")
		next 
		response.write("</select>")
		%> </td> 
        </tr> 
        <tr> 
          <td> Einddatum: </td> 
          <td> <%
		response.write("<select name=""dageind"">")
		for intTeller = 1 to aantalDagen(datepart("m", date()))
		response.write("<option value=" & intTeller & ">" & intTeller & "</option>")
		next 		
		response.write("</select>")

		maanden = "januari,februari,maart,april,mei,juni,juli,augustus,september,oktober,november,december"
		maandArray = Split(maanden,",")
		response.write("<select name=""maandeind"">")
		for intTeller = 1 to 12
		response.write("<option value=" & intTeller)
		if intTeller = datepart("m", date()) then response.write(" SELECTED") end if
		response.write(">" & maandArray(intTeller-1) & "</option>")
		next 
		response.write("</select>")
		
		response.write("<select name=""jaareind"">")
		for intTeller = datepart("yyyy", date()) to datepart("yyyy", date())+2
		response.write("<option value=" & intTeller & ">" & intTeller & "</option>")
		next %> 
            </select></td> 
        </tr> 
        <tr> 
          <td> Beschrijving onderhoud:</td> 
          <td> <textarea name="txtBeschrijving" cols="30" rows="3"></textarea> 
            </textarea> </td> 
        </tr> 
        <%
'het formulier om een reservatie in te geven 
 case "res" %>
		<input name="teller" type="hidden" value="0"> 
        <tr> 
          <td> Begindatum: </td> 
          <td> <%
		response.write("<select name=""dagbegin"">")
		for intTeller = 1 to aantalDagen(datepart("m", date()))
		response.write("<option value=" & intTeller & ">" & intTeller & "</option>")
		next 		
		response.write("</select>")

		maanden = "januari,februari,maart,april,mei,juni,juli,augustus,september,oktober,november,december"
		maandArray = Split(maanden,",")
		response.write("<select name=""maandbegin"">")
		for intTeller = 1 to 12
		response.write("<option value=" & intTeller)
		if intTeller = datepart("m", date()) then response.write(" SELECTED") end if
		response.write(">" & maandArray(intTeller-1) & "</option>")
		next 
		response.write("</select>")
		
		response.write("<select name=""jaarbegin"">")
		for intTeller = datepart("yyyy", date()) to datepart("yyyy", date())+2
		response.write("<option value=" & intTeller & ">" & intTeller & "</option>")
		next 
		response.write("</select>")
		%> </td> 
        </tr> 
        <tr> 
          <td> Einddatum: </td> 
          <td> <%
		response.write("<select name=""dageind"">")
		for intTeller = 1 to aantalDagen(datepart("m", date()))
		response.write("<option value=" & intTeller & ">" & intTeller & "</option>")
		next 		
		response.write("</select>")

		maanden = "januari,februari,maart,april,mei,juni,juli,augustus,september,oktober,november,december"
		maandArray = Split(maanden,",")
		response.write("<select name=""maandeind"">")
		for intTeller = 1 to 12
		response.write("<option value=" & intTeller)
		if intTeller = datepart("m", date()) then response.write(" SELECTED") end if
		response.write(">" & maandArray(intTeller-1) & "</option>")
		next 
		response.write("</select>")
		
		response.write("<select name=""jaareind"">")
		for intTeller = datepart("yyyy", date()) to datepart("yyyy", date())+2
		response.write("<option value=" & intTeller & ">" & intTeller & "</option>")
		next %> 
            </select></td> 
        </tr> 
        <tr> 
          <td>Arrangement:</td> 
          <td> <select name="lstArrangement" size="1"> 
              <% Do While Not rstArrangement.EOF %> 
              <option VALUE="<% =rstArrangement("arrangementID")%>"> 
              <%response.write( rstArrangement("naam") ) %> 
              </option> 
              <%rstArrangement.MoveNext 
        	Loop
			%> 
            </SELECT> </td> 
        </tr> 
        <tr> 
          <td>Kamers:</td> 
          <td> <select name="lstKamernr" size="5" multiple> 
              <% Do While Not rstKamer.EOF %> 
              <option VALUE="<% =rstKamer("kamernr")%>"> 
              <%response.write( rstKamer("kamernr") & "  |  " & rstKamer("aantalpersonen") & " pers.  |  " & rstKamer("typekamer")) %> 
              </option> 
              <%rstKamer.MoveNext 
        	Loop
			%> 
            </SELECT> </td> 
        </tr>
        <tr> 
          <td>Reservatie bevestigd?</td> 
          <td><input name="chkBevestigd" type="checkbox" value="ja"></td> 
        </tr> 
        <td> Opmerkingen:</td> 
          <td> <textarea name="txtOpmerking" cols="30" rows="3"></textarea> 
            </textarea> </td> 
        </tr> <% case "kmr" %> 

        <tr>
<tr> 
          <td>Aantal volwassenen </td> 
          <td><input type="text" name="txtVolwassen" size="5"></td> 
        </tr> 
          <td>Aantal kinderen <i>(per leeftijdscategorie)</i></td> 
          <td> <input type="text" name="txtKind02" size="5"> 
            0-2 eigen bedje<br /> 
            <input type="text" name="txtKind04" size="5"> 
            0-4<br /> 
            <input type="text" name="txtKind58" size="5"> 
            5-8<br /> 
            <input type="text" name="txtKind912" size="5"> 
            8-12 </td> 
        </tr>
<tr> 
          <td>Single/Double: </td> 
          <td>
<input type="radio" name="radSingleDouble" value="single">single
<input type="radio" name="radSingleDouble" value="double">double
</td> 
        </tr>
<%
'het formulier om een activiteit in te geven 
case "cact" 

strNaam = Request.Form("txtNaam")
strVoornaam = Request.Form("txtVoornaam")
strAdres = Request.Form("txtAdres") & ", " & Request.Form("txtGemeente")
strTelnr = Request.Form("txtTelnr")

strDatum = Request.Form("dag") & "/" & Request.form("maand") & "/" & request.form("jaar")
strDuur = Request.Form("selDuur")
strAanvang = Request.Form("aanvangUur") & ":" & Request.form("aanvangMinuten")
strBeschrijving = Request.Form("txtBeschrijving")
%>

<tr>
<td>Naam:</td>
<td>
 <input name="txtNaam" type="hidden" value="<% =strNaam %>"><% =strNaam %>
</td>
</tr>
<tr>
<td>Voornaam:</td>
<td>
 <input name="txtVoornaam" type="hidden" value="<% =strVoornaam %>"><% =strVoornaam %>
</td>
</tr>
<tr>
<td>Adres:</td>
<td>
 <input name="txtAdres" type="hidden" value="<% =strAdres %>"><% =strAdres %>
</td>
</tr>
<tr>
<td>Telefoonnummer:</td>
<td>
 <input name="txtTelnr" type="hidden" value="<% =strTelnr %>"><% =strTelnr %>
</td>
</tr>
<tr>
<td>Datum:</td>
<td>
 <input name="txtDatum" type="hidden" value="<% =strDatum %>"><% =strDatum %>
</td>
</tr>
<tr>
<td>Duur:</td>
<td>
 <input name="txtDuur" type="hidden" value="<% =strDuur %>"><% =strDuur %>
</td>
</tr>
<tr>
<td>Aanvang:</td>
<td>
 <input name="txtAanvang" type="hidden" value="<% =strAanvang %>"><% =strAanvang %>
</td>
</tr>
<tr>
<td>Beschrijving:</td>
<td>
 <input name="txtBeschrijving" type="hidden" value="<% =strBeschrijving %>"><% =strBeschrijving %>
</td>
</tr>
<%
case "cres"
'sessievariabelen opvullen
strKamers = request.form("lstKamernr")
session("arrKamers") = split(strKamers,", ",-1,1)


strNaam = Request.Form("txtNaam")
strVoornaam = Request.Form("txtVoornaam")
strAdres = Request.Form("txtAdres") & ", " & Request.Form("txtGemeente")
strTelnr = Request.Form("txtTelnr")

strBeginDatum = Request.Form("dagbegin") & "/" & Request.form("maandbegin") & "/" & request.form("jaarbegin")
strEindDatum = Request.Form("dageind") & "/" & Request.form("maandeind") & "/" & request.form("jaareind")
strOpmerking = Request.Form("txtOpmerking")
intArrangement = Request.Form("lstArrangement")
if Request.form("chkBevestigd") = "Ja" then
blnBevestigd = "true"
else 
blnBevestigd = "false"
end if
%>
<tr>
<td>Naam:</td>
<td>
 <input name="txtNaam" type="hidden" value="<% =strNaam %>"><% =strNaam %>
</td>
</tr>
<tr>
<td>Voornaam:</td>
<td>
 <input name="txtVoornaam" type="hidden" value="<% =strVoornaam %>"><% =strVoornaam %>
</td>
</tr>
<tr>
<td>Adres:</td>
<td>
 <input name="txtAdres" type="hidden" value="<% =strAdres %>"><% =strAdres %>
</td>
</tr>
<tr>
<td>Telefoonnummer:</td>
<td>
 <input name="txtTelnr" type="hidden" value="<% =strTelnr %>"><% =strTelnr %>
</td>
</tr>
<tr>
<td>Begindatum:</td>
<td>
 <input name="txtDatumBegin" type="hidden" value="<% =strBeginDatum %>"><% =strBeginDatum %>
</td>
</tr>
<tr>
<td>Einddatum:</td>
<td>
 <input name="txtDatumEind" type="hidden" value="<% =strEindDatum %>"><% =strEindDatum %>
</td>
</tr>
<tr>
<td>Arrangement:</td>
<td>
 <input name="txtArrangement" type="hidden" value="<% =intArrangement %>"><% =intArrangement %> nog laten opzoeken
</td>
</tr>
<tr>
<td>bevestigd:</td>
<td>
 <input name="txtBevestigd" type="hidden" value="<% =blnBevestigd %>"><% =blnBevestigd %>
</td>
</tr>
<td>Opmerkingen:</td>
<td>
 <input name="txtOpmerking" type="hidden" value="<% =strOpmerking %>"><% =strOpmerking %>
</td>
</tr>

<%end select
if strRequest="act" OR strRequest="res" Or strRequest="ond" or strRequest="kmr" then%>
        <tr> 
          <td> <input type="submit" value="Toevoegen" name="cmdToevoegen"><input type="Button" value="Annuleren" onClick="parent.location='index.asp'"> </td> 
        </tr> 
<%else %>
<tr> 
          <td colspan="2">Bent u zeker dat u deze gegevens wil toevoegen aan de database?</td> 
        </tr> 
<tr> 
          <td> <input type="submit" value="Toevoegen" name="cmdToevoegen"></td>
		  <td><input type="Button" value="Aanpassen" onClick="history.back()"></td> 
        </tr> 
<%end if%>
      </table> 
      </form> 
      <%
if not strRequest="kmr" or strRequest="ckmr" then
rstKamer.Close
set rstKamer = nothing
rstArrangement.close
set rstArrangement = nothing
end if
cnn.close
set cnn = nothing
%> 
      <!-- #include file="stijlEind.asp" -->

ben er nu wel volop op aant experimenteren en heb mss de oplossing r nu hier zelfs al in staan maar zal voor zekerheid toch eerst maar eens testen he
-

-=DT=-Lustra

Legacy Member
Heb het zelf ondertussen gevonden:

Code: 
'klantenlijst popup genereren%>
<script language="javascript">
function klanten() {
strZoek = document.frmIngeven.txtNaam.value
strLink = 'klanten.asp?str='+strZoek
document.write(strLink)
window.open(strLink,'newWin','resizable=1,scrollbars=1,width=350,height=350,top=60,left=60')
}
</script>

      <table width="572" border="0" align="center"> 
    	<tr> 
          <td>Naam: </td> 
          <td><input type="text" name="txtNaam" size="30">
<input type="button" name="bklant" value="Zoek" onClick="klanten()" >

Toch bedankt voor de reacties.
A

Asshen

Legacy Member
Als het zo wel lukt, zou het in princiepe op de eerste manier ook moeten lukken.
Vreemd.
-

-=DT=-Lustra

Legacy Member
ik denk gewoon dat hier bij de het klikken op de knop pas de waarde van de velden gaat opvragen zoals bij een submit. Dat is imo de enige nog logische verklaring.
Het archief is een bevroren moment uit een vorige versie van dit forum, met andere regels en andere bazen. Deze posts weerspiegelen op geen enkele manier onze huidige ideeën, waarden of wereldbeelden en zijn op sommige plaatsen gecensureerd wegens ontoelaatbaar. Veel zijn in een andere tijdsgeest gemaakt, al dan niet ironisch - zoals in het ironische subforum Off-Topic - en zouden op dit moment niet meer gepost (mogen) worden. Toch bieden we dit archief nog graag aan als informatiedatabank en naslagwerk. Lees er hier meer over of start een gesprek met anderen.
Terug
Bovenaan