<!--METADATA NAME="Microsoft ActiveX Data Objects 2.5 Library" TYPE="TypeLib" UUID="{00000205-0000-0010-8000-00AA006D2EA4}"-->
<%
	'Dim strCon
	strCon = "Driver={Microsoft ODBC for Oracle};" &_
	"CONNECTSTRING=(DESCRIPTION=" &_
	"(ADDRESS=(PROTOCOL=TCP)" &_
	"(HOST=test)(PORT=1521))" &_
	"(CONNECT_DATA=(SERVICE_NAME=basetwo)));uid=test;pwd=test;"

	'Dim oCon
	'Dim oRs
	'Dim oCMD
	set oCMD = Server.CreateObject("ADODB.Command")	
	set oCon = Server.CreateObject("ADODB.Connection")
	set oRs  = Server.CreateObject("ADODB.Recordset")
	oCon.Open strCon
	
	Set oCMD.ActiveConnection = oCon
	set oCMD.CommandText = "TestScheme.TestServer.Test(?,?,?,?,?,?,?)"
	set oCMD.CommandType = adCmdStoredProc
	set oCMD.NamedParameters = True
	
	oCMD.Parameters.Append(oCMD.CreateParameter("aDateFrom", adDBDate, adParamInput))
	oCMD.Parameters.Append(oCMD.CreateParameter("aDateTo", adDBDate, adParamInput))
	oCMD.Parameters.Append(oCMD.CreateParameter("aRURLimit", adNumeric, adParamInput))
	oCMD.Parameters.Append(oCMD.CreateParameter("aUSDLimit", adNumeric, adParamInput))
	oCMD.Parameters.Append(oCMD.CreateParameter("aEURLimit", adNumeric, adParamInput))
	oCMD.Parameters.Append(oCMD.CreateParameter("aP1", adVarChar, adParamInput, 50 ))
	oCMD.Parameters.Append(oCMD.CreateParameter("aP2", adVarChar, adParamInput, 50 ))
	
	oCMD.Parameters("aDateFrom").Value = ZDate(D1,"")
	oCMD.Parameters("aDateTo").Value = ZDate(D2,"")
	oCMD.Parameters("aRURLimit").Value = X1
	oCMD.Parameters("aUSDLimit").Value = X2
	oCMD.Parameters("aEURLimit").Value = X3
	oCMD.Parameters("aP1").Value = Q1
	oCMD.Parameters("aP2").Value = Q2

	Set oRs = oCMD.Execute
	Response.Buffer=true
if oRs.EOF then
	ZOut "<p align=""center"">" & czNoRecords & "</p>"
End If
%>
...