:: Member Login ::

<%@LANGUAGE="VBSCRIPT"%> <% ' FileName="Connection_ado_conn_string.htm" ' Type="ADO" ' DesigntimeType="ADO" ' HTTP="false" ' Catalog="" ' Schema="" Dim MM_IACCDA_STRING 'MM_IACCDA_STRING = "Provider=SQLOLEDB;Initial Catalog=IADA_CC_DB;Data Source=192.168.1.15;Persist Security Info=True;User ID=iaccdadw5929;Password=7sYywwm~lovt" 'MM_IACCDA_STRING = "Provider=SQLOLEDB;Initial Catalog=IADA_CC_DB;Data Source=192.168.1.15;Persist Security Info=True;User ID=iaccdadw5929;Password=7sYywwm~lovt" MM_IACCDA_STRING = Application("MM_IACCDA_STRING") %> <% ' *** Validate request to log in to this site. MM_LoginAction = Request.ServerVariables("URL") If Request.QueryString<>"" Then MM_LoginAction = MM_LoginAction + "?" + Request.QueryString MM_valUsername=CStr(Request.Form("Username")) If MM_valUsername <> "" Then MM_fldUserAuthorization="MemberType" MM_redirectLoginSuccess="Default.asp" MM_redirectLoginFailed="MemberLogin.asp?status=0" MM_flag="ADODB.Recordset" set MM_rsUser = Server.CreateObject(MM_flag) MM_rsUser.ActiveConnection = Application("MM_IACCDA_STRING") MM_rsUser.Source = "SELECT Username, Email, Password, FirstName, LastName, Approved " If MM_fldUserAuthorization <> "" Then MM_rsUser.Source = MM_rsUser.Source & "," & MM_fldUserAuthorization MM_rsUser.Source = MM_rsUser.Source & " FROM dbo.vMember WHERE Username='" & Replace(MM_valUsername,"'","''") &"' AND Password='" & Replace(Request.Form("password"),"'","''") & "'" MM_rsUser.CursorType = 0 MM_rsUser.CursorLocation = 2 MM_rsUser.LockType = 3 MM_rsUser.Open If Not MM_rsUser.EOF Or Not MM_rsUser.BOF Then ' username and password match - this is a valid user Session("MM_Username") = MM_valUsername Session("svUsername") = CStr(MM_rsUser.Fields.Item("Username").Value) Session("svPassword") = CStr(MM_rsUser.Fields.Item("Password").Value) Session("svApproved") = CStr(MM_rsUser.Fields.Item("Approved").Value) Session("svEmail") = CStr(MM_rsUser.Fields.Item("Email").Value) Session("svFullName") = CStr(MM_rsUser.Fields.Item("FirstName").Value) & " " & CStr(MM_rsUser.Fields.Item("LastName").Value) Response.Cookies("Snitz00User").Path = "/" Response.Cookies("Snitz00User")("Name") = CStr(MM_rsUser.Fields.Item("Username").Value) Response.Cookies("Snitz00User")("Pword") = CStr(MM_rsUser.Fields.Item("Password").Value) If (MM_fldUserAuthorization <> "") Then Session("MM_UserAuthorization") = CStr(MM_rsUser.Fields.Item(MM_fldUserAuthorization).Value) Else Session("MM_UserAuthorization") = "" End If MM_rsUser.Close Response.Redirect(MM_redirectLoginSuccess) End If MM_rsUser.Close Response.Redirect(MM_redirectLoginFailed) End If %> :: Member Login ::

[an error occurred while processing this directive]

	Members Only
	Noteworthy News
	Collectors Corner
	"" Then %>javascript:openChat('Chat/Login.asp','Chat');<% Else %>#<% End If %>" class="navleftlink">Live Chat
	Office of Ethics

<% Response.Write(Ad.GetAdvertisement("adside.txt")) %>

IADA-CC Member Login
Username:
Password:
	Remember My Login

<% If Request.QueryString("status") = "0" Then %> Forgot Your Password? Click Here <% End If %>

IADA-CC is a Member Only Site

We offer 2 types of Memberships.
Please read the benefits for the membership types below.

Dealer Membership Benefits | Collector Membership Benefits

[an error occurred while processing this directive]