% response.buffer = true Sub SubForm %>
" else Response.Write " sent successfully...
" end if Response.Write "This component expires: " & Mailer.Expires & "
" End Sub Sub subSendMail Dim SendMailText SendMailText = "pokus GeoWebRing-cz" & VbCrLf Set Mailer = Server.CreateObject("SMTPsvg.Mailer") Mailer.RemoteHost = "smtp.ini.cz" Mailer.FromName = "www.zememeric.cz" Mailer.FromAddress = "valda@email.cz" Mailer.Recipient = "zememeric@ini.cz" Mailer.CC = "valda@email.cz" Mailer.Subject = "WWW-poznamka" Mailer.BodyText = SendMailText & txtmsg if not Mailer.SendMail then response.write "Error while sending mail to administrators." else response.write "Mail to administrators sended succesfull." end if Set Mailer = Nothing End Sub REM ************************************************************* REM **************** Výkonná část ******************************* REM ************************************************************* If IsNotNull(Request.form("txtmsg")) then subSend else subForm End If %>