Welcome to Addictive Simulations

Add-on products for Microsoft Flight Simulator

Aircraft Title Click on the option below to view details
Pitts Special
S1-T

Details

 

 

Pitts Download     Key Required

Buy Pitts

Download
Vickers VC10 Standard, Super, RAF C1K and K3 variants

Exterior

Virtual Cockpit

2d Panel

VC10 Download
 Key Required

Buy VC-10
 Download

HS-121 Trident
1C/E, 2E and 3B variants

Exterior

Virtual Cockpit

2d Panel

Trident Download
 Key Required

Buy Trident
 Download

           
Hardware Please contact us for bespoke systems      

Message Forum

Links

Contact

     

Our products are available for sale by Download from the links on the right

 Site Hits:
<% ' Graphical Hit Counter Example By www.PowerASP.com ' Declare variables Dim ObjCounterFile, ReadCounterFile, WriteCounterFile Dim CounterFile Dim CounterHits Dim FixedDigitCount Dim DigitCount Dim DigitCountLength Dim DigitZerosToAdd Dim DigitZeroCount Dim ShowDigits Dim DigitPath ' (FixedDigitCount) will add zeros to the front of your count ' if the count is less then the (FixedDigitCount) ' just like "frontpage" counters let you do FixedDigitCount = 6 DigitPath = "http://www.vc10.com/pub/digits/smooth" On Error Resume Next Set ObjCounterFile = Server.CreateObject("Scripting.FileSystemObject") CounterFile = "d:\web\vc10.com\www\pub\counter.txt" Set ReadCounterFile= ObjCounterFile.OpenTextFile (CounterFile, 1, True) If Not ReadCounterFile.AtEndOfStream Then CounterHits = Trim(ReadCounterFile.ReadLine) If CounterHits = "" Then CounterHits = 0 Else CounterHits = 0 End If ReadCounterFile.Close Set ReadCounterFile = Nothing CounterHits = CounterHits + 1 Set WriteCounterFile= ObjCounterFile.CreateTextFile (CounterFile, True) WriteCounterFile.WriteLine(CounterHits) WriteCounterFile.Close Set WriteCounterFile = Nothing Set ObjCounterFile = Nothing DigitCountLength = Len(CounterHits) If DigitCountLength < FixedDigitCount Then DigitZerosToAdd= FixedDigitCount - DigitCountLength DigitZeroCount = 1 For DigitZeroCount = DigitZeroCount to DigitZerosToAdd ShowDigits = ShowDigits & "" Next End If DigitCount = 1 For DigitCount = DigitCount to DigitCountLength ShowDigits = ShowDigits & "" Next %> <% =ShowDigits %>

Awarded to Addictive VC10  

Awarded to Addictive Pitts

© 2003-2017 David Chester