<% Dim qTcms_qc, url SET qTcms_qc = New QqConnet Session("State")=qTcms_qc.MakeRandNum() url = qTcms_qc.GetAuthorization_Code() Response.Redirect(url) Set qTcms_qc=Nothing %>