<% Dim SessionSiteID Dim Pid Dim i Dim SiteRootUrl:SiteRootUrl = getSiteRootUrl() Session("SessionSiteID") = siteID If Len(SessionSiteID) = 0 Then SessionSiteID = Session("SessionSiteID") Call Con.dbConAccess(siteDBPath,"OLEDB","","") PID = Replace(Request("PID"),"'","") Dim tblDerecelendirme Dim HalkaAcikMi Dim CompanyNo Dim IsActive Dim z:z = 0 strSQL = "SELECT ID, CompanyName, HalkaAcik,IsActive FROM Derecelendirme_Firmalar ORDER BY HalkaAcik DESC, Sorting ASC" Call Con.rsOpen(strSQL) While Not Con.rs.EOF If (Con.rs("HalkaAcik") = 0) Then HalkaAcikMi = " (Halka Açık Değil)" CompanyNo = "" Else HalkaAcikMi = "" z = z + 1 CompanyNo = z & ". " End If If (Con.rs("IsActive") = 0) Then IsActive = "**" Else IsActive = "" End If tblDerecelendirme = tblDerecelendirme & "
" & CompanyNo & Con.rs("CompanyName") & "" & HalkaAcikMi &" "& IsActive &"
" strSQL = "SELECT RatingCompany, Grade, GradeDate, Description, FilePath, FileTitle " &_ "FROM Derecelendirme_Notlari WHERE CompanyID = " & Con.rs("ID") & " ORDER BY GradeDate ASC" Call Con.rs3Open(strSQL) While Not Con.rs3.EOF tblDerecelendirme = tblDerecelendirme & "" tblDerecelendirme = tblDerecelendirme & "
" tblDerecelendirme = tblDerecelendirme & "
" If Len(Con.rs3("Description")) > 0 Then tblDerecelendirme = tblDerecelendirme & "
" End If tblDerecelendirme = tblDerecelendirme & "" & FormatNumber(Con.rs3("Grade"),2) & "
" tblDerecelendirme = tblDerecelendirme & "" & Con.rs3("GradeDate") & "
" tblDerecelendirme = tblDerecelendirme & "" & Con.rs3("RatingCompany") & "
" tblDerecelendirme = tblDerecelendirme & "
" Con.rs3.MoveNext Wend Call Con.rs3Close() tblDerecelendirme = tblDerecelendirme & "" tblDerecelendirme = tblDerecelendirme & "
" Con.rs.MoveNext Wend Call Con.rsClose() If Len(tblDerecelendirme) > 0 Then tblDerecelendirme = "" & tblDerecelendirme & "
" %>
<%=tblDerecelendirme%>