[asp] Problemen met het versturen van formulier

Pagina: 1
Acties:

  • Alpha-sphere
  • Registratie: Januari 2001
  • Laatst online: 14-12-2021
he gasten.

Ik heb een probleempje bij het versturen van een formulier.
Ik heb namelijk 2 asp pagina's. De ene pagina heeft 1 invoervak en de andere pagina 2. als ik bij pagina 1 iets invoer en ik druk op enter in plaats van op het submitknop dan krijg ik een wit blanco pagina en als ik op submitknopje druk dan krijg ik wel wat ik wil. Bij pagina 2 gebeurt er wel wat als ik op enter druk en ook als ik op de sumbitknop druk.

de acties die de twee pagina's uit moeten voeren staat gekoppeld aan de submitknop naam. Allebeide submitknoppen van de twee pagina's hebben dezelfde naam. Namelijk knop1

Waarom kan ik bij de ene pagina wel op enter drukken om iets door te sturen en de andere niet? :?

eerste pagina zoek.asp
code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
<%
dim tabel1, kolom1
tabel1 = "voorstelling"
kolom1 = "naam"
frmInvoerA = request.form("invoerA")
frmInvoerB = request.form("invoerB")
frmInvoerC = request.form("invoerC")
frmInvoerD = request.form("invoerD")
frmInvoerE = request.form("invoerE")
frmInvoerF = request.form("invoerF")
frmInvoerG = request.form("invoerG")
frmInvoerH = request.form("invoerH")
frmInvoerI = request.form("invoerI")
frmInvoerJ = request.form("invoerJ")
frmInvoerK = request.form("invoerK")
frmInvoerL = request.form("invoerL")
frmSubmit = request.form("submit")

Set connectionToDatabase=Server.CreateObject("ADODB.Connection")
connectionToDatabase.ConnectionTimeout=60
connectionToDatabase.Open "DSN=test"
Set recordSet=Server.CreateObject("ADODB.Recordset")

If frmInvoerA = "" then
    response.write ("<form action='zoek.asp' method='post'>")
    response.write ("<table cellspacing='2' cellpadding='2' border='0' bgcolor='Gray'>")
    response.write ("<tr>")
    response.write ("<td colspan='7' bgcolor='Black'><font color='White'><b>Include test</b></td>")
    response.write ("</tr>")
    response.write ("<tr>")
    response.write ("<td colspan='7' align='center'><input type='text' name='InvoerA'></td>")
    response.write ("</tr>")
    response.write ("<td><input type='submit' name='submit' value='knop1'></td>")
    response.write ("</table>")
    response.write ("</form>")
else %>
<!-- #include file="dbmanager.inc"-->
<%
    If recordSet.bof and recordSet.eof then
        response.write "voorstelling niet gevonden"
    else
        response.write ("<center><table border=1><tr><th>Voorstelling</th><th>Datum</th><th>Tijd</th></tr>")
        response.write ("<tr>")
        response.write ("<td>" & recordSet("naam") & "</td>")
        response.write ("<td>" & recordSet("datum") & "</td>")
        response.write ("<td>" & recordSet("tijd")& "</td>")
        response.write ("</tr>")
        response.write ("</table></center>")
    end if
end if
end if
connectionToDatabase.Close
Set connectionToDatabase=Nothing
%>

tweede pagina inloggen.asp
code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
<%
dim tabel1, kolom1
tabel1 = "administrator"
kolom1 = "gebruikersnaam"
frmInvoerA = request.form("invoerA")
frmInvoerB = request.form("invoerB")
frmInvoerC = request.form("invoerC")
frmInvoerD = request.form("invoerD")
frmInvoerE = request.form("invoerE")
frmInvoerF = request.form("invoerF")
frmInvoerG = request.form("invoerG")
frmInvoerH = request.form("invoerH")
frmInvoerI = request.form("invoerI")
frmInvoerJ = request.form("invoerJ")
frmInvoerK = request.form("invoerK")
frmInvoerL = request.form("invoerL")
frmSubmit = request.form("submit")

Set connectionToDatabase=Server.CreateObject("ADODB.Connection")
connectionToDatabase.ConnectionTimeout=60
connectionToDatabase.Open "DSN=test"
Set recordSet=Server.CreateObject("ADODB.Recordset")

If frmInvoerA = "" then
    response.write ("<form action='inloggen.asp' method='post'>")
    response.write ("<table cellspacing='2' cellpadding='2' border='0' bgcolor='Gray'>")
    response.write ("<tr>")
    response.write ("<td colspan='7' bgcolor='Black'><font color='White'><b>Include test</b></td>")
    response.write ("</tr>")
    response.write ("<tr>")
    response.write ("<td colspan='7' align='center'><input type='text' name='InvoerA'></td>")
    response.write ("<td colspan='7' align='center'><input type='text' name='InvoerB'></td>")
    response.write ("</tr>")
    response.write ("<td><input type='submit' name='submit' value='knop1'></td>")
    response.write ("</table>")
    response.write ("</form>")
else %>
<!-- #include file="dbmanager.inc"-->
<%
        if not recordSet.EOF then
            if recordSet("wachtwoord") = frmInvoerB then
                session.contents("admin") = "True"
                session.contents("ID_administrator") = recordSet("ID_administrator")
                session.contents("Gebruikersnaam") = recordSet("gebruikersnaam")
                response.redirect "sitemap.asp"
            else Response.write "Het inloggen is niet gelukt. Uw wachtwoord is niet juist"
                Response.write ("<br> Probeer het nogmaals. Klik <a href='login.asp'>Hier</a> om terug te gaan naar het inlogpagina")
            end if
        else Response.write "Uw gebruikersnaam klopt niet."
             Response.write ("<br> Probeer het nogmaals. Klik <a href='login.asp'>Hier</a> om terug te gaan naar het inlogpagina")
        end if
end if
end if
connectionToDatabase.Close
Set connectionToDatabase=Nothing
%>

include file dbmanager.inc
code:
1
2
3
4
5
6
7
8
9
<%
if frmSubmit = "knop1" then
    if frmInvoerA <> "" and frmInvoerB = "" then
        recordSet.Open "SELECT * FROM "& tabel1 &" WHERE "& kolom1 &" = '" & frmInvoerA & "'", connectionToDatabase,1,2
    end if
    if frmInvoerA <> "" and frmInvoerB <> "" then
        recordSet.Open "SELECT * FROM "& tabel1 &" WHERE "& kolom1 &" = '" & frmInvoerA & "'", connectionToDatabase,1,2
    end if
%>

Assume there are no rules and it's one big free for all


Verwijderd

Bij pagina 2 gebeurt er wel wat als ik op enter druk en ook als ik op enter druk
:?

maar goed...

Maak je in de ASP code misschien onderscheid in Request.QueryString en Request.Form?
Probleem is een beetje vaag (vooral zonder code :))

Verwijderd

Op maandag 25 maart 2002 13:26 schreef vanDee het volgende:

[..]

:?

maar goed...

Maak je in de ASP code misschien onderscheid in Request.QueryString en Request.Form?
Probleem is een beetje vaag (vooral zonder code :))
[off topic]
Ik heb in een asp boek een stukje zitten lezen over request.querystring en request.form maar ik zie daar niet veel verschil, kan het zijn dat ik een beginners boek (Active Server Pages 3.0 uitgever: academic service) heb van ASP.
Kan jij mij dan uitleggen wat het verschil is, want dat snap ik nog steeds niet??
[/off topic]

  • Ramon
  • Registratie: Juli 2000
  • Laatst online: 22:53
Op maandag 25 maart 2002 14:38 schreef msoete het volgende:

[..]

[off topic]
Ik heb in een asp boek een stukje zitten lezen over request.querystring en request.form maar ik zie daar niet veel verschil, kan zijn dat ik een beginners boek (Active Server Pages 3.0 uitgever: academic service) heb van ASP.
Kan jij mij dan uitleggen wat het verschil is, want dat snap ik nog steeds niet??
[/off topic]
met request.form kun je gegevens uit een formulier halen (dus alles binnen <form> en </form> tags).

met request.querystring kun je gegeven uit de url halen.

bijv:

url: 'www.url.com/pagina.asp?id=20'

asp: id = request.form( "id" );

id is hier dus 20.

Check mijn V&A ads: https://tweakers.net/aanbod/user/9258/


  • Dope-E
  • Registratie: Januari 2001
  • Laatst online: 08-09 13:23

Dope-E

The one and only Dope

De querystring is wat er na de ? in de url komt:
http://www.blabla.nl/test.asp?naam=piet&email=piet@blabla.nl
code:
1
2
request.querystring("naam") '= "piet"
request.querystring("email") '= "piet@blabla.nl"

Met request.form kun je alle elementen uit de geposte form opvragen...
je hebt bv. een form met:
code:
1
2
3
4
<form name=form1 action=test.asp action=post>
<input name=naam value=piet>
<input name=email value=piet@blabla.nl>
</form>

dan kun je na posten dus het volgende opvragen:
code:
1
2
request.form("naam") '= "piet"
request.form("email") '= "piet@blabla.nl"

twitter.com/curly_sanders


Verwijderd

Je kan ook gewoon request("naam") gebruiken

hmmm, ik zie zo snel niets wat fout kan gaan. Beetje vreemd, ff code in eigen systeempje plakken.

Verwijderd

Request.QueryString gebruik je voor GET-requests. (Dus Form type="GET")

Request.Form gebruik je voor POST-requests. (Dus Form type="POST")

Verwijderd

oke weer wat geleerd, bedankt. :)

Terwijl er nog geen oplossing is waarover dit topic eigenlijk gaat.
Ik heb zelf geen idee. :?

  • Alpha-sphere
  • Registratie: Januari 2001
  • Laatst online: 14-12-2021
Iemand........ :?

Assume there are no rules and it's one big free for all


Verwijderd

Ik kan alleen maar zeggen :?

  • Alpha-sphere
  • Registratie: Januari 2001
  • Laatst online: 14-12-2021
Heb je die code ook geprobeerd???
Ik snap er geen drol meer van. misschien moet ik de code maar even nog een keer tikken.

Assume there are no rules and it's one big free for all


  • Alpha-sphere
  • Registratie: Januari 2001
  • Laatst online: 14-12-2021
Ik ben d'r net achter gekomen dat ik alleen niks weergegeven, krijg als op enter druk, in Internet explorer.
Als ik het met opera en netscape op enter druk nadat ik iets heb ingevoerd dan pakt ie 'm wel. Moeilijk vaag

Assume there are no rules and it's one big free for all

Pagina: 1