<% dim rs ,cn dim cnstr dim sqlst dim num_count dim string_center dim words500 dim linkview dim html_string dim rs1 ,cn1 dim num_issu dim imglabel dim titrbold dim var1 dim color var1 = true set cn1 = server.CreateObject("ADODB.Connection") set rs1 = server.CreateObject("ADODB.Recordset") cnstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath("\dbs\") & "\portaldb.mdb" & ";Persist Security Info=False" 'response.write(cnstr) 'response.flush cn1.Open cnstr rs1.Open "Select * from tblspc" , cn1 , 1 num_issu = rs1("issueno").Value sqlst = "Select * from tblnews where newsissue = " & num_issu & " order by newspage" set cn = server.CreateObject("ADODB.Connection") 'Response.Write sqlst & "
" Response.Flush set rs = server.CreateObject("ADODB.Recordset") cn.Open cnstr rs.Open sqlst , cn ,1 if rs.RecordCount > 0 then rs.MoveLast num_count = rs.RecordCount rs.MoveFirst ' do while not rs.EOF ' string_center = string_center & "

" & rs("newstext").Value & "

" ' rs.MoveNext ' loop ' rs.MoveFirst %> <% end if rs.Close cn.Close set rs = nothing set cn = nothing %>

دانلود صفحات

<% do while not rs.EOF if (rs("newsimage1").value <> "0" ) then imglabel = "

" else imglabel = "" end if titrbold ="" & rs("newstitle").value & "" words500 = mid(rs("newstext").Value ,1,500) html_string = "...ادامه" %> <% rs.MoveNext loop rs.MoveFirst %>

<%=imglabel%>

<%= titrbold & "

" & words500 & "

" & "

" & html_string & "

" %>

<% words500 = "" html_string = "" do while not rs.EOF words500 = rs("newstitle").Value html_string = "" & words500 & "" if var1 then color = cell1color var1 = not var1 else color = cell2color var1 = not var1 end if %> <% rs.MoveNext loop %>

عناوین این شماره

<% = html_string %>