<%
if ileeg = 1 then
response.write "Nog geen berichten in het gastenboek!
"
else
' Tel het aantal rijen.
Dim iAantalRijen, iRijTeller, iStop
iAantalRijen=ubound(aAlleData,2)
If iAantalRijen > (iOffset + iStart) Then
iStop = iOffset + iStart - 1
Else
iStop = iAantalRijen
End If
' Loop door de rijen heen.
FOR iRijTeller = iStart to iStop
' Zet de waarden uit uit de database in de variabelen.
sNaam = aAlleData(1,iRijTeller)
sEmail = aAlleData(2,iRijTeller)
sWebsite = aAlleData(3,iRijTeller)
sBericht = aAlleData(4,iRijTeller)
sDatum = aAlleData(5,iRijTeller)
if blnSmileys = True then
' Verander de smileys in plaatjes.
sBericht = Replace(sBericht, "[:)]", " ", 1, -1, 1)
sBericht = Replace(sBericht, "[:student:]", " ", 1, -1, 1)
sBericht = Replace(sBericht, "[:happybirthday:]", " ", 1, -1, 1)
sBericht = Replace(sBericht, "[:smilies:]", " ", 1, -1, 1)
sBericht = Replace(sBericht, "[:greenbiggrin:]", " ", 1, -1, 1)
sBericht = Replace(sBericht, "[:greenrolleyes:]", " ", 1, -1, 1)
sBericht = Replace(sBericht, "[:shy:]", " ", 1, -1, 1)
sBericht = Replace(sBericht, "[:baby:]", " ", 1, -1, 1)
sBericht = Replace(sBericht, "[:oh:]", " ", 1, -1, 1)
sBericht = Replace(sBericht, "[:finger:]", " ", 1, -1, 1)
sBericht = Replace(sBericht, "[:animbaby:]", " ", 1, -1, 1)
sBericht = Replace(sBericht, "[:greenrolleyes:]", " ", 1, -1, 1)
sBericht = Replace(sBericht, "[:madashell:]", " ", 1, -1, 1)
sBericht = Replace(sBericht, "[:inlove:]", " ", 1, -1, 1)
sBericht = Replace(sBericht, "[:razz:]", " ", 1, -1, 1)
sBericht = Replace(sBericht, "[:angel:]", " ", 1, -1, 1)
sBericht = Replace(sBericht, "[:read:]", " ", 1, -1, 1)
sBericht = Replace(sBericht, "[:walk:]", " ", 1, -1, 1)
sBericht = Replace(sBericht, "[:smoker:]", " ", 1, -1, 1)
sBericht = Replace(sBericht, "[:sad:]", " ", 1, -1, 1)
sBericht = Replace(sBericht, "[;)]", " ", 1, -1, 1)
sBericht = Replace(sBericht, "[:disgust:]", " ", 1, -1, 1)
sBericht = Replace(sBericht, "[:mad:]", " ", 1, -1, 1)
sBericht = Replace(sBericht, "[:drunk:]", " ", 1, -1, 1)
sBericht = Replace(sBericht, "[:D]", " ", 1, -1, 1)
sBericht = Replace(sBericht, "[:afro:]", " ", 1, -1, 1)
sBericht = Replace(sBericht, "[:bigmouth:]", " ", 1, -1, 1)
sBericht = Replace(sBericht, "[:banghead:]", " ", 1, -1, 1)
sBericht = Replace(sBericht, "[:cat:]", " ", 1, -1, 1)
sBericht = Replace(sBericht, "[:bored:]", " ", 1, -1, 1)
sBericht = Replace(sBericht, "[:x]", " ", 1, -1, 1)
sBericht = Replace(sBericht, "[:hat:]", " ", 1, -1, 1)
sBericht = Replace(sBericht, "[:crazy:]", " ", 1, -1, 1)
sBericht = Replace(sBericht, "[:dunce:]", " ", 1, -1, 1)
sBericht = Replace(sBericht, "[:eyepop:]", " ", 1, -1, 1)
sBericht = Replace(sBericht, "[:(]", " ", 1, -1, 1)
sBericht = Replace(sBericht, "[:boo:]", " ", 1, -1, 1)
sBericht = Replace(sBericht, "[:hug:]", " ", 1, -1, 1)
sBericht = Replace(sBericht, "[:hyper:]", " ", 1, -1, 1)
sBericht = Replace(sBericht, "[:innocent:]", " ", 1, -1, 1)
sBericht = Replace(sBericht, "[:jester:]", " ", 1, -1, 1)
sBericht = Replace(sBericht, "[:king:]", " ", 1, -1, 1)
sBericht = Replace(sBericht, "[:queen:]", " ", 1, -1, 1)
sBericht = Replace(sBericht, "[:knight:]", " ", 1, -1, 1)
sBericht = Replace(sBericht, "[:prin:]", " ", 1, -1, 1)
sBericht = Replace(sBericht, "[:lily:]", " ", 1, -1, 1)
sBericht = Replace(sBericht, "[:medusa:]", " ", 1, -1, 1)
sBericht = Replace(sBericht, "[:monkey:]", " ", 1, -1, 1)
sBericht = Replace(sBericht, "[:prop:]", " ", 1, -1, 1)
sBericht = Replace(sBericht, "[:rose:]", " ", 1, -1, 1)
sBericht = Replace(sBericht, "[:smoke:]", " ", 1, -1, 1)
sBericht = Replace(sBericht, "[:skull:]", " ", 1, -1, 1)
sBericht = Replace(sBericht, "[:finger:]", " ", 1, -1, 1)
sBericht = Replace(sBericht, "[:tired:]", " ", 1, -1, 1)
sBericht = Replace(sBericht, "[:tomb:]", " ", 1, -1, 1)
sBericht = Replace(sBericht, "[:vamp:]", " ", 1, -1, 1)
sBericht = Replace(sBericht, "[:yell:]", " ", 1, -1, 1)
sBericht = Replace(sBericht, "[:yuck:]", " ", 1, -1, 1)
sBericht = Replace(sBericht, "[:zombie:]", " ", 1, -1, 1)
sBericht = Replace(sBericht, "[:z:]", " ", 1, -1, 1)
end if
' Als er geen sNaam ingevult is, maak er Anoniem van.
if trim(sNaam) = "" OR isnull(sNaam) OR trim(sEmail) = chr(13) then
sNaam = "Anoniem"
end if
' Kijk of er een e-mailadres is ingevuld en als dat er is maar er een link van.
if trim(sEmail) = "" OR isnull(sEmail) OR trim(sEmail) = chr(13) then
sNaamveld = sNaam
else
if isEmail(sEmail)= true then
sNaamveld = nospam(sEmail,sNaam)
else
sNaamveld = sNaam
end if
end if
' Kijk of er iets is ingevult voor sWebsite
if trim(sWebsite) = "" OR trim(sWebsite) = "http://" then
sWebsite = "-"
else
sTekst = sWebsite
if len(sTekst) > 34 then
sTekst = left(sTekst,34)
sTekst = sTekst & "..."
end if
sWebsite = "" & sTekst & ""
end if
%>
Door:
<%= sNaamveld %> |
Website: <%= sWebsite %> |
<%= sDatum %> |
<%= sBericht %> |
|
<%
NEXT
%>
<%
'Toon de vorige link
if iStart > 0 then
Response.Write ""
end if
%> |
Pagina <%= cInt(iStart/iOffset)+1 %> van de <%= round(((iAantalRijen+1)/iOffset)+0.49999) %> |
<%
'Toon de volgende link
if iStop < iRijTeller AND (iStart+iOffset) < iAantalRijen then
Response.Write ""
end if
%>
|
<%
end if
%> |