<% ' Page Name strPage = "index" ' EMail PreFix strEMail = "britcars" ' Translation URL Suffix strTran = "index.asp" MakeKount = 0 If UCase(strPath) = strLocalpath Then Set RS = oConn.Execute("SELECT * FROM MAKESLIS") Else Set RS = oConn.Execute("SELECT * FROM " & strPath & "/db/MAKESLIS") End If If Not RS.EOF Then RS.MoveFirst Do While Not RS.EOF MakeKount = MakeKount + 1 RS.MoveNext Loop End If ReDim arrayFileName(1500) ReDim arrayPhotoName(1500) If UCase(strPath) = strLocalPath Then Set RS = oConn.Execute("SELECT * FROM MAKEFOTO") Else Set RS = oConn.Execute("SELECT * FROM " & strPath & "/db/MAKEFOTO") End If PhotoKount = 0 If Not RS.EOF Then RS.MoveFirst Do While Not RS.EOF PhotoKount = PhotoKount + 1 arrayFileName(PhotoKount) = Trim(RS("FileName")) arrayPhotoName(PhotoKount) = Trim(RS("Name")) RS.MoveNext Loop End If numRoughPhotoKount = (Int(PhotoKount/100)*100) numDisplayPhotos = 10 ' Pick Random Numbers Between 1 and PhotoKount ReDim arrayFileName2(numDisplayPhotos) ReDim arrayPhotoName2(numDisplayPhotos) ReDim arrayPhotoWidth(numDisplayPhotos) ReDim arrayPhotoHeight(numDisplayPhotos) ReDim arrayPhotoCaption(numDisplayPhotos) Randomize For I = 1 to numDisplayPhotos numPhoto = Int(Rnd * PhotoKount) + 1 arrayFileName2(I) = arrayFileName(numPhoto) arrayPhotoName2(I) = arrayPhotoName(numPhoto) Next For I = 1 To numDisplayPhotos If UCase(strPath) = strLocalPath Then Set RS = oConn.Execute("SELECT * FROM MAKEFOTO WHERE Name='" & arrayPhotoName2(I) & "' AND FileName='" & arrayFileName2(I) & "'") Else Set RS = oConn.Execute("SELECT * FROM " & strPath & "/db/MAKEFOTO WHERE Name='" & arrayPhotoName2(I) & "' AND FileName='" & arrayFileName2(I) & "'") End If If Not RS.EOF Then RS.MoveFirst Do While Not RS.EOF arrayPhotoWidth(I) = CInt((RS("Width"))/2) arrayPhotoHeight(I) = CInt(Trim(RS("Height"))/2) arrayPhotoCaption(I) = Trim(RS("Caption")) Call LocalSettings(arrayPhotoCaption(I)) RS.MoveNext Loop End If Next ' List Makes Where Info Is Requested ReDim arrayReqName(200) ReDim arrayReqTown(200) ReDim arrayReqYear(200) If UCase(strPath) = strLocalPath Then Set RS = oConn.Execute("SELECT * FROM REQLIST") Else Set RS = oConn.Execute("SELECT * FROM " & strPath & "/db/REQLIST") End If InfoReqKount = 0 If Not RS.EOF Then RS.MoveFirst Do While Not RS.EOF InfoReqKount = InfoReqKount + 1 arrayReqName(InfoReqKount) = Trim(RS("DisplayNam")) arrayReqTown(InfoReqKount) = Trim(RS("Address5")) & ", " & Trim(RS("Address6")) If Left(arrayReqTown(infoReqKount), 2) = ", " Then arrayReqTown(InfoReqKount) = Mid(arrayReqTown(InfoReqKount),3,999) arrayReqYear(InfoReqKount) = Trim(RS("YearText")) RS.MoveNext Loop End If %> British Motor Manufacturers 1894-1960

Histories of <%=MakeKount%> British Motor Manufacturers (with over <%=numRoughPhotoKount%> photographs) who were in business between 1894 and 1960, including those that never made it past the prototype stage.



<%For I = 1 To numDisplayPhotos%> Photograph of <%=arrayPhotoCaption(I)%> D <%Next%>


<%For R = 1 To InfoReqKount%> <%Next%>
Makes where further information is requested
Name Location Year(s)
<%=arrayReqName(R)%> <%=arrayReqTown(R)%> <%=arrayReqYear(R)%>