![[ comments ]](../skinz/images<%=customcolours%>/t_comments.gif) |
<%
dim id, author, mod_name, info, sm_jpg, lg_jpg, email
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
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_mod
'use real_level as a safty check down lower
real_mod = 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 " & _
"mods_login.name AS author, " & _
"mods_login.email AS author_email, " & _
"mods_list.game_type AS game_type, " & _
"mods_list.datestamp AS datestamp, " & _
"mods_list.website AS website, " & _
"mods_list.name AS mod_name, " & _
"mods_list.info AS info " & _
"FROM mods_list INNER JOIN " & _
"mods_login ON " & _
"mods_list.id_login = mods_login.id " & _
"WHERE mods_list.active = 1 AND mods_login.active = 1 AND mods_list.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 Mod information to list for this request, sorry :[
<%
else
author = tigRS("author")
datestamp = tigRS("datestamp")
website = tigRS("website")
mod_name = tigRS("mod_name")
info = tigRS("info")
real_mod = true
'check for beta image shots
sm_jpg = false
lg_jpg = false
sm_jpg = ModImageCheckSM(id)
lg_jpg = ModImageCheckLG(id)
%>
 |
|
<%=mod_name%> by "><%=author%> (<%=tigRS("game_type")%>) |
<% if sm_jpg then %>
|
|
|
<% else %>
|
<% end if %>
|
|
<% if website <> "" then %>
website -
<% end if %>
updated <%=realdate(datestamp)%> |
| |
|
<%=info%>
|
|
<% if sm_jpg then %>
|
<%
if lg_jpg then
%> |
<%
else
%>
<%
end if
end if %>
|
<%
tigRS.close
'grab the comments to date that are safe to print
query = "SELECT posters_name, datestamp, comment, id_mod " & _
"FROM mods_comments " & _
"where ((id_mod = " & id & ") and (dont_show = 0)) " & _
"order by datestamp desc"
'Response.Write("query = [" & query & "]
")
set tigRS = tigCON.Execute(query)
if real_mod then
'don't give them a chance if they shouldn't be here
%>
|
| Any comments for the mod <%
if website <> "" then
Response.Write("" & mod_name & "")
else
Response.Write(mod_name)
end if
%> by <%=author%>?
|
|
<%
i = 0
do while not tigRS.EOF
if i mod 2 then
bgcolor = ""
else
bgcolor = " bgcolor=""" & bgcolourCustom & """"
end if
%>
valign="top"><%=tigRS("posters_name")%>
<%=funkydate(tigRS("datestamp"))%>
valign="top" class="main"><%=tigRS("comment")%>
<%
i = i + 1
tigRS.MoveNext
loop
end if
%>
<%
end if
tigRS.close
tigCON.close
%>
| supported html |
URL links - 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 :]
|
|