<% @ Language=VBScript %>
<% Option Explicit %>
<%
'****************************************************************************************
'** Copyright Notice
'**
'** Web Wiz Forums(TM)
'** http://www.webwizforums.com
'**
'** Copyright (C)2001-2008 Web Wiz(TM). All Rights Reserved.
'**
'** THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS UNDER LICENSE FROM 'WEB WIZ'.
'**
'** IF YOU DO NOT AGREE TO THE LICENSE AGREEMENT THEN 'WEB WIZ' IS UNWILLING TO LICENSE
'** THE SOFTWARE TO YOU, AND YOU SHOULD DESTROY ALL COPIES YOU HOLD OF 'WEB WIZ' SOFTWARE
'** AND DERIVATIVE WORKS IMMEDIATELY.
'**
'** If you have not received a copy of the license with this work then a copy of the latest
'** license contract can be found at:-
'**
'** http://www.webwizguide.com/license
'**
'** For more information about this software and for licensing information please contact
'** 'Web Wiz' at the address and website below:-
'**
'** Web Wiz, Unit 10E, Dawkins Road Industrial Estate, Poole, Dorset, BH15 4JD, England
'** http://www.webwizguide.com
'**
'** Removal or modification of this copyright notice will violate the license contract.
'**
'****************************************************************************************
'*************************** SOFTWARE AND CODE MODIFICATIONS ****************************
'**
'** MODIFICATION OF THE FREE EDITIONS OF THIS SOFTWARE IS A VIOLATION OF THE LICENSE
'** AGREEMENT AND IS STRICTLY PROHIBITED
'**
'** If you wish to modify any part of this software a license must be purchased
'**
'****************************************************************************************
'Clean up
Call closeDatabase()
Response.AddHeader "pragma","cache"
Response.AddHeader "cache-control","public"
Response.CacheControl = "Public"
Dim strBBcode 'Holds the bbcode
Dim strMoviePreview 'Holds the HTML formated code
Dim lngStartPos 'Holds search start postions
Dim lngEndPos 'Holds end start postions
'Intiliase the response with a no preview avilable
strMoviePreview = "
" & strTxtNoPreviewAvailableForLink
'Read in the BBcode
strBBcode = Request.QueryString("BBcode")
'Convert BBcode into movie
If blnFlashFiles Then
'Flash
If InStr(1, strBBcode, "[FLASH", 1) > 0 AND InStr(1, strBBcode, "[/FLASH]", 1) > 0 Then
'Remove any extra code passed in the querystring
lngStartPos = InStr(1, strBBcode, "[FLASH", 1)
lngEndPos = InStr(lngStartPos, strBBcode, "[/FLASH]", 1) + 8
strBBcode = Trim(Mid(strBBcode, lngStartPos, lngEndPos-lngStartPos))
'Format the Adobe Flash movie preview
strMoviePreview = formatFlash(strBBcode)
'YouTube
ElseIf InStr(1, strBBcode, "[TUBE]", 1) > 0 AND InStr(1, strBBcode, "[/TUBE]", 1) > 0 Then
'Get ride of whole link and just leave file name
strBBcode = Replace(strBBcode, "http://www.youtube.com/watch?v=", "")
strBBcode = Replace(strBBcode, "http://www.youtube.com/v/", "")
strBBcode = Replace(strBBcode, "&feature=rec-fresh", "")
'Remove any extra code passed in the querystring
lngStartPos = InStr(1, strBBcode, "[TUBE]", 1)
lngEndPos = InStr(lngStartPos, strBBcode, "[/TUBE]", 1) + 7
strBBcode = Trim(Mid(strBBcode, lngStartPos, lngEndPos-lngStartPos))
'Format the YouTube movie preview
strMoviePreview = formatYouTube(strBBcode)
End If
End If
%>
No Preview
<%
'***** START WARNING - REMOVAL OR MODIFICATION OF THIS CODE WILL VIOLATE THE LICENSE AGREEMENT ******
Response.Write(vbCrLf & "")
'***** END WARNING - REMOVAL OR MODIFICATION OF THIS CODE WILL VIOLATE THE LICENSE AGREEMENT ******
%>
<% = strMoviePreview %>