تبادل إعلانات دووار

  
 
 
البداية
دخول الأعضاء
الإشتراك
كلمة السر
Stats
Total sites
Top ten sites are
 
 

شركة دووار تقدم خدمة تبادل الإعلانات لأصحاب المواقع العربية.

الإشتراك مجاني وشروط الإشتراك كالتالي:

1. أن يتفق الموقع مع الشروط التالية:

    1. أن يكون الموقع جيد من ناحية المحتويات والتصميم .
    2. الا يحتوى الموقع على أى مواد تهاجم أو تسفه الأديان السماوية .
    3. الا يحتوى الموقع على أى صور أو مواد إباحية .
    4. الا يتم وضع كود الإعلان فى صفحة تقوم يتحديث نفسها أوتوماتيكيا .
    5. أن يتم وضع كود الشبكة على الصفحة الأولى( أو فى كل الصفحات )فى أعلى الصفحة.
    6. الا يكون الموقع تحت الإنشاء .
    7. ان يقوم صاحب الموقع بوضع كود الشبكة على صفحات موقعه دون أى تعديل .
    8. سيتم زيارة الموقع من قبلنا للتأكد من إلتزام الموقع بشروط الشبكة .
    9. سيتم إضافة 2000 إعلان مجانى هدية لكل مشترك يقوم بوضع كود الشبكة فى مكان جيد على صفحات موقعه .
    10. فى حالة الغش أو محاولة التلاعب بالعداد أو وضع الإعلان فى مكان غير واضح بصفحات الموقع يتم إلغاء الإشتراك فورا.

2. يجب إعداد إعلان الموقع بصيغة GIF وأن لا يتجاوز حجمه 20 كيلو بايت
      وأن يكون 468 × 60 بكسل.

3. لكل إعلانين يظهران على صفحاتك سنظهر إعلانك مرة على صفحات المواقع الأخرى
    و لكل ضغطه من موقعك تحصل على 5 مرات ظهور.

4. الإعلانات التي ستظهر على صفحاتك ستكون إعلانات أصحاب المواقع
   الأخرى أو إعلان مدفوع من شركة ما.

5. فى حالة عدم توفير صورة للإعلان أو وضع الكود على صفحات موقعكم فى خلال يومين من 
    تاريخ الإشتراك سيتم إلغاء الإشتراك.

6. فى حالة عدم تواجد كود الشبكة فى أعلى الصفحة الأولى من الموقع (أو فى أعلى كل
    صفحات الموقع) سيتم إلغاء الإشتراك فورا.

لا تتردد بالإتصال بنا على العنوان لإرسال إعلان موقعك أو لإي استفسار:
ad@dawwar.net


  
 

جميع الحقوق محفوظة
ad@dawwar.net



  

silica sand | windows web hosting | site builder

<% ' ******************************************************************** ' Paste this block of code on your web page where you would like text ' links to be displayed. This code will dynamically add and remove text ' links on your web page according to your BackLinks.com settings. ' ******************************************************************** Dim BLKey Dim OpenInNewWindow Dim PostingString Dim ErrorString Dim ResultString Dim LinkUrl ' The following variable defines whether links are opened in a new window ' (1 = Yes, 0 = No) OpenInNewWindow = 1 ' ******************************************************************* ' please do not modify any of the code below ' ******************************************************************* BLKey = "D149-368Y-O8YL" ' # The following variable is sent to the BackLinks server in order to ' # generate working links on your page: If Request.ServerVariables("HTTPS") = "on" Then LinkUrl="https://" Else LinkUrl="http://" End If If Request.ServerVariables("REQUEST_URI") Then LinkUrl = LinkUrl & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("REQUEST_URI") Else LinkUrl = LinkUrl & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("PATH_INFO") If Request.ServerVariables("QUERY_STRING") <> "" Then LinkUrl = LinkUrl & "?" & Request.ServerVariables("QUERY_STRING") End If End If LinkUrl = server.URLencode(LinkUrl) ' # Generate the data to post to the BackLinks.com server PostingString = "&Key=" & BLKey PostingString = PostingString & "&OpenInNewWindow=" & OpenInNewWindow & "&LinkUrl=" & LinkUrl Function GetBackLinksData(HTTPQuery, ByRef Resp, ByRef Er) Dim HttpReqObj Set HttpReqObj = Nothing On Error Resume Next Set HttpReqObj = CreateObject("WinHttp.WinHttpRequest.5.1") On Error Resume Next If HttpReqObj Is Nothing Then Set HttpReqObj = CreateObject("WinHttp.WinHttpRequest.5") End If On Error Resume Next If HttpReqObj Is Nothing Then On Error Resume Next Set HttpReqObj = CreateObject("Msxml2.ServerXMLHTTP") On Error Resume Next If HttpReqObj Is Nothing Then Set HttpReqObj = CreateObject("Msxml2.ServerXMLHTTP.4.0") End If On Error Resume Next If HttpReqObj Is Nothing Then Set HttpReqObj = CreateObject("Microsoft.XMLHTTP") End If On Error Resume Next If HttpReqObj Is Nothing Then Er = "HTTP requests not supported." GetBackLinksData = False Else HttpReqObj.open "GET", "http://www.backlinks.com/engine.php?" & HTTPQuery, false HttpReqObj.Send If HttpReqObj.status <> 200 Then Er = "Error: Status=" & HttpReqObj.status & " Text='" & HttpReqObj.responseText & "'" GetBackLinksData = False Else Resp = HttpReqObj.responseText GetBackLinksData = True End If Set HttpReqObj = Nothing End If Else HttpReqObj.Open "GET", "http://www.backlinks.com/engine.php?" & HTTPQuery, False HttpReqObj.Send If HttpReqObj.Status <> 200 Then Er = "Error: Status=" & HttpReqObj.Status & " Text=" & HttpReqObj.ResponseText GetBackLinksData = False Else Resp = HttpReqObj.responseText GetBackLinksData = True End If End If End Function If GetBackLinksData(PostingString, ResultString, ErrorString) Then Response.Write ResultString Else Response.Write ErrorString End If ' FINSIHED BackLinks.COM SCRIPT BLOCK %>