% @ 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 & "
|