Thread: Web Farming
View Single Post
  #5   Report Post  
Posted to microsoft.public.excel.programming
Jake Marx[_3_] Jake Marx[_3_] is offline
external usenet poster
 
Posts: 860
Default Web Farming

Hi Mike,

The name of the textbox is "comments", not "comments value". So this:

abytPostData = StrConv("comments value=Test", vbFromUnicode)

should be:

abytPostData = StrConv("comments=Test", vbFromUnicode)

I'm not sure what the cktid querystring parameter signifies, but it may
cause problems if it changes each time you visit the page.

--
Regards,

Jake Marx
MS MVP - Excel
www.longhead.com

[please keep replies in the newsgroup - email address unmonitored]


Mike wrote:
Something still isn't right. Here's a copy of the source code for
the web page I'm trying to up date,

<TR<TD bgcolor=yellowComment</TD<TD<input type=text name=comments
value="" size=41 maxlength=40</TD</TR</TABLE<BR<input
type=submit name=sub value="Update"</form</center</body</html

The part I'm trying to update is [ <input type=text name=comments
value="" ]

Here is my code.

Private Sub Web_Update_Click()
Dim xml As XMLHTTP40
Dim abytPostData() As Byte

abytPostData = StrConv("comments value=Test", vbFromUnicode)

Set xml = New XMLHTTP40
With xml
.Open "POST",




"http://iecmech1.sbc.com/proj-bin/c2fmen?report=UPDATE&cktid=28/HCGS/713101%
20%20%20%20/SW%20%20/&tbl=c2f"
.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
.Send abytPostData End With

Set xml = Nothing

End Sub

CAn you see the problem..


Mike