help with crystal 8 and asp

hi im trying to publish a report that uses a db in sql server 2000, the problem is when i try to see the report on web it doesnt works, it asks me the user and pass of sql, i put it but it asks again and dont let me access the report, other kind of reports that dont use dbs works fine, the code i use is it
<OBJECT ID="CRViewer" CLASSID="CLSID:C4847596-972C-11D0-9567-00A0C9273C2A" WIDTH=100% HEIGHT=95% CODEBASE="/viewer/activeXViewer/activexviewer.cab#Version=1.0.0.0">
<PARAM NAME="EnableRefreshButton" VALUE=1>
<PARAM NAME="EnableGroupTree" VALUE=1>
<PARAM NAME="DisplayGroupTree" VALUE=0>
<PARAM NAME="EnablePrintButton" VALUE=1>
<PARAM NAME="EnableExportButton" VALUE=1>
<PARAM NAME="EnableDrillDown" VALUE=1>
<PARAM NAME="EnableSearchControl" VALUE=1>
<PARAM NAME="EnableAnimationControl" VALUE=1>
<PARAM NAME="EnableZoomControl" VALUE=1>
</OBJECT>
<SCRIPT LANGUAGE="VBScript">
<!--
Sub window_onLoad()
Page_Initialize()
End Sub
Sub Page_Initialize
On Error Resume Next
Dim webBroker
Set webBroker = CreateObject("WebReportBroker.WebReportBroker")
URL = "report.rpt" <!--Location.Href -->
if InStr(1, URL, "?")>0 then
URL=Mid(URL, 1, InStr(1, URL, "?") - 1)
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 = URL
else
Dim webSource
Set webSource = CreateObject("WebReportSource.WebReportSource")
webSource.ReportSource = webBroker
webSource.URL = URL
webSource.PromptOnRefresh = False
CRViewer.ReportSource = webSource '& "?user0=xxx&password0=xxx"
end if
CRViewer.ViewReport
End Sub
-->
</SCRIPT>

can anyone help me???