<%@ language="vbscript"%>

<%if Request("userid") = "" then Response.Redirect "default.asp"%>

<!--#include file=DataStore.asp-->

<%
Dim sUserID
sUserID = Request("userid")

Dim sSchoolID
sSchoolID = Request("schoolid")

if sSchoolID = "" then sSchoolID = 0 else sSchoolID = Request("schoolid")

Dim objConn 'Connection Object
Dim rsSchool   'Recordset Object	

'create the connection object
Set objConn = Server.CreateObject("ADODB.Connection")

'and open it
	if objConn.State = 0 then	'only open if the connection is closed
		objConn.Open sConnect
	end if

'Create the recordset object
Set rsSchool = Server.CreateObject("ADODB.Recordset")

'and open the SCHOOL table
rsSchool.Open "SCHOOL", objConn, 0, 3

'Filter the recordset and verify if information has already been saved with this user id
rsSchool.Filter = "schoolid = " & sSchoolID

Dim bNew
bNew = False
'test if recordset is empty
if rsSchool.EOF then
	'there is no record for this person add his information
	rsSchool.AddNew
	bNew = True
end if

'store new/modified information
rsSchool("manager_id")= Trim(sUserID)
rsSchool("name")= Request.Form("txtName")
rsSchool("address1") = Request.Form("txtAddress1")
rsSchool("address2")= Request.Form("txtAddress2")
rsSchool("city")= Request.Form("txtCity")
rsSchool("state")=Request.Form("cboState")
rsSchool("zip")= Request.Form("txtZipCode")
if bNew then
	rsSchool("website")= "http://" & Request.Form("txtWebSite")
else
	rsSchool("website")= Request.Form("txtWebSite")
end if
rsSchool("contact_name")= Request.Form("txtContactName")
rsSchool("contact_email")= Request.Form("txtContactEmail")
rsSchool("contact_areacode")= Request.Form("txtContactAreaCode")
rsSchool("contact_phone")= Request.Form("txtContactPhone")
rsSchool("dateregistered")= date()
rsSchool("active")= -1
'end store
rsSchool.Update

rsSchool.Close
objConn.Close

if bNew then Response.Redirect "schlist.asp?userid=" & sUserID else Response.Redirect "schlist.asp?userid=" & sUserID
%>