Here's the code:
If lngLoggedInUserID <> strAuthorID AND UserIsRegistered = 1 then
strAccessDB = "/db/mydata.mdb"
strConnect = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath(strAccessDB)
Set db = Server.CreateObject ("ADODB.Connection")
db.Open strConnect
Set rsAdd = Server.CreateObject ("ADODB.Recordset")
rsAdd.Open "tblViews", strConnect, adOpenForwardOnly, adLockOptimistic
rsAdd.AddNew
rsAdd("fldAuthor") = strAuthorID
rsAdd("fldVisitor") = strLoggedInUserName & "#" & lngLoggedInUserID
rsAdd("fldDate") = Now()
rsAdd("fldViewType") = "Profile"
rsAdd.Update
rsAdd.Close
Set rsAdd = Nothing
db.Close
Set db = Nothing
End If
now...it goes through it, cuz if you put a Resp.Wr in the middle of the rsAdd("")'s it displays it. But, it's not adding anything to the DB! I've even forced bad field names trying to get an error, and nuttin!
any ideas?!
TIA!
. necronom .
Edited by Necronom