<%@LANGUAGE="VBSCRIPT" CODEPAGE="28592"%>
<%
on error resume next
response.buffer = true
server.scripttimeout = 60
kome="info@hns-ri-maldi.com" ' "garma@garma.hr" Mail na koji se kontakt salje
poslano=false
if Request("Submit")="Šalji" then
subjekt="Upit s Media Mare stranice - osiguranje "
mail=Request("textfield3")
'************************ BODY Text *******************************
text= "------------------------- OSIGURANJE -------------------------" & vbCrlf
text = text & "Osiguranik: " & Request("textfield1") & vbCrlf
text = text & "Telefon: " & Request("textfield2")& vbCrlf
text = text & "E-mail: " & Request("textfield3") & vbCrlf
text = text & "Vrijednost osigurane posiljke: " & Request("textfield4") & vbCrlf
text = text & "Opis-Predmet osiguranja: " & Request("textfield5") & vbCrlf
text = text & "Vrsta osiguranja: " & Request("textfield6") & vbCrlf
text = text & "Relacija osiguranja: " & Request("textfield7")& vbCrlf
text = text & "Ostalo: " & Request("textfield8") & vbCrlf
'******************************************************************
' *************************** Za INSIDE ******************************************************
Dim objCDOMail
mes = ""
IsSuccess = false
'mail=Request("E-mail")
sMailServer = "mail.hns-ri-mladi.hr"
Set objMail = Server.CreateObject("CDO.Message")
Set objConf = Server.CreateObject("CDO.Configuration")
Set objFields = objConf.Fields
With objFields
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = sMailServer
.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 10
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
.Update
End With
With objMail
Set .Configuration = objConf
.From = mail
.To = kome
.Subject = subjekt
.TextBody = text
End With
objMail.Send
Set objMail = Nothing
' ********************************************************************************************
poslano=true
end if
if err.number <> 0 then
Response.Write(err.Description)
Response.End()
end if
%>
Media Mare d.o.o.
