kode som jeg ikke kan få til at virke :-s

jeg har lavet følgende kode til hurtigt at oprette "test" admins i min SQL DB.

Problemet er dog bare at når koden køres - bliver ingen brugere oprettet (og der kommer ingen fejl meddelse?)

er det nogen som kan se nogen fejl i koden eller evt kunne have en ide til hvad der kunne være galt ?

<%
Set DataConn = Server.CreateObject("ADODB.Connection")
DataConn.Open "Provider=sqloledb; Data Source=(local); Initial Catalog=TestCenter; User Id=Adm; Password=Test;"

strSQL = "SELECT * FROM Userconfig"
Set rs = Server.CreateObject("ADODB.RecordSet")
rs.Open strSQL, DataConn, 1, 3

tid = time()
Dat = now()
count = 0
Do While not count < 30
count = count +1
   
rs.addnew
rs("User_ID") = "545454545"&count&""
rs("User_name") = "Boy"&count&""
rs("User_lan") = "1"
rs("User_Admin") = "45"
rs("User_Code") = "tytyty"
rs("Per_Sex") = "1"
rs("User_Level") = "10"
rs("Admin_Create_date") = dat
rs("dato") = dat
rs("User_Status") = "1"
rs("Tid") = tid
rs("User_Gold_Date_Expire") = dat
rs("User_Gold_Date_Start") = dat
rs("TimeStamp") = dat
rs.update
%>
Admin-<%=Count%> created!
<%
Loop

rs.Close
Set rs = Nothing

DataConn.Close
Set DataConn = Nothing
%>