<%
set cn = Server.CreateObject("ADODB.Connection")
cn.Open "DSN=Member"
sql="SELECT * FROM Memberscount"
Set rst=server.createobject("ADODB.RECORDSET")
rst.open SQL,cn,1,3
count = RST( "count")
sql1="SELECT * FROM Memberscount06"
Set rst1=server.createobject("ADODB.RECORDSET")
rst1.open SQL1,cn,1,3
count06 = RST1( "count")
newcount = count + count06
If Len (Session("svUserid")) = 0 Then
Else
Dim LoginId
Loginid= Session("svUserid")
sql1="SELECT * FROM qrypaid2003 Where MailinglistID =" &LoginId
Set rst1=server.createobject("ADODB.RECORDSET")
rst1.open SQL1,cn,1,3
strlogin = RST1 ("displayname")
End IF
%>
National Office CSTE
2872 Woodcock Blvd
Suite 303
Atlanta, GA 30341
770-458-3811
770-458-8516
