|
|
<% strSqlStatmar="select Sub_ID, Sub_title, Section_id, Sub_marqee, Sub_Publish from Subject where Issue_ID="&Session("Issue")&" and Sub_marqee=true"
Set dbRecordSetmar = Server.CreateObject("ADODB.Recordset")
dbRecordSetmar.Open strSqlStatmar, dbConnection, 3,3,8
%>
|
|
 |
<%
strSqlStat3="select * from Subject where Issue_ID="&Session("Issue")&" and Sub_Publish=true and Sub_Marqee=true order by Sub_weight"
Set dbRecordSet3 = Server.CreateObject("ADODB.Recordset")
dbRecordSet3.Open strSqlStat3, dbConnection, 3,3,8
V_Page=1
dbRecordSet3.PageSize = 12
%>
| <% dbRecordSet3.AbsolutePage = V_Page %> <% For intRecord = 1 To (dbRecordSet3.PageSize/3)%>
<%for i=1 to 1%> <% if Not dbRecordSet3.EOF then%>
|
|
<% dbRecordSet3.movenext
End IF%> <%next %>
|
<%next %>
|
|
السنة الأولي
العدد رقم <%=dbrecordSet("Issue_Number")%>
<%=dbrecordSet("date")%> |
|
|
| <%
strSqlStat4="select * from Subject where Issue_ID="&Session("Issue")&" and Sub_Publish=true and Sub_latest2=False"
Set dbRecordSet4 = Server.CreateObject("ADODB.Recordset")
dbRecordSet4.Open strSqlStat4, dbConnection, 3,3,8
V_Page=1
dbRecordSet4.PageSize = 10
%>
|
|
|
|
<%
strSqlStat2="select * from Subject where Sub_latest=true and Issue_ID="&Session("Issue")
Set dbRecordSet2 = Server.CreateObject("ADODB.Recordset")
dbRecordSet2.Open strSqlStat2, dbConnection, 3,3,8
%>
<%if dbRecordSet2("Sub_pic1")="" and dbRecordSet2("Sub_pic2")="" then%>
<%Else
%>
|
 " width="120" height="90" hspace="3" vspace="3">
|
 " width="120" height="90" hspace="3" vspace="3"> |
|
<%=dbRecordSet2("Sub_Title")%> |
|
<%=Left(dbRecordSet2("Sub_desc"),550)%> |
|
&Section_id=<%=dbRecordSet2("Section_id")%>">
...للمزيد |
|
|
<%
strSqlStat211="select * from Subject where Sub_latest2=true and Issue_ID="&Session("Issue")
Set dbRecordSet211 = Server.CreateObject("ADODB.Recordset")
dbRecordSet211.Open strSqlStat211, dbConnection, 3,3,8
if not dbRecordSet211.eof then%>
|
|
|
|
<%End if%>
|
<% strSqlStatrec="select * from Sections where Section_Publish"
Set dbrec = Server.CreateObject("ADODB.Recordset")
dbrec.Open strSqlStatrec, dbConnection, 3,3,8
%>
|
|
|
|
|
|
|
|
|