高分104，求：asp+mysql的简单小程序（包括删除，添加，更新功能）

'建立连结
connstr = "DSN=test;uid=test;pwd=test"
set myconn=server.createobject("ADODB.CONNECTION")
Myconn.open connstr'更新
strsql="update test set test='"&date()&"' where test='"&test&"'"
myconn.execute(strsql)'添加
strsql="insert into test(test,test1) values ('"&date&"',1) "         
myconn.execute(strsql)'删除strsql="delete from test where test='"& date() &"' "         
myconn.execute(strsql)