I have this Random String script. How do I enter the string into a text field:

Code:
<%
  function ActivationString( )

    Randomize( )

    dim CharacterSetArray
    CharacterSetArray = Array( _
      Array( 5, "abcdefghijklmnopqrstuvwxyz" ), _
      Array( 3, "0123456789" ) _
    )

    dim i
    dim j
    dim Count
    dim Chars
    dim Index
    dim Temp

    for i = 0 to UBound( CharacterSetArray )

      Count = CharacterSetArray( i )( 0 )
      Chars = CharacterSetArray( i )( 1 )

      for j = 1 to Count

        Index = Int( Rnd( ) * Len( Chars ) ) + 1
        Temp = Temp & Mid( Chars, Index, 1 )

      next

    next

    dim TempCopy

    do until Len( Temp ) = 0

      Index = Int( Rnd( ) * Len( Temp ) ) + 1
      TempCopy = TempCopy & Mid( Temp, Index, 1 )
      Temp = Mid( Temp, 1, Index - 1 ) & Mid( Temp, Index + 1 )

    loop

    ActivationString = TempCopy

  end function
  Response.write ActivationString
%>
and my form:

HTML Code:
<form id="form1" name="form1" method="post" action="">
<input name="randomstring" type="text" id="randomstring"/>
<input type="submit" name="button" id="button" value="Submit" />
</form>
Thank you!