I can´t get it

Sep 20th, 2000, 04:10 PM

Hi

I have this webpage and i want to send the value cool:

Code:

<html>

<head>
<meta http-equiv="Content-Type"
content="text/html; charset=iso-8859-1">
<meta name="GENERATOR" content="Microsoft FrontPage Express 2.0">
<title></title>
</head>

<body>

<form action="b.html" method="Get" name="Form1"
onsubmit="Verificar();">
    <input type="text" size="20" name="T1"> <script
    language="VBScript"><!--
Sub Verificar()
	document.form1.T1.Value="Cool"
end sub
--></script><input type="submit" name="B1"
    value="Submeter">
</form>
</body>
</html>

And now i have this code on other webpage(b.html), i want to get the cool value on b.html :

Code:

<html>

<head>
<meta http-equiv="Content-Type"
content="text/html; charset=iso-8859-1">
<meta name="GENERATOR" content="Microsoft FrontPage Express 2.0">
<title></title>
</head>

<body>

<form method="Get" name="Form1">
    <p><input type="text" size="20" name="T1"> <script
    language="VBScript"><!--
function get_ext_var() 
dim str, strAR 
	str = window.location 
	strAR = split(str, "?", -1 ,1 ) 
	if ubound(strAR) = 0 then 
		get_ext_var = "" 
	else 
		str = strAR(1) 
		document.form1.write str 
	end if
end function
--></script> </p>
</form>
</body>
</html>

But i don´t get anithing what do i have to do, please respond soon.

numibesi

**Dim** · Sep 20th, 2000, 04:19 PM

Code:

WebBrowser1.Navigate "http://www.yoursite.com/b.html"
'Get the "cool" word
Text1.Text = WebBrowser1.Document.Forms(0).T1.Value
'Send the cool word.
WebBrowser1.Navigate "http://www.yoursite.com/a.html"
WebBrowser1.Document.Forms(0).T1.Value = Text1.Text

I haven't tested it but it should work.
Gl,
D!m

Sep 20th, 2000, 04:27 PM

I´m sorry but i´m writhing a web page in HTML, i´m not making an VB app, so that´s why i need help, because i just don´t understand a bit of HTML.

numibesi

Thread: I can´t get it

Thread Tools

Display

I´m using html

Posting Permissions