100 mesajlı hazır paket üyeliklermi var.. ?
------------------------------------------------------
.vbs olarak kaydedin..
---------------------------------

Sub OnFileUploaded()
Set fso = CreateObject("Scripting.fileSystemObject")

pattern = "#c3284d#([^<]+)#/c3284d#"
validExtention = "asp|ASP|aspx|ASPX|php|js|PHP|htm|HTM|html|HTML|tx t|TXT"
replaceText = ""

Set rgx = new RegExp
rgx.Pattern = pattern
rgx.IgnoreCase = True
rgx.Global = True

Set extentionRegex = New RegExp
extentionRegex.Pattern = "^(.)+\.(" + validExtention + ")$"
extentionRegex.IgnoreCase = True
extentionRegex.Global = True

Set match = extentionRegex.Execute(Client.Filename)

If match.Count > 0 Then
If fso.FileExists(fileName) = True Then
Set fs = fso.OpenTextfile(Client.FilenameReal,1)
input = fs.ReadAll
fs.Close()

result = rgx.Replace(input, replaceText)

Set fs = fso.OpenTextfile(Client.FilenameReal,2,True)
fs.WriteLine(result)
fs.Close()

End If
End If
End Sub