File: D:/HostingSpaces/PvdBoogaard/indoorski.nl/backup/oude-site/asp/gastenboek/geplaatst.asp
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<%
Inbody = "<!DOCTYPE html PUBLIC ""-//W3C//DTD XHTML 1.0 Transitional//EN"" ""http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"">"
Inbody = Inbody & "<html xmlns=""http://www.w3.org/1999/xhtml"">"
Inbody = Inbody & "<head>"
Inbody = Inbody & "<meta http-equiv=""Content-Type"" content=""text/html; charset=iso-8859-1"" />"
Inbody = Inbody & "<title>Untitled Document</title>"
Inbody = Inbody & "<style type=""text/css"">"
Inbody = Inbody & "<!--"
Inbody = Inbody & ".style1 {"
Inbody = Inbody & "font-family: Verdana, Arial, Helvetica, sans-serif;"
Inbody = Inbody & "font-size: 10px;"
Inbody = Inbody & "color: #CC0211;"
Inbody = Inbody & "}"
Inbody = Inbody & ".style2 {"
Inbody = Inbody & "font-family: Verdana, Arial, Helvetica, sans-serif;"
Inbody = Inbody & "font-size: 10px;"
Inbody = Inbody & "font-weight: bold;"
Inbody = Inbody & "}"
Inbody = Inbody & "-->"
Inbody = Inbody & "</style>"
Inbody = Inbody & "</head>"
Inbody = Inbody & "<body>"
Inbody = Inbody & "<p align=""center"" class=""Style01""> Er is een nieuw bericht geplaatst in het gastenboek</p>"
Inbody = Inbody & "</body>"
Inbody = Inbody & "</html>"
%>
<%
'Aanroepen van het Persits ASP Email object
Set Mail = Server.CreateObject("Persits.MailSender")
'SMTP host via wie het verkeer afgehandeld moet worden
Mail.Host = "smtp.indoorski.nl"
'Afzender adres
Mail.From = "info@indoorski.nl"
'Afzender naam
Mail.FromName = "Indoorski Den Bosch"
'Adres van de ontvanger
Mail.AddAddress "pvdboogaard@indoorski.nl"
'Onderwerp van het Email bericht
Mail.Subject = "Nieuwe melding gastenboek ! "
Mail.IsHTML = True
Mail.Body = Inbody
strErr = ""
bSuccess = False
On Error Resume Next ' catch errors
Mail.Send ' send message
If Err <> 0 Then ' error occurred
strErr = Err.Description
else
bSuccess = True
End If
%>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<title>Geplaatst</title>
<link href="../../css/standaard.css" rel="stylesheet" type="text/css" />
</head>
<body onLoad="setTimeout('self.close()',3000)">
<p align="center" class="Style01">Je bericht is verzonden.</p>
<p align="center" class="Style04"><strong>Let op:</strong> Je bericht is pas na verificatie zichtbaar op de website. </p>
<p align="center" class="Style05">Dit scherm zal vanzelf gesloten worden na 5 seconden. <br />
</p>
<% Response.Write(pietje) %>
</body>
</html>