<% @ LANGUAGE = VBScript %> <% Response.Expires = 0 %> <% Dim objCDO Dim ConfirmMsg ConfirmMsg = " " nVardasPavarde = Request.Querystring("VardasPavarde") nEpastas = Request.Querystring("Epastas") nLaiskas = Request.Querystring("Laiskas") nSubmitted = Request.Querystring("Submitted") ' response.write ("Galvutė"+ nVardasPavarde + " " + nEpastas + " " + nLaiskas + nSubmitted + ";") if ( nSubmitted = "yes" ) then ConfirmMsg = "Neužpildyti laukeliai, laiškas nesiunčiamas... " if ( nEpastas = Empty ) then nEpastas = "spaudos@mail.lt" end if if ( nVardasPavarde <> Empty ) and ( nLaiskas <> Empty ) then HTML = HTML & "" HTML = HTML & "" HTML = HTML & "Laiškas iš interneto svetainės www.baltu.lt" HTML = HTML & "" HTML = HTML & "" HTML = HTML & nLaiskas HTML = HTML & "" Set objCDO = Server.CreateObject("CDONTS.NewMail") objCDO.From = nEpastas objCDO.To = "spaudos@mail.lt" objCDO.Cc = "" objCDO.Bcc = "" objCDO.Subject = "Laiškas iš interneto svetainės www.baltu.lt" objCDO.Body = HTML objCDO.BodyFormat = 0 objCDO.MailFormat = 0 objCDO.Send set objCDO=nothing ConfirmMsg = "Ačiū, Jūsų informaciją gavome!" end if end if %> Lietuva – Latvija. Laiškai
 
    R E G I O N Ų    K U L T Ū R I N I Ų    I N I C I A T Y V Ų     C E N T R A S English      
    Adresas: Vilniaus g. 22, LT-01119 Vilnius.
Tel./faksas (8~5) 261 9670, mob. tel. 8 687 47550.
El. paštas
zemaiciu@gmail.com
          
 
Į pradžią Laiškams Laiškai                 Atsakymai į klausimus                      Paieška                 

<% if ConfirmMsg <> "" then %> <%= ConfirmMsg %>

<% end if %> Laukiame Jūsų atsiliepimų, pageidavimų, pasiūlymų

Jūsų vardas, pavardė:
Elektroninis paštas:
Laiškas:
[Į pradžią] [Laiškai] [Atsakymai į klausimus] [Paieška] [Kalendorius] [Naujienos] [Konkursai] [Leidiniai] [Naudingos nuorodos]
 

© Regioninių kultūros iniciatyvų centras

Svetainės priežiūra: Multimedijos centras humanitarams Matematikos ir informatikos institute

Tinklalapis atnaujintas 2007.03.18