<% 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") = "Užsakyti") then strVardas = Request.Form("vardas") strEmail = Request.Form("email") set oConn = Server.CreateObject("ADODB.Connection") oConn.Open "newsletter" strSQL = "INSERT INTO Contacts (LastName,EmailAddress,EmailDisplayName) VALUES ('" strSQL = strSQL & strVardas & "', '" & strEmail & "', '" & strEmail & "');" oConn.Execute(strSQL) oConn.Close set oConn=Nothing set objMail = CreateObject("CDONTS.NewMail") objMail.From = "osf@osf.lt" objMail.MailFormat = 0 objMail.To = "zuikis@osf.lt" objMail.Subject = strVardas objMail.Body = strEmail objMail.Send() set objMail = Nothing Response.Write "Jūsų užsakymas priimtas" Response.Write "
Grįžkite atgal" Else Response.Write "
Jūs galite gauti ALF naujienas elektroniniu paštu. Įrašykite duomenis apie save:
" Response.Write "" Response.Write "Jei jau gaunate naujienas, čia galite ir išsiregistruoti
" 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