<% islem = Request.Querystring("GET") %>
<% IF islem = "" THEN %>
<% End If %>
<% IF islem = "Send" THEN
ad = Trim(Request.Form("ad"))
firma = Trim(Request.Form("firma"))
email = Trim(Request.Form("email"))
telefon = Trim(Request.Form("telefon"))
ilan = Trim(Request.Form("ilan"))
IF ad = "" OR email = "" OR telefon = "" THEN
hata = "* İşaretli alanların doldurulması zorunludur. Lütfen bu alanları 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ı : "& ad &" Firma : "& firma &" E-Posta : "&email &" Telefon : "&telefon&" İlan Açıklama : "& ilan &""
Set Mail = Server.CreateOBject("Persits.MailSender")
Mail.Host = "mail.altun.com.tr" 'SMTP server adresiniz
Mail.From = "havva@altun.com.tr" ' gonderen mail adresi
Mail.FromName = ""& ad &"" 'gonderen adi
Mail.AddAddress "havva@altun.com.tr" ' sizin mail adresiniz
Mail.Subject = "İlan Kayıt Formu" ' konu
Mail.Body = body ' mesaj
Mail.IsHtml = True
On Error Resume Next
Mail.Send
If Err <> 0 Then
Response.Write "Bir Hata Oluştu: " & Err.Description
End If
Response.Redirect "ok.asp"
Set RS = Nothing
END IF %>
<% SUB HATAVAR %>
