suremiz = int &" saat nce" dizi dizi incisin danalıkta birincisin

<%Function GecenZaman If strVeri = "" Then Exit Function ZamanMiktari = DateDiff("h", strVeri, now if ZamanMiktari =< 24 then suremiz = ""&int &" saat nce" elseif ZamanMiktari < 168 AND > 24 THEN gecengunsayisi = int(ZamanMiktari/24) suremiz = ""&gecengunsayisi& gün nce" else gecenhaftasiyisi = int(ZamanMiktari/168) suremiz = ""&gecenhaftasiyisi&" hafta nce" end if GecenZaman = strVeriEnd Function%>Arkadaşlar bazı sitlerde olur ya, 3 saat nce veya 4 hafta nce gibisinden. Bendeki hata ise buHata Tipi:Microsoft VBScript derleme hatası (0x800A03EA)Szdizimi hatası/xc/tarihsel. asp, line 7, column 30elseif ZamanMiktari < 168 AND > 24 THENKafam durdu ya. Matematikçi ve Yazılımcı. http://www.ontedi.com ve http://www.cizgi.site Siteme beklerim herkesi.