<% Dim RandRecSet Dim NumOfRecs 'Here opens the connection with the database 'And set the Recordset's behaviors '------------------------------------------- Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("DB") & "\IsraSim.mdb" Set RecSet = Server.CreateObject("ADODB.Recordset") RecSet.CursorType = adOpenDynamic RecSet.LockType = adLockOptimistic RecSet.Open "SELECT * FROM FirstPagePictures", Conn NumOfRecs = 0 While Not (RecSet.Eof) NumOfRecs = NumOfRecs + 1 RecSet.MoveNext Wend Randomize RandRecSet = Int(NumOfRecs * Rnd) %>

Welcome to The Isra.SIM Project - where you can find free aircraft models for Microsoft Flight Simulator 2000 & 2002. All models here are painted with the relevant texture schemes, with strictness to make the appearance as real as it gets. Most of the time, the models' skins are photo-realistic, taken from the best resources, such as "The IAF Journal" and other publications of the IDF (Israel Defense Forces). Some of the downloads here are just cover textures for foreign aircraft models, and others are full download of aircrafts (e.g. model, cockpit and sound files + texture files). Anyway, you'll find here the texture files and a link to download the original aircraft files. All right, click here and select the area of your interest: "The IAF", "EL-AL Airways", "Arkia Airways" and "Other". Have a great flights and safe landings! Jacob Barkai, Israel - July 2002.

<% Dim x x = 1 RecSet.MoveFirst While x <= RandRecSet x = x + 1 RecSet.MoveNext Wend %> <% 'Final procedures '---------------- RecSet.Close Conn.Close %> "> <%= RecSet("Hint") %>