![[ comments ]](../skinz/images<%=customcolours%>/t_comments.gif) |
<%
dim id, info, ip, specs, openhours, location, server_name, sysadmin
dim email, real_server
id = Request.QueryString("id")
if not isNumeric(id) then
'make sure we have a number
Response.Redirect("./")
end if
id = fix(id)
'now make sure we have a solid
dim sub_mit_but, website ', ip, comments_to_date, da_review
'dim specs, location, openhours, maps
if switch = 0 then
sub_mit_but = "Make me famous!"
elseif switch = 1 then
sub_mit_but = "Can I really post this comment?"
elseif switch = 2 then
sub_mit_but = "Go on, post something good"
elseif switch = 3 then
sub_mit_but = "Submit it all ready!"
elseif switch = 4 then
sub_mit_but = "Go on, you can do it - HIT ME!"
elseif switch = 5 then
sub_mit_but = "Stick in the post"
elseif switch = 6 then
sub_mit_but = "You call that a comment?"
elseif switch = 7 then
sub_mit_but = "Did you check for dumb typo's?"
else
sub_mit_but = "Post it babe!"
end if
dim real_level
'use real_level as a safty check down lower
real_level = false
'grab the server info info
set tigCON = Server.CreateObject("ADODB.Connection")
tigCON.Open(DSN)
' set up the query to list the news by date Desc
query = "SELECT server_info.id AS id, server_info.info AS info, " & _
"server_info.website AS website, " & _
"server_info.ip AS ip, server_info.specs AS specs, " & _
"server_info.openhours AS openhours, " & _
"server_info.location AS location, " & _
"server_info.server_name AS server_name, " & _
"server_info.datestamp AS datestamp, " & _
"server_sysadmin.sysadmin AS sysadmin, server_sysadmin.email AS email, " & _
"server_info.maps AS maps " & _
"FROM server_info INNER JOIN " & _
"server_sysadmin ON " & _
"server_info.sysadmin_id = server_sysadmin.id " & _
"WHERE server_sysadmin.active = 1 and server_info.id = " & id
'Response.Write("Query = [" & query & "]
")
set tigRS = tigCON.Execute(query)
' make sure we have see if there is no records
if (tigRS.EOF) Then
%>
There is no level information to list for this request, sorry :[
<%
else
info = tigRS("info")
website = tigRS("website")
ip = tigRS("ip")
specs = tigRS("specs")
openhours = tigRS("openhours")
location = tigRS("location")
server_name = tigRS("server_name")
datestamp = tigRS("datestamp")
sysadmin = tigRS("sysadmin")
email = tigRS("email")
real_server = true
%>
 |
|
<%=server_name%> run by <%=sysadmin%> |
|
|
|
<% if website <> "" then %>
<% if instr(1,website,"http://") or instr(1,website,"ftp://") then %>
<%=website%>
<% else %>
<%=website%>
<% end if %>
<% end if %>
- updated <%=realdateshort(datestamp)%>
|
| |
<%=info%>
- <%=server_name%>
- <%=ip%>
- <%=specs%>
- <%=location%>
- <%=openhours%>
Current map rotation - <%=tigRS("maps")%>
|
|
|
<%
tigRS.close
'grab the comments to date that are safe to print
query = "SELECT str_posters_name, datestamp, txt_comment, server_id " & _
"FROM server_comments " & _
"where ((server_id = " & id & ") and (bit_dont_show = 0)) " & _
"order by datestamp desc"
'Response.Write("query = [" & query & "]
")
set tigRS = tigCON.Execute(query)
if real_server then
'don't give them a chance if they shouldn't be here
%>
<%
i = 0
do while not tigRS.EOF
if i mod 2 then
bgcolor = ""
else
bgcolor = " bgcolor=" & bgcolourCustom & ""
end if
%>
valign="top"><%=tigRS("str_posters_name")%>
<%=funkydate(tigRS("datestamp"))%>
valign="top" class="main"><%=tigRS("txt_comment")%>
<%
i = i + 1
tigRS.MoveNext
loop
end if
%>
<%
end if
tigRS.close
tigCON.close
%>
| supported html |
URL links are automatic, just type the full URL, including http:// or ftp://
paragraphs are automatic, based on line returns
<b>some bold text</b>
<i>wow italics!</i>
All other html tags are stripped out of comments posted -
Remember to close <b> and <i> tags with </b> and </i>
otherwise everything will be bold or italic :]
|
|