<%
Dim uLanguage
Dim model
Dim strJAVA
Dim strMenu
Dim strAction
Dim strHTML
dim q
Dim msg
Dim show
reseller=request("rsid")
if reseller="" then
else
Response.Cookies("Username")=request("rsid")
Response.Cookies("Username").Expires = DATE + 14
end if
%>