<% ' Page Name strPage = "history" ' EMail PreFix strEMail = "history" ' Retreive ID strID = Request.QueryString("id") 'strID = "1" strID2 = strID If strID = "" Then strID = strFirstID ' Translation URL Suffix strTran = "history.asp?id=" & strID ' Keywords strKeywords = "" If UCase(strPath) = strLocalpath Then Set RS = oConn.Execute("SELECT * FROM KEYWORDS WHERE ID=" & strID) Else Set RS = oConn.Execute("SELECT * FROM " & strPath & "/db/KEYWORDS WHERE ID=" & strID) End If If Not RS.EOF Then RS.MoveFirst Do While Not RS.EOF strKeywords = strKeywords & Trim(RS("Keyword")) & ", " RS.MoveNext Loop End If ' Photographs ReDim arrayPhotoName(70) ReDim arrayPhotoWidth(70) ReDim arrayPhotoHeight(70) ReDim arrayPhotoCaption(70) If UCase(strPath) = strLocalPath Then Set RS = oConn.Execute("SELECT * FROM PHOTOGRA WHERE ID=" & strID) Else Set RS = oConn.Execute("SELECT * FROM " & strPath & "/db/PHOTOGRA WHERE ID=" & strID) End If PhotoKount = 0 If Not RS.EOF Then RS.MoveFirst Do While Not RS.EOF PhotoKount = PhotoKount + 1 arrayPhotoName(PhotoKount) = Trim(RS("Name")) arrayPhotoWidth(PhotoKount) = Trim(RS("Width")) arrayPhotoHeight(PhotoKount) = Trim(RS("Height")) arrayPhotoCaption(PhotoKount) = Trim(RS("Caption")) Call LocalSettings(arrayPhotoCaption(PhotoKount)) RS.MoveNext Loop End If ' MAIN PAGE DATA If UCase(strPath) = strLocalPath Then Set RS = oConn.Execute("SELECT * FROM MANUFACT WHERE ID=" & strID) Else Set RS = oConn.Execute("SELECT * FROM " & strPath & "/db/MANUFACT WHERE ID=" & strID) End If If Not RS.EOF Then RS.MoveFirst Do While Not RS.EOF strFound = 1 RS.MoveNext Loop End If ' Display Text ' If Invalid ID, Use Default Value If strFound = 0 Then strID = strFirstID strDefaultText = "No information is available for record ID:" & strID2 & ", A default record is displayed." Else strDefaultText = "" End If If UCase(strPath) = strLocalPath Then Set RS = oConn.Execute("SELECT * FROM MANUFACT WHERE ID=" & strID) Else Set RS = oConn.Execute("SELECT * FROM " & strPath & "/db/MANUFACT WHERE ID=" & strID) End If If Not RS.EOF Then RS.MoveFirst Do While Not RS.EOF strFileName = Trim(RS("LogoName")) If strFileName <> "" Then If UCase(strPath) = strLocalPath Then strLogoFilePath = LogoPath & "\" & Trim(RS("FileName")) & ".gif" Else strLogoFilePath = LogoPath & Trim(RS("FileName")) & ".gif" End If strLogoFileName = Trim(RS("LogoName")) & ".gif" If IsNull(RS("LogoWidth")) Then strLogoWidth = "0" Else strLogoWidth = Trim(RS("LogoWidth")) If IsNull(RS("LogoHeight")) Then strLogoHeight = "0" Else strLogoHeight = Trim(RS("LogoHeight")) If IsNull(RS("LogoCaptio")) Then strLogoCaption = "0" Else strLogoCaption = Trim(RS("LogoCaptio")) If IsNull(RS("LogoLongDe")) Then strLogoLongDesc = "" Else strLogoLongDesc = Trim(RS("LogoLongDe")) If strLogoLongDesc = "" Then strLogoLongDescription = strLogoCaption Else strLogoLongDescription = strLogoLongDesc End If End If strDisplayName = Trim(RS("DisplayNam")) Call LocalSettings(strDisplayName) If IsNull(RS("YearText")) Then strYearText = "" Else strYearText = Trim(RS("YearText")) ' Build Full Address (Remove Surplus '
') strAddress = "" If Not IsNull(RS("Address1")) Then strAddress = strAddress & Trim(RS("Address1")) & "
" If Not IsNull(RS("Address2")) Then strAddress = strAddress & Trim(RS("Address2")) & "
" If Not IsNull(RS("Address3")) Then strAddress = strAddress & Trim(RS("Address3")) & "
" If Not IsNull(RS("Address4")) Then strAddress = strAddress & Trim(RS("Address4")) & "
" If Not IsNull(RS("Address5")) Then strAddress = strAddress & Trim(RS("Address5")) & "
" If Not IsNull(RS("Address6")) Then strAddress = strAddress & Trim(RS("Address6")) & "
" If Len(strAddress) = 0 Then strAddress = "" Else strAddress = Left(strAddress, Len(strAddress) - 4) End If Call LocalSettings(strAddress) ' Body Text strDisplayText = "" & Trim(RS("Text")) Call LocalSettings(strDisplayText) Call MakeParagraphs(strDisplayText) Call ReplaceTags(strDisplayText) ' Force Extra (Blank) Lines To Avoid Display Problem If Len(strDisplayText) < 1500 Then strDisplayText = strDisplayText & "











" If (Len(strDisplayText) < 2000) And (PhotoKount <> 0) Then strDisplayText = strDisplayText & "







" strFileName = Trim(RS("FileName")) strPublishModelList = Trim(RS("PublishMod")) RS.MoveNext Loop End If %> British Motor Manufacturers 1894-1960, <%=strDisplayName%>
<%If (PhotoKount > 0) Or (fs.FileExists(strLogoFilePath)) Then%>
<%If fs.FileExists(strLogoFilePath) Then%> Image of <%=strLogoCaption%>[D] <%End If%> <%If PhotoKount > 0 Then%>
<%For I = 1 To PhotoKount%> <%If UCase(strPath) = strLocalPath Then%> <%strPhotoFilePath = Path & "\" & strFileName & arrayPhotoName(I) & ".jpg"%> <%Else%> <%strPhotoFilePath = Path & strFileName & arrayPhotoName(I) & ".jpg"%> <%End If%> <%If fs.FileExists(strPhotoFilePath) Then%> Photograph of <%=arrayPhotoCaption(I)%>
<%=arrayPhotoCaption(I)%> [D]
<%End If%> <%Next%>
<%End If%>
<%End If%>
<%If Len(strDefaultText) > 0 Then%>
<%=strDefaultText%>
<%End If%>
<%If Len(strDisplayName) > 0 Then%>
<%=strDisplayName%>
<%End If%> <%If Len(strAddress) > 0 Then%>
<%=strAddress%>
<%End If%> <%If Len(strYearText) > 0 Then%>
<%=strYearText%>
<%End If%>
<%=strDisplayText%> <%If strPublishModelList Then%>
<%End If%>