<%@ Language=VBScript %> <% 'database connection Set conn = Server.CreateObject("ADODB.Connection") conn.Open "provider=microsoft.jet.oledb.4.0;data source=" & server.MapPath("borosil.mdb") set cmd=Server.CreateObject("ADODB.Command") Set cmd.ActiveConnection = conn cmd.CommandText = "Create Table email_counts(email_no Number)" cmd.CommandType = adCmdText Set rs = cmd.Execute conn.close %>