<%@ Language=VBScript%>
<%
Dim strPword
Dim intChar
Dim intLen
Randomize
intLen = 10
Randomize (Time())
Do Until Len(strPword) = intLen
Do Until (intChar > 49 And intChar < 58) Or (intChar > 64 And intChar < 73) Or (intChar > 73 And intChar < 79) Or (intChar > 79 And intChar < 91) Or (intChar > 96 And intChar < 108) Or (intChar > 108 And intChar < 111) Or (intChar > 111 And intChar < 123) Or (intChar = 33) Or (intChar = 36) Or (intChar = 46) Or (intChar = 63)
intChar = Int((90 * Rnd()) + 33)
Loop
strPword = strPword & Chr(intChar)
intChar = 0
Loop
Session.Timeout=20
Session("code")=strPword
%>
RSP Insurance Services
To receive additional information on RSP's products and services, please completely fill out and submit the form on the right. RSP Insurance Services will be happy to provide whatever additional information you need.