<% Dim objPrejemnik Dim objPosiljatelj ' Our CDO object Dim strFrom Dim strSubjectPrejemnik Dim strBodyPrejemnik Dim strSubjectPosiljatelj Dim strBodyPosiljatelj Dim strZnamka Dim strModel Dim strLetnik Dim strTip Dim strMoc Dim strProstornina Dim strIme Dim strElektronskiNaslov Dim strDodatno Dim strStevilkaArtikla Dim strOpisArtikla Dim strSteviloKosov Dim strOdprema Dim strKontaktniTelefon Dim strPodjetje Dim strPriimek Dim strUlica Dim strPosta strZnamka = Request.Form("Znamka") strModel = Request.Form("Model") strLetnik = Request.Form("Letnik") strTip = Request.Form("Tip") strMoc = Request.Form("Moc") strProstornina = Request.Form("Prostornina") strOblikaKaroserije = Request.Form("OblikaKaroserije") strVrstaPogona = Request.Form("VrstaPogona") strDodatno = Request.Form("Dodatno") strIme = Request.Form("Ime") strStevilkaArtikla = Request.Form("StevilkaArtikla") strOpisArtikla = Request.Form("OpisArtikla") strSteviloKosov = Request.Form("SteviloKosov") strOdprema = Request.Form("Odprema") strKontaktniTelefon = Request.Form("KontaktniTelefon") strPodjetje = Request.Form("Podjetje") strPriimek = Request.Form("Priimek") strUlica = Request.Form("Ulica") strPosta = Request.Form("Posta") strElektronskiNaslov = "BMC d.o.o." strFrom = Request.Form("ElektronskiNaslov") %> <% If (Request("OddajPovprasevanje") = "Pošlji!") Then strSubjectPrejemnik = "Povpraševanje preko spletnega obrazca!" strSubjectPosiljatelj = "Prejeto povpraševanje preko spletnega obrazca!" strBodyPrejemnik = "" & vbCrLf _ & "" & vbCrLf _ & "" & vbCrLf _ & "" & vbCrLf _ & "Povpraševanje za BMC d.o.o." & vbCrLf _ & "" & vbCrLf _ & "" & vbCrLf _ & "

Povpraševanje preko spletnega obrazca!

" & vbCrLf _ & "

" & vbCrLf _ & " Elektronsko povpraševanje za znamko avtomobila " & strZnamka & " je poslal " & strIme & ". Odgovor želi prejeti na elektronski naslov " & strFrom & "" & vbCrLf _ & "

" & vbCrLf _ & " " & vbCrLf _ & "

Znamka: " & strZnamka & "
" & vbCrLf _ & " Model: " & strModel & "
" & vbCrLf _ & " Letnik: " & strLetnik & "
" & vbCrLf _ & " Tip motorja: " & strTip & "
" & vbCrLf _ & " Moč: " & strMoc & " kW
" & vbCrLf _ & " Prostornina: " & strProstornina & " ccm
" & vbCrLf _ & " Oblika karoserije: " & strOblikaKaroserije & "
" & vbCrLf _ & " Vrsta pogona: " & strVrstaPogona & "

" & vbCrLf _ & " Opombe: " & strDodatno & "

" & vbCrLf _ & "

To sporočilo je bilo poslano preko elektronskega obrazca, ki se nahaja na spletni strani podjetja BMC d.o.o.. V kolikor ste pomotoma prejeli to elektronsko sporočilo, Vas prosimo da ga nemudoma izbrišete!

" & vbCrLf _ & "
" & vbCrLf _ & "" & vbCrLf _ & "" & vbCrLf strBodyPosiljatelj = "" & vbCrLf _ & "" & vbCrLf _ & "" & vbCrLf _ & " BMC d.o.o." & vbCrLf _ & " " & vbCrLf _ & "" & vbCrLf _ & "" & vbCrLf _ & "

Uspešno povpraševanje preko spletnega obrazca!

" & vbCrLf _ & "

" & vbCrLf _ & " Spoštovani(a) " & strIme & ". Prejeli smo vaše elektronsko povpraševanje za znamko avtomobila " & strZnamka & ". Odgovor Vam bomo poslali na vaš elektronski naslov, v najkrajšem možnem času.
Podatki, ki ste jih posredovali so:" & vbCrLf _ & "

" & vbCrLf _ & " " & vbCrLf _ & "

Znamka: " & strZnamka & "
" & vbCrLf _ & " Model: " & strModel & "
" & vbCrLf _ & " Letnik: " & strLetnik & "
" & vbCrLf _ & " Tip motorja: " & strTip & "
" & vbCrLf _ & " Moč: " & strMoc & " kW
" & vbCrLf _ & " Prostornina: " & strProstornina & "
" & vbCrLf _ & " Oblika karoserije: " & strOblikaKaroserije & "
" & vbCrLf _ & " Vrsta pogona: " & strVrstaPogona & " ccm

" & vbCrLf _ & " Opombe: " & strDodatno & "

" & vbCrLf _ & "

To sporočilo je bilo poslano preko elektronskega obrazca, ki se nahaja na spletni strani podjetja BMC d.o.o.. V kolikor ste pomotoma prejeli to elektronsko sporočilo, Vas prosimo da ga nemudoma izbrišete!

" & vbCrLf _ & "
" & vbCrLf _ & "" & vbCrLf _ & "" & vbCrLf else strSubjectPrejemnik = "Naročilo preko spletnega obrazca!" strSubjectPosiljatelj = "Naročilo preko spletnega obrazca je bilo sprejeto!" strBodyPrejemnik = "" & vbCrLf _ & "" & vbCrLf _ & "" & vbCrLf _ & "" & vbCrLf _ & "Spletno naročilo za BMC d.o.o." & vbCrLf _ & "" & vbCrLf _ & "" & vbCrLf _ & "

Naročilo preko spletnega obrazca!

" & vbCrLf _ & "

" & vbCrLf _ & " Elektronsko naročilo rezervnih delov za znamko avtomobila " & strZnamka & " je poslal " & strIme & ". Odgovor želi prejeti na elektronski naslov " & strFrom & "" & vbCrLf _ & "

" & vbCrLf _ & " " & vbCrLf _ & "

Znamka: " & strZnamka & "
" & vbCrLf _ & " Model: " & strModel & "
" & vbCrLf _ & " Letnik: " & strLetnik & "
" & vbCrLf _ & " Tip motorja: " & strTip & "
" & vbCrLf _ & " Moč: " & strMoc & " kW
" & vbCrLf _ & " Prostornina: " & strProstornina & " ccm
" & vbCrLf _ & " Oblika karoserije: " & strOblikaKaroserije & "
" & vbCrLf _ & " Vrsta pogona: " & strVrstaPogona & "
" & vbCrLf _ & " Dodatno: " & strDodatno & "
" & vbCrLf _ & " Številka artikla: " & strStevilkaArtikla & "
" & vbCrLf _ & " Število kosov: " & strSteviloKosov & "
" & vbCrLf _ & " Odprema: " & strOdprema & "
" & vbCrLf _ & " Opis artikla: " & strOpisArtikla & "
" & vbCrLf _ & " Kontaktni telefon: " & strKontaktniTelefon & "
" & vbCrLf _ & " Ime/Podjetje: " & strPodjetje & "
" & vbCrLf _ & " Priimek: " & strPriimek & "
" & vbCrLf _ & " Ulica: " & strUlica & "
" & vbCrLf _ & " Posta: " & strPosta & "
" & vbCrLf _ & "

To sporočilo je bilo poslano preko elektronskega obrazca, ki se nahaja na spletni strani podjetja BMC d.o.o.. V kolikor ste pomotoma prejeli to elektronsko sporočilo, Vas prosimo da ga nemudoma izbrišete!

" & vbCrLf _ & " " & vbCrLf _ & "" & vbCrLf _ & "" & vbCrLf strBodyPosiljatelj = "" & vbCrLf _ & "" & vbCrLf _ & "" & vbCrLf _ & " BMC d.o.o." & vbCrLf _ & " " & vbCrLf _ & "" & vbCrLf _ & "" & vbCrLf _ & "

Vaše naročilo preko spletnega obrazca podjetja BMC d.o.o. je bilo uspešno oddano!

" & vbCrLf _ & "

" & vbCrLf _ & " Spoštovani(a) " & strIme & ". Prejeli smo vaše elektronsko naročilo za znamko avtomobila " & strZnamka & vbCrLf _ & "
Podatki, ki ste jih posredovali so:" & vbCrLf _ & "

" & vbCrLf _ & " " & vbCrLf _ & "

Znamka: " & strZnamka & "
" & vbCrLf _ & " Model: " & strModel & "
" & vbCrLf _ & " Letnik: " & strLetnik & "
" & vbCrLf _ & " Tip motorja: " & strTip & "
" & vbCrLf _ & " Moč: " & strMoc & " kW
" & vbCrLf _ & " Prostornina: " & strProstornina & "
" & vbCrLf _ & " Oblika karoserije: " & strOblikaKaroserije & "
" & vbCrLf _ & " Vrsta pogona: " & strVrstaPogona & "
" & vbCrLf _ & " Dodatno: " & strDodatno & "
" & vbCrLf _ & " Številka artikla: " & strStevilkaArtikla & "
" & vbCrLf _ & " Število kosov: " & strSteviloKosov & "
" & vbCrLf _ & " Odprema: " & strOdprema & "
" & vbCrLf _ & " Opis artikla: " & strOpisArtikla & "
" & vbCrLf _ & " Kontaktni telefon: " & strKontaktniTelefon & "
" & vbCrLf _ & " Ime/Podjetje: " & strPodjetje & "
" & vbCrLf _ & " Priimek: " & strPriimek & "
" & vbCrLf _ & " Ulica: " & strUlica & "
" & vbCrLf _ & " Posta: " & strPosta & "
" & vbCrLf _ & " Opombe: " & strDodatno & "

" & vbCrLf _ & "

To sporočilo je bilo poslano preko elektronskega obrazca, ki se nahaja na spletni strani podjetja BMC d.o.o.. V kolikor ste pomotoma prejeli to elektronsko sporočilo, Vas prosimo da ga nemudoma izbrišete!

" & vbCrLf _ & "
" & vbCrLf _ & "" & vbCrLf _ & "" & vbCrLf End If %> <% Function IsValidEmail(strEmail) Dim bIsValid bIsValid = True If Len(strEmail) < 5 Then bIsValid = False Else If Instr(1, strEmail, " ") <> 0 Then bIsValid = False Else If InStr(1, strEmail, "@", 1) < 2 Then bIsValid = False Else If InStrRev(strEmail, ".") < InStr(1, strEmail, "@", 1) + 2 Then bIsValid = False End If End If End If End If IsValidEmail = bIsValid End Function %>
<% If strFrom = "" Or Not IsValidEmail(strFrom) Then %>
 

Akcije, več...

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

<% Else Set objPrejemnik = Server.CreateObject("CDO.Message") With objPrejemnik .To = strElektronskiNaslov .From = strFrom .Subject = strSubjectPrejemnik .HtmlBody = strBodyPrejemnik .Send End With Set objPrejemnik = Nothing Set objPosiljatelj = Server.CreateObject("CDO.Message") With objPosiljatelj .To = strFrom .From = strElektronskiNaslov .Subject = strSubjectPosiljatelj .HtmlBody = strBodyPosiljatelj .Send End With Set objPosiljatelj = Nothing Response.Write "Sporočilo je bilo uspešno poslano !" End If %>