| MS-SQL Blob Display |
<script language="VB" runat="server">
Sub Page_Load(Src As Object, E As EventArgs)
Dim BGif As New Tornado.Z()
With BGif
.dbQP = "U=92|S=14|dt=SQL|th=ti=Blob Demo"
.dbSQL="SELECT pub_id, logo From pub_info"
.dbDSN="fujitsu;pubs;sa;sa"
.dbBookMark = "pub_info;0"
.dbBlob = "field=logo|context=image/gif|label=browser|offset=0"
'.ASPdbNet
End With
End Sub
</script>Note: Cut/Paste this code and adjust the DSN to your MS-SQL server setting. SQL server not available for demo. |