<% Dim ileti Set Postaci=Server.CreateObject("CDONTS.NewMail") Postaci.To="info@larakres.com" Postaci.From="info@larakres.com" Postaci.Subject="Lara Kres Iletisim Formu" for each n in request.form if n<>"B1" then ileti=ileti & n & ": " & request.form(n) & Chr(13) end if next ileti= "IP No:" & Request.ServerVariables("REMOTE_ADDR") & Chr(13) & ileti response.write(ileti) Postaci.Body=ileti Postaci.Send Set Postaci=nothing 'Response.Redirect request.servervariables("HTTP_REFERER") Response.Redirect "mail.htm" %>
Adınız Soyadınız:
E-mail:
Görüşleriniz: