<% Response.Expires = -1440 Set Conn = Server.CreateObject("ADODB.Connection") MM_MyConn_STRING = "Provider=SQLOLEDB.1;User Id=sa;pwd=ntsisports;Initial Catalog=SMLeads;Data Source=sportsdb" Conn.ConnectionString = MM_MyConn_STRING Conn.Open Set Rec = Server.CreateObject("ADODB.Recordset") Rec.ActiveConnection = Conn Rec.Open "Select * From Company" AutoNum = "CompanyID" Response.Write "" Response.Write "

CREATE A " & "COMPANY" & "

" Response.Write "" For Each F in Rec.Fields if F.Name <> AutoNum then Response.Write "" Response.Write "" end if next Response.Write "

" & F.Name & "

" Response.Write "

" %>