Add item to db and thereafter read it

[44nato44]

Hi

I have added something to my db and then I run a Select, but the new item which I added is not read

How can that be and can I do something to fix it ?

Code :

Dim arrAssProj
vartest = 0
arrAssProj = Split(varchkProjectAdd, ",")

if len(varchkProjectAdd) > 0 then

for i = 0 to ubound(arrAssProj)
SQLAssProj = "INSERT INTO tblTaskToolProRght (ProjectID, UserID) "
SQLAssProj = SQLAssProj & " VALUES ('" & arrAssProj(i) & "','" & varUserName & "')"
conn.execute(SQLAssProj)
vartest = vartest + 1

next

end if


' Creating new Array to contain current list of projects in the tblTaskToolProRght

SQLNewUsersProject = "SELECT * FROM tblTaskToolProRght WHERE UserID = '" & RsAllUsers("UserName") & "'"
RsNewUsersProject.Open SQLNewUsersProject, DSNTA, 2

 

[foxbox]

Start with some simple debugging by adding a

response.write SQLAssProj in then FOR NEXT loop
and a response.end after next....