actually I have to add some code here to make it works:
<SCRIPT LANGUAGE="VBScript">
<!--
Sub Page_Initialize
Dim intCount
On Error Resume Next
Dim webBroker
<%If Session("CrystalReportVersion") = 8 Then%>
Set webBroker = CreateObject("WebReportBroker.WebReportBroker")
<%Else%>
Set webBroker = CreateObject("CrystalReports.WebReportBroker")
<%End If%>
if ScriptEngineMajorVersion < 2 then
window.alert "IE 3.02 users on NT4 need to get the latest version of VBScript or install IE 4.01 SP1. IE 3.02 users on Win95 need DCOM95 and latest version of VBScript, or install IE 4.01 SP1. These files are available at Microsoft's web site."
CRViewer.ReportName = Location.Protocol + "//" + Location.Host + "/scrsamples/Web Component Server/rptserver.asp"
else
Dim webSource
<%If Session("CrystalReportVersion") = 8 Then%>
Set webSource = CreateObject("WebReportSource.WebReportSource")
<%Else%>
Set webSource = CreateObject("CrystalReports.WebReportSource")
<%End If%>
webSource.ReportSource = webBroker
webSource.URL = "rptserver.asp"
webSource.PromptOnRefresh = True
CRViewer.ReportSource = webSource
end if
CRViewer.ViewReport
End Sub
-->
</SCRIPT>