ASP: Create an access data table code Function

Function createtablename (tablename)

Tablesql = "create table" & tablename &"("
Tablesql = tablesql + "userid autoincrement primary key ,"
Tablesql = tablesql + "username varchar (20 ),"
Tablesql = tablesql + "password varchar (16 ),"

Tablesql = tablesql + "gradelevel long ,"
Tablesql = tablesql + "gradename varchar (20 ),"
Tablesql = tablesql + "postid long ,"
Tablesql = tablesql + "postname varchar (20 ),"

Tablesql = tablesql + "userrealname varchar (10 ),"
Tablesql = tablesql + "usersex varchar (10 ),"
Tablesql = tablesql + "usertel varchar (20 ),"
Tablesql = tablesql + "usermobile varchar (20 ),"

Tablesql = tablesql + "workqq varchar (20 ),"
Tablesql = tablesql + "workemail varchar (60 ),"
Tablesql = tablesql + "workmsn varchar (60 ),"
Tablesql = tablesql + "workduty varchar (20 ),"

Tablesql = tablesql + "checkstatus bit not null ,"
Tablesql = tablesql + "checkuser varchar (20 ),"
Tablesql = tablesql + "checktime datetime ,"
Tablesql = tablesql + "checkip varchar (16 ),"
Tablesql = tablesql + "checkfrom varchar (100 ),"

Tablesql = tablesql + "adduser varchar (20 ),"
Tablesql = tablesql + "addtime datetime ,"
Tablesql = tablesql + "addip varchar (16 ),"
Tablesql = tablesql + "addfrom varchar (100 ),"

Tablesql = tablesql + "updateuser varchar (20 ),"
Tablesql = tablesql + "updatetime datetime ,"
Tablesql = tablesql + "updateip varchar (16 ),"
Tablesql = tablesql + "updatefrom varchar (100 ),"

Tablesql = tablesql + "totallogintimes long ,"

Tablesql = tablesql + "logintime datetime ,"
Tablesql = tablesql + "loginip varchar (16 ),"
Tablesql = tablesql + "loginfrom varchar (100 ),"

Tablesql = tablesql + "lastlogintime datetime ,"
Tablesql = tablesql + "lastloginip varchar (16 ),"
Tablesql = tablesql + "lastloginfrom varchar (100 )"

Tablesql = tablesql + ")"

Response. Write ("<br> executing database operation statement" & tablesql)
Conn.exe cute (tablesql)
If err then
Response. Write ("<br> system error ")
Response. Write (ERR. description)
Else
Response. Write ("<br> statement execution successful ")
End if

End Function