Passing parameters from .ASP (VBSript) to Activex object in date format
Crystal Reports, ActiveX, ASP, HTML, SQL, VBScript, Software, Web site design & management
I have inherited the following:<%@ LANGUAGE="VBSCRIPT" %>
<%
dim adoconn
set adoconn = server.createobject("adodb.connection")
adoconn.open Application("DSN"),Application("UID"),Application("PWD")
reportname = "traininghrsbyemployee.rpt"
If Not IsObject (session("oApp")) Then
Set session("oApp") = Server.CreateObject("CrystalRuntime.Application")
End If
Path = Request.ServerVariables("PATH_TRANSLATED")
While (Right(Path, 1) <> "" And Len(Path) <> 0)
iLen = Len(Path) - 1
Path = Left(Path, iLen)
Wend
If IsObject(session("oRpt")) then
Set session("oRpt") = nothing
End if
Set session("oRpt") = session("oApp").OpenReport(path & reportname, 1)
session("oRpt").MorePrintEngineErrorMessages = False
session("oRpt").EnableParameterPrompting = False
session("oRpt").DiscardSavedData
set session("ParamCollection") = Session("oRpt").Parameterfields
set Param1 = session("ParamCollection").Item(1)
NewParamValue = Request.Form("datefrom") '"08/05/2005" '
Call Param1.SetCurrentValue(CStr(NewParamValue),12)
set Param2 = session("ParamCollection").Item(2)
NewParamValue = Request.Form("dateto") '"09/02/2005" '
Call Param2.SetCurrentValue(CStr(NewParamValue),12)
On Error Resume Next
session("oRpt").ReadRecords
If Err.Number <> 0 Then
Response.Write "An Error has occured on the server in attempting to access the data source"
Else
If IsObject(session("oPageEngine")) Then
set session("oPageEngine") = nothing
End If
set session("oPageEngine") = session("oRpt").PageEngine
End If
%>
<!-- #include file="SmartViewerActiveX.asp" -->
<%
adoconn.close()
%>
This passes dates as strings to the object.
The database structure has now changed and requires that dates be passed as datetime.
Can you help?
0
