I'm trying to copy data from excel and paste to a website. I have used code that performs this function before to a public webiste, but I can't get it to work on an internal work website (even after entering password info). I will paste some of source page info here first, then at the bottom paste the code I'm trying to use. I'm thinking this part of the code ("searchForm.searchtext.value") is where I need to paste the value in the website, but it isn't working. Gives a 91 error code.
I hope this will help. Thank you

website where this code is is called: http://adms.hp.com/Central_left.aspx
<html>
<head>
<link rel="stylesheet" href="style/edsstyle.css" type="text/css" />
<base target="main">
<SCRIPT language="javascript" type="text/javascript">

function filter_drop()
{
I = myform.myDrop.length - 1;
startCount = I + 1
myform.myCount.value = 0

do
{
theOption = (myform.myDrop.item(I).text);
theOption = theOption.toUpperCase();
xsearch = myform.filter.value;
xsearch = xsearch.toUpperCase();

answer = theOption.indexOf(xsearch);
//alert(answer);
if (answer != 0)
{
if(myform.myDrop.item(I).value != "")
{
myform.myDrop.remove(I);
myCountValue = startCount--;
myform.myCount.value = myCountValue - 2;
}
}
I--
}
while (I >= 0)

}

function replace_drop()
{
myform.myDrop.outerHTML=myBox
}

//-----------------------------------------------------------------
function filter_drop1()
{
I = myform1.myDrop1.length - 1;
startCount = I + 1
myform1.myCount1.value = 0

do
{
theOption = (myform1.myDrop1.item(I).text);
theOption = theOption.toUpperCase();
xsearch = myform1.filter1.value;
xsearch = xsearch.toUpperCase();

answer = theOption.indexOf(xsearch);
//alert(answer);
if (answer != 0)
{
if(myform1.myDrop1.item(I).value != "")
{
myform1.myDrop1.remove(I);
myCountValue = startCount--;
myform1.myCount1.value = myCountValue - 2;
}
}
I--
}
while (I >= 0)

}

function replace_drop1()
{
myform1.myDrop1.outerHTML=myBox1
}
//--------------------------------------------------------------------
function resetServerListView(){
theUrl = "Central_main_view.aspx"
//parent.main.location.href=theUrl;
}

function srvSearchTextValidate(searchForm)
{
xresults = true;
if(searchForm.searchtext.value == "")
{
alert("Please enter a Search criteria.");
searchForm.searchtext.focus();
xresults = false;
}

return xresults;
}



VBA Code:

Option Explicit

Declare Function apiShowWindow Lib "user32" Alias "ShowWindow" _
(ByVal hwnd As Long, ByVal nCmdShow As Long) As Long

Global Const SW_MAXIMIZE = 3
Global Const SW_SHOWNORMAL = 1
Global Const SW_SHOWMINIMIZED = 2

Sub commandbutton1_click()
Dim IE As Object
Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = True
apiShowWindow IE.hwnd, SW_MAXIMIZE

IE.navigate "http://adms.hp.com/"

Do
DoEvents
Loop Until IE.readyState = 4

Call IE.Document.getelementbyID("(searchForm.searchtext.value)").SetAttribute("value", "Alex")

End sub