home *** CD-ROM | disk | FTP | other *** search
/ CD Shareware Magazine 1996 December / CD_shareware_12-96.iso / WIN / Programa / VBINTRNT.ZIP / VBINTRNT.EXE / FORMSTRE.BAS < prev    next >
Encoding:
BASIC Source File  |  1996-05-02  |  960 b   |  35 lines
  1. Attribute VB_Name = "Stream"
  2. Option Explicit
  3. Sub Main()
  4.  
  5. debugging = False
  6.  
  7. If Command$ = "debug" Then
  8.     debugging = True
  9.     test.Show
  10. End If
  11.  
  12. End Sub
  13. Function WebStub()
  14.   Dim lvString As Variant
  15.   Dim liCounter As Integer
  16.   lvString = "<HTML>" & vbCrLf
  17.   lvString = lvString & "<HEADER>" & vbCrLf
  18.   lvString = lvString & "<TITLE>OLEISAPI Field Parser</TITLE>" & vbCrLf
  19.   lvString = lvString & "</HEADER>" & vbCrLf
  20.   lvString = lvString & "<BODY BACKGROUND=""yellow5.gif"">" & vbCrLf
  21.   lvString = lvString & "<IMG SRC=""/images/logo.jpg"">" & vbCrLf
  22.   lvString = lvString & "<H1>Processed By </H1>" & vbCrLf
  23.   lvString = lvString & "<P>" & vbCrLf
  24.     
  25.   For liCounter = 1 To UBound(gaField, 1)
  26.     lvString = lvString & gaField(liCounter) & ": " & gaValue(liCounter) & " < BR > " & vbCrLf
  27.   Next liCounter
  28.   
  29.   lvString = lvString & "</BODY>" & vbCrLf
  30.   lvString = lvString & "</HTML>"
  31.   WebStub = lvString
  32.  End Function
  33.  
  34.  
  35.