File: D:/web/hyperflight/! removed on 2026-07-14/doorwaypages/index.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
' (SS,21/7/09) added &rd=0 or ?rd=0 to the end of URL to redirect from iframe as quickly as possible
' if &rd= or ?rd= not already in URL then add it, using & if no query string set
'Response.Write "###" & LDestinationURL & "###<br>"
' (SS,13/8/09) changed to default to rd=2
If InStr(LDestinationURL, "&rd=") = 0 And InStr(LDestinationURL, "?rd=") = 0 Then
' if & and ? are both missing then add a forward slash if required, it will default to the home page
If InStr(LDestinationURL, "&") = 0 And InStr(LDestinationURL, "?") = 0 Then
If Right(LDestinationURL, 1) <> "/" Then
LDestinationURL = LDestinationURL + "/"
End If
End If
If InStr(LDestinationURL, "?") > 0 Then
LDestinationURL = LDestinationURL + "&"
Else
LDestinationURL = LDestinationURL + "?"
End If
' (SS,13/8/09) changed rd=0 to rd=2
LDestinationURL = LDestinationURL + "rd=2"
End If
'Response.Write "###" & LDestinationURL & "###<br>"
%>
<!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" />
<link href="styles.css" rel="stylesheet" type="text/css" />
</head>
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td class="one"><h3><%=LHeading1%></h3></td>
</tr>
<tr>
<td class="two"><h1><%=LHeading2%></h1></td>
</tr>
<tr>
<td class="three"><p><%=LText%><br><img src="space.gif" width="860" height="1" /></p>
</td>
</tr>
</table>
<iframe width="100%" frameborder="0" align="top" scrolling="no" src="<%=LDestinationURL%>" >
This option will not work correctly. Unfortunately, your browser does not support Inline Frames
</iframe>
</body>
</html>