% 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 & "
|