display last user and modified date
I am having a hard time trying to display the last user who modified the record including the date. Any ideas? HEre is what I have so far.
<td>
<%
Dim mySQL, objRS, createdByMsg, auditreason
Set objRS = Server.CreateObject("ADODB.Recordset")
mySQL = "SELECT * FROM ConAdmPSAAgreementsAudit" & _
" where agreement_no ='" & strAgreementNum & "'"
'mySQL = "Select * from ConAdmPSAAgreementsAudit where auditreason = '" & auditreason & "' select *, '" & session("username") & "', getdate(), " & _
'"'TEST'" & "' from ConAdmPSAAgreements(nolock) where agreement_no = '" & strAgreementNum & "'"
'response.write mySQL & "<br>"
'response.end
objRS.Open mySQL, cn
if objRS.eof then
response.write "NO RECORDS ADDED/UPDATED"
elseif objRS.fields("auditreason") = "AFTERINSERT" or objRS.fields("auditreason") = "AFTERUPDATE" then
createdByMsg = iif(isnull(objRS("auditUserID")), objRS("auditreason"), " Record was " & objRS("auditreason") & " on " & objRS("auditdate") & " by " & GetUserName(objRS("auditUserID")))
end if
%>
<b><%=createdByMsg%></b>
</td>
Any help is appreciated. :D
|