I do something similiar to this all the time.
<%
Dim strAreas
Dim aryNumbers
Dim strUser
strUser = "abc"
strAreas="10,14,15"
aryNumbers = Split(strAreas, ",")
for i = 0 to UBound(aryNumbers)
strSQL = "INSERT INTO YourDataBase (Username, Areas) " &_
"VALUES ('" & strUser & "', '" & aryNumbers(i) & "');"
objConn.Execute(strSQL)
Response.Write(strUser & " - " & aryNumbers(i) & "----Was Inserted<BR>")
next
%>
|