|
<%if request.form.count=0 then%>
آدرس دبيرخانه:
تهران، خيابان شهيد بهشتي، نبش خيابان ميرعماد،
ساختمان گلديس، طبقه اول، واحد 104
8753261 و 8739358
به منظور ارسال نامه به دفتر جشنواره از
آدرس
info@weblogfestival.com
و يا از فرم زير استفاده نماييد:
<%else
Set objFile = Server.CreateObject("Scripting.FileSystemObject")
Set MailFile=objFile.OpenTextFile (server.mappath("../db/config/contact.txt"))
strMsg=MailFile.ReadAll
MailFile.Close
set MailFile=nothing
set objFile=nothing
strMsg=Replace (strMsg,"<#fromname#>",server.htmlencode(Request.Form("name")))
strMsg=Replace (strMsg,"<#fromemail#>",Request.Form("email"))
strMsg=Replace (strMsg,"<#fromsubject#>",server.htmlencode(Request.Form("subject")))
strMsg=Replace (strMsg,"<#fromcomment#>",server.htmlencode( ConvertTxt(Request.Form("comment"),true)))
strMsg=Replace (strMsg,"<#newsurl#>",Request.Form("newsurl"))
strMsg=Replace (strMsg,"<#date#>",date_convert(date_to_client(now)))
Set objMailer = Server.CreateObject("Dundas.Mailer")
objMailer.SMTPRelayServers.Add "69.56.245.115" 'Add SMTP Relay Server
objMailer.TOs.Add "info@weblogfestival.com"
objMailer.FromAddress = Request.Form("email")
objMailer.Subject = "Contact us from Weblog festival Site"
objMailer.HtmlBody = strMsg
objMailer.SendMail
Set objMailer = Nothing
%>
نامه شما با
موفقیت ارسال شد!
از اینکه با ما در ارتباط هستید، متشکریم
<%end if%> |
