HEX

File: D:/web/forsale/index.asp
<!--#include virtual="common/asp/inc-email.asp"-->
<%
Dim FSiteName, FDomainName, FTitle, FMetaDesc, FHeading, FFooter, FAlsoForSale
FSiteName = LCase(Request.ServerVariables("HTTP_HOST"))
FDomainName = FSiteName
If Left(FDomainName, 4) = "www." then FDomainName = Mid(FDomainName, 5, 999)
FFooter = ""
FAlsoForSale = ""
If FDomainName = "idvert.com" Then
  FTitle = "Idvert = internet + advert - Domain for sale"
  FMetaDesc = "The perfect domain for internet ads, classified adverts, personal advertisements, and for sale ads."
  FHeading = "idvert = internet + advert<br>" + FMetaDesc
ElseIf FDomainName = "tailormadesoftware.com" Then
  FTitle = "Tailor Made Software - Bespoke Software Development / Custom Software Development, UK"
  FMetaDesc = "Tailor Made Software - Bespoke software / Custom software development and programming consultancy for UK businesses in London, Birmingham, Coventry, Walsall, Oxford, Leicester, Northampton, Banbury and all over the UK."
  FHeading = "Tailor Made Software"
  FAlsoForSale = "<p>Also for sale <a href=""http://www.tailormadesoftware.net"" target=""_blank"">tailormadesoftware.net</a></p>"
  FFooter = "Bespoke Software development, Warwickshire - Coventry - Birmingham <a href=""http://www.itpartnership.com"" target=""_blank"">www.itpartnership.com</a>"
ElseIf FDomainName = "tailormadesoftware.net" Then
  FTitle = "Tailor Made Software - Bespoke Software Development / Custom Software Development, UK"
  FMetaDesc = "Tailor Made Software - Bespoke software / Custom software development and programming consultancy for UK businesses in London, Birmingham, Coventry, Walsall, Oxford, Leicester, Northampton, Banbury and all over the UK."
  FHeading = "Tailor Made Software"
  FAlsoForSale = "<p>Also for sale <a href=""http://www.tailormadesoftware.com"" target=""_blank"">tailormadesoftware.com</a></p>"
  FFooter = ""
Else
  FTitle = FDomainName + " - Domain for sale"
  FMetaDesc = FTitle
  FHeading = FTitle
End If
%>

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title><%=FTitle%></title>
<meta name="description" content="<%=FMetaDesc%>">
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link href="sale.css" rel="stylesheet" type="text/css">
</head>

<body>
<h1><%=FHeading%></h1>
<h2><%=FDomainName%></h2>
<h3>This Domain is for Sale</h3>
<%=FAlsoForSale%>

<div id='bkd'><div align="center">
<%
'SetDebugOn
SetToAddress "neil@itpartnership.com"
'SetInternalEmailsOff
'SetEmailType "TEXT", 17
SetFormTitle "<b>Please fill in the form with your interest.<b><br><br>"
SetEmailTitle "<b>" + FDomainName + " - Domain for SALE Request:</b><br><br>"
SetSubject FDomainName + " - Domain for SALE Request"
QuickForm "Q=TGXM"	' i.e. include Title, Address, Gap, X for extra items below, M for email required
AddFormItem "Enquiry", "Enquiry", False, IT_TEXTAREA, "37", "5"
CloseForm
%>
</div></div>

Bespoke Software development, Warwickshire - Coventry - Birmingham <a href="http://www.itpartnership.com" target="_blank">www.itpartnership.com</a>

</body>
</html>