<% if request.form("f_submit")<>"" then if request.form("f_email")="" then response.redirect("sendmail.asp") sm_name = request.form("f_name") sm_email = request.form("f_email") sm_subject = sm_name & " arkadaşınızdan tavsiye." sm_mesaj = replace(request.form("f_mesaj"),chr(13),"
") sm_mesaj = sm_mesaj & "
" Set objmail = CreateObject("CDO.Message") objmail.From = "info@galipmarket.com" objmail.To = sm_email objmail.Subject = sm_subject objmail.HTMLbody = sm_mesaj objmail.Send sm_sonuc = "" end if %>

İsminiz
Arkadaşınızın e-posta adresi
Mesajınız

<%=sm_sonuc%>