All I did was convert it to Response.Write but
here it is to save you all the trouble:
Demo available at: http://www.skepticfriends.org/forum2/
User Name: demo
Password: demo
to use this just save it as inc_websearch.asp,
sign up at google.com, edit this file with the
inormation Google gives you when you sign up and
include this file wherever you desire.
<%
Response.Write "<table width=""150"" border=""0"" cellspacing=""0"" cellpadding=""0"" bgcolor=" & strHeadCellColor & ">" & VbCrlf & _
" <tr>" & VbCrlf & _
" <td align=""left"" valign=""top"">" & VbCrlf & _
" <table BORDER=""0"" bordercolor=""#000099"" CELLSPACING=""0"" CELLPADDING=""1"" width=""100%"">" & VbCrlf & _
" <tr>" & VbCrlf & _
" <td width=""100%"" valign=""top"">" & VbCrlf & _
" <table border=""0"" cellpadding=""0"" cellspacing=""0"" width=""100%"">" & VbCrlf & _
" <tr>" & VbCrlf & _
" <td>" & VbCrlf & _
"<table border=""0"" width=""100%"" cellspacing=""0"" cellpadding=""2"">" & VbCrlf & _
"<tr>" & VbCrlf & _
"<td align=""center"" bgcolor=" & strHeadCellColor & " nowrap valign=""top""><font face="" & strDefaultFontFace & "" size="" & strHeaderFontSize & "" color="" & strHeadFontColor & "">Search the Web</font></td>" & VbCrlf & _
"</tr>" & VbCrlf & _
" </table>" & VbCrlf & _
" </td>" & VbCrlf & _
" </tr>" & VbCrlf & _
" <tr>" & VbCrlf & _
" <td valign=""top"" bgcolor=" & strForumCellColor & " width=""100%"">" & VbCrlf & _
" <table bgcolor=" & strForumCellColor & " border=""0"" cellpadding=""4"" cellspacing=""0"" width=""100%"">" & VbCrlf & _
"<tr>" & VbCrlf & _
"<td align=""center"">" & VbCrlf & _
" <font color="" & strDefaultFontColor & "" face="" & strDefaultFontFace & "" size="" & strFooterFontSize & "">" & VbCrlf & _
" <center>" & VbCrlf & _
" <FORM method=GET action=""http://www.google.com/custom"">" & VbCrlf & _
" <TABLE bgcolor=""#FFFFFF"" cellspacing=""0"" border=""0"">" & VbCrlf & _
" <tr valign=""top"">" & VbCrlf & _
" <td align=""center"" bgcolor=""whitesmoke"">" & VbCrlf & _
" <A HREF=""http://www.google.com/search"">" & VbCrlf & _
" <IMG SRC=""http://www.google.com/logos/Logo_40wht.gif"" border=""0"" ALT=""Google"" align=""middle""></A><br>" & VbCrlf & _
" <INPUT TYPE=""text"" name=""q"" size=""20"" maxlength=""255"" value=""""><br>" & VbCrlf & _
" <INPUT type=""submit"" name=""sa"" VALUE=""Google Search"">" & VbCrlf & _
" <INPUT type=""hidden"" name=""cof"" VALUE=""T:#000000;LW:118;ALC:#FF0000;L:http://www.skepticfriends.org/forum/eyelogo.jpg;LC:#0000FF;LH:90;BGC:#FFFFFF;AH:center;VLC:#0000CC;S:http://www.skepticfriends.org;AWFID:878a99eabb890384;"">" & VbCrlf & _
" <font color="" & strDefaultFontColor & "" face="" & strDefaultFontFace & "" size="" & strFooterFontSize & ""><input type=""hidden"" name=""domains"" value=""skepticfriends.org""><br><input type=""radio"" name=""sitesearch"" value="""" checked> WWW <input type=""radio"" name=""sitesearch"" value=""skepticfriends.org""> SFN</font>" & VbCrlf & _
" </td></tr></TABLE>" & VbCrlf & _
" </FORM>" & VbCrlf & _
" </center>" & VbCrlf & _
" </font>" & VbCrlf & _
" </td>" & VbCrlf & _
" </tr>" & VbCrlf & _
" </table>" & VbCrlf & _
" </td>" & VbCrlf & _
" </tr>" & VbCrlf & _
" </table>" & VbCrlf & _
" </td>" & VbCrlf & _
"</tr>" & VbCrlf & _
"</table>" & VbCrlf & _
"</td>" & VbCrlf & _
"</tr>" & VbCrlf & _
"</table>"
%>
@tomic