" Response.Write "
| "
Response.Write " | "
Response.Write ""
Response.Write "
| "
Response.Write " "
Response.Write " |
%
If Request.Form("name")<>"" and Request.Form("Subject")<>"" and Request.Form("Email")<>"" and Request.Form("Message")<>"" then
'Name = Request.Form("Name")
'Subject = Request("Subject")
Email = Request.Form("Email")
'Message = Request.Form("Message")
ICQ = Request.Form("ICQ")
Dim bsubject
bname = ReplaceBadwords(Request.Form("Name"))
bsubject = ReplaceBadwords(Request.Form("Subject"))
bmessage = ReplaceBadwords(Request.Form("Message"))
Function ReplaceBadwords(InputComments)
dim badchars, newchars, i
badchars = array("buy","hot","cheap", "video", "cock", "tit","mature", "sex", "xxx", "movie", "porn", "adult", "penis", "porno", "teen", "mature", "boob", "fuck", "suck", "dick", "www", "babe", "pill", "nude", "erotic", "blowjob", "booty", "free", "mobile", "viagra", " 0 Then
NTop = RS("NTop")
Else
NTop = 0
End If
RS.Close
' If HTML not allowed remove it
If not Application("WebBoardAllowHTML") Then
oldstring = Message
newstring = ""
for i=1 to Len(oldstring)
Select Case HTML
Case True
If Mid(oldstring, i, 1) = ">" Then
HTML = False
End If
Case Else
If Mid(oldstring, i, 1) = "<" Then
HTML = True
Else
newstring = newstring & Mid(oldstring, i, 1)
End If
End Select
Next
Message = newstring
'Detect http:// and create link to it
oldstring = Message
newstring = ""
for i = 1 to Len(oldstring) - 7
If LCASE(Mid(oldstring, i, 7)) = "http://" Then
for j = i to Len(oldstring)
If Mid(oldstring,j,1) = " " or Mid(oldstring,j,1) = vbcr Then
Exit For
End If
next
strLink = Mid(oldstring,i,(j-i))
newstring = newstring & "" & strLink & "" & Mid(oldstring,j,1)
i = i + (j-i)
Else
newstring = newstring & Mid(oldstring,i,1)
End If
next
Message = newstring & Mid(oldstring,i,i+7)
End If
PostType = Request("PostType")
Select Case PostType
Case "new"
ParentId = 0
SortCd = int(NTop) + 1
MajorSort = SortCd
Select Case len(SortCd)
Case 1
SortCd = "000" & SortCd
Case 2
SortCd = "00" & SortCd
Case 3
SortCd = "0" & SortCd
End Select
Case "reply"
ParentId = int(Request("ParentId"))
Cmd.CommandText="Select SortCd, MajorSort from Message where MessageId = " & ParentId
RS.Open Cmd, , 0, 1
Prefix = RS("SortCd")
MajorSort = RS("MajorSort")
RS.Close
Cmd.CommandText="Select COUNT(MessageId) as [NPeer] from Message where ParentId = " & ParentId
RS.Open Cmd, , 0, 1
NPeer = RS("NPeer")
RS.Close
SortCd = int(NPeer) + 1
Select Case len(SortCd)
Case 1
SortCd = "000" & SortCd
Case 2
SortCd = "00" & SortCd
Case 3
SortCd = "0" & SortCd
End Select
SortCd = Prefix & "." & SortCd
Message = Message & vbcr & vbcr & "***---REPLIED TO MESSAGE BELOW---***" & vbcr & Request("OldMessage")
EmailMessage = Message
oldstring = Message
newstring = ""
for i=1 to Len(oldstring)
If Mid(oldstring, i, 1) = vbCr Then
newstring = newstring & "
"
Else
newstring = newstring & Mid(oldstring, i, 1)
End If
Next
Message = newstring
Cmd.CommandText="Select Email From Message Where MessageId = " & ParentId
RS.Open Cmd, , 0, 1
EmailTo = RS("Email")
RS.Close
EmailBody = Name & "(" & Email & ") has replied to a message you posted " & vbcr & _
"------------------------------------------------------" & vbcr & _
vbcr & "SUBJECT : " & Subject & " " & Date & " " & Time & _
vbcr & "MESSAGE : " & EmailMessage & _
vbcr & vbcr & "------------------------------------------------------" & _
vbcr & "Go to http://tnhealth.org to view all the details"
Set objMail = Server.CreateObject("CDONTS.NEWMAIL")
objMail.From = "[email protected]"
objMail.To = EmailTo
objMail.Subject = "Message Board"
objMail.Body = EmailBody
'objMail.Send
Set objMail = Nothing
End Select
Cmd.CommandText="Select * from Message"
RS.Open Cmd, , 2, 2
RS.AddNew
RS("ParentId") = ParentId
RS("Name") = bname
RS("Email") = Email
RS("Subject") = bsubject
RS("Description") = bmessage
RS("MessageDate") = Date & " " & Time
RS("SortCd") = SortCd
RS("MajorSort") = MajorSort
If ICQ <> "" Then
RS("ICQ") = ICQ
End IF
RS.Update
RS.Close
Select Case PostType
Case "new"
'Response.Redirect("default.asp")
Response.Write("")
Response.Write "
" Response.Write "
| "
Response.Write " | "
Response.Write ""
Response.Write "
| "
Response.Write " "
Response.Write " |
"
Response.Write "
"
Response.Write "
"
Response.Write "
| "
Response.Write " Your Message will get displayed once it is approved by the administrator.. |
| " Response.Write "" Response.Write " |
" Case "reply" Response.Write("") Response.Write "
" Response.Write "
| "
Response.Write " | "
Response.Write ""
Response.Write "
| "
Response.Write " "
Response.Write " |
"
Response.Write "
"
Response.Write "
"
Response.Write "
| "
Response.Write " Your Message will get displayed once it is approved by the administrator.. |
| " Response.Write "" Response.Write " |
" 'Response.Redirect("messageDetail.asp?MessageId=" & ParentId) End Select else Response.Write "
" Response.Write "
| "
Response.Write " | "
Response.Write ""
Response.Write "
| "
Response.Write " "
Response.Write " |
"
Response.Write "
"
Response.Write "
"
Response.Write "
| "
Response.Write " Please Enter all the mandatory fields " Response.Write " |
| " Response.Write "" Response.Write " |
" end if %>
IDN Poker is Indonesia's best online poker network, accessible through their trusted skin or agent websites. There's also a download link for the latest IDN Play 2026 APK, allowing players to easily access poker online games anywhere, anytime.
IDNSLOT is the most exciting online slot platform and is increasingly popular among players in Indonesia. Through the VIO88 site, players can now enjoy easy access to IDN Play's exciting slot qris, featuring a modern interface, a comprehensive selection of games, and a comfortable playing experience across various devices.
See a brief explanation of the best online poker networks in Indonesia and the benefits customers will receive on the Nirwanapoker website. This information can be valuable information for those of you looking for a trusted official Idn Play agent website to play real money online poker.
