helterskelter
Livebearer Specilest
Sub DisplaySearchForm()
Response.Write " <table border=5 align=center width=""100%""><center><form method=""get"" action=""ebay.asp"">" & vbNewLine & _
" <b>Search for/b> " & vbNewLine & _
" <input type=""text"" name=""search"" size=""20"" value=""" & Request.Querystring("search") & """>" & vbNewLine & _
" <input type=""submit"" value=""E-bay Search""><br>" & vbNewLine & _
" <a href=""http/rover.ebay.com/rover/1/710-5232-2978-8/1?aid=5834748&pid=2328672"" target=""_blank"">"& vbNewLine & _
" <img src=""http/www.awltovhc.com/image-2328672-5834748"" width=""120"" height=""30"" alt=""Click here to buy & sell on eBay!"" border=""0""/></a></center></table>" & vbNewLine & _
"</form>" & vbNewLine
End Sub
Sub Footer()
Response.Write "<script type=""text/javascript"">" & vbNewLine & _
"var emailriddlerarray=[104,101,108,116,101,114,115,107,101,108,116,101,114,64,108,105,118,105,110,103,102,105,115,104,46,99,111,46,117,107]" & vbNewLine & _
"var encryptedemail_id60=''" & vbNewLine & _
" for (var i=0; i<emailriddlerarray.length; i++)" & vbNewLine & _
" encryptedemail_id60+=String.fromCharCode(emailriddlerarray)" & vbNewLine & _
" document.write('<a href=""mailto:'+encryptedemail_id60+'?subject=From livingfish""><h2>contact me<h2></a>')" & vbNewLine & _
"</script>" & vbNewLine & _
"<h2> © Livingfish.co.uk 2002-2007</h2>" & vbNewLine
End Sub
I'm redoing my wesite ATM and been playing today,
However the code i've posted above is kicking an error on the last line "Expected 'End'"
How ever it was working all day and just stoped.....
Dose anyone have any idea's?