%@LANGUAGE="VBSCRIPT" CODEPAGE="1250"%>
<%
Dim sName, sEmail, sBody
sName=request.form("name")
sEmail=request.form("email")
sBody=request.form("body")
if sName<>"" or sBody<>"" or sEmail<>"" then
if sName="" then
htmout="Niste upisali ime i prezime!
"
elseif sBody="" then
htmout="Niste upisali poruku!
"
else
set msg = Server.CreateObject("JMail.SMTPMail")
msg.charset="windows-1250"
' Set logging to true to ease any potential debugging
' And set silent to true as we wish to handle our errors ourself
msg.Logging = true
msg.silent = true
' Enter the sender data
msg.sender = "webKontakt@marani.hr"
msg.senderName = sName
' Note that as addRecipient is method and not
' a property, we do not use an equals ( = ) sign
msg.AddRecipient "info@marani.hr"
' The subject of the message
msg.Subject = "www.marani.hr - Kontakt"
' And the body
msg.body = "Šalje: "& sName & vbcrlf & sEmail&": " & vbcrlf & vbcrlf & sBody
' Now send the message, using the indicated mailserver
msg.execute
htmout="Vaša je poruka zaprimljena!
"
' if err=0 then
' htmout="Vaša je poruka zaprimljena!
"
' else
' htmout="Greška - poruka nije poslana!
"
' end if
' And we're done! the message has been sent.
end if
end if
%>
![]() |
|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
![]() |
|
||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
|
|
||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||