<html>
<head>
<title>ThaiCreate.Com ASP & SQL Server Tutorial</title>
</head>
<body>
<%
Dim Conn,strSQL,objExec
Set Conn = Server.Createobject("ADODB.Connection")
Conn.Open "Driver={SQL Server};Server=localhost;Database=mydatabase;UID=sa;PWD=;"
For Each chkVol in Request.Form("chkInsert")
strSQL = ""
strSQL = strSQL&"INSERT INTO customer2 (CustomerID) "
strSQL = strSQL&"VALUES ('"&chkVol&"') "
Set objExec = Conn.Execute(strSQL)
Next
Response.write("Record Insert Done..")
Conn.Close()
Set objExec = Nothing
Set Conn = Nothing
%>
</body>
</html>