Retroglobe - Boring postcards

<%@LANGUAGE="VBSCRIPT"%> <% '**************************************Min kod dim top5lista(6) Set fs = CreateObject("Scripting.FileSystemObject") rad=0 ' LSs in kortstatistik dim kort(600,1) Set f1 = fs.OpenTextFile(Server.MapPath("..\data\e-card\topplista.txt"), 1, False) Do While f1.AtEndOfStream <> True raddata = f1.ReadLine kortrad=Split(raddata,":") kort(rad,0)=kortrad(0) kort(rad,1)=kortrad(1) rad=rad+1 Loop f1.Close '''''''''''sortera do intSortCount = 0 for x = 0 to rad-1 strFirstElement0 = kort(x,0) strSecondElement0 = kort(x+1,0) strFirstElement1 = kort(x,1) strSecondElement1 = kort(x+1,1) if cint(strFirstElement1) < cint(strSecondElement1) then kort(x,0) = strSecondElement0 kort(x+1,0) = strFirstElement0 kort(x,1) = strSecondElement1 kort(x+1,1) = strFirstElement1 intSortCount = intSortCount + 1 end if next loop until intSortCount = 0 ''''''''''' End of sortera for i = 0 to 4 top5lista(i)=kort(i,0) 'Response.write("

" & kort(i,0) & ":" & kort(i,1) & "
") 'response.write (top5lista(i) & "
") next '**********************************Min kod %> Retroglobe - Boring postcards - Top 5

Top 5 most e-mailed postcards

<%for i=0 to 4 %>

<%=i+1%>

<%next %>

Disclaimer: The copyrights for the postcards shown here have not been transferred to Retroglobe or Christian Liljeberg and therefore remains with the respective copyright holder. The purpose of this gallery is to show my collection and is entirely non-commercial. Please don't use these pictures for any commercial purposes. If you are the owner of any of these copyrights and feel that your copyright has been violated please me.