I have the following code which keeps throwing the error
Microsoft VBScript runtime error '800a01b6'
Object doesn't support this property or method: 'eof'
nString = "select name from seminar where seminarid = '" & vSeminarID & "'"
if not (RS.eof and RS.bof) then
Do while not RS.eof
On Error Resume Next