<% set conn= Server.CreateObject("ADODB.Connection") mypath = request("PATH_TRANSLATED") l = len(mypath) for x = l to 1 step -1 if mid(mypath,x,1) = "\" then mypath = mid(mypath,1,x) & "mca143.mdb" x = 0 end if next conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" conn.Properties("Data Source") = mypath conn.Properties("User ID") = "Admin" conn.Properties("Password") = "" conn.Properties("Jet OLEDB:Database Password") = "mca555" conn.open 'conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & mypath & "mca123.mdb;Jet OLEDB:Database Password=mca555;" %> <% 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 %>