<% 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;" 'Create IDX Table for IDX Listings------------------------------------------------------- strSQL = "CREATE TABLE [dbo].[IDXIHListings] (" 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 & "[ACTIVEDATE] [datetime] NULL," strSQL = strSQL & "[EXPIREDATE] [datetime] NULL," strSQL = strSQL & ") ON [PRIMARY]" SQLConnect.Execute(strSQL) strSQL = "" 'Create IDX Table for IDX Listings------------------------------------------------------- Response.Write("
HouseViewOnline.com IDX-IH TABLE Creation Completed on " & now() & "
") SQLConnect.Close Set SQLConnect = Nothing End if %>

This will Create all IDX Tables in The SQL Server