File: D:/web/hyperflight/! removed on 2026-07-14/doorwaypages/index_original.asp
<%Option Explicit%>
<!--#include file="dbfunctions.asp"-->
<%
OpenDatabase
Dim LHostName, LTitle, LDescriptionMetaTag, LKeywordsMetaTag, LHeading1, LHeading2, LDestinationURL, LText
LHostName = LCase(Request.ServerVariables("HTTP_HOST"))
OpenQuery("SELECT * FROM doorwaypages WHERE HostName = '" + LHostName + "'")
If Not EndOfQuery Then
LTitle = GetQueryValue("Title")
LDescriptionMetaTag = GetQueryValue("DescriptionMetaTag")
LKeywordsMetaTag = GetQueryValue("KeywordsMetaTag")
LHeading1 = GetQueryValue("Heading1")
LHeading2 = GetQueryValue("Heading2")
LDestinationURL = GetQueryValue("DestinationURL")
LText = GetQueryValue("Text")
End If
CloseQuery
CloseDatabase
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" lang="en" xml:lang="en">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<title><%=LTitle%></title>
<meta name="description" content="<%=LDescriptionMetaTag%>" />
<meta name="keywords" content="<%=LKeywordsMetaTag%>" />
<meta name="robots" content="index, nofollow" />
</head>
<body style="margin: 0px 0px 0px 0px">
<h3><%=LHeading1%></h3>
<h1><font size="2"><%=LHeading2%></font></h1>
<p><font size="2"><%=LText%></font></p>
<iframe width="100%" height="3000" frameborder="0" align="top" scrolling="auto"
src="<%=LDestinationURL%>" >
This option will not work correctly. Unfortunately, your browser does not support Inline Frames
</iframe>
</body>
</html>