<%
' UltraApps Portal - FREE edition, Version 1.5
' (C) Copyright 2001 by UltraApps
' This program may be used and modified for your own use
' so long as this copyright notice and this comment remain intact.
' You are not permitted to sell or distribute modified version of this software
' View files/license.html for full Legal Information
' 
' Filename:Registration.asp
'    Generated with CodeCharge 2.0.1


'-------------------------------
' Registration CustomIncludes begin
%>

<!-- #INCLUDE FILE="Common.asp" -->
<!-- #INCLUDE FILE="Header.asp" -->
<!-- #INCLUDE FILE="Footer.asp" -->

<%
' Registration CustomIncludes end
'-------------------------------

'===============================
' Save Page and File Name available into variables
'-------------------------------
sFileName = "Registration.asp"
sTemplateFileName = "Registration.html"
'===============================


'===============================
' Registration PageSecurity begin
' Registration PageSecurity end
'===============================

'===============================
' Registration Open Event begin
' Registration Open Event end
'===============================

'===============================
' Registration OpenAnyPage Event begin
' Registration OpenAnyPage Event end
'===============================

'===============================
'Save the name of the form and type of action into the variables
'-------------------------------
sAction = GetParam("FormAction")
sForm = GetParam("FormName")
'===============================

' Registration Show begin
'===============================
' Perform the form's action
'-------------------------------
' Initialize error variables
'-------------------------------
sRegistrationErr = ""

'-------------------------------
' Select the FormAction
'-------------------------------
Select Case sForm
  Case "Registration"
    RegistrationAction(sAction)
end select
'===============================

'===============================
' Display page
'-------------------------------
' Load HTML template for this page
'-------------------------------
LoadTemplate sAppPath & sTemplateFileName, "main"
'-------------------------------
' Load HTML template of Header and Footer
'-------------------------------
LoadTemplate sHeaderFileName, "Header"
LoadTemplate sFooterFileName, "Footer"
'-------------------------------
SetVar "FileName", sFileName


'-------------------------------
' Step through each form
'-------------------------------
Header_Show
Footer_Show
Message_Show
Registration_Show
'-------------------------------
' Process page templates
'-------------------------------
Parse "Header", False
Parse "Footer", False
Parse "main", False
'-------------------------------
' Output the page to the browser
'-------------------------------
Response.write PrintVar("main")

' Registration Show end

'-------------------------------
' Destroy all object variables
'-------------------------------

' Registration Close Event begin
' Registration Close Event end

cn.Close
Set cn = Nothing
UnloadTemplate
'===============================
'===============================
' Action of the Record Form
'-------------------------------
Sub RegistrationAction(sAction)
'-------------------------------
' Initialize variables  
'-------------------------------
  Dim bExecSQL: bExecSQL = true
  Dim sActionFileName : sActionFileName = ""
  Dim sWhere : sWhere = "" 
  Dim bErr : bErr = False
  Dim pPKmember_id : pPKmember_id = ""
  Dim fldmember_login : fldmember_login = ""
  Dim fldmember_password : fldmember_password = ""
  Dim fldmember_first_name : fldmember_first_name = ""
  Dim fldmember_last_name : fldmember_last_name = ""
  Dim fldmember_email : fldmember_email = ""
  Dim fldmember_address1 : fldmember_address1 = ""
  Dim fldmember_address2 : fldmember_address2 = ""
  Dim fldmember_city : fldmember_city = ""
  Dim fldstate_id : fldstate_id = ""
  Dim fldmember_zip : fldmember_zip = ""
  Dim fldcountry_id : fldcountry_id = ""
  Dim fldmember_ph_work : fldmember_ph_work = ""
  Dim fldmember_ph_work_ext : fldmember_ph_work_ext = ""
  Dim fldmember_phone_home : fldmember_phone_home = ""
  Dim fldmember_fax : fldmember_fax = ""
  Dim fldsecurity_level_id : fldsecurity_level_id = ""
  Dim fldmember_date_added : fldmember_date_added = ""
  Dim fldclub_status_id : fldclub_status_id = ""
  Dim fldpicture_url : fldpicture_url = ""
  Dim fldwebsite_url : fldwebsite_url = ""
'-------------------------------

'-------------------------------
' Registration Action begin
'-------------------------------
  sActionFileName = "Default.asp"

'-------------------------------
' Build WHERE statement
'-------------------------------
  if sAction = "update" or sAction = "delete" then
    pPKmember_id = GetParam("PK_member_id")
    if IsEmpty(pPKmember_id) then exit sub
    sWhere = "member_id=" & ToSQL(pPKmember_id, "Number")
  end if
'-------------------------------


'-------------------------------
' Load all form fields into variables
'-------------------------------
  fldmember_login = GetParam("member_login")
  fldmember_password = GetParam("member_password")
  fldmember_first_name = GetParam("member_first_name")
  fldmember_last_name = GetParam("member_last_name")
  fldmember_email = GetParam("member_email")
  fldmember_address1 = GetParam("member_address1")
  fldmember_address2 = GetParam("member_address2")
  fldmember_city = GetParam("member_city")
  fldstate_id = GetParam("state_id")
  fldmember_zip = GetParam("member_zip")
  fldcountry_id = GetParam("country_id")
  fldmember_ph_work = GetParam("member_ph_work")
  fldmember_ph_work_ext = GetParam("member_ph_work_ext")
  fldmember_phone_home = GetParam("member_phone_home")
  fldmember_fax = GetParam("member_fax")
  fldsecurity_level_id = "1"
  fldmember_date_added = GetParam("member_date_added")
  fldclub_status_id = GetParam("club_status_id")
  fldpicture_url = GetParam("picture_url")
  fldwebsite_url = GetParam("website_url")

'-------------------------------
' Validate fields
'-------------------------------
  if sAction = "insert" or sAction = "update" then
    if IsEmpty(fldmember_login) then
      sRegistrationErr = sRegistrationErr & "The value in field Choose Login* is required.<br>"
    end if
    if IsEmpty(fldmember_password) then
      sRegistrationErr = sRegistrationErr & "The value in field Choose Password* is required.<br>"
    end if
    if IsEmpty(fldmember_first_name) then
      sRegistrationErr = sRegistrationErr & "The value in field First Name* is required.<br>"
    end if
    if IsEmpty(fldmember_last_name) then
      sRegistrationErr = sRegistrationErr & "The value in field Last Name* is required.<br>"
    end if
    if IsEmpty(fldmember_email) then
      sRegistrationErr = sRegistrationErr & "The value in field Email* is required.<br>"
    end if
    if not isNumeric(fldcountry_id) then
      sRegistrationErr = sRegistrationErr & "The value in field Country is incorrect.<br>"
    end if
    if not isNumeric(fldsecurity_level_id) then
      sRegistrationErr = sRegistrationErr & "The value in field  is incorrect.<br>"
    end if
    if not isNumeric(fldclub_status_id) then
      sRegistrationErr = sRegistrationErr & "The value in field  is incorrect.<br>"
    end if
    if not IsEmpty(fldmember_login) then
      iCount = 0
      if sAction = "insert" then
        iCount = Clng(DLookUp("members", "count(*)", "member_login=" & toSQL(fldmember_login, "Text")))
      elseif sAction = "update" then
        iCount = Clng(DLookUp("members", "count(*)", "member_login=" & toSQL(fldmember_login, "Text") & " and not(" & sWhere & ")"))
      end if
      if iCount > 0 then
        sRegistrationErr = sRegistrationErr & "The value in field Choose Login* is already in database.<br>"
      end if
    end if
    if not IsEmpty(fldmember_email) then
      iCount = 0
      if sAction = "insert" then
        iCount = Clng(DLookUp("members", "count(*)", "member_email=" & toSQL(fldmember_email, "Text")))
      elseif sAction = "update" then
        iCount = Clng(DLookUp("members", "count(*)", "member_email=" & toSQL(fldmember_email, "Text") & " and not(" & sWhere & ")"))
      end if
      if iCount > 0 then
        sRegistrationErr = sRegistrationErr & "The value in field Email* is already in database.<br>"
      end if
    end if
'-------------------------------
' Registration Check Event begin
' Registration Check Event end
'-------------------------------
    If len(sRegistrationErr) > 0 then
      exit sub
    end if
  end if
'-------------------------------


'-------------------------------
' Create SQL statement
'-------------------------------
  select case sAction
    case "insert"
'-------------------------------
' Registration Insert Event begin
fldsecurity_level_id=1
fldclub_status_id=2
' Registration Insert Event end
'-------------------------------
      sSQL = "insert into members (" & _
          "[member_login]," & _
          "[member_password]," & _
          "[member_first_name]," & _
          "[member_last_name]," & _
          "[member_email]," & _
          "[member_address1]," & _
          "[member_address2]," & _
          "[member_city]," & _
          "[state_id]," & _
          "[member_zip]," & _
          "[country_id]," & _
          "[member_ph_work]," & _
          "[member_ph_work_ext]," & _
          "[member_phone_home]," & _
          "[member_fax]," & _
          "[security_level_id]," & _
          "[member_date_added]," & _
          "[club_status_id]," & _
          "[picture_url]," & _
          "[website_url])" & _
          " values (" & _
          ToSQL(fldmember_login, "Text") & "," & _
          ToSQL(fldmember_password, "Text") & "," & _
          ToSQL(fldmember_first_name, "Text") & "," & _
          ToSQL(fldmember_last_name, "Text") & "," & _
          ToSQL(fldmember_email, "Text") & "," & _
          ToSQL(fldmember_address1, "Text") & "," & _
          ToSQL(fldmember_address2, "Text") & "," & _
          ToSQL(fldmember_city, "Text") & "," & _
          ToSQL(fldstate_id, "Text") & "," & _
          ToSQL(fldmember_zip, "Text") & "," & _
          ToSQL(fldcountry_id, "Number") & "," & _
          ToSQL(fldmember_ph_work, "Text") & "," & _
          ToSQL(fldmember_ph_work_ext, "Text") & "," & _
          ToSQL(fldmember_phone_home, "Text") & "," & _
          ToSQL(fldmember_fax, "Text") & "," & _
          ToSQL(fldsecurity_level_id, "Number") & "," & _
          ToSQL(fldmember_date_added, "Date") & "," & _
          ToSQL(fldclub_status_id, "Number") & "," & _
          ToSQL(fldpicture_url, "Text") & "," & _
          ToSQL(fldwebsite_url, "Text") & _
          ")"
    case "update"
'-------------------------------
' Registration Update Event begin
if Session("UserID")<>pPKmember_id then
	sRegistrationErr=sRegistrationErr & "Form Error.<br>"
end if
fldsecurity_level_id=Session("UserRights")
fldclub_status_id=dlookup("members","club_status_id",sWhere)
' Registration Update Event end
'-------------------------------
      sSQL = "update members set " & _
        "[member_login]=" & ToSQL(fldmember_login, "Text") & _
        ",[member_password]=" & ToSQL(fldmember_password, "Text") & _
        ",[member_first_name]=" & ToSQL(fldmember_first_name, "Text") & _
        ",[member_last_name]=" & ToSQL(fldmember_last_name, "Text") & _
        ",[member_email]=" & ToSQL(fldmember_email, "Text") & _
        ",[member_address1]=" & ToSQL(fldmember_address1, "Text") & _
        ",[member_address2]=" & ToSQL(fldmember_address2, "Text") & _
        ",[member_city]=" & ToSQL(fldmember_city, "Text") & _
        ",[state_id]=" & ToSQL(fldstate_id, "Text") & _
        ",[member_zip]=" & ToSQL(fldmember_zip, "Text") & _
        ",[country_id]=" & ToSQL(fldcountry_id, "Number") & _
        ",[member_ph_work]=" & ToSQL(fldmember_ph_work, "Text") & _
        ",[member_ph_work_ext]=" & ToSQL(fldmember_ph_work_ext, "Text") & _
        ",[member_phone_home]=" & ToSQL(fldmember_phone_home, "Text") & _
        ",[member_fax]=" & ToSQL(fldmember_fax, "Text") & _
        ",[security_level_id]=" & ToSQL(fldsecurity_level_id, "Number") & _
        ",[member_date_added]=" & ToSQL(fldmember_date_added, "Date") & _
        ",[club_status_id]=" & ToSQL(fldclub_status_id, "Number") & _
        ",[picture_url]=" & ToSQL(fldpicture_url, "Text") & _
        ",[website_url]=" & ToSQL(fldwebsite_url, "Text")
      sSQL = sSQL & " where " & sWhere
  end select
'-------------------------------
'-------------------------------
' Registration BeforeExecute Event begin
' Registration BeforeExecute Event end
'-------------------------------

'-------------------------------
' Execute SQL statement
'-------------------------------
if len(sRegistrationErr) > 0 then Exit Sub
  on error resume next
  if bExecSQL then 
    cn.execute sSQL
  end if
  sRegistrationErr = ProcessError
  on error goto 0
  if len(sRegistrationErr) > 0 then Exit Sub
  select case sAction
    case "insert"
'-------------------------------
' Registration AfterInsert Event begin
Session("UserID") = CStr(DLookUp("members", "member_id", "member_login =" & ToSQL(fldmember_login, "Text")))
Session("UserRights") = 1

'Send email confirmation if auto-email turned on
if getConfig("email_component") > "0" then
  body=getConfig("registration_confirm_body")
  body=replace(body,"{login}",fldmember_login)
  body=replace(body,"{password}",fldmember_password)
  sendemail fldmember_email,getConfig("sender_email"),"Registration confirmation",body
end if
' Registration AfterInsert Event end
'-------------------------------
  end select
  cn.Close
  Set cn = Nothing
  response.redirect sActionFileName
'-------------------------------
' Registration Action end
'-------------------------------
end sub
'===============================

'===============================
' Display Record Form
'-------------------------------
Sub Registration_Show()
'-------------------------------
' Registration Show begin
'-------------------------------
  Dim sWhere : sWhere = ""
  Dim sFormTitle: sFormTitle = "{registration}"
  Dim bPK : bPK = True

'-------------------------------
' Load primary key and form parameters
'-------------------------------
  if sRegistrationErr = "" then
    SetVar "RegistrationError", ""
  else
    fldmember_id = GetParam("member_id")
    fldmember_login = GetParam("member_login")
    fldmember_password = GetParam("member_password")
    fldmember_first_name = GetParam("member_first_name")
    fldmember_last_name = GetParam("member_last_name")
    fldmember_email = GetParam("member_email")
    fldmember_address1 = GetParam("member_address1")
    fldmember_address2 = GetParam("member_address2")
    fldmember_city = GetParam("member_city")
    fldstate_id = GetParam("state_id")
    fldmember_zip = GetParam("member_zip")
    fldcountry_id = GetParam("country_id")
    fldmember_ph_work = GetParam("member_ph_work")
    fldmember_ph_work_ext = GetParam("member_ph_work_ext")
    fldmember_phone_home = GetParam("member_phone_home")
    fldmember_fax = GetParam("member_fax")
    fldsecurity_level_id = "1"
    fldmember_date_added = GetParam("member_date_added")
    fldclub_status_id = GetParam("club_status_id")
    fldpicture_url = GetParam("picture_url")
    fldwebsite_url = GetParam("website_url")
    SetVar "sRegistrationErr", sRegistrationErr
    SetVar "FormTitle", sFormTitle
    Parse "RegistrationError", False
  end if
'-------------------------------

'-------------------------------
' Load all form fields

'-------------------------------

'-------------------------------
' Build WHERE statement

  pmember_id = Session("UserID")
  if IsEmpty(pmember_id) then bPK = False
  
  sWhere = sWhere & "member_id=" & ToSQL(pmember_id, "Number")
  SetVar "PK_member_id", pmember_id
'-------------------------------
'-------------------------------
' Registration Open Event begin
welcomename = DLookup("members","member_first_name","member_id=" & Session("UserID"))
if welcomename <> "" then
  SetVar "registration","Member Profile"
'  SetVar "status","You are already logged in.<br>You may change your profile below."
else
  SetVar "registration","New Member Registration"
'  SetVar "status","Register below to become InternetFixes Portal member or to receive InternetFixes Portal announcements."
end if
' Registration Open Event end
'-------------------------------

  SetVar "FormTitle", sFormTitle

'-------------------------------
' Build SQL statement and open recordset
'-------------------------------
  sSQL = "select * from members where " & sWhere
  openrs rs, sSQL
  bIsUpdateMode = (bPK and not(sAction = "insert" and sForm = "Registration") and not rs.eof)
'-------------------------------

'-------------------------------
' Load all fields into variables from recordset or input parameters
'-------------------------------
  if bIsUpdateMode then
    fldclub_status_id = GetValue(rs, "club_status_id")
    fldmember_date_added = GetValue(rs, "member_date_added")
    fldmember_id = GetValue(rs, "member_id")
    fldsecurity_level_id = "1"

'-------------------------------
' Load data from recordset when form displayed first time
'-------------------------------
    if sRegistrationErr = "" then
      fldmember_login = GetValue(rs, "member_login")
      fldmember_password = GetValue(rs, "member_password")
      fldmember_first_name = GetValue(rs, "member_first_name")
      fldmember_last_name = GetValue(rs, "member_last_name")
      fldmember_email = GetValue(rs, "member_email")
      fldmember_address1 = GetValue(rs, "member_address1")
      fldmember_address2 = GetValue(rs, "member_address2")
      fldmember_city = GetValue(rs, "member_city")
      fldstate_id = GetValue(rs, "state_id")
      fldmember_zip = GetValue(rs, "member_zip")
      fldcountry_id = GetValue(rs, "country_id")
      fldmember_ph_work = GetValue(rs, "member_ph_work")
      fldmember_ph_work_ext = GetValue(rs, "member_ph_work_ext")
      fldmember_phone_home = GetValue(rs, "member_phone_home")
      fldmember_fax = GetValue(rs, "member_fax")
      fldpicture_url = GetValue(rs, "picture_url")
      fldwebsite_url = GetValue(rs, "website_url")
    end if
    SetVar "RegistrationDelete", ""
    SetVar "RegistrationInsert", ""
    Parse "RegistrationEdit", False
'-------------------------------
' Registration ShowEdit Event begin
' Registration ShowEdit Event end
'-------------------------------
  else
    if sRegistrationErr = "" then
      fldmember_id = ToHTML(Session("UserID"))
      fldstate_id= "CA"
      fldcountry_id= "1"
      fldsecurity_level_id= "1"
      fldclub_status_id= "2"
    end if
    SetVar "RegistrationEdit", ""
    Parse "RegistrationInsert", False
'-------------------------------
' Registration ShowInsert Event begin
fldmember_date_added=now()
' Registration ShowInsert Event end
'-------------------------------
  end if
  SetVar "RegistrationCancel", ""
'-------------------------------
' Registration Show Event begin
' Registration Show Event end
'-------------------------------

'-------------------------------
' Show form field
'-------------------------------
      SetVar "member_id", ToHTML(fldmember_id)
      SetVar "member_login", ToHTML(fldmember_login)
      SetVar "member_password", ToHTML(fldmember_password)
      SetVar "member_first_name", ToHTML(fldmember_first_name)
      SetVar "member_last_name", ToHTML(fldmember_last_name)
      SetVar "member_email", ToHTML(fldmember_email)
      SetVar "member_address1", ToHTML(fldmember_address1)
      SetVar "member_address2", ToHTML(fldmember_address2)
      SetVar "member_city", ToHTML(fldmember_city)
      SetVar "RegistrationLBstate_id", ""
      SetVar "Selected", ""
      SetVar "ID", ""
      SetVar "Value", ""
      Parse "RegistrationLBstate_id", True
      openrs rsstate_id, "select state_id, state_desc from lookup_states order by 2"
      while not rsstate_id.EOF
        SetVar "ID", GetValue(rsstate_id, 0) : SetVar "Value", GetValue(rsstate_id, 1)
        if cstr(GetValue(rsstate_id, 0)) = cstr(fldstate_id) then SetVar "Selected", "SELECTED" else SetVar "Selected", ""
        Parse "RegistrationLBstate_id", True
        rsstate_id.MoveNext
      wend
      set rsstate_id = nothing
    
      SetVar "member_zip", ToHTML(fldmember_zip)
      SetVar "RegistrationLBcountry_id", ""
      openrs rscountry_id, "select country_id, country_desc from lookup_countries order by 2"
      while not rscountry_id.EOF
        SetVar "ID", GetValue(rscountry_id, 0) : SetVar "Value", GetValue(rscountry_id, 1)
        if cstr(GetValue(rscountry_id, 0)) = cstr(fldcountry_id) then SetVar "Selected", "SELECTED" else SetVar "Selected", ""
        Parse "RegistrationLBcountry_id", True
        rscountry_id.MoveNext
      wend
      set rscountry_id = nothing
    
      SetVar "member_ph_work", ToHTML(fldmember_ph_work)
      SetVar "member_ph_work_ext", ToHTML(fldmember_ph_work_ext)
      SetVar "member_phone_home", ToHTML(fldmember_phone_home)
      SetVar "member_fax", ToHTML(fldmember_fax)
      SetVar "security_level_id", ToHTML(fldsecurity_level_id)
      SetVar "member_date_added", ToHTML(fldmember_date_added)
      SetVar "club_status_id", ToHTML(fldclub_status_id)
      SetVar "picture_url", ToHTML(fldpicture_url)
      SetVar "website_url", ToHTML(fldwebsite_url)
  Parse "FormRegistration", False

'-------------------------------
' Registration Close Event begin
' Registration Close Event end
'-------------------------------

Set rs = Nothing

'-------------------------------
' Registration Show end
'-------------------------------
End Sub
'===============================

'===============================
' Display Menu Form
'-------------------------------
Sub Message_Show()
  Dim sFormTitle: sFormTitle = ""

'-------------------------------
' Message Open Event begin
welcomename = DLookup("members","member_first_name","member_id=" & Session("UserID"))
if welcomename <> "" then
'  SetVar "registration","Member Profile"
  SetVar "status","You are already logged in.<br>You may change your profile below."
else
'  SetVar "registration","New Member Registration"
  SetVar "status","Register below to become InternetFixes Portal member<br>or to receive InternetFixes Portal announcements."
end if
' Message Open Event end
'-------------------------------

'-------------------------------
' Set URLs
'-------------------------------
  fldField1 = "<center><b>{status}</b></center>"
'-------------------------------
' Message Show begin
'-------------------------------

  SetVar "FormTitle", sFormTitle

'-------------------------------
' Message BeforeShow Event begin
' Message BeforeShow Event end
'-------------------------------

'-------------------------------
' Show fields
'-------------------------------
  SetVar "Field1", fldField1
  Parse "FormMessage", False

'-------------------------------
' Message Show end
'-------------------------------
End Sub
'===============================

%>