<%@ Language=VBScript %> <% ' /////////////////////////////////////////////////////// ' // Dimac CMS ' // Copyright 2004-2008 Dimac Development AB, Sweden ' // www.Dimac.net ' // ' // NOTE: ' // You are not allowed to remove this ' // Copyright information without written ' // permission from Dimac Development. ' /////////////////////////////////////////////////////// ' ------------------------------------------------------- ' -- Global variables ' ------------------------------------------------------- Dim Conn, Rs, SQL , ResultText vEmail = Trim(Request.Form("Email").item) vPassword1 = Trim(Request.Form("Password1").item) vPassword2 = Trim(Request.Form("Password2").item) ' /////////////////////////////////////////////////////// Function IsMember(vEmail) Set Conn = Server.CreateObject("ADODB.Connection") Set Rs = Server.CreateObject("ADODB.Recordset") ' Conn.Open GetConStr (da_dbType, "", da_dbName, da_dbUserID, da_dbPassword) Conn.Open GetConStr ("..\..\SiteResources\Data\") SQL = "SELECT ID From Members WHERE Email = '" & vEmail& "' " set Rs = Conn.Execute(SQL) IF NOT RS.eof THEN IsMember = TRUE Else IsMember = FALSE End if Set Rs = Nothing Set Conn = Nothing End Function ' /////////////////////////////////////////////////////// Sub CreateMemberAccount() Set Conn = Server.CreateObject("ADODB.Connection") Set Rs = Server.CreateObject("ADODB.Recordset") ' Conn.Open GetConStr (da_dbType, "", da_dbName, da_dbUserID, da_dbPassword) Conn.Open GetConStr ("..\..\SiteResources\Data\") '// SQL = "SELECT ID From Members WHERE Email = '" & vEmail& "' " SQL = "INSERT INTO Members (" SQL = SQL & " Email," SQL = SQL & " MemberPassword ," SQL = SQL & " Status)" SQL = SQL & "VALUES ('" SQL = SQL & vEmail & "','" SQL = SQL & vPassword1 & "'," SQL = SQL & "2 )" ' // 1=Pending , 2=Active set Rs = Conn.Execute(SQL) Set Rs = Nothing Set Conn = Nothing End Sub ' /////////////////////////////////////////////////////// ' /////////////////////////////////////////////////////// If vPassword1 = vPassword2 Then If isMember(vEmail) Then ResultText = "An account with this Email already exsits." Else call CreateMemberAccount ResultText = "Your account is now created." End If Else ResultText = "Passwords are not the same. Please re-enter." End If ' ------------------------------------------------------- ' ------------------------------------------------------- %> <%= ResultText %>