<%
IF Request.Form("Continue") = "Continue" Then
  Set SQLConnect = Server.CreateObject("ADODB.Connection")
  SQLConnect.Open "Driver={SQL Server};Server=208.18.48.246;Database=houseviewonline;Uid=houseviewonline;Pwd=supernova04;"


'SQLConnect.Execute("DROP TABLE [dbo].[IDXListings]")
'SQLConnect.Execute("DROP TABLE [dbo].[IDXFeatures]")
'SQLConnect.Execute("DROP TABLE [dbo].[IDXFeatureCategories]")
'SQLConnect.Execute("DROP TABLE [dbo].[IDXAgency]")


'Create IDX Table for IDX Listings-------------------------------------------------------
   strSQL = "CREATE TABLE [dbo].[IDXListings] ("
   strSQL = strSQL & "[MLS] [int] PRIMARY KEY CLUSTERED NOT NULL,"
   strSQL = strSQL & "[PRICE] [int] NULL ,"
   strSQL = strSQL & "[CITY] [nvarchar] (50) NULL,"
   strSQL = strSQL & "[STATE] [nvarchar] (10) NULL,"
   strSQL = strSQL & "[ZIP] [nvarchar] (15) NULL,"
   strSQL = strSQL & "[GROUPING] [int] NULL ,"
   strSQL = strSQL & "[AGENT] [nvarchar] (80) NULL,"
   strSQL = strSQL & "[AGENTPHONE] [nvarchar] (50) NULL,"
   strSQL = strSQL & "[OFFICE] [nvarchar] (80) NULL,"
   strSQL = strSQL & "[OFFICEPHONE] [nvarchar] (50) NULL,"
   strSQL = strSQL & "[NOTES] [text] NULL,"
   strSQL = strSQL & "[BED] [nvarchar] (50) NULL,"
   strSQL = strSQL & "[BATHFULL] [nvarchar] (50) NULL,"
   strSQL = strSQL & "[BATHHALF] [nvarchar] (50) NULL,"
   strSQL = strSQL & "[FEATURES] [text] NULL,"
   strSQL = strSQL & "[TYPE1] [nvarchar] (50) NULL,"
   strSQL = strSQL & "[TYPE2] [nvarchar] (50) NULL,"
   strSQL = strSQL & "[BASEMENT] [nvarchar] (15) NULL,"
   strSQL = strSQL & "[SQFT] [nvarchar] (25) NULL,"
   strSQL = strSQL & "[AGE] [nvarchar] (25) NULL,"
   strSQL = strSQL & "[TYPE3] [nvarchar] (50) NULL,"
   strSQL = strSQL & "[MASTERLEVEL] [nvarchar] (50) NULL,"
   strSQL = strSQL & "[AUX1] [nvarchar] (50) NULL,"
   strSQL = strSQL & "[AUX2] [nvarchar] (50) NULL,"
   strSQL = strSQL & "[AUX3] [nvarchar] (50) NULL,"
   strSQL = strSQL & "[AUX4] [nvarchar] (50) NULL,"
   strSQL = strSQL & "[AUX5] [nvarchar] (50) NULL,"
   strSQL = strSQL & "[AUX6] [nvarchar] (50) NULL,"
   strSQL = strSQL & "[STREETNUM] [nvarchar] (50) NULL,"
   strSQL = strSQL & "[STREETDIRECTION] [nvarchar] (50) NULL,"
   strSQL = strSQL & "[STREETNAME] [nvarchar] (50) NULL,"
   strSQL = strSQL & "[CATEGORY] [nvarchar] (15) NULL,"
   strSQL = strSQL & ") ON [PRIMARY]"

SQLConnect.Execute(strSQL)
strSQL = "" 
'Create IDX Table for IDX Listings-------------------------------------------------------


'Create Features for IDX Listings-------------------------------------------------------
   strSQL = "CREATE TABLE [dbo].[IDXFeatures] ("
   strSQL = strSQL & "[FeatureID] [int] NOT NULL ,"
   strSQL = strSQL & "[CatID] [int] NOT NULL ,"
   strSQL = strSQL & "[Code] [int] NOT NULL ,"
   strSQL = strSQL & "[Abbrev] [nvarchar] (5) NULL,"
   strSQL = strSQL & "[Description] [nvarchar] (25) NULL,"
   strSQL = strSQL & ") ON [PRIMARY]"

SQLConnect.Execute(strSQL)
strSQL = "" 
'Create IDX Table for IDX Listings----------------------------------------------------------------


'Create Features Categories for IDX Listings----------------------------------------------------------------
   strSQL = "CREATE TABLE [dbo].[IDXFeatureCategories] ("
   strSQL = strSQL & "[CatID] [int] NOT NULL ,"
   strSQL = strSQL & "[ClassID] [int] NOT NULL ,"
   strSQL = strSQL & "[Code] [nvarchar] (3) NULL,"
   strSQL = strSQL & "[Description] [nvarchar] (25) NULL,"
   strSQL = strSQL & ") ON [PRIMARY]"

SQLConnect.Execute(strSQL)
strSQL = "" 
'Create IDX Table for IDX Listings---------------------------------------------------------------


'Create Agency Table for IDX Listings----------------------------------------------------------------
   strSQL = "CREATE TABLE [dbo].[IDXAgency] ("
   strSQL = strSQL & "[ID] [int] IDENTITY (1, 1) NOT NULL ,"
   strSQL = strSQL & "[agency] [nvarchar] (125) NULL,"
   strSQL = strSQL & "[grouping] [int] NULL ,"
   strSQL = strSQL & "[address] [nvarchar] (125) NULL,"
   strSQL = strSQL & "[city] [nvarchar] (125) NULL,"
   strSQL = strSQL & "[state] [nvarchar] (5) NULL,"
   strSQL = strSQL & "[zip] [int] NULL ,"
   strSQL = strSQL & "[phone] [nvarchar] (50) NULL,"
   strSQL = strSQL & "[fax] [nvarchar] (50) NULL,"
   strSQL = strSQL & "[email] [nvarchar] (100) NULL,"
   strSQL = strSQL & "[other] [nvarchar] (50) NULL,"
   strSQL = strSQL & "[logo] [nvarchar] (125) NULL,"
   strSQL = strSQL & "[extra1] [nvarchar] (125) NULL,"
   strSQL = strSQL & "[extra2] [nvarchar] (125) NULL,"
   strSQL = strSQL & "[extra3] [nvarchar] (125) NULL,"
   strSQL = strSQL & "[extra4] [nvarchar] (125) NULL,"
   strSQL = strSQL & "[extra5] [nvarchar] (125) NULL,"
   strSQL = strSQL & ") ON [PRIMARY]"

SQLConnect.Execute(strSQL)
strSQL = "" 
'Create IDX Table for IDX Listings---------------------------------------------------------------


Response.Write("<br><b>HouseViewOnline.com IDX TABLE Creation Completed on " & now() & "</b><br>")

   SQLConnect.Close
   Set SQLConnect = Nothing
End if
%>

<html>
<body>
<br>
<br>
<center>
<table border="0" cellpadding="0" cellspacing="0"><tr><td>
<font face="Tahoma" size="2" color="#000000"><b>This will Create all IDX Tables<br>
in The SQL Server<br></b></font> 
<form name="SQLSync" Action="/IDX/makeIDXtables.asp" method="post">
<input type="submit" name="Continue" Value="Continue">
</form>
</td>
</tr>
</table>
</center>
</body>
</html>