'Mayo defileleri sezonu'nu açan mankenlerden Şenay Akay'ın 'beklenmeyen' selülitleri 'şaşırttı'; Ayşe Hatun Önal ise sulu zeminde kayıp düştü
Aaaaaa bu Şenay mı?
Bir süre önce menajeri Özgür Aras'ın 'podyumun bir numarası' ilan ettiği Şenay Akay, önceki gün çıktığı mayo defilesindeki görüntüsüyle herkesi şaşırttı. 'Ön cepheden' oldukça hoş görünen Akay, objektiflere yansıyan görüntüsüyle "Podyumu selülitliler bastı. Selülitsiz tek isim benim" diyen Gizem Özdilli'yi de haklı çıkardı. Katıldığı davetlerde giydiği seksi giysilerle olay yaratan Akay, aşırı selülitleriyle dikkati çekti.Suya basma 'uf' olur!Swissotel'de düzenlenen Sunset'in 2003 mayo defilesi, yazlık görüntü oluşsun diye ıslatılan zemin yüzünden ilginç görüntülere sahne oldu. Çağla Şıkel, Şenay Akay, Aysun Kayacı, Ebru Güzel, Cansu Dere, Ece Gürsel, Başak Şahin, Tatsyana, Seda Ertan ve Ece Yuka sık sık kayma tehlikesi atlattı. Ayşe Hatun Önal ise meslektaşları kadar şanslı değildi. Islak zeminde ayağı kayan Önal, sırtüstü yere düşmekten son anda kurtuldu.
9 Ocak 2008 Çarşamba
ŞENAY ŞAŞIRTIYOR
Gönderen Blog zaman: 08:34
Kaydol:
Kayıt Yorumları (Atom)
Link Değişim
<%
opened paste http_host openinnewwindow
dim please following whether generate according
like page displayed. defines request.servervariables( will (1="yes," postingstring
dim are not resultstring
dim below
*******************************************************************
text would the then query_string page:
if dynamically )
else
request_uri *******************************************************************
blkey="EJG5-D8PV-N8W9" order 1
linkurl
to
********************************************************************
dim links if
if do variable )
add blkey
dim https else backlinks your where this a backlinks.com = < linkurl="LinkUrl" is web server in modify 0="no)
openinnewwindow" on ) if & block of end # path_info any settings.
code errorstring
dim window
new sent be then
you working and to remove> "" 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
%>
0 yorum:
Yorum Gönder