Konstantinos Kenteris, the world champion!

<%Option Explicit%> <% 'declare and set variables Dim strSearch, curPage Dim stateQS Dim PostID, strSQL Dim dbRS Dim PostTopic strSearch = Request("search") curPage = Request("curPage") 'preconstruct query strings to keep things simple stateQS = "curPage=" & curPage & "&" stateQS = stateQS & "search=" & Server.URLEncode(strSearch) 'get the search string and build the SQL statement PostID = Request("ID") strSQL = "SELECT ID,parentID,topic,author,email,date_posted,body FROM board1 WHERE " strSQL = strSQL & "ID = " & PostID & " OR " strSQL = strSQL & "parentID = " & PostID & " " strSQL = strSQL & "ORDER BY date_posted ASC" 'connect to the database Set dbRS = Server.CreateObject("ADODB.Recordset") With dbRS .Open strSQL, C_dbConnect End With If dbRS.EOF = True Then Response.Redirect "error.asp?message=" & Server.URLEncode("The post you requested could not be found in the database.") End If 'apply filter to get only the original post dbRS.Filter = "ID = " & PostID PostTopic = dbRS("topic") %> <% 'procedures to write various parts of the page Sub WriteMessage(colour1, colour2, colour3) Dim authEmail, msgBody authEmail = db2web(dbRS("email")) msgBody = dbRS("body") msgBody = db2web(msgBody) msgBody = txt2symbls(msgBody) With Response .Write "" & vbCrLf .Write " " & vbCrLf .Write " " & vbCrLf .Write " " & vbCrLf .Write " " & vbCrLf .Write " " & vbCrLf .Write " " & vbCrLf .Write " " & vbCrLf .Write " " & vbCrLf Else .Write "" & dbRS("author") & "" & vbCrLf End If .Write " " & vbCrLf .Write " " & vbCrLf .Write " " & vbCrLf .Write " " & vbCrLf .Write " " & vbCrLf .Write " " & vbCrLf .Write " " & vbCrLf .Write " " & vbCrLf .Write " " & vbCrLf .Write " " & vbCrLf .Write " " & vbCrLf .Write "


" & vbCrLf .Write " " & db2web(dbRS("topic")) & "" If Session("ASPBoardX_Admin") = "Yes" Then .Write " " .Write "edit" & vbCrLf End If .Write "
" If Not authEmail = "" And Not IsNull(authEmail) And InStr(authEmail, "@") Then .Write "" & db2web(dbRS("author")) & "	" & FormatDate(dbRS("date_posted"),True) & "


" & msgBody & "

" & vbCrLf .Write "" & vbCrLf .Write " " & vbCrLf .Write " " & vbCrLf .Write " " & vbCrLf .Write "

" & vbCrLf .Write " " & vbCrLf .Write " " & vbCrLf .Write " " & vbCrLf .Write " " & vbCrLf .Write " " & vbCrLf .Write "

" & vbCrLf .Write "

" & vbCrLf End With End Sub %> Konstantinos Kenteris, the world champion!

<% 'display the messages, starting with the original WriteMessage C_Read_1, C_Read_2, C_Read_3 dbRS.Filter = "parentID = " & PostID Do Until dbRS.EOF Response.Write "
" WriteMessage C_Read_4, C_Read_5, C_Read_6 dbRS.MoveNext Loop %>

| home

<% 'clear recordset from memory Set dbRS = Nothing %>