Ik ben net begonnen met het leren van ASP, lees veel en het lukt al aardig.
Alleen ben ik u bezig met een gastenboek. Het werkte allemaal alleen kon je lege berichten posten. Dit wilde ik dus graag af vangen. Jammer genoeg wil dit niet echt werken.
Hier onder de code:
Ik heb het idee dat het wat kleins is, maar ik kijk er al een uur over heen.... Iemand die het wel ziet?
Je kan nu dus nog steeds lege berichten in voeren.
Alleen ben ik u bezig met een gastenboek. Het werkte allemaal alleen kon je lege berichten posten. Dit wilde ik dus graag af vangen. Jammer genoeg wil dit niet echt werken.
Hier onder de code:
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
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
| <%@ language="VBscript" %>
<% option explicit %>
<%
dim db
set db=server.createobject("ADODB.Connection")
db.connectionstring = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../metropole.mdb")
db.open
%>
<%
dim strsql
strSQL= "SELECT * FROM Gastenboek"
dim objcontact
set objcontact = server.createobject("ADODB.recordset")
objcontact.open strSQL, db, 1,3
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<html>
<head>
<title>  | Metropole Orkest |  </title>
<meta http-equiv="Pragma" content="no-cache">
<link rel="stylesheet" href="../css/metropole.css" type="text/css">
</head>
<body bgcolor="#FFFFFF" text="#000000" background="../images/bg_tekstvlak.jpg">
<h1 class="kop">U Heeft zo juist in het gastenboek geschreven<br>
<%
function checkHTML(toCheck)
Dim lObjRegExp
if VarType(toCheck) = vbNull Then Exit function
if toCheck = "" Then Exit function
Set lObjRegExp = New RegExp
lObjRegExp.Global = True
lObjRegExp.IgnoreCase = True
lObjRegExp.Pattern = "<"
toCheck = lObjRegExp.Replace(toCheck, "<")
lObjRegExp.Pattern = """"
toCheck = lObjRegExp.Replace(toCheck, """)
Set lObjRegExp = Nothing
checkHTML = toCheck
End function
if isNull(request.form("naam")) Or isNull(request.form("bericht")) then
response.write("<p class=""kop"">U Heeft niks gepost.</p>")
else
objcontact.addnew
objcontact("naam")= checkHTML(request.form("naam"))
objcontact("email")= checkHTML(request.form("email"))
objcontact("bericht")= checkHTML(request.form("bericht"))
objcontact("datum")= request.form("datum")
objcontact.update
objcontact.close
set objcontact = nothing
db.close
set db = nothing
End if
if isNull(request.form("naam")) Or isNull(request.form("bericht")) then
%>
<p class="tekst">U heeft bepaalde velden niet ingevuld.</p><br>
<% else %>
<p class="tekst">U heeft succesvol een bericht toegevoegd aan het gastenboek</p><br>
<% End If
response.write("<i class=""tekst"">" & checkHTML(request.form("naam")) & "</i><br>")
response.write("<i class=""tekst"">" & checkHTML(request.form("email")) & "</i><br>")
response.write("<i class=""tekst"">" & checkHTML(request.form("bericht")) & "</i><br><br>")
%>
<a href="gastenboek.asp" class="tekst">Terug naar het gastenboek.</a>
</body>
</html> |
Ik heb het idee dat het wat kleins is, maar ik kijk er al een uur over heen.... Iemand die het wel ziet?
Je kan nu dus nog steeds lege berichten in voeren.