home *** CD-ROM | disk | FTP | other *** search
/ CD Shareware Magazine 1996 December / CD_shareware_12-96.iso / WIN / Programa / VBINTRNT.ZIP / VBINTRNT.EXE / WEBTOOLS.CLS < prev    next >
Encoding:
Text File  |  1996-05-02  |  1.1 KB  |  42 lines
  1. VERSION 1.0 CLASS
  2. BEGIN
  3.   MultiUse = -1  'True
  4. END
  5. Attribute VB_Name = "routines"
  6. Attribute VB_Creatable = True
  7. Attribute VB_Exposed = True
  8. Function CreateStdResponse(meth As String, request As String) As String
  9.  
  10. If debugging Then
  11.     MsgBox "From Browser (Parameter 1):" & meth
  12.     MsgBox "From Browser (Parameter 2):" & request
  13. End If
  14.     
  15.     ParseFieldValue request
  16.     CreateStdResponse = "Content-Type: text/html" _
  17.     & vbCrLf & request & vbCrLf & WebStub()
  18.          
  19.          
  20. End Function
  21.  
  22. Sub DoGet(request As String, response As String)
  23.     response = CreateStdResponse("using the GET method", request)
  24. End Sub
  25.  
  26. Sub DoPost(request As String, response As String)
  27.     response = CreateStdResponse("calling the POST method", request)
  28. End Sub
  29.  
  30. Sub SimpleCall(request As String, response As String)
  31.     response = CreateStdResponse("using URL invocation", request)
  32.    ' Response = Response & "...plus this ..."
  33. End Sub
  34.  
  35. Sub SQLStatement(request As String, response As String)
  36.  
  37.     Dim lSQL As String
  38.     lSQL = request
  39.     
  40.  
  41. End Sub
  42.