VIP PowerNet - NPO Register

<%@ Language=VBScript %> <% '**************************************************************************************************** 'File Name : nporegister.asp 'Date of Creation : 13th May 2k3 'Purpose : This file provided the registration form for the NPO who signs up to this 'company i.e. VIP PowerNet. currently when the info. is entered in database it is such that all the 'info. will be entered properly and the active status of org. will be set to 0.So no one will be able to 'log into the backend of this orgnization until the administrator approves this organization from admin. 'section where active status is set to 1. 'Created By : Nandip 'Date of Modification : 30th May 2k3 'Last Modified By : Nandip 'Last Change Reason : a) The message "Username Already exists" was coming in top part which has been formatted and 'will not come before the form stats. ' b) Earlier as per screenshot we were also sending 'the login id and pasword.But now we have 'commented that because now we will send that after we approve the organization 'An email will be sent to the npo that we have received the registration and at the same time 'an anotheremail will be sent at npo@vippowernet.comie. the group email with 'further info. about the organization. 'Location on Server : e:\wwwroot\www.vippowernet.com\site 'File Currently in Use : Yes 'Company Name : VIP PowerNet '**************************************************************************************************** Response.Expires = 0 Response.ExpiresAbsolute = Now() - 2 Response.AddHeader "pragma","no-cache" Response.AddHeader "cache-control","private" Response.CacheControl = "private" If Request.QueryString("action") = "insertit" then dim str uname = Request.form("UserName") pass = Request.form("password") Orgname = Request.form("Organization") OrgType = Request.Form("OrgType") fname = Request.form("firstname") lname = Request.Form("lastname") Contactperson = fname & " " & lname addr1 = Request.form("Address") addr2 = Request.form("Address2") if not(addr2 = "") then Address = addr1 & "," & addr2 else Address = addr1 end if City= Request.form("City") State= Request.form("State") Pincode=Request.form("Zip1") & "-" & Request.Form("Zip2") Phone = Request.form("Phone") GeneralEmail = Request.Form("genEmail") if GeneralEmail = "" then GeneralEmail = "NULL" else GeneralEmail = "'" & GeneralEmail & "'" end if URL = Request.Form("URL") websiteUrl = URL if URL = "" then URL = "NULL" else URL = "'" & URL & "'" end if if websiteUrl = "" then websiteUrl = "-" end if Email= Request.form("Email") MiscInfo = Request.Form("miscInfo") MiscInfo = replace(MiscInfo,"'","#") set cnnpo = server.CreateObject("adodb.connection") cnnpo.Open Application("connstrvip") set rsnpo = server.CreateObject("adodb.recordset") rsnpo.Open "select * from usermaster where user_status='O' and user_orgid='" & finalval & "'",cnnpo,2,3 if not rsnpo.EOF then Response.Write "NPO ID already exists" %> <% Response.End end if if rsnpo.State > 0 then rsnpo.Close end if strUMaster = "select * from UserMaster where User_OrgUserName='"& uname &"'" rsnpo.Open strUMaster,cnnpo,2,3 'if the username is not found then if rsnpo.EOF then insertumasterquery = "insert into usermaster(user_orgid,user_orgusername,fname_oname,lname_ocp,address,city,state,pincode,email,phone,user_status)" & _ "values ('" & finalval & "','" & uname & "','" & orgname & "','" & contactperson & "','" & address & "','" & city & "','" & state & "','" & pincode & "','" & email & "','" & phone & "','" & "O" & "')" 'Response.Write insertumasterquery & "

" cnnpo.Execute insertumasterquery insertorgmasterquery = "insert into OrgMaster (OrgId,Org_UName,Org_Password,URL,TaxId,isactive,category,typeoforg,miscInfo,generalEmail) values('" & finalval & "','" & uname & "','" & pass & "'," & URL & ",'" & "n/a" & "'," & 0 & ",'" & "org" & "','" & OrgType & "','" & MiscInfo & "'," & GeneralEmail & ")" 'Response.Write insertorgmasterquery & "

" cnnpo.Execute(insertorgmasterquery) 'Response.Write "done" 'Response.End 'Email to the NPO. Simple email without any npo info. saying that we have 'received the information. '+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ strNpoEmail = "" strNpoEmail = strNpoEmail & "" strNpoEmail = strNpoEmail & "" strNpoEmail = strNpoEmail & "" strNpoEmail = strNpoEmail & "" strNpoEmail = strNpoEmail & "" strNpoEmail = strNpoEmail & "

" strNpoEmail = strNpoEmail & "

" strNpoEmail = strNpoEmail & "" strNpoEmail = strNpoEmail & "" strNpoEmail = strNpoEmail & "

" strNpoEmail = strNpoEmail & "

" strNpoEmail = strNpoEmail & "" strNpoEmail = strNpoEmail & " " strNpoEmail = strNpoEmail & " " strNpoEmail = strNpoEmail & "" strNpoEmail = strNpoEmail & "

" strNpoEmail = strNpoEmail & " " strNpoEmail = strNpoEmail & " " strNpoEmail = strNpoEmail & "" strNpoEmail = strNpoEmail & "" strNpoEmail = strNpoEmail & "" strNpoEmail = strNpoEmail & "" strNpoEmail = strNpoEmail & " " strNpoEmail = strNpoEmail & "" strNpoEmail = strNpoEmail & "" strNpoEmail = strNpoEmail & "" strNpoEmail = strNpoEmail & "" strNpoEmail = strNpoEmail & "" strNpoEmail = strNpoEmail & "" strNpoEmail = strNpoEmail & "" strNpoEmail = strNpoEmail & "" strNpoEmail = strNpoEmail & "

" strNpoEmail = strNpoEmail & "

Your information has been submitted to VIP PowerNet." strNpoEmail = strNpoEmail & " Please allow 2-3 business days to review and post your Non Profit " strNpoEmail = strNpoEmail & "Organization online. Once your organization is approved you will be able to login to your backend from the website." strNpoEmail = strNpoEmail & "If you have any further questions then you can call us at 713-787-6501 or email us at npo@vippowernet.com.

" strNpoEmail = strNpoEmail & "Thank You for submitting your information!

" strNpoEmail = strNpoEmail & "

" strNpoEmail = strNpoEmail & "" strNpoEmail = strNpoEmail & "

" strNpoEmail = strNpoEmail & "" strNpoEmail = strNpoEmail & "" set preRenMail = server.createObject("CDONTS.NewMail") preRenMail.To = Email preRenMail.From = "no_response@vippn.com" preRenMail.subject = "NPO Registration" preRenMail.BodyFormat = 0 preRenMail.MailFormat = 0 preRenMail.Body = strNpoEmail preRenMail.Send set preRenMail = nothing 'Response.Clear 'Response.Write strNpoEmail 'Response.End '================================================ 'Email to the npo@vippowernet.com with NPO info. '+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ strNpoInfo = "" strNpoInfo = strNpoInfo & "" strNpoInfo = strNpoInfo & "" strNpoInfo = strNpoInfo & "" strNpoInfo = strNpoInfo & "" strNpoInfo = strNpoInfo & "" strNpoInfo = strNpoInfo & "

" strNpoInfo = strNpoInfo & "

" strNpoInfo = strNpoInfo & "" strNpoInfo = strNpoInfo & "" strNpoInfo = strNpoInfo & "

" strNpoInfo = strNpoInfo & "

" strNpoInfo = strNpoInfo & "" strNpoInfo = strNpoInfo & " " strNpoInfo = strNpoInfo & " " strNpoInfo = strNpoInfo & "" strNpoInfo = strNpoInfo & "

" strNpoInfo = strNpoInfo & "

" strNpoInfo = strNpoInfo & " " strNpoInfo = strNpoInfo & " " strNpoInfo = strNpoInfo & " " strNpoInfo = strNpoInfo & " " strNpoInfo = strNpoInfo & " " strNpoInfo = strNpoInfo & " " strNpoInfo = strNpoInfo & " " strNpoInfo = strNpoInfo & " " strNpoInfo = strNpoInfo & " " strNpoInfo = strNpoInfo & " " strNpoInfo = strNpoInfo & " " strNpoInfo = strNpoInfo & "" strNpoInfo = strNpoInfo & " " strNpoInfo = strNpoInfo & " " strNpoInfo = strNpoInfo & " " strNpoInfo = strNpoInfo & " " strNpoInfo = strNpoInfo & " " strNpoInfo = strNpoInfo & " " strNpoInfo = strNpoInfo & " " strNpoInfo = strNpoInfo & "" strNpoInfo = strNpoInfo & " " strNpoInfo = strNpoInfo & " " strNpoInfo = strNpoInfo & " " strNpoInfo = strNpoInfo & " " strNpoInfo = strNpoInfo & " " strNpoInfo = strNpoInfo & " " strNpoInfo = strNpoInfo & " " strNpoInfo = strNpoInfo & "" strNpoInfo = strNpoInfo & " " strNpoInfo = strNpoInfo & " " strNpoInfo = strNpoInfo & " " strNpoInfo = strNpoInfo & " " strNpoInfo = strNpoInfo & " " strNpoInfo = strNpoInfo & " " strNpoInfo = strNpoInfo & " " strNpoInfo = strNpoInfo & "" strNpoInfo = strNpoInfo & " " strNpoInfo = strNpoInfo & " " strNpoInfo = strNpoInfo & " " strNpoInfo = strNpoInfo & " " strNpoInfo = strNpoInfo & "

" strNpoInfo = strNpoInfo & " Registration Info " strNpoInfo = strNpoInfo & "
" strNpoInfo = strNpoInfo & "Login ID:	" strNpoInfo = strNpoInfo & uname & "
" strNpoInfo = strNpoInfo & "Password:	" & pass & "
" strNpoInfo = strNpoInfo & "NPO Name:	" strNpoInfo = strNpoInfo & orgname & "
" strNpoInfo = strNpoInfo & "NPO Contact Name:	" & contactperson & "
" strNpoInfo = strNpoInfo & "NPO Phone Number:	" strNpoInfo = strNpoInfo & phone & "
" strNpoInfo = strNpoInfo & "NPO Email:	" & email & "
" strNpoInfo = strNpoInfo & "NPO Web Address:	" strNpoInfo = strNpoInfo & websiteUrl & "
" strNpoInfo = strNpoInfo & "NPO Referral Id:	" & finalval & "
" strNpoInfo = strNpoInfo & "NPO Address:	" strNpoInfo = strNpoInfo & address & "

" strNpoInfo = strNpoInfo & "

Your information has been submitted to VIP PowerNet." strNpoInfo = strNpoInfo & " Please allow 2-3 business days to review and post your Non Profit " strNpoInfo = strNpoInfo & "Organization online. Once your organization is approved you will be able to login to your backend from the website." strNpoInfo = strNpoInfo & "If you have any further questions then you can call us at 713-787-6501 or email us at npo@vippowernet.com.

" strNpoInfo = strNpoInfo & "Thank You for submitting your information!

" strNpoInfo = strNpoInfo & "

" strNpoInfo = strNpoInfo & "" strNpoInfo = strNpoInfo & "

" strNpoInfo = strNpoInfo & "" strNpoInfo = strNpoInfo & "" set npoEmailobj = server.createObject("CDONTS.NewMail") npoEmailobj.To = "npo@vippowernet.com" npoEmailobj.Bcc = "nandip@vippowernet.com" npoEmailobj.From = "no_response@vippn.com" npoEmailobj.subject = "NPO Registration Info." npoEmailobj.BodyFormat = 0 npoEmailobj.MailFormat = 0 npoEmailobj.Body = strNpoInfo npoEmailobj.Send set npoEmailobj = nothing 'Response.Clear 'Response.Write strNpoInfo 'Response.End '================================================ session("dispMsg") = "" Response.Redirect "nporegister.asp?mode=message" else session("dispMsg") = "The 'Login Id' that you typed in already exists

" end if End If %> VIP PowerNet - NPO Register

<% if Request.QueryString("mode")= "message" then msg = "

Thank you for filling the necessary information

A VIP PowerNet representative will contact you shortly
and let you know if you have been approved" Response.Write msg Response.End end if %>

<%= msg %> <%=session("dispMsg")%> *denotes required field

General Information
Name of Organization *
Please classify your organization *
Address *
Address Line 2
City *	State *
Zip/Postal Code *	-
Phone Number *	(e.g. (XXX) XXX-XXXX)
General Email Address	(e.g. XXX@XXXXX.org)
Web site Address	http:// (e.g. www.vippowernet.com)
Primary Contact Information
Firstname*
LastName*
Email Address *	(e.g. XXX@XXXXX.org)
Miscellaneous Information This will appear on your profile page on the VIP PowerNet site. Please ensure your statement is 1000 characters or less. *

Login Information
Login Id *
Password *
Confirm Password *


	No Cost! No Risk!
	Continuous revenue Stream
	Communicate instantly with supporters!
	Instant accountability
	Savings for your supporters!