kreplech
May 15th, 2001, 07:59 AM
I am trying to use some new VB controls on the web. I know they have to be loaded on the client side. My code below shows how far I have gotten. Any suggestions will be appreciated.
thanks
Mark
<code>
<html>
<head>
<title></title>
<script id="bindGrid" language="VBSCRIPT">
sub cmdBind_onclick()
dim sql, objSqlConn, sqlRs
sql = "SELECT * FROM V22EditOrders_DetailPU;"
set objSqlConn = server.createobject("adodb.connection")
objSqlConn.open "Provider=SQLOLEDB; Data Source=208.61.233.10; Initial Catalog=PowerSpares; User Id=sa; Password=;"
set sqlRs = Server.CreateObject("adodb.recordset")
sqlRs.open sql, objSqlConn
set SSUltraGrid.datasource=sqlRs
end sub
</script>
</head>
<body>
<P>
<OBJECT classid=clsid:D30CFC72-67B3-11D3-9475-00104B9E078A height=370
id=gridColumnStyles style="HEIGHT: 370px; LEFT: 0px; TOP: 0px; WIDTH: 638px"
width=638><PARAM NAME="_ExtentX" VALUE="16880"><PARAM NAME="_ExtentY" VALUE="9790"><PARAM NAME="_Version" VALUE="65536"><PARAM NAME="GridFlags" VALUE="263424"><PARAM NAME="LayoutFlags" VALUE="4"><PARAM NAME="RowConnectorColor" VALUE="-2147483632"><PARAM NAME="EstimatedRows" VALUE="0"><PARAM NAME="TipDelay" VALUE="-1"><PARAM NAME="MaxColScrollRegions" VALUE="50"><PARAM NAME="MaxRowScrollRegions" VALUE="50"><PARAM NAME="BorderStyle" VALUE="0"><PARAM NAME="MousePointer" VALUE="0"><PARAM NAME="ScrollBars" VALUE="4"><PARAM NAME="RowConnectorStyle" VALUE="0"><PARAM NAME="TabNavigation" VALUE="0"><PARAM NAME="ViewStyle" VALUE="0"><PARAM NAME="ViewStyleBand" VALUE="0"><PARAM NAME="BorderStyleCaption" VALUE="0"><PARAM NAME="InterBandSpacing" VALUE="60"><PARAM NAME="AlphaBlendEnabled" VALUE="-1"><PARAM NAME="Enabled" VALUE="-1"><PARAM NAME="OLEDropMode" VALUE="0"></OBJECT>
</P>
</body>
</html>
</code>
Web Dev
Boca Raton, FL
kreplech@aol.com
thanks
Mark
<code>
<html>
<head>
<title></title>
<script id="bindGrid" language="VBSCRIPT">
sub cmdBind_onclick()
dim sql, objSqlConn, sqlRs
sql = "SELECT * FROM V22EditOrders_DetailPU;"
set objSqlConn = server.createobject("adodb.connection")
objSqlConn.open "Provider=SQLOLEDB; Data Source=208.61.233.10; Initial Catalog=PowerSpares; User Id=sa; Password=;"
set sqlRs = Server.CreateObject("adodb.recordset")
sqlRs.open sql, objSqlConn
set SSUltraGrid.datasource=sqlRs
end sub
</script>
</head>
<body>
<P>
<OBJECT classid=clsid:D30CFC72-67B3-11D3-9475-00104B9E078A height=370
id=gridColumnStyles style="HEIGHT: 370px; LEFT: 0px; TOP: 0px; WIDTH: 638px"
width=638><PARAM NAME="_ExtentX" VALUE="16880"><PARAM NAME="_ExtentY" VALUE="9790"><PARAM NAME="_Version" VALUE="65536"><PARAM NAME="GridFlags" VALUE="263424"><PARAM NAME="LayoutFlags" VALUE="4"><PARAM NAME="RowConnectorColor" VALUE="-2147483632"><PARAM NAME="EstimatedRows" VALUE="0"><PARAM NAME="TipDelay" VALUE="-1"><PARAM NAME="MaxColScrollRegions" VALUE="50"><PARAM NAME="MaxRowScrollRegions" VALUE="50"><PARAM NAME="BorderStyle" VALUE="0"><PARAM NAME="MousePointer" VALUE="0"><PARAM NAME="ScrollBars" VALUE="4"><PARAM NAME="RowConnectorStyle" VALUE="0"><PARAM NAME="TabNavigation" VALUE="0"><PARAM NAME="ViewStyle" VALUE="0"><PARAM NAME="ViewStyleBand" VALUE="0"><PARAM NAME="BorderStyleCaption" VALUE="0"><PARAM NAME="InterBandSpacing" VALUE="60"><PARAM NAME="AlphaBlendEnabled" VALUE="-1"><PARAM NAME="Enabled" VALUE="-1"><PARAM NAME="OLEDropMode" VALUE="0"></OBJECT>
</P>
</body>
</html>
</code>
Web Dev
Boca Raton, FL
kreplech@aol.com