<%@ language='vbscript' %> <%Response.Buffer=True%> <% Function ApplyBuiltInCommands(strMessage) If Request.Form("chkCode") = "" Then ApplyBuiltInCommands = strMessage Exit Function End If 'Apply the built in commands strMessage = Replace(strMessage,"[img]","") strMessage = Replace(strMessage,"[quote]","quote:

""") strMessage = Replace(strMessage,"[/quote]","""
") strMessage = Replace(strMessage,"[link]","") strMessage = Replace(strMessage,"[/name]","") strMessage = Replace(strMessage,"[b]","") strMessage = Replace(strMessage,"[/b]","") strMessage = Replace(strMessage,"[u]","") strMessage = Replace(strMessage,"[/u]","") strMessage = Replace(strMessage,"[i]","") strMessage = Replace(strMessage,"[/i]","") strMessage = Replace(strMessage,"[center]","
") strMessage = Replace(strMessage,"[/center]","
") strMessage = Replace(strMessage,"[code]","
")
				strMessage = Replace(strMessage,"[/code]","
") ApplyBuiltInCommands = strMessage end function Function FilterGeneralMessage() Dim strMessage 'get the message strMessage = Request.Form("txtMessage") 'Filter the message strMessage = Replace(strMessage,"<","<") strMessage = Replace(strMessage,">",">") 'Create enter spaces strMessage = Replace(strMessage,Chr(13),"
") FilterGeneralMessage = strMessage end function Function IsBanned(strMessage) 'Check to see if they are banned Set rsQuery = Con.Execute("SELECT IP FROM IPBanDB WHERE IP='" & Request.ServerVariables("REMOTE_ADDR") & "'") If Not rsQuery.EOF Then IsBanned = "Hi - I have been very naughty so have been banned from this forum. Please note, I like sheep very much. Thank-you for your time, oh and by the way, my ip address is: " & Request.ServerVariables("REMOTE_ADDR") Response.Cookies("NEVERGUESSBanned")="1" Response.Cookies("NEVERGUESSBanned").Expires=Now() + 500 ElseIf Request.Cookies("NEVERGUESSBanned")="1" Then IsBanned = "Hi - I have been very naughty so have been banned from this forum. Please note, I like sheep very much. Thank-you for your time, oh and by the way, my ip address is: " & Request.ServerVariables("REMOTE_ADDR") Con.Execute "INSERT INTO IPBanDB(IP) VALUES('" & Request.ServerVariables("REMOTE_ADDR") & "')" Else IsBanned = strMessage end If end function Function ApplyEmoticons(strMessage) If Request.Form("chkEmo") = "" Then ApplyEmoticons = strMessage Exit Function End If 'Emoticons strMessage = Replace(strMessage,":)","") strMessage = Replace(strMessage,":(","") strMessage = Replace(strMessage,";)","") strMessage = Replace(strMessage,"8)","") strMessage = Replace(strMessage,":D","") strMessage = Replace(strMessage,":b","") strMessage = Replace(strMessage,":p","") strMessage = Replace(strMessage,">D","") strMessage = Replace(strMessage,":\",":","") strMessage = Replace(strMessage,":|","") strMessage = Replace(strMessage,":O","") strMessage = Replace(strMessage,":x","") strMessage = Replace(strMessage,"|I","") strMessage = Replace(strMessage,":eek","") strMessage = Replace(strMessage,"8o","") strMessage = Replace(strMessage,"0]","") strMessage = Replace(strMessage,":smokin","") strMessage = Replace(strMessage,":hat","") strMessage = Replace(strMessage,":rollin","") strMessage = Replace(strMessage,":rolleyes","") strMessage = Replace(strMessage,":lol","") strMessage = Replace(strMessage,":evil","") ApplyEmoticons = strMessage end function Function CheckFields() 'Check username credentials If Session("Username") <> "" Then strName = Session("Username") Else strName = replace(Request.Form("txtName"),"[","") strName = replace(strName,"]","") If strName = "" Then strName = "Anonymous" end if End If CheckFields = strName strTopic = Request.Form("txtTopic") If strTopic = "" Then Response.Write "Ummm you didn't enter a topic! Press back on your browser and correct this error." Response.end end if End Function Function AttachSig(strMessage) If Request.Form("Signature")=1 And Session("Username") <> "" Then Set rsQuery = Con.Execute("SELECT * FROM UserDB WHERE Username='" & Mid(Session("Username"),2,Len(Session("Username")) -2) & "'") If rsQuery("Signature") <> "" Then strMessage = strMessage & "

" & rsQuery("Signature").Value & "

" end if End If AttachSig = strMessage End Function %> Brunel 200: Education
Education and Learning
 

<% Response.Expires=0 Dim Con Dim rsQuery Dim strAction Dim strSubmit Dim intID Dim intReplies Dim strName Dim strTopic Dim strMessage 'Need to initialise all Database stuff first! Set Con = Server.CreateObject("ADODB.Connection") Set rsQuery = Server.CreateObject("ADODB.Recordset") strAction = Request.QueryString("Action") strSubmit = Request.Form("Submit") 'response.write request.servervariables("PATH_TRANSLATED") 'response.end 'Con.Open "Provider=SQLOLEDB;DATA SOURCE=DARKANGEL;DATABASE=www;UID=www;PWD=www" 'strConAccess = "Driver={Microsoft Access Driver (*.mdb)};DBQ=" &Server.MapPath("BulletinBoard.mdb")&"" Con.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" &Server.MapPath("forum/www.mdb")&"" 'Con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=;Data Source=c:\inetpub\wwwroot\message\www.mdb;Mode=ReadWrite" 'If they have the cookie then log them in 'Cookie code shyte If Session("Username") = "" Then If Request.Cookies("NEVERGUESSUsername") <> "" Then Set rsQuery = Con.Execute("SELECT Password,Admin,Username,LastLogin FROM UserDB WHERE Username='" & Request.Cookies("NEVERGUESSUsername") & "'") If NOT rsQuery.EOF Then If Request.Cookies("NEVERGUESSPassword") = rsQuery("Password").Value Then 'set sessions Session("Username") = "[" & rsQuery("Username").Value & "]" Application("Users" & Session("Start")) = Session("Username") Session("Admin") = rsQuery("Admin").Value If Session("LastLogin")="" Then Session("LastLogin") = rsQuery("LastLogin").Value Con.Execute "UPDATE UserDB SET LastLogin='" & Now() & "' WHERE Username='" & rsQuery("Username").Value & "'" end if End If End If End If end if intID = Request.QueryString("id") If intID = "" Then intID = 0 If strSubmit = "" Then strSubmit = " " If strAction = "" Then strAction = " " If strAction <> "ipban" Then Con.Execute "INSERT INTO LogDB([Username], IP, MsgID, SubmitCmd, [Action], [Admin]) VALUES('" & Session("Username") & "', '" & Request.ServerVariables("REMOTE_ADDR") & "' , " & intID & ", '" & strSubmit & "', '" & strAction & "','" & Session("Admin") & "')" Else 'Con.Execute "INSERT INTO LogDB(Username, IP, MsgID, SubmitCmd, Action, Admin, Comments) VALUES('" & Session("Username") & "', '" & Request.ServerVariables("REMOTE_ADDR") & "' , 0, '" & strSubmit & "', '" & strAction & "','" & Session("Admin") & "', 'IP:" & intID & " is banned.')" end if Select Case strAction Case "builtincodes" %> <% Case "emoticons" %> <% Case "display" Response.Write "

Users Currently Online:

" For i = 1 to 10 Response.Write "" Next Response.Write "

" & Application("Users" & i ) & "

" Case "filter" If Session("Admin") = "True" Then Set rsQuery = Con.Execute("SELECT Message FROM MessageDB WHERE ID=" & intID) If rsQuery.Eof Then Response.Write "Invalid Post to filter." Response.End end if 'Lower Case strMessage = rsQuery("Message").Value strMessage = Replace(strMessage,"faggot","****") strMessage = Replace(strMessage,"fagget","****") strMessage = Replace(strMessage,"fucking","****") strMessage = Replace(strMessage,"fuckin","****") strMessage = Replace(strMessage,"shit","****") strMessage = Replace(strMessage,"fuck","****") strMessage = Replace(strMessage,"pussy","****") strMessage = Replace(strMessage,"pussie","****") strMessage = Replace(strMessage,"dick","****") strMessage = Replace(strMessage,"cunt","****") strMessage = Replace(strMessage,"fag","****") strMessage = Replace(strMessage,"bitch","****") 'Upper case strMessage = Replace(strMessage,"FAGGOT","****") strMessage = Replace(strMessage,"FAGGET","****") strMessage = Replace(strMessage,"FUCKING","****") strMessage = Replace(strMessage,"FUCKIN","****") strMessage = Replace(strMessage,"SHIT","****") strMessage = Replace(strMessage,"FUCK","****") strMessage = Replace(strMessage,"PUSSY","****") strMessage = Replace(strMessage,"PUSSIE","****") strMessage = Replace(strMessage,"DICK","****") strMessage = Replace(strMessage,"CUNT","****") strMessage = Replace(strMessage,"FAG","****") strMessage = Replace(strMessage,"BITCH","****") 'Proper Gramma strMessage = Replace(strMessage,"Faggot","****") strMessage = Replace(strMessage,"Fagget","****") strMessage = Replace(strMessage,"Fucking","****") strMessage = Replace(strMessage,"Fuckin","****") strMessage = Replace(strMessage,"Shit","****") strMessage = Replace(strMessage,"Fuck","****") strMessage = Replace(strMessage,"Pussy","****") strMessage = Replace(strMessage,"Pussie","****") strMessage = Replace(strMessage,"Dick","****") strMessage = Replace(strMessage,"Cunt","****") strMessage = Replace(strMessage,"Fag","****") strMessage = Replace(strMessage,"Bitch","****") strMessage = Replace(strMessage,"'","''") strMessage = Replace(strMessage,Chr(34), Chr(34) & Chr(34)) Con.Execute "UPDATE MessageDB SET Message='" & strMessage & "' WHERE ID=" & intID Response.Redirect "./discussion_forum.asp" Else Resonse.Write "Sorry you don't have permision to perform this task." End if Case "delpost" If Session("Admin") = "True" Then Set rsQuery = Con.Execute("SELECT ReplyID FROM MessageDB WHERE ID=" & intID) If rsQuery.Eof Then Response.Write "Invalid Post! Cannot delete." Response.End end if intReplyID = rsQuery("ReplyID").Value Set rsQuery = Con.Execute("SELECT Replies FROM MessageDB WHERE ID=" & intReplyID) ReplyCnt = rsQuery("Replies").Value Con.Execute "UPDATE MessageDB SET Replies=" & ReplyCnt - 1 & " WHERE ID=" & intReplyID Con.Execute "DELETE FROM MessageDB WHERE ID=" & intID Response.redirect "./discussion_forum.asp" Else Resonse.Write "Sorry you don't have permision to perform this task." End if Case "ipban" If Session("Admin") = "True" Then Con.Execute "INSERT INTO IPBanDB(IP) VALUES('" & intID & "')" Response.write "The IP:" & intID & " has now been banned from posting and replying." Response.end Else Resonse.Write "Sorry you don't have permision to perform this task." End if Case "edit" If Session("Admin") = "True" Then If strSubmit = "Submit" Then strMessage = Request.Form("txtMessage") strMessage = Replace(strMessage, chr(13), "
") strMessage = Replace(strMessage,"'","''") strMessage = strMessage & "

" & "Edited By, " & Session("Username") & " at " & Now() & "

" Con.Execute "UPDATE MessageDB SET Poster='" & request.form("txtName") & "', Subject='" & request.form("txtTopic") & "', Message='" & strMessage & "' WHERE ID=" & intID Response.Redirect "./discussion_forum.asp" Else Set rsQuery = Con.Execute("SELECT * FROM MessageDB WHERE ID=" & intID) If rsQuery.Eof Then Response.write "Invalid Message to Edit!" response.end end if %>
Username:
Topic:
Message:

<% end if Else Resonse.Write "Sorry you don't have permision to perform this task." End if Case "lock" If Session("Admin") = "True" Then Con.Execute("UPDATE MessageDB SET Locked=1 WHERE ID=" & intID) Con.Execute("UPDATE MessageDB SET Locked=1 WHERE ReplyID=" & intID) Response.Redirect "discussion_forum.asp" Else Resonse.Write "Sorry you don't have permision to perform this task." End if Case "unlock" If Session("Admin") = "True" Then Con.Execute("UPDATE MessageDB SET Locked=0 WHERE ID=" & intID) Con.Execute("UPDATE MessageDB SET Locked=0 WHERE ReplyID=" & intID) Response.Redirect "discussion_forum.asp" Else Resonse.Write "Sorry you don't have permision to perform this task." End if Case "delete" If Session("Admin") = "True" Then Con.Execute("DELETE FROM MessageDB WHERE ID=" & intID) Con.Execute("DELETE FROM MessageDB WHERE ReplyID=" & intID) Response.Redirect "discussion_forum.asp" Else Resonse.Write "Sorry you don't have permision to perform this task." End if Case "post" If strSubmit = "Submit" Then '// Here we need to do all the database processing '// and updating. strName = CheckFields strMessage = FilterGeneralMessage strMessage = IsBanned(strMessage) strMessage = ApplyBuiltInCommands(strMessage) strMessage = ApplyEmoticons(strMessage) strMessage = AttachSig(strMessage) strMessage = Replace(strMessage,"'","''") If len(strName) >100 Then Response.Write "Name is too long" Response.End Elseif len(strTopic) >100 Then Response.Write "Subject is too long" Response.End ElseIf len(strMessage) > 3000 Then strMessage = Left(strMessage,3000) strMessage2 = Right(strMessage, Len(strMessage)-3000) If len(strMessage2) > 3000 Then strMessage2 = Left(strMessage2,3000) strMessage3 = Right(strMessage2, Len(strMessage2)-3000) If len(strMessage3) > 3000 Then strMessage3 = Left(strMessage3,3000) strMessage4 = Right(strMessage3, Len(strMessage3)-3000) If len(strMessage4) > 3000 Then strMessage4 = Left(strMessage4,3000) strMessage5 = Right(strMessage4, Len(strMessage4)-3000) If len(strMessage5) > 3000 Then strMessage5 = Left(strMessage5,3000) strMessage6 = Right(strMessage5, Len(strMessage5)-3000) end if end if end if end if end if Con.Execute("INSERT INTO MessageDB(Poster,Subject,LastPoster,Message,IP,Icon) VALUES('" & strName & "','" & strTopic & "','','" & strMessage & "','" & Request.ServerVariables("REMOTE_ADDR") & "'," & Request.Form("Icon") & ") ") Set rsQuery = Con.Execute("SELECT ID FROM MessageDB WHERE Poster='" & strName & "' AND Subject='" & strTopic & "' AND LastPoster=''") If not rsQuery.Eof Then TmpintID = rsQuery("ID").Value 'Log statement Con.Execute "INSERT INTO LogDB([Username], IP, MsgID, SubmitCmd, [Action], [Admin], Comments) VALUES('" & Session("Username") & "', '" & Request.ServerVariables("REMOTE_ADDR") & "' , " & intID & ", '" & strSubmit & "', '" & strAction & "','" & Session("Admin") & "','Posted Message No. " & TmpintID & "')" If strMessage2 <> "" Then Con.Execute("INSERT INTO MessageDB(Poster,Subject,LastPoster,Message,ReplyID, IP, Icon) VALUES('" & strName & "','" & strTopic & "','','" & strMessage2 & "'," & IntID & ",'" & Request.ServerVariables("REMOTE_ADDR") & "'," & Request.Form("Icon") & ") ") End if If strMessage3 <> "" Then Con.Execute("INSERT INTO MessageDB(Poster,Subject,LastPoster,Message,ReplyID, IP, Icon) VALUES('" & strName & "','" & strTopic & "','','" & strMessage3 & "'," & IntID & ",'" & Request.ServerVariables("REMOTE_ADDR") & "'," & Request.Form("Icon") & ") ") end if If strMessage4 <> "" Then Con.Execute("INSERT INTO MessageDB(Poster,Subject,LastPoster,Message,ReplyID, IP, Icon) VALUES('" & strName & "','" & strTopic & "','','" & strMessage4 & "'," & IntID & ",'" & Request.ServerVariables("REMOTE_ADDR") & "'," & Request.Form("Icon") & ") ") end if If strMessage5 <> "" Then Con.Execute("INSERT INTO MessageDB(Poster,Subject,LastPoster,Message,ReplyID, IP, Icon) VALUES('" & strName & "','" & strTopic & "','','" & strMessage5 & "'," & IntID & ",'" & Request.ServerVariables("REMOTE_ADDR") & "'," & Request.Form("Icon") & ") ") end if If strMessage6 <> "" Then Con.Execute("INSERT INTO MessageDB(Poster,Subject,LastPoster,Message,ReplyID, IP, Icon) VALUES('" & strName & "','" & strTopic & "','','" & strMessage6 & "'," & IntID & ",'" & Request.ServerVariables("REMOTE_ADDR") & "'," & Request.Form("Icon") & ") ") end if end if Response.Redirect "discussion_forum.asp" Else %>
Username: <% If Session("Username") = "" Then Response.write "" Else Response.Write Session("Username") End If %>
Topic:
Message:

<% End If Case "read" Set rsQuery = Con.Execute("SELECT * FROM MessageDB WHERE ID=" & intId) If Not rsQuery.EOF Then strTemp = rsQuery("Locked") If strTemp = False Then %>

Reply Post

<% End If %>

<% Set rsQuery = Con.Execute("SELECT * FROM MessageDB WHERE ReplyID=" & intID & " ORDER BY ID ASC") WHILE NOT rsQuery.EOF %>
<%=rsQuery("Subject").Value%> <%=rsQuery("Poster").Value%> <%=Left(rsQuery("Time").Value, len(rsQuery("Time").Value)-3)%>

<% Response.write rsQuery("Message").Value If Session("Admin") = "True" Then Response.Write "

Poster IP: " & rsQuery("IP").Value & ", Ban IP Edit Post Delete Post, Filter Post

" End If %>
<% rsQuery.MoveNext WEND If strTemp = False Then %>

Reply Post

<% End If End If Case "reply" If Request.Form("Submit") <> "" Then '// Here we need to do all the database processing '// and updating. strName = CheckFields strMessage = FilterGeneralMessage strMessage = IsBanned(strMessage) strMessage = ApplyBuiltInCommands(strMessage) strMessage = ApplyEmoticons(strMessage) strMessage = AttachSig(strMessage) strMessage = Replace(strMessage,"'","''") If len(strMessage) > 3000 Then strMessage = Left(strMessage,3000) strMessage2 = Right(strMessage, Len(strMessage)-3000) If len(strMessage2) > 3000 Then strMessage2 = Left(strMessage2,3000) strMessage3 = Right(strMessage2, Len(strMessage2)-3000) If len(strMessage3) > 3000 Then strMessage3 = Left(strMessage3,3000) strMessage4 = Right(strMessage3, Len(strMessage3)-3000) If len(strMessage4) > 3000 Then strMessage4 = Left(strMessage4,3000) strMessage5 = Right(strMessage4, Len(strMessage4)-3000) If len(strMessage5) > 3000 Then strMessage5 = Left(strMessage5,3000) strMessage6 = Right(strMessage5, Len(strMessage5)-3000) end if end if end if end if end if Con.Execute "INSERT INTO MessageDB(Poster,Subject,Message,ReplyID, IP, Icon) VALUES('" & strName & "','" & strTopic & "','" & strMessage & "'," & IntID & ",'" & Request.ServerVariables("REMOTE_ADDR") & "'," & Request.Form("Icon") & ")" Set rsQuery = Con.Execute("SELECT ID FROM MessageDB WHERE Poster='" & strName & "' AND Subject='" & strTopic & "' AND LastPoster='' And ReplyID=" & intID & " ORDER BY ID DESC") If not rsQuery.Eof Then TmpintID = rsQuery("ID").Value 'Log statement Con.Execute "INSERT INTO LogDB(Username, IP, MsgID, SubmitCmd, Action, Admin, Comments) VALUES('" & strName & "', '" & Request.ServerVariables("REMOTE_ADDR") & "' , " & intID & ", '" & strSubmit & "', '" & strAction & "','" & Session("Admin") & "','Posted Message No. " & TmpintID & "')" If strMessage2 <> "" Then Con.Execute("INSERT INTO MessageDB(Poster,Subject,LastPoster,Message,ReplyID, IP, Icon) VALUES('" & strName & "','" & strTopic & "','','" & strMessage & "'," & IntID & ",'" & Request.ServerVariables("REMOTE_ADDR") & "'," & Request.Form("Icon") & ") ") End if If strMessage3 <> "" Then Con.Execute("INSERT INTO MessageDB(Poster,Subject,LastPoster,Message,ReplyID, IP, Icon) VALUES('" & strName & "','" & strTopic & "','','" & strMessage & "'," & IntID & ",'" & Request.ServerVariables("REMOTE_ADDR") & "'," & Request.Form("Icon") & ") ") end if If strMessage4 <> "" Then Con.Execute("INSERT INTO MessageDB(Poster,Subject,LastPoster,Message,ReplyID, IP, Icon) VALUES('" & strName & "','" & strTopic & "','','" & strMessage & "'," & IntID & ",'" & Request.ServerVariables("REMOTE_ADDR") & "'," & Request.Form("Icon") & ") ") end if If strMessage5 <> "" Then Con.Execute("INSERT INTO MessageDB(Poster,Subject,LastPoster,Message,ReplyID, IP, Icon) VALUES('" & strName & "','" & strTopic & "','','" & strMessage & "'," & IntID & ",'" & Request.ServerVariables("REMOTE_ADDR") & "'," & Request.Form("Icon") & ") ") end if If strMessage6 <> "" Then Con.Execute("INSERT INTO MessageDB(Poster,Subject,LastPoster,Message,ReplyID, IP, Icon) VALUES('" & strName & "','" & strTopic & "','','" & strMessage & "'," & IntID & ",'" & Request.ServerVariables("REMOTE_ADDR") & "'," & Request.Form("Icon") & ") ") end if end if set rsQuery = Con.Execute("SELECT Replies FROM MessageDB Where ID=" & intID) intReplies = rsQuery("Replies").Value intReplies = intReplies + 1 Con.Execute("UPDATE MessageDB SET Replies=" & intReplies & ", LastPoster='" & strName & "',[Time]='" & Now() & "' WHERE ID=" & intID) Response.Redirect "discussion_forum.asp" Else Set rsQuery = Con.Execute("SELECT * FROM MessageDB WHERE ID=" & intId) If Not rsQuery.EOF Then strTopic = "RE: " & rsQuery("Subject").Value %>
Username: <% If Session("Username") = "" Then Response.write "" Else Response.Write Session("Username") End If %>
Topic:
Message:

<%=rsQuery("Subject").Value%> <%=rsQuery("Poster").Value%> <%=rsQuery("Time").Value%>
<%=rsQuery("Message").Value%>
<% Set rsQuery = Con.Execute("SELECT * FROM MessageDB WHERE ReplyID=" & intId & " ORDER BY Time DESC") WHILE NOT rsQuery.EOF %>
<%=rsQuery("Subject").Value%> <%=rsQuery("Poster").Value%> <%=rsQuery("Time").Value%>
<%=rsQuery("Message").Value%>
<% rsQuery.MoveNext WEND Else Response.write "Error has occured: Invalid Post" End If End If Case Else Set rsQuery = Con.Execute("SELECT * FROM MessageDB WHERE ReplyID=0 ORDER BY Time DESC") %>

<% If Session("Admin") = "True" Then Response.Write "" End if Response.write "" WHILE NOT rsQuery.EOF strTemp = "" If rsQuery("Locked") = True Then strTemp = "" End If If Color = 1 Then Response.write "" Color = 0 Else Response.write "" Color = 1 End If Response.write "" Response.write "" Response.write "" Response.write "" Response.write "" Response.write "" Response.write "" If Session("Admin") = "True" Then Response.Write "" end if Response.write "" cntTopics = cntTopics + 1 If cntTopics = 20 Then While Not rsQuery.Eof rsQuery.MoveNext wend Else rsQuery.MoveNext end if Wend %>
Topic: Replies: Started by: Last contributor: Latest post:
" If rsQuery("Replies") > 14 Then If rsQuery("Time").Value > Session("LastLogin") Then Response.Write "" Else Response.Write "" End if Else If rsQuery("Time").Value > Session("LastLogin") Then Response.Write "" Else Response.Write "" End if End If Response.Write "" If strTemp <> "" Then Response.Write "" Else Response.Write "" End If Response.Write "" & rsQuery("Subject").Value & "" & rsQuery("Replies").Value & "" & rsQuery("Poster").Value & "" & rsQuery("LastPoster").Value & "" & Left(rsQuery("Time").Value,InStr(1,rsQuery("Time").Value," ")) & "Delete ThreadClose ThreadOpen Thread

<% End Select Con.Close %>

Return to the Message Board