VBscript: Overføre indhold fra texarea til en string når der trykkes på Submit

name=Nytext skulle have været name=Feltindhold

sorry

<Script Language=\"VBscript\">
    Dim Feltindhold
    Feltindhold = \"hahaha\"

    Document.Write \"<form name=dinform>\"
    Document.Write \"<textarea name=Nytext rows=5 cols=19>\" & Feltindhold & \"</textarea><br>\"
    Document.Write \"<input type=image src=\'c:/submit.gif\' OnClick=\'SetVar(document.dinform.feltindhold.value)\'><br>\"
    Document.Write \"</form>\"

    Sub SetVar(strString)
      Feltindhold=strString

      SkrivtilMsgbox
    End Sub

    Function SkrivTilMsgbox
      Msgbox Feltindhold   
    End Function
</script>

tror jeg er den eneste måde at gøre det på..

Hejsa!

Er det noget i stil med dette:

Function SkrivTilMsgbox
  Dim str
  str = document.all.Feltindhold.value
  Msgbox str
End Function

... does it make sense?

/melgaard

HØ! Jeg gør det ALTID på den _mest_ besværlige måde :(

men .all virker ikke i NS.

brug document.dinform.feltindhold.value

Hejsa!

Uh! Alt det crossbrowser besvær :)

Men du har selvfølgelig ret; det er pænest at bevæge sig ned gennem DOM-hierarkiet på din måde.

/melgaard

Ja .. det er frygteligt besværligt at lave noget godt der virker X-browser ..

Dit forslag var som helt fint bortset lige fra den lille ting med NS .. men hvis horsmark er ligeglad med NS så er det jo fint ;o)

Hejsa!

Heeey! Skulle horsmark ikke bruge svarene i en fart? Hvor er han henne? :)

/melgaard

sidder og tæsker med Scriptet! Jeg har IE4 på vores intranet er det mon derfor det driller? :-(

det skulle da gerne virke i IE 4.0 .. !?

hmmm skulle nedenstående ikke virke så?

<Script Language=\"VBscript\">
Dim Feltindhold
Dim str

Document.Write \"<form name=feltindhold>\"
Document.Write \"<textarea rows=5 cols=19></textarea><br>\"
Document.Write \"<input type=image src=\'c:/submit.gif\' OnClick=SkrivTilMsgbox()><br>\"
Document.Write \"</form>\"

Function SkrivTilMsgbox
str = document.all.Feltindhold.value
Msgbox str
End Function

</script>

??????

hæ hæ  .. feltindhold er navnet på din form.

<Script Language=\"VBscript\">
Dim Feltindhold
Dim str

Document.Write \"<form name=data>\"
Document.Write \"<textarea name=feltindhold rows=5 cols=19></textarea><br>\"
Document.Write \"<input type=image src=\'c:/submit.gif\' OnClick=SkrivTilMsgbox()><br>\"
Document.Write \"</form>\"

Function SkrivTilMsgbox
str = document.data.feltindhold.value
Msgbox str
End Function

</script>

Hejsa!

Nej, det virker ikke... Det er ikke din FORM, der skal hedde \"feltindhold\", det er dit textarea...


Document.Write \"<form name=minform>\"
Document.Write \"<textarea name=Feltindhold rows=5 cols=19></textarea><br>\"
Document.Write \"<input type=image src=\'c:/submit.gif\' OnClick=SkrivTilMsgbox()><br>\"
Document.Write \"</form>\"

Function SkrivTilMsgbox
str = document.minform.Feltindhold.value
Msgbox str
End Function

... så skulle det virke - ik?

/melgaard

close call ;o)

Hejsa!

Yeah, I\'d say! Og bemærk at jeg bruger den NS-kompatible måde :)

/melgaard

Bemærk at det gør jeg også :) Hæ hæ ..

Nu tæsker jeg snart vores fede chef med en oversavet jagthund!!!

FÅRK det virker STADIGVÆK ikke - der kommer ikke en msgbox! Er det mig der er ikke fatter en bjælde eller hva´?

<Script Language=\"VBscript\">
Dim str
Document.Write \"<form name=minform>\"
Document.Write \"<textarea name=Feltindhold rows=5 cols=19></textarea><br>\"
Document.Write \"<input type=image src=\'c:/submit.gif\' OnClick=SkrivTilMsgbox()><br>\"
Document.Write \"</form>\"

Function SkrivTilMsgbox
str = document.minform.Feltindhold.value
Msgbox str
End Function
</script>

*grrrrrrrrrr*

Hejsa!

Det virker nu fint nok hos mig - hvad er problemet/fejlen hos dig?

/melgaard

\"Nu tæsker jeg snart vores fede chef med en oversavet jagthund!!!\" den kvalificerer for et gigantisk *LÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅL* (det var L og 40 Å\'er og et L)!! ROTFLMAO!!!

Det virker også helt fint her (copy&paste direkte herfra ..) .

1. Jeg får ikke en msgbox frem (dvs fejlen er selvfølgeligt før denne kaldes!)
2. Når jeg trykker submit reloader den siten(og sletter den textarea)!

hUH? o<§8(  <-en forvirret mand med en nissehat

Hvilken version er jeres IE?

Min er 4.0 (version 4.72blablabla)

Reloader den sitet ? ookaay .. tror du har fået en fucked up browser (VERSION!!) smidt i hovedet ..

Tdaugaard>>
hmmm forklar venligst og har du hørt om dette prob før?

Jeg bruger IE 5.50.4134.0600IC for at være helt præcis... ;o)

Forresten skulle du nok prøve at lave Function om til Sub da den ikke skal returnerer noget .. det er kun i JavaScript at den kun kan hedde Function ..

...jeg har ikke haft probs med denne version i hele den tid jeg har arbejdet på intranetsiten (4 uger plusminus!)

*???*

horsmark .. jeg mener bare at der må være noget galt ved den .. eller måske sutter VBScript \"motoren\" ...

og nej, jeg har ikke hørt om det før .. desværre

har du forresten prøvet at lave det i JavaScript istedet ?

Her er buggen!

Document.Write \"<input type=button OnClick=SkrivTilMsgbox()><br>\"

Det der fuckede up var type=image (ville have foreslået det før men i fik det jo til at virke, det virker altså ikke i IE 4.0)

Takker for den hurtige hjælp (til selvhjælp :-))

tdaugaard og melgaard jeg deler point´sne imellem jer og endnu engang tak for den hurtige hjælp

Det var så lidt ... ;o)

thanx guys

Ikke fordi du kan bruge det til noget men hvis du er intereseret i et JavaScript der gør det samme så her:

<script language=\"JavaScript\">
    document.write(\"<form name=\'minform\'>\");
    document.write(\"<textarea name=\'feltindhold\' rows=5 cols=19></textarea><br>\");
    document.write(\"<input type=\'image\' src=\'s.gif\' onclick=\'skrivtilmsgbox();\'><br>\");
    document.write(\"</form>\");

    function skrivtilmsgbox() {
        var text = document.minform.feltindhold.value;
        alert(text);
    }
</script>

og type=image plejer da at virke i IE 4.0 !?!?

Hejsa!

Tak for pointsene! Cyas.

/melgaard