Kevin Ragsdale KevinRagsdale
KevinRagsdale
/ THIRDDEMO.DLL (thirddemo.prg)
Last active
August 29, 2015 14:07
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| ** This DLL is a simple PRG file. | |
| ** It will create a web page "on the fly" | |
| ** and return it as a string to the | |
| ** calling program. | |
| DEFINE CLASS Demo AS SESSION OLEPUBLIC | |
| FUNCTION GetHTML(tcUA AS STRING, tcIP AS STRING) AS STRING | |
| LOCAL lcString AS STRING | |
| TEXT TO m.lcString TEXTMERGE NOSHOW | |
| <!DOCTYPE html> |
KevinRagsdale
/ FourthDemo.aspx
Last active
August 29, 2015 14:07
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| <%@ Page Language="VB" %> | |
| <script runat="server"> | |
| Protected Sub Page_Load(sender As Object, e As EventArgs) | |
| Dim lcUserAgent As String = Request.UserAgent.ToString() | |
| If lcUserAgent.Contains("Visual Search Pro Demo") = False Then | |
| Response.Write("Sorry. Not the User-Agent I expected.") | |
| Else | |
| Response.Write("Yay! You selected the correct User-Agent!") |
KevinRagsdale
/ FifthDemo.aspx
Created
October 17, 2014 09:19
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| <%@ Page Language="VB" %> | |
| <script runat="server"> | |
| Protected Sub Page_Load(sender As Object, e As EventArgs) | |
| Dim lcHeader As String = "" | |
| If Not Request.Headers("X-MyHeader") Is Nothing Then | |
| lcHeader = Request.Headers("X-MyHeader").ToString() | |
| Response.Write("Hey, thanks for sending X-MyHeader: " & lcHeader) | |
| Else |
KevinRagsdale
/ ChangeUserAgent.aspx
Created
October 17, 2014 12:25
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| <%@ Page Language="VB" %> | |
| <script runat="server"> | |
| Protected Sub Page_Load(sender As Object, e As EventArgs) | |
| Dim lcUserAgent As String = Request.UserAgent.ToString() | |
| If lcUserAgent.Contains("Visual Search Pro Demo") = False Then | |
| Response.Write("Sorry. Not the User-Agent I expected.") | |
| Else |
KevinRagsdale
/ AddAHeader.aspx
Created
October 17, 2014 12:27
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| <%@ Page Language="VB" %> | |
| <script runat="server"> | |
| Protected Sub Page_Load(sender As Object, e As EventArgs) | |
| Dim lcHeader As String = "" | |
| If Not Request.Headers("X-MyHeader") Is Nothing Then | |
| lcHeader = Request.Headers("X-MyHeader").ToString() | |
| Response.Write("Hey, thanks for sending X-MyHeader: " & lcHeader) | |
| Else |
OlderNewer