11
Expand|Select|Wrap|Line Numbers
- <%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
- <!--#include file="../Connections/*******.asp" -->
- <%
- Dim RSsb
- Dim RSsb_numRows
- Set RSsb = Server.CreateObject("ADODB.Recordset")
- RSsb.ActiveConnection = MM_production_STRING
- RSsb.Source = "SELECT * FROM dbo.RSshoutbox ORDER BY ID DESC"
- RSsb.CursorType = 0
- RSsb.CursorLocation = 2
- RSsb.LockType = 1
- RSsb.Open()
- RSsb_numRows = 0
- %>
- <%
- Dim Repeat1__numRows
- Dim Repeat1__index
- Repeat1__numRows = -1
- Repeat1__index = 0
- RSsb_numRows = RSsb_numRows + Repeat1__numRows
- %>
- <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
- <html xmlns="http://www.w3.org/1999/xhtml">
- <head>
- <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
- <title>Untitled Document</title>
- <style type="text/css">
- <!--
- body,td,th {
- font-size: 12px;
- }
- body {
- margin-left: 0px;
- margin-top: 0px;
- margin-right: 0px;
- margin-bottom: 0px;
- }
- .style2 {
- font-size: 16px;
- font-family: Arial, Helvetica, sans-serif;
- }
- .style3 {
- color: #FF00FF;
- font-weight: bold;
- }
- .style4 {
- color: #FFFF00;
- font-weight: bold;
- font-style: italic;
- }
- -->
- </style></head>
- <body>
- <div align="left" class="style2">
- <span class="style4">Latest Message:</span>
- <%function smilify(chatText)
- dim smileys(10)
- dim smileyGraphics(10)
- smileys(0) = ":)"
- smileys(1) = ":S"
- smileys(2) = ";)"
- smileys(3) = ":p"
- smileys(4) = ":("
- smileys(5) = ";("
- smileys(6) = ":o"
- smileys(7) = ":D"
- smileys(8) = ":$"
- smileyGraphics(0) = "<img src='http://www.cullinan.myep.co.uk/shoutbox/smiley0.png'>"
- smileyGraphics(1) = "<img src='http://www.cullinan.myep.co.uk/shoutbox/smiley1.png'>"
- smileyGraphics(2) = "<img src='http://www.cullinan.myep.co.uk/shoutbox/smiley2.png'>"
- smileyGraphics(3) = "<img src='http://www.cullinan.myep.co.uk/shoutbox/smiley3.png'>"
- smileyGraphics(4) = "<img src='http://www.cullinan.myep.co.uk/shoutbox/smiley4.png'>"
- smileyGraphics(5) = "<img src='http://www.cullinan.myep.co.uk/shoutbox/smiley5.png'>"
- smileyGraphics(6) = "<img src='http://www.cullinan.myep.co.uk/shoutbox/smiley6.png'>"
- smileyGraphics(7) = "<img src='http://www.cullinan.myep.co.uk/shoutbox/smiley7.png'>"
- smileyGraphics(8) = "<img src='http://www.cullinan.myep.co.uk/shoutbox/smiley8.png'>"
- dim fixedText
- for x = 0 to 9
- chatText = replace(chatText, smileys(x), smileyGraphics(x))
- next
- response.write chattext
- end function
- %>
- <%
- While ((Repeat1__numRows <> 0) AND (NOT RSsb.EOF))
- %>
- <span class="style3"><%=(RSsb.Fields.Item("RSname").Value)%>:</span>
- <% smilify(RSsb("RSmsg")) %>
- <br />
- <%
- Repeat1__index=Repeat1__index+1
- Repeat1__numRows=Repeat1__numRows-1
- RSsb.MoveNext()
- Wend
- %>
- </div>
- </body>
- </html>
- <%
- RSsb.Close()
- Set RSsb = Nothing
- %>
