[bold]dim aa
set aa=Server.CreateObject("GETACTIVECODE.HaveActiveCode")
ActiveCode=aa.ReturnActiveCode(sqm,jqm)[/bold]

 strSQL="Insert BuyInfo(CustomerID,MachineID,ProductID,buydate,ActiveCode) values("
 strSQL=strSQL & CustomerID &"," & MachineID & "," & ProductID & ",'"
 strSQL=strSQL & date & "','"
[bold] strSQL=strSQL & ActiveCode & [/bold]"')"
 'response.Write(strSQL)
 'response.End()
 Conn.Execute(strSQL)


=============================================================

Active Server Pages, ASP 0115 (0x80004005)
外部对象中发生了可捕获的错误(C0000005)。脚本无法继续执行。