Ik heb hier iets zeer raar. Ik heb een formulier gemaakt in ASP waar een gebruiker zich kan aanmelden voor een nieuwsbrief, dit wordt dan in een access databank weggeschreven. Ik heb er ook een Javascriptje bijgevoegt die checkt of alle velden wel correct zijn ingevuld, en het werkt allemaal.
Nu maak ik een nieuw formulier, bijna helemaal hetzelfde, maar nu werkt het scriptje niet
Echt zeer raar, ik zoek nu al een uur in de code!
Het "/_includes/formvalidation.js" filetje is gewoon een standaard ding van internet gehaald, en dat werkt. Ziet iemand de fout? Sorry dat het een beetje een dom topic is, maar ik zoek nu echt al een uur in de code, en alles is gewoon juist
Nu maak ik een nieuw formulier, bijna helemaal hetzelfde, maar nu werkt het scriptje niet
ASP:
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
57
58
59
60
61
62
63
64
| <%@LANGUAGE="VBSCRIPT"%> <% Session.LCID = 2067%> <html> <body> <form name="form1" method="post"> Voornaam: <input type="text" name="voornaam"><br><br> Naam: <input type="text" name="naam"><br><br> e-mail adres: <input type="text" name="mail"><br><br> <input type="submit" value="Verzenden" onClick="checkForm(document.form1)"> </form> <!-- #include virtual="/_includes/formvalidation.js" --> <!-- #include virtual="/_includes/dsn.asp" --> <script language="javascript"> function checkForm(form) { var alertMessage = 'Gelieve volgende zaken na te kijken:\n\n'; var alertLength = alertMessage.length; alertMessage += checkField(form.naam.value, 'Naam is leeg', 1); alertMessage += checkField(form.voornaam.value, 'Voornaam is leeg', 1); alertMessage += checkField(form.email.value, 'E-mail is ongeldig', 2); if(alertMessage.length > alertLength) { alert(alertMessage); return false; } else { form.verzenden.disabled = true; form.submit(); } } </script> <% dim strnaam dim strvoornaam dim strmail dim dtedatum strvoornaam = request.form("voornaam") strnaam = request.form("naam") strmail = request.form("mail") dtedatum = month(date()) & "/" & day(date()) & "/" & year(date()) if strnaam <> "" then Dim rsConn, rs, SQL Set rsConn = ACT_GetDatabaseConn_Nieuwsbrief() SQL = "insert into tabonnees(naam, voornaam, email, datum_inschrijving, ip) VALUES('" & strnaam & "', '" & strvoornaam & "', '" & strmail & "', #" & dtedatum & "#, '" & request.servervariables("REMOTE_ADDR") & "') " rsConn.execute(SQL) Set rs = rsConn.Execute("SELECT @@IDENTITY AS Id") SQL = "insert into tinschrijvingen(abonneeid, siteid) VALUES( " & rs("Id") & ", " & "1" & " ) " rsConn.execute(SQL) %> <script language="javascript"> alert("Je bent succesvol ingeschreven") window.location = 'http://localhost/admin/nieuwsbrief' </script> <% end if %> </body> </html> |
Het "/_includes/formvalidation.js" filetje is gewoon een standaard ding van internet gehaald, en dat werkt. Ziet iemand de fout? Sorry dat het een beetje een dom topic is, maar ik zoek nu echt al een uur in de code, en alles is gewoon juist