Atatürk Bul Nuri Akınal Apt. Kat: 6/12
:: Telefonlar ::
0342 230 80 08 - 0342 230 45 30
:: E-Mail ::
Forma başlıkları kırmızı renkle yazılmış olan alanların doldurulması mecburdur.
Lütfen geri dönüp bu alanları eksiksiz ve doğru bir biçimde doldurunuz." HATAVAR Response.End END IF If Len(email) < 5 Then bIsValid = "False" Else If Instr(1, email, " ") <> 0 Then bIsValid = "False" Else If InStr(1, email, "@", 1) < 2 Then bIsValid = "False" Else If InStrRev(email, ".") < InStr(1, email, "@", 1) + 2 Then bIsValid = "False" End If End If End If End If IF bIsValid = "False" THEN hata = "Email adresiniz geçersiz
Lütfen geçerli ve kullanıma açık bir email adresi girin." HATAVAR Response.End end if body="Ad Soyad : "& adsoyad &"
Site Adı : "& site &"
Site Adresi : "& adres &"
E-Mail : "& email &"
Mesaj : "& mesaj &"" Set Mail = Server.CreateOBject("JMail.Message") Mail.Charset = "ISO-8859-9" Mail.Logging = True Mail.Silent = True Mail.From = "Sizin Mail Adresiniz" 'Form Mail'den Mail.FromName = "Sitenizin İsmi" 'Sitenizin İsmi Mail.AddRecipient "Sizin Mail Adresiniz" 'Formun gelecegi mail adres Mail.Subject = "Form Mail'den" 'Mesajinizin sabit basligi Mail.HTMLBody = body Mail.Send mailserver Set Mail = Nothing Response.Redirect "tesekkurler.asp" Set RS = Nothing END IF %> <% SUB HATAVAR %> <% END SUB %>
