<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% Dim detailz__param detailz__param = "0" If (Request.QueryString("nid") <> "") Then detailz__param = Request.QueryString("nid") End If %> <% Dim detailz Dim detailz_cmd Dim detailz_numRows Set detailz_cmd = Server.CreateObject ("ADODB.Command") detailz_cmd.ActiveConnection = MM_shasha_STRING detailz_cmd.CommandText = "SELECT utubecode, imgFile,alttxt,img2,img3,img4,img5,img6, img7, img8, img9, img10 , newsdate as nd,Title,tBoday FROM mmc10.news WHERE nid=?" detailz_cmd.Prepared = true detailz_cmd.Parameters.Append detailz_cmd.CreateParameter("param1", 5, 1, -1, detailz__param) ' adDouble Set detailz = detailz_cmd.Execute detailz_numRows = 0 %> <% Dim Repeat5__numRows Dim Repeat5__index Repeat5__numRows = 7 Repeat5__index = 0 sport_numRows = sport_numRows + Repeat5__numRows %> <%dim pageid pageid=1%> <% Dim Repeat2__numRows Dim Repeat2__index Repeat2__numRows = 6 Repeat2__index = 0 headlines_numRows = headlines_numRows + Repeat2__numRows %> <% Dim Repeat3__numRows Dim Repeat3__index Repeat3__numRows = 4 Repeat3__index = 0 eco_numRows = eco_numRows + Repeat3__numRows %> <% Dim Repeat4__numRows Dim Repeat4__index Repeat4__numRows = 12 Repeat4__index = 0 secondVid_numRows = secondVid_numRows + Repeat4__numRows %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = 7 Repeat1__index = 0 vara_numRows = vara_numRows + Repeat1__numRows %> " /> &vt=<%=Request.QueryString("vt")%>" /> <%if cint(Request.QueryString("vt"))<>6 then%> <%if Request.QueryString("vt")=1 then%> /default.jpg"/> <%else if cint(Request.QueryString("vt"))=3 then%> "/> <%end if end if end if%> <%detailz.requery%> شاشة نيوز - <%=(detailz.Fields.Item("title").Value)%>
Shasha News
 
Shasha on Facebook
Shasha on Twitter
SHASHA RSS
القدس
الصندوق
شاشة افلام
شاشة اغاني
<%=(fxe.Fields.Item("usd").Value)%>
<%=(fxe.Fields.Item("jd").Value)%>
<%=(fxe.Fields.Item("euro").Value)%>
<%=(fxe.Fields.Item("gbp").Value)%>

 

 

 

 

 

 

 

 

 

 

 

 

 

 
<%if cint(Request.QueryString("vt"))<>6 then%>
<%if Request.QueryString("vt")=1 then%>
<%else%> <% if cint(Request.QueryString("vt"))=3 then%> " alt="<%=(detailz.Fields.Item("alttxt").Value)%>" width="466" height="244" /> <%end if%> <% if cint(Request.QueryString("vt"))=32 then%> " alt="" width="466" height="244" /> <%end if%> <% if cint(Request.QueryString("vt"))=33 then%> " alt="" width="466" height="244" /> <%end if%> <% if cint(Request.QueryString("vt"))=34 then%> " alt="" width="466" height="244" /> <%end if%> <%end if%>
<%end if%>
<%=(detailz.Fields.Item("Title").Value)%>
<%=(detailz.Fields.Item("nd").Value)%>
<%=(detailz.Fields.Item("tBoday").Value)%>.
<%if (request.querystring("vt")<>1 )and((detailz.Fields.Item("img4").Value) <>"" or (detailz.Fields.Item("utubecode").Value) <>"" or (detailz.Fields.Item("img3").Value) <>"" or (detailz.Fields.Item("img2").Value) <>"") then%> <%if (detailz.Fields.Item("img4").Value) <>"" then%> <%end if%> <%if (detailz.Fields.Item("img3").Value) <>"" then%> <%end if%> <%if (detailz.Fields.Item("img2").Value) <>"" then%><%end if%> <%if (detailz.Fields.Item("img5").Value) <>"" then%><%end if%> <%if (detailz.Fields.Item("img6").Value) <>"" then%><%end if%> <%if (detailz.Fields.Item("img7").Value) <>"" then%><%end if%> <%if (detailz.Fields.Item("img8").Value) <>"" then%><%end if%> <%if (detailz.Fields.Item("img9").Value) <>"" then%><%end if%> <%if (detailz.Fields.Item("img10").Value) <>"" then%><%end if%> <%if (detailz.Fields.Item("utubecode").Value) <>"" then%><%end if%>

<%end if%>
 
 

 

 

بانوراما شاشة

شاهد أيضاً
<% While ((Repeat4__numRows <> 0) AND (NOT secondVid.EOF)) %>
<%=(secondVid.Fields.Item("Title").Value)%>
<% Repeat4__index=Repeat4__index+1 Repeat4__numRows=Repeat4__numRows-1 secondVid.MoveNext() Wend %>

 

 

 

 

 

 

 

 

 

 

 

 

 

 





اسعار العملات مزودة من قبل Forex Pros -بوابة الفوركس الرائدة عالميا
الصندوق


الرئيسية - محلية - عالمية - اقتصاد - اخبار خفيفة
من نحن - اعلن لدينا - اتصل بنا
<% headlines.Close() Set headlines = Nothing %> <% detailz.Close() Set detailz = Nothing %> <% secondVid.Close() Set secondVid = Nothing %>