<%
' Little chat bot for your site
' Chat Form
' by Rodrigo S. Alhadeff, 1/2001
' About the Author: Rodrigo S. Alhadeff is the Founder & Senior Programmer of Comersus Shopping Cart, www.comersus.com
%>
<HTML><title>Chat Bot</title>
<p><b>Ask our Bot</b></p>
<FORM name="" action="chatBot.asp" method="post">
<table width="526" border="0">
<tr>
<td width="132">
<p><br>
<img src="010115.jpg" width="73" height="110"></p>
<p> </p>
</td>
<td width="384">
<p><%response.write request.querystring("botResponse")%></p>
<p><i>Please enter your question</i></p>
<p>
<textarea name="userText" cols="40" rows="3">Where can I buy Comersus paid packages?
</textarea>
</p>
</td>
</tr>
<tr>
<td width="132">
<input type="submit" name="Submit" value="Ask our bot">
</td>
<td width="384"> </td>
</tr>
</table>
</FORM>
</HTML>
<%
chatbot.asp
on error resume next
dim userText, botAnswer, upLimit, botResponse
' change for more Brain lines
upLimit = 4
redim brain(upLimit,2)
call loadBrain()
' get user text
userText = request.form("userText")
botAnswer = ""
' locate answer
for f=0 to upLimit
if instr(userText,brain(f,0))<>0 then
botAnswer = brain(f,1)
end if
next
' print response
if userText="" then
botResponse="I didn't receive your question"
else
botResponse="Q: " & userText &""
if botAnswer="" then
botResponse=botResponse&"<br>A: I don't understund your question, try again."
else
botResponse=botResponse&"<br>A: "&botAnswer
end if
end if
response.redirect "chatForm.asp?botResponse="&Server.UrlEncode(botResponse)
sub loadBrain()
' sub that load questions and answers
' the (x,0) line contains the text you want to recognize
' the (x,1) line contains bot response
' if you add more lines please increase upLimit variable
brain(0,0) = "how much"
brain(0,1) = "Our Shopping Cart storefront is 100% free"
brain(1,0) = "technical support"
brain(1,1) = "All our registered users have technical support by email"
brain(2,0) = "credit card"
brain(2,1) = "Comersus can be fully integrated with any payment gateway to accept credit cards"
brain(3,0) = "buy Comersus paid packages"
brain(3,1) = "To buy Comersus paid packages please go to http://www.comersus.com"
brain(4,0) = "thanks"
brain(4,1) = "You welcome"
end sub
%>
