|
<%@ LANGUAGE = VBScript %>
<html>
<head><title>RAC ASP Demo</title></head>
<body>
<center><h1>RAC ASP-Basic Crosstab Demo</h1></center>
<table border=1 align=center>
<%
Response.Buffer=true
Dim strSQL, conn, rs, field, x
strConn = "Provider=sqloledb;" & _
"Data Source=srvname;" & _
"Initial Catalog=Northwind;" & _
"User Id=usrname;" & _
"Password=pwd;"
strSQL = "Execute rac " & _
"@transform='count(*) as cnt'," & _
"@rows='shipcountry & shipvia'," & _
"@pvtcol='lastname'," & _
"@from='orders join employees on orders.employeeid=employees.employeeid'"
set conn = server.createobject("adodb.connection")
conn.open strConn
'Capture Error
On Error Resume Next
set rs = conn.execute(strSQL)
If err.Number=0 then
'column header
response.write "<tr bgcolor='silver'>" & vbCrLf
for each field in rs.Fields
response.write "<td>" & field.Name & "</td>"
& vbCrLf
next
response.write "</tr>" & vbCrLf
'data
do until rs.eof
response.write "<tr>" & vbCrLf
for each field in rs.Fields
if field.value="" then
x="-"
else
x=field.value
end if
response.write "<td>" & x & "</td>"
& vbCrLf
next
response.write "</tr>" & vbCrLf
rs.movenext
loop
Else
Response.Write "Error: " & err.Number & "<br>
Description: " & err.Description
End if
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
</table>
</body>
</html>
|