<% If (Request.Form("patvirtinti") = "taip") Then strVardas = Request.Form("vardas") strEmail = Request.Form("email") Response.Write "
Patvirtinkite, ar teisingai nurodyti duomenys
" Response.Write "" Response.Write "Jūsų vardas: " & strVardas & "
" Response.Write "Jūsų el. pašto adresas: " & strEmail & "
" Response.Write "" Elseif (Request.Form("Taisyti") = "Taisyti") Then strVardas = Request.Form("vardas") strEmail = Request.Form("email") Response.Write "Jei suklydote - pakeiskite savo duomenis:" Response.Write "" Response.Write "
" ElseIf (Request.Form("Uzsakyti") = "Išregistruoti") then strVardas = Request.Form("vardas") strEmail = Request.Form("email") set objMail = CreateObject("CDONTS.NewMail") objMail.From = "osf@osf.lt" objMail.MailFormat = 0 objMail.To = "uga@osf.lt" objMail.Subject = "ALF naujienų atsisakimas" objMail.Body = "ALF naujienų atsisako:" & vbCRLF & strVardas & vbCRLF &strEmail objMail.Send() set objMail = Nothing Response.Write "Jūsų užsakymas priimtas, Jūs būsite išregistruotas artimiausiu metu." Response.Write "
Grįžkite atgal" Else Response.Write "
Jei norite nebegauti naujienų, išsiregistruokite:
" Response.Write "" End if %>Jei registruojantis susidūrėte su problemomis nedelsdami praneškite uga@osf.lt
Didžioji g. 5, LT-2600 Vilnius, fondas@osf.lt, tel. 268 55 11, faksas 268 55 12
Lietus Design