<% q=chr(34) rem get companyname sql = "SELECT * from company" set rs = Conn.Execute(sql) if rs.eof = 0 then companyname = rs("companyname") companyid = rs("companyid") uemail = request.cookies(companyid & "_email") & "" upassword = request.cookies(companyid & "_password") & "" sql = "SELECT * from members where password='" & upassword & "' and email='" & uemail & "'" set rs = Conn.Execute(sql) if rs.eof = 0 then officer = rs("officer") emaillist = rs("emaillist") else officer = "" emaillist = "" uemail = "" upassword = "" end if conn.close set conn=nothing set rs=nothing else conn.close set conn=nothing set msg=nothing response.write "Can't find companyname in database" response.end end if 'response.write uemail & officer & upassword %> <%=companyname%>

<% rem remove this after test rem uemail="" if uemail="" or upassword="" then %>

Not a member? click here for Membership

Enter your email address in the field below. > >

Enter your email address and password to access the Members pages. Email Password > >

<% else %> name=uemail> name=upassword > > <% if len(officer) > 0 then %> name=uemail> name=upassword> > > <% end if %> name=uemail> name=upassword> > > name=uemail> name=upassword> > > name=uemail> name=upassword> > > name=uemail> name=upassword> > > <% if officer <> "" then %> name=uemail> name=upassword> > > <% end if %> > >

	Access Database
	Broadcast - Send
	Broadcast - View
	Canvass
	Contacts
	Meetings
	Update News
	Kill Password

Show Home page

Close Window
<% end if %>