<% ''Connview.ConnectionString = "DSN=alsada;User ID=alsada; Password=alsada;" ' Open the connection ''dim SQLsearch ''Connview.CommandTimeout = 5000 ''Connview.Open() ''dim objType ' Advanced Search Start Point ReqRd = Request("rd1") SQLsearch = "select * from NewsData " SQLsearch = SQLsearch & " where ((BASEEXT='TXT') and " SQLsearch = SQLsearch & "(COUNTRYNAME ='شهرزاد') and " SQLsearch = SQLsearch & "(PRIORITY ='تحقيقات') and " SQLsearch = SQLsearch & "(CWRITER ='1') and " SQLsearch = SQLsearch & "(COUNTRYCODE ='" & GetIssueNumberShahrazad() & "') and " SQLsearch = SQLsearch & ")" SQLsearch = Replace(SQLsearch, ") and )","))") SQLsearch = SQLsearch & " order by datetime desc" 'Response.Write "

" & SQLsearch & "

" 'Open the RecordSet Object ''Response.Write SQLsearch 'Response.End RSview.Open SQLsearch, Connview,3,3 %>

<%if not RSview.EOF then%> <%=getMEDLinks(RSview("IMAGEID"),1)%> <%end if%>

<%if not RSview.EOF then%> <%=RSview("headline")%> <%=replace(RSview("storytext"),vbcrlf," ")%> <%end if%>