<% function sqlcorrect(deger) sqlcorrect=replace(deger,",",".") sqlcorrect=replace(sqlcorrect,"'","""") end function data_source = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("odbc/kurabiyem.mdb") Set con=Server.CreateObject("ADODB.Connection") con.Open data_source sql="insert into tbl_emaillist (emailaddress,namesurname,phone_c,submit_date) values ('"& sqlcorrect(Request.Form("emailaddress")) &"', '"&sqlcorrect( Request.Form("namesurname")) &"','"& sqlcorrect(Request.Form("phone_c")) &"','"&now&"')" con.Execute sql con.Close Set con=Nothing Set objMail = Server.CreateObject("Persits.MailSender") objMail.Host = "212.154.32.82" objMail.ContentTransferEncoding = "Quoted-Printable" objMail.Charset = "Windows-1254" objMail.IsHTML = True objMail.username="webmail@lookus.com.tr" objMail.password="look8www" objMail.MailFrom="kurabiye@kurabiyeevi.com" objMail.From = Request.Form("emailaddress") objMail.FromName = objMail.EncodeHeader(Request.Form("namesurname")&"","Windows-1254") objMail.Subject = "Kurabiye Evi - Web Form" objMail.Body = Request.Form("comments") &"


Submit Date: "&now() objMail.AddAddress "kurabiye@kurabiyeevi.com","Merve" objMail.Send If Err <> 0 Then Response.Write "

[" & Err.Description & "]

" response.end End If Set objMail = Nothing %>



Emailiniz ilgili kişilere gönderilmiştir.

Paylaştığınız için teşekkür ederiz.