[an error occurred while processing this directive] <% Dim entrypref,entryctr,mypass,myusername,firstcolor,secondcolor,custombanmsg,FilteredData Dim rsfilter,sqlfilter sql="SELECT * from settings;" set rs=cn.execute(sql) ShoutboxErrMsg=request.querystring("ShoutBoxErrMsg") firstcolor=rs.fields("firstcolor") secondcolor=rs.fields("secondcolor") entrypref=rs.fields("entryperpage") myusername=rs.fields("myusername") mypass=rs.fields("mypassword") custombanmsg=rs.fields("custommsgban") rs.close if request.querystring("mode")="logout" then session("shoutbox")="" elseif request.querystring("mode")="authenticate" then if request.form("admin")=myusername and request.form("pass")=mypass then session("shoutbox")="okay" else session("shoutbox")="" ShoutboxErrMsg="Invalid Username or Password" end if end if sql="SELECT * from shoutbox order by datestamp desc;" set rs=cn.execute(sql) %> Tools of Trade MSG Board
Make your own free website on Tripod.com
onLoad="alert('<%=ShoutboxErrMsg%>')" <%end if%>> <% Dim action action = request.queryString("mode") if action = "login" then%>

Username

Password
<% end if%>
<% if rs.EOF then %> <% Else Dim i Dim bg i = 0 Do until rs.EOF if entryctr >= entrypref then exit do end if FilteredData=rs.fields("shout") FilteredData=replace(FilteredData,"|||","'") FilteredData=replace(FilteredData,"||","chr(34)") FilteredData=replace(FilteredData,"|",",") sqlFilter="SELECT * from filters;" set rsfilter=cn.execute(sqlfilter) if not rsfilter.eof then do until rsfilter.eof FilteredData=replace(filteredData,rsfilter.fields("filterWord"),rsfilter.fields("repWord")) rsfilter.movenext loop end if rsfilter.close set rsfilter=nothing %> <% rs.movenext entryctr = entryctr + 1 i = i + 1 loop End If %>
no shouts have been made
<% if session("shoutbox")="" then%> IP is Logged<%else%> IP add is <%=rs.fields("ipadd")%><% end if%>" <% if i MOD 2 = 0 then bg=firstcolor else bg=secondcolor end if %>bgcolor="<%=bg%>"> <% if rs.fields("banned")=true then%> <%=custombanmsg%>
<% if session("shoutbox")="okay" then%> &ip=<%=rs.fields("ipadd")%>">Unban IP <% end if%> <%elseif rs.fields("banned")=false then%> [ <%if not rs.fields("homepage")="" then%> " target="new"><%=rs.fields("name")%> <%else%> <%=rs.fields("name")%> <%end if%> ]
<%=FilteredData%><% if session("shoutbox")="okay" then%>
">Delete <%=rs.fields('s shout">   &ip=<%=rs.fields("ipadd")%>&id=<%=rs.fields("id")%>">Ban This IP <% end if end if %>

Smilies
<% if session("shoutbox")="okay" then%>Logout<% else %> <% end if%>
<% rs.close set rs=nothing cn.close set cn=nothing %>