Código:
no entiendo como debo hacerlo uso vb6 Private Sub Command1_Click() On Error Resume Next Set xml = Server.CreateObject("Microsoft.XMLHTTP") If Err Then MsgBox "CreateObject Error: " & Err.Number & vbCrLf & _ Err.Description Exit Sub End If xml.Open "POST", "http://localhost/ver.asp", False xml.SetRequestHeader "Content-Type", "application/x-www-form-urlencoded" xml.Send ("Variable=121111") Text1.Text = xml.responseText Set xml = Nothing End Sub