<%@ LANGUAGE="VBSCRIPT" %>
<%
Function RndStr(Length, UseChrs)
If IsNull(UseChrs) OR (UseChrs = "") Then UseChrs = "0123456789abcdefghijklmnopqrstuvwxyz!@#$%^&*()_+=-"
NewStr = ""
Randomize(CByte(Left(Right(Time(),5),2)))
For gpIndex = 1 To Length
NewStr = NewStr & Mid(UseChrs, Int((Len(UseChrs)) * Rnd + 1), 1)
Next
RndStr = NewStr
End Function
PASSWORD = Request("PASSWORD")
If PASSWORD = "" Then
PASSWORD = RndStr(8,"0123456789abcdefghijklmnopqrstuvwxyz")
End If
%>
Pittsburgh Upholstery
<%
ErrorMessage = Request("ErrorMessage")
If ErrorMessage <> "" Then %>
<% End If %>
NEW CUSTOMERS! Register for FREE
<%
ErrorMessage = Request("ErrorMessage")
If ErrorMessage <> "" Then %>
<% End If %>
