<% option explicit Response.buffer=True Dim con,sqlshout,rsshout,entrypref,entryctr,mypass,myusername,firstcolor,secondcolor Dim testip,sqlip '############################## Configurations############################### myusername="bascomonteiro" ' your username mypass="letmein" ' your pssword entrypref = 20 ' no of shout displayed firstcolor = "#930" ' first color for alternating colors secondcolor="#990000" ' second color for alternating colors '############## End of config ################################################ if request.querystring("mode")="logout" then session("admin")="" elseif request.querystring("mode")="authenticate" then if request.form("admin")=myusername and request.form("pass")=mypass then session("admin")="okay" else session("admin")="" end if end if Set con = Server.CreateObject("ADODB.Connection") 'con.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../Shared/shout.mdb") con.open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("/shared/shout.mdb") 'This one is for Access 2000/2002 'con.open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & server.MapPath("Shared\shout.mdb") 'This one is for Access 2000/2002 set rsshout=Server.CreateObject("ADODB.Recordset") sqlshout="select * from shoutbox order by datestamp desc;" rsshout.Open sqlshout,con,2,3 entryctr = 0 %>

<% Dim action action = request.queryString("mode") if action = "login" then%>

:admin :password

<% else%> <% end if%> <% ' Pls do not remove the link for others to download my shoutbox also ' thanks bro. %>

<% if rsshout.EOF then%> <% Else Dim i Dim bg i = 0 Do until rsshout.EOF if entryctr >= entrypref then exit do end if %> <% rsshout.movenext entryctr = entryctr + 1 i = i + 1 loop End If %> no shouts have been made " <% if i MOD 2 = 0 then bg=firstcolor else bg=secondcolor end if %>bgcolor="<%=bg%>"> <% if rsshout("banned")=true then%> This IP has been Banned! Pls contact Admin <% if session("admin")="okay" or session("coadmin")="okay" then%> &ip=<%=rsshout("ipadd")%>">Unban IP <% end if%> <%elseif rsshout("banned")=false then%> [ <%=rsshout("name")%> ] <%=rsshout("shout")%><% if session("admin")="okay" or session("coadmin")="okay" then%> ">'s shout">  ">'s shout"> | &ip=<%=rsshout("ipadd")%>&id=<%=rsshout("shoutid")%>">Ban This IP <% end if end if %>

Smilies Ver tudo

<% if session("admin")="okay" then%>Logout<% else %> Login Administrator <% end if%>

<% rsshout.close set rsshout=nothing con.close set con=nothing %>