<% encodeTable 'run function to build IP encode table %>
![[ comments ]](skinz/images<%=customcolours%>/t_comments.gif) |
<%
dim id, score
id = Request.QueryString("id")
'quick check on the QString
if not isNumeric(id) then
'damaged QString :[
id = 0
end if
id = fix(id)
'this one makes sure they have not tried to enter a decmial point (ie, 89.23)
dim sub_mit_but
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
'grab the level info
set tigCON = Server.CreateObject("ADODB.Connection")
tigCON.Open(DSN)
' set up the query to list the news by date Desc
query = "SELECT str_type, str_filename, id, ranking, votes," & _
"str_author, str_author_email, str_title, datestamp, wwwsite, txt_review " & _
"FROM q3a_levels (nolock) " & _
"WHERE 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 atm, sorry :[
<%
else
dim filename, da_review
dim str_title, str_author, str_author_email
dim tmp_rank, tmp_votes
real_level = true
filename = tigRS("str_filename")
'========
'work out if there is a non english version of the review
if Request.Cookies("lvl")("language") <> "" then
if LanguageFileCHK(current_ROOT & "translation\" & Request.Cookies("lvl")("language") & "\" & id & ".txt") then
da_review = LanguageFileREAD(current_ROOT & "translation\" & Request.Cookies("lvl")("language") & "\" & id & ".txt")
else
da_review = tigRS("txt_review")
end if
else
da_review = tigRS("txt_review")
end if
str_title = tigRS("str_title")
str_author = tigRS("str_author")
str_author_email = tigRS("str_author_email")
tmp_rank = tigRS("ranking")
tmp_votes = tigRS("votes")
if not IsNull(tmp_rank) or not IsNull(tmp_votes) then
score = Cint(tmp_rank) / Cint(tmp_votes)
else
score = 0
tmp_votes = "no"
end if
%>
<%
tigRS.close
if real_level then
'don't give them a chance if they shouldn't be here
%>
<%
'grab the comments to date that are safe to print
query = "SELECT bit_dont_show, str_posters_name, str_posters_ip, datestamp, txt_comment, level_id " & _
"FROM q3a_comments (nolock) " & _
"where ((level_id = " & id & ") and (bit_dont_show = 0)) " & _
"order by datestamp desc"
'Response.Write("query = [" & query & "]
")
set tigRS = tigCON.Execute(query)
i = 0
do while not tigRS.EOF
if i mod 2 then
bgcolor = ""
else
bgcolor = " bgcolor=" & bgcolourCustom & ""
end if
Response.Write("" & vbcrlf &" "& tigRS("str_posters_name") & "
" & vbcrlf)
Response.Write(" " & funkydate(tigRS("datestamp")) & "" & vbcrlf)
if cdate(tigRS("datestamp")) > cdate("16 jun 2000") then
Response.Write("
" & ipmask(trim(replace(tigRS("str_posters_ip"),"unknown,",""))) & "" & vbcrlf)
end if
Response.Write(" " & vbcrlf & " " & tigRS("txt_comment") & "
" & vbcrlf & " ")
i = i + 1
tigRS.MoveNext
loop
end if
%>
<%
end if
tigRS.close
tigCON.close
%>
| about the reviews |
maps are co-reviewed by & unless stated otherwise.
|
| about the ranking |
highest possible score is 10
for each map you can only vote once per week, up to a total of 3 times
|
| 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 -
Remeber to close <b> and <i> tags with </b> and </i>
otherwise everything will be bold or italic :]
|
|
