CodeTags(1,1,2) = "<a href=""originalurl&q="& strTempString & """>" & strTempString
   CodeTags(1,2,2) = "</a>"

"inc_func_common.asp"

Search for the following line (appx 1555):

Sub WriteFooter() %>

Above it, insert the following:

'	##### GImage Below #####
Function ReplaceGImageTags(fString)
   Dim oTag, cTag
   Dim roTag, rcTag
   Dim oTagPos, cTagPos
   Dim nTagPos
   Dim counter1, counter2
   Dim strCodeText
   Dim Tagcount
   Dim strTempString, strResultString
   TagCount = 2
   Dim CodeTags(2,2,2)
   Dim strArray, strArray2
   CodeTags(1,1,1) = "[GImage]"
   CodeTags(1,2,1) = "[/GImage]"
   CodeTags(1,1,2) = "<a href=""http://images.google.com/images?hl=en&source=img&q="
   CodeTags(1,2,2) = "</a>"
   CodeTags(2,1,1) = "[GImage]"
   CodeTags(2,2,1) = "[/GImage]"
   CodeTags(2,1,2) = CodeTags(1,1,2)
   CodeTags(2,2,2) = CodeTags(1,2,2)
   strResultString = ""
   strTempString = fString
   for counter1 = 1 to TagCount
      oTag   = CodeTags(counter1,1,1)
      roTag  = CodeTags(counter1,1,2)
      cTag   = CodeTags(counter1,2,1)
      rcTag  = CodeTags(counter1,2,2)
      oTagPos = InStr(1, strTempString, oTag, 1)
      cTagPos = InStr(1, strTempString, cTag, 1)
      if (oTagpos > 0) and (cTagPos > 0) then
         strArray = Split(strTempString, oTag, -1)
         for counter2 = 0 to Ubound(strArray)
            if (Instr(1, strArray(counter2), cTag) > 0) then
               strArray2 = split(strArray(counter2), cTag, -1)
               strCodeText = trim(strArray2(0))
               strResultString = strResultString & roTag & strCodeText & """ target=""_blank"">" & strCodeText & rcTag & strArray2(1)
            else
               strResultString = strResultString & strArray(counter2)
            end if
         next
         strTempString = strResultString
         strResultString = ""
      end if
   next
   ReplaceGImageTags = strTempString
End Function
'	##### GImage Above #####

Next, search for the following line (appx 146):

	FormatStr = fString

Above it, insert the following:

	'	##### GImage Below #####
   fString = ReplaceGImageTags(fString)
	'	##### GImage Above #####

"inc_iconfiles.asp"

Search for the following line (appx 148):

Const strIconZap = "icon_zap.gif|16|16"

Below it, add the following:

'	##### GImage Below #####
Const strIconGImage = "icon_editor_gimage.png|23|22"
'	##### GImage Above #####

"inc_post_buttons.asp"

Search for the following lines (appx 61-63):

if strIMGInPosts = "1" then
	Response.Write	"<a href=""Javascript:image();"" tabindex=""-1"">" & getCurrentIcon(strIconEditorImage,"Insert Image","align=""top""") & "</a>" & vbNewLine
end if

Change them to say:

if strIMGInPosts = "1" then
	Response.Write	"<a href=""Javascript:image();"" tabindex=""-1"">" & getCurrentIcon(strIconEditorImage,"Insert Image","align=""top""") & "</a>" & vbNewLine
	'	##### GImage Below #####
	Response.Write	"<a href=""Javascript:GImage();"" tabindex=""-1"">" & getCurrentIcon(strIconGImage,"Google Images","align=""top""") & "</a>" & vbNewLine
	'	##### GImage Above #####	
end if

"inc_code.js"

Add the following to the very bottom of the file:

function GImage() {
   var text = getText();
   if (helpstat) {
      alert("GImage tag searches for related images on Google.\n\nUSE: [GImage](words to search for)[/GImage]");
   } else if (basic) {
      AddTxt="[GImage]" + text + "[/GImage]";
      AddText(AddTxt);
   } else {
      if (text) {
         txt=prompt("Image to search for.",text);
      } else {
         txt=prompt("Image to search for.","Insert words describing image to search for.");
      }
      if (txt!=null) {
         AddTxt="[GImage]"+txt+"[/GImage]";
         AddText(AddTxt);
      }
   }
}