<%
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open(YourDBConnectionString)
strCreateSQL = "CREATE TABLE myTable (myField1 int, myField2 varchar, myField3 varchar, myField4 bit)"
objConn.Execute(strCreateSQL)
Set objConn = Nothing
%>