<%
Dim genTextBoxName
genTextBoxName = ""
Randomize
For i = 1 to 8
intNum = Int(10 * Rnd + 48)
intUpper = Int(26 * Rnd + 65)
intLower = Int(26 * Rnd + 97)
intRand = Int(3 * Rnd + 1)
Select Case intRand
Case 1
strPartPass = Chr(intNum)
Case 2
strPartPass = Chr(intUpper)
Case 3
strPartPass = Chr(intLower)
End Select
genTextBoxName = genTextBoxName & strPartPass
Next
Session("txtPass") = genTextBoxName
%>
<input type="text" name="<%=genTextBoxName%>">
page2.asp
<%
Response.Write(Request.Form(Session("txtPass")))
%>