<%@ LANGUAGE = "VBSCRIPT" %> <% Session.Codepage="65001" %> <% Response.Buffer = True %> <% Session.Timeout = 60 %> <% Server.ScriptTimeout = 3600 %> Bani Host™ | Professional Web Hosting Services - بانی هاست | خدمات حرفه ای وب | هاستینگ | هاست | میزبانی وب | ثبت دامنه | سرور اختصاصی | اعطای نمایندگی
<% Function CheckCAPTCHA(valCAPTCHA) SessionCAPTCHA = Trim(Session("CAPTCHA")) Session("CAPTCHA") = vbNullString if Len(SessionCAPTCHA) < 1 then CheckCAPTCHA = False exit function end if if CStr(SessionCAPTCHA) = CStr(valCAPTCHA) then CheckCAPTCHA = True else CheckCAPTCHA = False end if End Function '------------------Posted Form ---------------------------- If Request.ServerVariables("REQUEST_METHOD") = "POST" and Len(Request.Form("btnSendContact")) > 0 Then cName = Replace(Request.Form("txtName"),"'","") cName = Replace(cName,";","") cName = Trim(cName) cMsg = Replace(Request.Form("txtMsg"),"'","") cMsg = Replace(cMsg,";","") cMsg = Trim(cMsg) cMsg = Replace(cMsg,vbCrlF,"
") cCo = Request.Form("txtCo") cEmail = Request.Form("txtEmail") cTel = Request.Form("txtTel") strCAPTCHA = Trim(Request.Form("strCAPTCHA")) '------------------------------// Check Name //------------------ If Len(cName) > 0 Then Session("Err_NameM") = "" Else Session("Err_NameM") = "True" End If '------------------------------// Check Name //------------------ '------------------------------// Check Msg //------------------ If Len(cMsg) > 0 Then Session("Err_MsgM") = "" Else Session("Err_MsgM") = "True" End If '------------------------------// Check Msg //-------------------- '------------------------------// Check Security Code //------------------ If CheckCAPTCHA(strCAPTCHA) = True Then Session("Err_CodeM") = "" Else Session("Err_CodeM") = "True" End If '------------------------------// Check Security Code //------------------ '--------------------// Check ERR //--------------------------- If Session("Err_NameM") = "" and Session("Err_MsgM") = "" and Session("Err_CodeM") = "" Then '---- Do Insert and form is valid Session("Err") = "" '--- Sending Email --- '-------------// Loading and Replacing Data in HTML Email Template //----------------- emTime = Time() emDate = Date() userIP = Request.ServerVariables("REMOTE_ADDR") Const ForReading = 1 '------------// Fixed by Using Adodb.Stream //--------- Set oStream = Server.CreateObject("ADODB.Stream") oStream.Open oStream.LoadFromFile Server.MapPath("bhAdmin/Email-HTML/Contacts.htm") oStream.CharSet = "UTF-8" strText = oStream.ReadText '------------// Fixed by Using Adodb.Stream //--------- strText = Replace(strText, "Replace_Date", emDate) strText = Replace(strText, "Replace_Time", emTime) strText = Replace(strText, "Replace_IP", userIP) strText = Replace(strText, "Replace_Name", cName) strText = Replace(strText, "Replace_Co", cCo) strText = Replace(strText, "Replace_Tel" , cTel) strText = Replace(strText, "Replace_Email" , cEmail) strText = Replace(strText, "Replace_Msg" , cMsg) 'Response.Write(strText) 'Response.End() '-------------// Loading and Replacing Data in HTML Email Template //----------------- 'On Error Resume Next MsgTo = "info@banihost.com" MsgFrom = "BaniHost | Contact Form" MsgSucbject = cName&" - " & userIP & "Submitted Contact Form." MsgBody = strText smtpserver = "smtp.gmail.com" youremail = "banihost@gmail.com" yourpassword = "!b64h3282" Dim ObjSendMail Set ObjSendMail = CreateObject("CDO.Message") With ObjSendMail Set Header = .Fields With Header .Item("urn:schemas:mailheader:X-Mailer") = "BaniHost MailServer" .Item("urn:schemas:mailheader:Content-Type") = "text/html; charset=UTF-8" .Item("urn:schemas:mailheader:Content-Transfer-Encoding") = "8bit" .Update End With End with ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 'Send the message using the network (SMTP over the network). ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = smtpserver ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465 ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True 'Use SSL for the connection (True or False) ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60 ObjSendMail.Configuration.Fields.Item ("urn:schemas:httpmail:importance").Value = 2 ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 'basic (clear-text) authentication ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") = youremail ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") = yourpassword ObjSendMail.Configuration.Fields.Update ObjSendMail.To = MsgTo ObjSendMail.Subject = MsgSucbject ObjSendMail.From = MsgFrom ObjSendMail.BodyPart.Charset = "UTF-8" ObjSendMail.HTMLBody = MsgBody ObjSendMail.Send Set ObjSendMail = Nothing Response.Redirect("Contacts.shtml?Msg=Done") Else Session("Err") = "True" '---- Show Errors and form have errors End If '--------------------// Check ERR //--------------------------- Else Session("Err") = "" Session("Err_NameM") = "" Session("Err_MsgM") = "" Session("Err_CodeM") = "" End If '------------------Posted Form ---------------------------- %>
شما اینجا هستید:  صفحه نخست  /  تماس با ما
تماس با ما
 
- روابط عمومی:

info [at] banihost.com
- پشتیبانی :

support [at] banihost.com
- فروش:

sales [at] banihost.com
 
- پشتیبانی :

+98 21 8805 6272
- فروش:

+98 21 8805 6272
- فکس:

+98 21 8805 6272
<% If Not Session("Err") = "" Then %> <% End If If Request.QueryString("Msg") = "Done" Then %> <% End IF %>
 
پیام سیستم: کاربر گرامی، لطفا خطا هایی که در زیر ذکر شده را در فرم اصلاح کنید.
<% If Not Session("Err_NameM") = "" Then %> <% End If %> <% If Not Session("Err_MsgM") = "" Then %> <% End If %> <% If Not Session("Err_CodeM") = "" Then %> <% End If %>
- نام و نام خانوادگی: لطفا نام و نام خانوادگی را وارد کنید.
- متن پیام: لطفا متن پیام را وارد کنید.
- کد امنیتی: کد امنیتی وارد شده صحیح نمی باشد. دقت کنید که زبان صفحه کلید تان بر روی "EN" باشد.
از اینکه با ما در ارتباط هستید خوشحالیم، پیام شما با موفقیت ارسال شد.
فرم تماس:
- نام و نام خانوادگی*: ">
- نام شرکت: ">
- تلفن تماس: ">
- پست الکترونیک: ">
متن پیام*:
کد امنیتی*:
کد امنیتی لطفا کد امنیتی که در تصویر مشاهده می کنید را در این فیلد وارد کنید.
 

بانی هاست ™ - خدمات حرفه ای میزبانی وب
 © شرکت طراحان بانی پرشیا  - تمامی حقوق برای بانی هاست ™ محفوظ می باشد.
فروش: 88056272-021   فکس: 88056272-021

 
<% If Session("Members") = "" or Len(Session("Members")) <=0 Then %>
<% Else Set Rs = Conn.Execute("Select * From tblMembers Where memID = "&Session("Members")) If Rs.BOF = True and Rs.EOF = True Then Else side_MemName = Rs("memName")&" "&Rs("memFamily") side_MemCredit = Rs("memCredit") side_NewMsg = 0 Set msgRs = Conn.Execute("Select * From tblPM Where pmStatus = 'New' and pmTo = "&Session("Members")) While Not msgRs.EOF side_NewMsg = side_NewMsg + 1 msgRs.MoveNext Wend End If %>
خوش آمدید، <%=side_MemName%>
موجودی: <%=side_MemCredit%> ریال
پیام جدید (<%=side_NewMsg%>)
کنترل پانل
خروج از سیستم
<% End If %>
www.
.Com .Net .Org
.Info .Biz .Ir

19-2-88
بروز مشكل امنيتي در سايت شركت امنيتي مكافي
کارشناسان هشدار دادند، آسيب‌پذيري‌هاي امنيتي موجود در سايت‌هاي مکافي، به‌خصوص يکي از اين پايگاه‌هاي اينترنتي که به منظور اسکن کردن سايت‌هاي کاربران براي بررسي احتمال وجود حفره‌هاي امنيتي در آن‌ها ساخته شده است، مي‌تواند باعث انتشار اطلاعات شخصي مربوط به حساب‌هاي اينترنتي کاربران شود و در قالب نرم‌افزارهاي امنيتي مکافي، در مقابل کاربران حملاتي را انجام دهد. مکافي روز گذشته در اين خصوص توضيح داد که بيشتر اين حفره‌هاي امنيتي برطرف شده و تنها بخشي از اين سايت اينترنتي که در حالت آفلاين مورد استفاده قرار مي‌گيرد، باقي مانده است.
18-2-88
كتابخوان الكترونيك آمازون
شركت آمازون آمادهء عرضهء نسل جديد كتابخوان الكترونيك خود موسوم به Kindle است كه صفحهء بزرگ‌تري دارد و اين در حالي است كه اين شركت تنها سه ماه قبل نسل ديگري از اين سخت افزار را ارائه كرده بود. كتابخوان در كنفرانس خبري اين شركت به نمايش گذاشته خواهد شد. صفحهء بزرگ تر Kindle نسبت به مدل هاي قبل اجازه خواهد داد صفحات مجلات و روزنامه ها بهتر نمايش داده شوند. دستگاه هاي فعلي Kindle اجازه مي دهند كه كاربر آبونمان نشريات مورد علاقهء خود را انجام داده و هر روز صبح روزنامه يا مجلهء مورد نظر خود را مستقيماً بر روي دستگاه دريافت كند.
15-2-88
مسابقه نوكيا براي طراحي نرم‌افزار Widget براي N97
شركت نوكيا به منظور برقراري ارتباط توسعه دهندگان نرم‌افزاري با ابزارها، اطلاعات فني، پشتيباني و كانال‌هاي توزيع در سراسر جهان، اقدام به راه‌اندازي برنامه جهاني توسعه دهندگان نوكيا فوروم شركت نوكيا از طریق فوروم نوکیا ( Forum Nokia ) كرده است. از اقدامات اين فوروم مي توان به ارايه پشتيباني هاي فني و توسعه تجاري به طراحان و برنامه نويسان نرم افزار براي توليد سرويس ها و برنامه هاي كاربردي مفيد در سراسر جهان اشاره كرد. به اين ترتيب مسابقه‌اي با همكاري فوروم نوكيا براي گردهمايي همه مبتكران در زمينه طراحي و توسعه نرم افزارهاي كاربردي در تاريخ 28-29 آوريل در موناكو در كنفرانس توسعه دهندگان برنامه هاي نوكيا برگزار شد و گروه هاي توسعه دهنده برتر از سراسر جهان براي ساخت برنامه هاي متنوع به مبارزه پرداختند كه در نهايت پس از گذشت 24 ساعت، ديويد امانوئل كاسترو گواررو از مكزيك به عنوان برنده نخست مسابقه انتخاب شد.

http://www.senfepooshak.ir

http:/www.jobbkanalen.se

http://www.martaskonfektyr.se

http://www.boomrang.ir

http://www.irtabletennis.com

http://www.irancoelbo.ir

http://www.hi-pack.ir

http://www.banibids.com

http://www.ashkanhorse-co.com

http://www.artagate.com

http://www.swetur.se

http://www.baztabrahnovin.com

http://www.mapnaexhibition.com
website tracker