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
tweede pagina inloggen.asp
include file dbmanager.inc
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