S
spacecake
hi, I get an error that the request object is unknown, the owc
pivottable is normally clientside and request.querystring is something
from the serverside, maybe that't the problem... Can anybody help
me???
thx
<html>
<head>
<title>PivotTable Component</title>
<!--#include file="Adovbs.inc"-->
<!--#include file="header.asp"-->
</head>
<body>
<!-- PivotTable Control -->
<object classid="clsid:0002E520-0000-0000-C000-000000000046"
id="PivotTable1" width="450" height="300">
</object>
<script language=VBScript>
Dim sSQL
Dim sConn
Dim item
Dim c
Set c = PivotTable1.Constants
PivotTable1.AutoFit = True
PivotTable1.AllowDetails = False
PivotTable1.DisplayFieldList = false
' Specify the SELECT criteria
sSQL = "select * from alles"
'Specify the connection string
sConn = "Provider=SQLOLEDB; Data Source = bew2vachach01; Initial
Catalog = finrap; User Id = sa; Password= as"
' Bind the PivotTable to the results of the query
PivotTable1.ConnectionString = sConn
PivotTable1.CommandText = sSQL
' Show all result columns in the report
'PivotTable1.ActiveView.AutoLayout
' Format the numbers
set pview = PivotTable1.ActiveView
'rijen instellen
For teller=1 to request.form("aantal")
rij="rij" & teller
if request.form(rij) <> "" then
pview.RowAxis.InsertFieldSet pview.FieldSets(request.form(rij))
end if
next
</script>
</body>
</html>
pivottable is normally clientside and request.querystring is something
from the serverside, maybe that't the problem... Can anybody help
me???
thx
<html>
<head>
<title>PivotTable Component</title>
<!--#include file="Adovbs.inc"-->
<!--#include file="header.asp"-->
</head>
<body>
<!-- PivotTable Control -->
<object classid="clsid:0002E520-0000-0000-C000-000000000046"
id="PivotTable1" width="450" height="300">
</object>
<script language=VBScript>
Dim sSQL
Dim sConn
Dim item
Dim c
Set c = PivotTable1.Constants
PivotTable1.AutoFit = True
PivotTable1.AllowDetails = False
PivotTable1.DisplayFieldList = false
' Specify the SELECT criteria
sSQL = "select * from alles"
'Specify the connection string
sConn = "Provider=SQLOLEDB; Data Source = bew2vachach01; Initial
Catalog = finrap; User Id = sa; Password= as"
' Bind the PivotTable to the results of the query
PivotTable1.ConnectionString = sConn
PivotTable1.CommandText = sSQL
' Show all result columns in the report
'PivotTable1.ActiveView.AutoLayout
' Format the numbers
set pview = PivotTable1.ActiveView
'rijen instellen
For teller=1 to request.form("aantal")
rij="rij" & teller
if request.form(rij) <> "" then
pview.RowAxis.InsertFieldSet pview.FieldSets(request.form(rij))
end if
next
</script>
</body>
</html>