ConnectOK.asp
<%
Dim Conn, ConnStr
Set Conn = Server.CreateObject("Adodb.Connection")
ConnStr = "Driver={SQL Server};Server=192.168.0.93;UID=sa;PWD=123;database=test;"
Conn.Open ConnStr
sqlquery = "insert into TestTable (TestColumn1,TestColumn2) values ('aaa','bbb')"
Set recadd = Conn.execute(sqlquery)
%>