<%@LANGUAGE = "VBSCRIPT"%> <% 'Hadi başlayalım Function EmailCheck(sEmail) EmailCheck = false Dim regEx, retVal Set regEx = New RegExp regEx.Pattern ="^[\w-\.]{1,}\@([\da-zA-Z-]{1,}\.){1,}[\da-zA-Z-]{2,3}$" regEx.IgnoreCase = true retVal = regEx.Test(sEmail) If not retVal Then exit function End If EmailCheck = true End Function DateTime = Now() 'date time in şimdi olduğunu belirttik %> İSTEK BORU

<% If Request.Querystring("send") = "True" Then fmTo = Trim(Request.Form("fmTo")) fmFrom = Trim(Request.Form("fmFrom")) fmFromname = Trim(Request.Form("fmFromName")) fmCC = Trim(Request.Form("fmCC")) fmSubject = Trim(Request.Form("fmSubject")) fmBody = Trim(Request.Form("fmBody")) fmAttach = Request.Form("fmAttach") Call SendMail(fmTo,fmFrom,fmFromName,fmCC,fmSubject,fmBody,fmAttach) Else Response.Write("Bize aşağıdaki formu doldurarak ulaşabilirsiniz.") End If %>
 

  E-mail

  Ad Soyad

  Görüş ve İstekleriniz

 
  <% 'Mail göndermeye başlayalım Sub SendMail(smTo,smFrom,smFromName,smCC,smSubject,smBody,smAttach) On Error Resume Next 'Scriptte hata varsa strErr = "" 'Hatalara bakalım If EmailCheck(smTo) = False Then strErr = strErr & "Sistemde bir hata oluştu sonra tekrar deneyin!" End If If EmailCheck(smFrom) = False Then strErr = strErr & "Gönderen'in Email adresi hatalı!" End If If Len(smFromName) > 0 Then smFromage = smFromName & "<" & smFrom & ">" End If If strErr = "" Then 'Formda hata yoksa Set iMsg = CreateObject("CDO.Message") With iMsg .To = smTo .From = smFromage If Len(smCC) > 0 Then .CC = smCC End If .Subject = smSubject .HTMLBody = smBody If Len(smAttach) > 0 Then Set iBp = .AddAttachment(smAttach) End If .Send End With 'TemizLendi Set iMsg = Nothing If Len(smAttach) > 0 Then Set iBp = Nothing End If If Err > 0 Then 'Eğer bir problem varsa Response.Write("Form Ulaştırılamadı! Hata Kodu:") Response.Write("