<%
server_api_key = "YOUR_API_KEY" '<--- Instant Cafe Server API Key.
server_host = "192.168.1.2" '<--- IP Address or Domain Name of where Instant Cafe is installed.
server_port = "9423" '<--- Port number Instant Cafe Server is running on.
socket_state = "" & _
"" & _
"" & server_api_key & "" & _
"" & _
"" & _
""
socket_request = "" & _
"" & _
"" & server_api_key & "" & _
"" & _
"" & _
"" & _
"" & _
"" & _
"TAB" & _
"" & Session.SessionID & "" & _
".txt" & _
"" & _
"" & _
"STORE" & _
"buytees" & _
"" & _
"BEST" & _
"0" & _
"" & _
"" & _
"" & _
"" & _
"C:\Program Files\1 Jump 2\Instant Cafe Feeder\csv" & _
"" & _
"" & _
"" & _
"" & _
"" & _
"" & _
"" & _
"" & _
"" & _
"" & _
""
Set Socket = Server.CreateObject("Socket.TCP")
Socket.Host = server_host & ":" & server_port
Socket.TimeOut = 5000
Socket.Open
Socket.SendText(socket_state)
Socket.waitfor("Access:")
If Socket.Buffer = "Access: Vacant" OR Socket.Buffer = "Access: Granted" Then
If Socket.Buffer = "Access: Vacant" Then
Socket.SendText(socket_request)
Socket.waitfor("Access:")
Response.Write Socket.Buffer
End If
End If
Set Socket = Nothing
%>