[Okta Webinar] Learn how to a build a cloud-first strategyRegister Now

x
?
Solved

Server object error 'ASP 0177 : 800401f3'

Posted on 2009-02-16
7
Medium Priority
?
1,708 Views
Last Modified: 2013-11-19
When loading an asp page I receive the message below.

Server object error 'ASP 0177 : 800401f3'

Server.CreateObject Failed

xxx\xxx.asp, line 84

800401f3
<%@ Language=VBScript %>
<!-- #INCLUDE FILE="data_globals.asp"-->
<% Response.Expires = 0
 
Session("Action_Message") = ""
 
On Error Resume Next
 
'Variables
strUserMsg = ""
blnPropNameErr = false
strPropNameErr = ""
blnPropAddr1Err = False
strPropAddr1Err = ""
blnPropAddr2Err = False
strPropAddr2Err = ""
blnPropCityErr = False
strPropCityErr = ""
blnPropStateErr = False
strPropStateErr = ""
blnPropZipErr = False
strPropZipErr = ""
blnLContactErr = false
strLContactErr = ""
blnLCompanyErr = False
strLCompanyErr = ""
blnLAddr1Err = False
strLAddr1Err = ""
blnLCityErr = False
strLCityErr = ""
blnLStateErr = False
strLStateErr = ""
blnLZipErr = False
strLZipErr = ""
blnMContactErr = false
strMContactErr = ""
blnMCompanyErr = False
strMCompanyErr = ""
blnMAddr1Err = False
strMAddr1Err = ""
blnMCityErr = False
strMCityErr = ""
blnMStateErr = False
strMStateErr = ""
blnMZipErr = False
strMZipErr = ""
strMZip = ""
blnNumberOfTenantsErr = False
strNumberOfTenantsErr = ""
blnTotSqrFootErr = False
strImagePath = "xxx"
strImageName = ""
iRDId = 0
 
'Objects
Dim oCn, oRsPm, oRsRet, oCmd, Upload
Set oCn = Server.CreateObject("ADODB.COnnection")
oCn.Open(sDSN)
 
'Load Data from Database
If Request.QueryString("S") = 1 Then
	'Query PropertyMaster
	Set oCmd = Server.CreateObject("ADODB.Command")
	oCmd.ActiveConnection = oCn
	
	oCmd.CommandText = "SelectPropertyMaster"
	oCmd.CommandType = 4
	
	oCmd.Parameters.Append oCmd.CreateParameter("MPID", 3, 1, , Session("MPId"))
	
	Set oRsPm = oCmd.Execute
	'Set Variables
	strPropName = Trim(oRsPm("PropertyName"))
	strPropAddr1 = Trim(oRsPm("Addr1"))
	strPropAddr2 = Trim(oRsPm("Addr2"))
	strPropCity = Trim(oRsPm("City"))
	strPropState = Trim(oRsPm("State"))
	strPropZip = Trim(oRsPm("Zip"))
	strPropType = Trim(oRsPm("PropertyType"))
	strMonth = Trim(oRsPm("AquisitionMonth"))
	If IsNull(oRsPm("AquisitionDay")) Then
		iDay = 0
	Else
		iDay = Cint(oRsPm("AquisitionDay"))
	End If
	If IsNull(oRsPm("AquisitionYear")) Then
		iYear = 0
	Else
		iYear = Cint(oRsPm("AquisitionYear"))
	End If
	
	Set oRsPm = Nothing
	Set oCmd = Nothing
	
	'Query CommRetailProperty
	Set oCmd = Server.CreateObject("ADODB.Command")
	oCmd.ActiveConnection = oCn
	
	oCmd.CommandText = "SelectCommRetailPropertyByPropertyMaster"
	oCmd.CommandType = 4
	
	oCmd.Parameters.Append oCmd.CreateParameter("MPID", 3, 1, , Session("MPId"))
	
	Set oRsRet = oCmd.Execute
	
	'Load Variables
	Session("CRId") = Trim(oRsRet("CommRetId"))
	strLContact = Trim(oRsRet("LeasingContact"))
	strLCompany = Trim(oRsRet("LeasingCOmpany"))
	strLAddr1 = Trim(oRsRet("LeasingAddr1"))
	strLAddr2 = Trim(oRsRet("LeasingAddr2"))
	strLCity = Trim(oRsRet("LeasingCity"))
	strLState = Trim(oRsRet("LeasingState"))
	strLZip = Trim(oRsRet("LeasingZip"))
	strLPhone = Trim(oRsRet("LeasingPhone"))
	strLFax = Trim(oRsRet("LeasingFax"))
	strLEmail = Trim(oRsRet("LeasingEmail"))
	strMContact = Trim(oRsRet("ManagementContact"))
	strMCompany = Trim(oRsRet("ManagementCompany"))
	strMAddr1 = Trim(oRsRet("ManagementAddr1"))
	strMAddr2 = Trim(oRsRet("ManagementAddr2"))
	strMCity = Trim(oRsRet("ManagementCity"))
	strMState = Trim(oRsRet("ManagementState"))
	strMZip = Trim(oRsRet("ManagementZip"))
	strMPhone = Trim(oRsRet("ManagementPhone"))
	strMFax = Trim(oRsRet("ManagementFax"))
	strMEmail = Trim(oRsRet("ManagementEmail"))
	if IsNull(oRsRet("NumberOfTenants")) Then
		strNumberOfTenants = ""
	Else
		strNumberOfTenants = Cint(oRsRet("NumberOfTenants"))
	End If
	strTotSqrFoot = Trim(oRsRet("TotalSqrFootage"))
	
	IF Trim(oRsRet("FloorPlanImageName")) = "" Then
		strFloorPlan = ""
	Else
		strFloorPlan = Trim(oRsRet("FloorPlanImageName"))
	End If
	
	Set oRsRet = Nothing
	Set oCmd = Nothing
	
	'Query RetailDetails
	Set oCmd = Server.CreateObject("ADODB.Command")
	oCmd.ActiveConnection = oCn
	
	oCmd.CommandText = "SelectRetailDetailsByCommRetId"
	oCmd.CommandType = 4
	
	oCmd.Parameters.Append oCmd.CreateParameter("CRID", 3, 1, , Session("CRId"))
	
	Set oRsRet = oCmd.Execute
	
	'Load Variables
	iRDId = Cint(oRsRet("RetailDetailsId"))
	strStartingRates = Trim(oRsRet("StartingRates"))
	strPopulation = Trim(oRsRet("Population"))
	strIncome = Trim(oRsRet("AvgHouseIncome"))
	strTraffic = Trim(oRsRet("AvgTraffic"))
	
	if Err.number <> 0 then
		strUserMsg = "An Error occured while loading the property<BR>"
		strUserMsg = strUserMsg & Err.source & " - " & Err.description
	End if
	
	Set oRsRet = Nothing
	Set oCmd = Nothing
	Set oCn = Nothing
	
End If
 
'Update data
If Request.QueryString("S") = 2 Then
 
	set Upload = Server.CreateObject("Persits.Upload.1")
	Upload.Overwritefiles = True
	Upload.Save (strImagePath)
	
	'Check for uploaded file
	if Upload.Files.Count >= 1 then
		aryPathData=Split(Upload.Files(1).path, "\")
		iTop=Ubound(aryPathData)
		strImageName=aryPathData(iTop)
		aryPathData = ""
	End if
 
	'PropertyMaster
	strPropName = Trim(Upload.Form("txtPropName"))
	strPropAddr1 = Trim(Upload.Form("txtPropAddr1"))
	strPropAddr2 = Trim(Upload.Form("txtPropAddr2"))
	strPropCity = Trim(Upload.Form("txtPropCity"))
	strPropState = Upload.Form("selPropState")
	strPropZip = Trim(Upload.Form("txtPropZip"))
	strPropType = Upload.Form("hdnPropType")
	strMonth = ""
	iDay = 0
	if trim(Upload.Form("selYear")) = "" Then
		iYear = 0
	Else
		iYear = Cint(Upload.Form("selYear"))
	end if		
	
	'CommRetailProperty
	strLContact = Trim(Upload.Form("txtLContact"))
	strLCompany = Trim(Upload.Form("txtLCompany"))
	strLAddr1 = Trim(Upload.Form("txtLAddr1"))
	strLAddr2 = Trim(Upload.Form("txtLAddr2"))
	strLCity = Trim(Upload.Form("txtLCity"))
	strLState = Upload.Form("selLState")
	strLZip = Trim(Upload.Form("txtLZip"))
	strLPhone = Trim(Upload.Form("txtLPhone"))
	strLFax = Trim(Upload.Form("txtLFax"))
	strLEmail = Trim(Upload.Form("txtLEmail"))
	strMContact = Trim(Upload.Form("txtMContact"))
	strMCompany = Trim(Upload.Form("txtMCompany"))
	strMAddr1 = Trim(Upload.Form("txtMAddr1"))
	strMAddr2 = Trim(Upload.Form("txtMAddr2"))
	strMCity = Trim(Upload.Form("txtMCity"))
	strMState = Upload.Form("selMState")
	strMZip = Trim(Upload.Form("txtMZip"))
	strMPhone = Trim(Upload.Form("txtMPhone"))
	strMFax = Trim(Upload.Form("txtMFax"))
	strMEmail = Trim(Upload.Form("txtMEmail"))
	strFloorPlan = strImageName 
	
	if strImageName = "" then strImageName = Null
	if trim(Upload.Form("RemoveFloorplan")) = "True" then strImageName = ""	
	
	If Trim(Upload.Form("txtNumberOFTenants")) = "" Then
		strNumberOfTenants = NULL
	Else
		if IsNumeric(Upload.Form("txtNumberOfTenants")) Then
			strNumberOfTenants = Cint(Upload.Form("txtNumberOfTenants"))
		else
			strNumberOfTenants = NULL
		End IF
	End If
	
	strTotSqrFoot = Trim(Upload.Form("txtTotSqrFoot"))
	
	'RetailDetail
	iRDId = Trim(Upload.Form("hdRetailDetailsId"))
	strStartingRates = Trim(Upload.Form("txtStartingRates"))
	strPopulation = Trim(Upload.Form("txtPopulation"))
	strIncome = Trim(Upload.Form("txtIncome"))
	strTraffic = Trim(Upload.Form("txtTraffic"))
 
	iErrCount = 0
	'Validations
	Select Case True
		Case strPropName = ""
			strPropNameErr = "Required Field"
			blnPropNameErr = True
			iErrCount = 1
			
		Case strPropAddr1 = ""
			strPropAddr1Err = "Required Field"
			blnPropAddr1Err = True
			iErrCount = 1
			
		Case strPropCity = ""
			blnPropCityErr = True
			strPropCityErr = "Required Field"
			iErrCount = 1
		
		Case strPropState = "0"
			blnPropStateErr = True
			strPropStateErr = "Required Field"
			iErrCount = 1
			
		Case strPropZip = ""
			blnPropZipErr = True
			strPropZipErr = "Required Field"
			iErrCount = 1
		
		Case strLContact = ""
			blnLContactErr = True
			strLContactErr = "Required Field"
			iErrCount = 1
		
		Case strLCompany = ""
			blnLCompanyErr = True
			strLComapnyErr = "Required Field"
			iErrCount = 1
		
		Case strLAddr1 = ""
			blnLAddr1Err = True
			strLAddr1Err = "Required Field"
			iErrCount = 1
		
		Case strLCity = ""
			blnLCity = True
			strLCity = "Required Field"
			iErrCount = 1
		
		Case strLState = "0"
			blnLStateErr = True
			strLStateErr = "Required Field"
			iErrCount = 1
		
		Case strLZip = ""
			blnLStateErr = True
			strLStateErr = "Required Field"
			iErrCount = 1
		
		Case strMContact = ""
			blnMContactErr = True
			strMContactErr = "Required Field"
			iErrCount = 1
		
		Case strMCompany = ""
			blnMCompanyErr = True
			strMComapnyErr = "Required Field"
			iErrCount = 1
		
		Case strMAddr1 = ""
			blnMAddr1Err = True
			strMAddr1Err = "Required Field"
			iErrCount = 1
		
		Case strMCity = ""
			blnMCity = True
			strMCity = "Required Field"
			iErrCount = 1
		
		Case strMState = "0"
			blnMStateErr = True
			strMStateErr = "Required Field"
			iErrCount = 1
		
		Case strMZip = ""
			blnMStateErr = True
			strMStateErr = "Required Field"
			iErrCount = 1
		
		Case Trim(strNumberOfTenants) <> "" 
			If not IsNumeric(strNumberOfTenants) Then
				blnNumberOfTenantsErr = True
				strNumberOfTenantsErr = "Must be numeric"
				iErrCount = 1
			End If
	End Select
	
	If iErrCount = 0 Then
		'Save Changes PropertyMaster
		Set oCmd = Server.CreateObject("ADODB.Command")
		oCmd.ActiveConnection = oCn
 
		oCmd.CommandText = "UpdatePropertyMaster"
		oCmd.CommandType = 4
		
		oCmd.Parameters.Append oCmd.CreateParameter("MPId", 3, 1, , Session("MPId"))
		oCmd.Parameters.Append oCmd.CreateParameter("Name", 129, 1, 256, strPropName)
		oCmd.Parameters.Append oCmd.CreateParameter("Addr1", 129, 1, 256, strPropAddr1)
		oCmd.Parameters.Append oCmd.CreateParameter("Addr2", 129, 1, 256, strPropAddr2)
		oCmd.Parameters.Append oCmd.CreateParameter("City", 129, 1, 256, strPropCity)
		oCmd.Parameters.Append oCmd.CreateParameter("State", 129, 1, 100, strPropState)
		oCmd.Parameters.Append oCmd.CreateParameter("zip", 129, 1, 25, strPropZip)
		oCmd.Parameters.Append oCmd.CreateParameter("type", 129, 1, 6, strPropType)
		oCmd.Parameters.Append oCmd.CreateParameter("month", 129, 1, 30, strMonth)
		oCmd.Parameters.Append oCmd.CreateParameter("day", 3, 1, , iDay)
		oCmd.Parameters.Append oCmd.CreateParameter("year", 3, 1, , iYear)
 
		oCmd.Execute
		
		if Err.number <> 0 then
			strUserMsg = "An Error occured while updating PropertyMaster<BR>"
			strUserMsg = strUserMsg & Err.source & " - " & Err.description
			strUserMsg = strUserMsg & "<BR>The Data were not saved<BR>"
			Set oCmd= Nothing
			Set oCn = nothing
			Response.End
		End if
		
		Set oCmd = Nothing
		
		'Save Changes CommRetailProperty
		Set oCmd = Server.CreateObject("ADODB.Command")
		oCmd.ActiveConnection = oCn
 
		oCmd.CommandText = "UpdateCommRetailProperty"
		oCmd.CommandType = 4
		
		oCmd.Parameters.Append oCmd.CreateParameter("CommRetId", 3, 1, , Session("CRId"))
		oCmd.Parameters.Append oCmd.CreateParameter("MPId", 3, 1, , Session("MPId"))
		oCmd.Parameters.Append oCmd.CreateParameter("LContact", 129, 1, 255, strLContact)
		oCmd.Parameters.Append oCmd.CreateParameter("LCompany", 129, 1, 255, strLCompany)
		oCmd.Parameters.Append oCmd.CreateParameter("LAddr1", 129, 1, 255, strLAddr1)
		oCmd.Parameters.Append oCmd.CreateParameter("LAddr2", 129, 1, 255, strLAddr2)
		oCmd.Parameters.Append oCmd.CreateParameter("LCity", 129, 1, 255, strLCity)
		oCmd.Parameters.Append oCmd.CreateParameter("LState", 129, 1, 100, strLState)
		oCmd.Parameters.Append oCmd.CreateParameter("LZip", 129, 1, 25, strLZip)
		oCmd.Parameters.Append oCmd.CreateParameter("LPhone", 129, 1, 25, strLPhone)
		oCmd.Parameters.Append oCmd.CreateParameter("LFax", 129, 1, 25, strLFax)
		oCmd.Parameters.Append oCmd.CreateParameter("LEmail", 129, 1, 100, strLEmail)
		oCmd.Parameters.Append oCmd.CreateParameter("MContact", 129, 1, 255, strMContact)
		oCmd.Parameters.Append oCmd.CreateParameter("MCompany", 129, 1, 255, strMCompany)
		oCmd.Parameters.Append oCmd.CreateParameter("MAddr1", 129, 1, 255, strMAddr1)
		oCmd.Parameters.Append oCmd.CreateParameter("MAddr2", 129, 1, 255, strMAddr2)
		oCmd.Parameters.Append oCmd.CreateParameter("MCity", 129, 1, 255, strMCity)
		oCmd.Parameters.Append oCmd.CreateParameter("MState", 129, 1, 100, strMState)
		oCmd.Parameters.Append oCmd.CreateParameter("MZip", 129, 1, 25, strMZip)
		oCmd.Parameters.Append oCmd.CreateParameter("MPhone", 129, 1, 25, strMPhone)
		oCmd.Parameters.Append oCmd.CreateParameter("MFax", 129, 1, 25, strMFax)
		oCmd.Parameters.Append oCmd.CreateParameter("MEmail", 129, 1, 100, strMEmail)
		oCmd.Parameters.Append oCmd.CreateParameter("NoTenants", 3, 1, , strNumberOfTenants)
		oCmd.Parameters.Append oCmd.CreateParameter("SqrFeet", 129, 1, 255, strTotSqrFoot)
		oCmd.Parameters.Append oCmd.CreateParameter("ImageName", 129, 1, 100, strImageName)
		oCmd.Parameters.Append oCmd.CreateParameter("ImagePath", 129, 1, 255, strImagePath)
		oCmd.Parameters.Append oCmd.CreateParameter("CommOrRet", 129, 1, 1, "R") 'Set To Retail
 
		oCmd.Execute
		
		If Err.number <> 0 Then
			strUserMsg = "An Error occured while updating CommRetailProperty<BR>"
			strUserMsg = strUserMsg & Err.source & " - " & Err.description
			strUserMsg = strUserMsg & "<BR>The Residential Data were not saved<BR>"
			Set oCmd= Nothing
			Set oCn = nothing
			Response.End
		End if
		
		'Save Changes RetailDetails
		Set oCmd = Server.CreateObject("ADODB.Command")
		oCmd.ActiveConnection = oCn
 
		oCmd.CommandText = "UpdateRetailDetails"
		oCmd.CommandType = 4
		
		oCmd.Parameters.Append oCmd.CreateParameter("RetailDetailsId", 3, 1, , iRDId)
		oCmd.Parameters.Append oCmd.CreateParameter("ComRetId", 3, 1, , Session("CRId"))
		oCmd.Parameters.Append oCmd.CreateParameter("MPId", 3, 1, , Session("MPId"))
		oCmd.Parameters.Append oCmd.CreateParameter("Rates", 129, 1, 255, strStartingRates)
		oCmd.Parameters.Append oCmd.CreateParameter("Pop", 129, 1, 255, strPopulation)
		oCmd.Parameters.Append oCmd.CreateParameter("Income", 129, 1, 255, strIncome)
		oCmd.Parameters.Append oCmd.CreateParameter("Traffic", 129, 1, 255, strTraffic)
		
		oCmd.Execute
		
		If Err.number <> 0 Then
			strUserMsg = "An Error occured while updating RetailDetails<BR>"
			strUserMsg = strUserMsg & Err.source & " - " & Err.description
			strUserMsg = strUserMsg & "<BR>The Residential Data were not saved<BR>"
			Set oCmd= Nothing
			Set oCn = nothing
			Response.End
		End if
		
		'Redirect back to Main and display message
		Session("Action_Message") = "Update Successful"
		Set oCmd = Nothing 
		Set oCn = Nothing
		Response.Redirect("main.asp")
		
	Else
		strUserMsg = "Input Error"
	End IF
End IF
 
'Deleting
If Request.QueryString("S") = 3 then 
	'Delete Property
	Set oCmd = Server.CreateObject("ADODB.Command")
	
	oCmd.ActiveConnection = oCn
	oCmd.CommandText = "DeletePropertyMaster"
	oCmd.CommandType = 4
	
	oCmd.Parameters.Append oCmd.CreateParameter("PMId", 3, 1, , Session("MPID"))
	oCmd.Execute
	
	If Err.number <> 0 then
		strUserMsg = "An Error occured while Deleting from PropertyMaster<BR>"
		strUserMsg = strUserMsg & Err.source & " - " & Err.description
		strUserMsg = strUserMsg & "<BR>The property was not deleted<BR>"
		Set oCmd= Nothing
		Set oCn = nothing
		Response.End
	End if
	
	Set oCmd = Nothing
	Set oCn = Nothing
	Session("Action_Message") = "Delete Successful"
	Response.Redirect("main.asp")
	
End If
 
%>
 
<HTML>
	<HEAD>
		<TITLE>
			<%=strTitle%>
		</TITLE>
	</HEAD>
 
<LINK REL="stylesheet" TYPE="text/css" HREF="style.css">
<SCRIPT Language="JavaScript">
function Delete()
{
	var ConfirmAction
	ConfirmAction = confirm("Are you sure you would like to permanently remove this property?")
	if (ConfirmAction)
		{
			document.frmEditRet.action="edit_ret_property.asp?S=3"
			document.frmEditRet.encoding = "application/x-www-form-urlencoded"
			document.frmEditRet.submit()
		}
}
 
function Update()
{
	var ConfirmAction
	ConfirmAction = confirm("Are you sure you want to change the property data?")
	if (ConfirmAction)
		{
			document.frmEditRet.action="edit_ret_property.asp?S=2"
			document.frmEditRet.encoding = "multipart/form-data"
			document.frmEditRet.submit()
		}
}
 
</SCRIPT>
<BODY>
<H1><%=strTitle%></H1>
<table width="600">
	<tr>	
		<td class="header">
			Edit Retail Property
		</td>
	</tr>
	<tr>
		<td>
			The Required fields are Red
		</td>
	</tr>
</table>
<Table Width="600">
	<TR>
		<TD Align=Right>
			<a href="add_property.asp">Add New Property</a>
			<% if Session("IsAdmin") then %>
			<a href="user_management.asp">Manage Users</a>
			<% end If %>
			<a href="main.asp">Main Menu</a>
		</TD>
	</TR>
</TABle>
<Span Class="errorbig"><%=strUSerMsg%></span>
<form name="frmEditRet" method=post>
<Table Width="600">
	<TR>
		<TD Align=center colspan=2><B>Retail Property Data</B></TD>
	</TR>
	<TR <%if blnPropNameErr then%> class="errorline" <%end if%>>
		<TD class="requiredField" align="right"  nowrap>
			Property Name
		</TD>
		<TD nowrap>
			<INPUT type="text" name="txtPropName" value="<%=strPropName%>" size=60 maxlength=255><span class="errortext"><%=strPropNameErr%></Span>
			<INPUT Type="hidden" name="hdResPropId" Value=<%=iResPropId%>>
		</TD>
	<TR>
	<TR <%if blnPropAddr1Err then%> class="errorline" <%end if%>>
		<TD class="requiredField" align="right"  nowrap>
			Property Address
		</TD>
		<TD nowrap>
			<INPUT type="text" name="txtPropAddr1" value="<%=strPropAddr1%>" size=60 maxlength=255><span class="errortext"><%=strPropAddr1Err%></Span>
		</TD>
	<TR>
	<TR <%if blnPropAddr2Err then%> class="errorline" <%end if%>>
		<TD align="right"  nowrap>
			Property Address 2
		</TD>
		<TD nowrap>
			<INPUT type="text" name="txtPropAddr2" value="<%=strPropAddr2%>" size=60 maxlength=255><span class="errortext"><%=strPropAddr2Err%></Span>
		</TD>
	<TR>
	<TR <%if blnPropCityErr then%> class="errorline" <%end if%>>
		<TD class="requiredField" align="right" nowrap>
			Property City
		</TD>
		<TD nowrap>
			<INPUT type="text" name="txtPropCity" value="<%=strPropCity%>" size=60 maxlength=255><span class="errortext"><%=strPropCityErr%></Span>
		</TD>
	<TR>
	<tr <%if blnPropStateErr then %>Class="errorline"<%end if%>>
		<td class="requiredField" align=right nowrap>
			Property State
		</td>
		<td nowrap>
			<select name=selPropState>
			    <option value="0" > -- States --
			    <option value="AL" <%if strPropState = "AL" then Response.Write(" SELECTED")%>> Alabama
			    <option value="AK" <%if strPropState = "AK" then Response.Write(" SELECTED")%> > Alaska
			    <option value="AZ" <%if strPropState = "AZ" then Response.Write(" SELECTED")%>> Arizona
			    <option value="AR" <%if strPropState = "AR" then Response.Write(" SELECTED")%> > Arkansas
			    <option value="CA" <%if strPropState = "CA" then Response.Write(" SELECTED")%> > California
			    <option value="CO" <%if strPropState = "CO" then Response.Write(" SELECTED")%> > Colorado
			    <option value="CT" <%if strPropState = "CT" then Response.Write(" SELECTED")%> > Connecticut
			    <option value="DE" <%if strPropState = "DE" then Response.Write(" SELECTED")%> > Delaware
			    <option value="DC" <%if strPropState = "DC" then Response.Write(" SELECTED")%> > District of Columbia
			    <option value="FL" <%if strPropState = "FL" then Response.Write(" SELECTED")%> > Florida
			    <option value="GA" <%if strPropState = "GA" then Response.Write(" SELECTED")%> > Georgia
			    <option value="HI" <%if strPropState = "HI" then Response.Write(" SELECTED")%> > Hawaii
			    <option value="ID" <%if strPropState = "ID" then Response.Write(" SELECTED")%> > Idaho
			    <option value="IL" <%if strPropState = "IL" then Response.Write(" SELECTED")%> > Illinois
			    <option value="IN" <%if strPropState = "IN" then Response.Write(" SELECTED")%> > Indiana
			    <option value="IA" <%if strPropState = "IA" then Response.Write(" SELECTED")%> > Iowa
			    <option value="KS" <%if strPropState = "KS" then Response.Write(" SELECTED")%> > Kansas
			    <option value="KY" <%if strPropState = "KY" then Response.Write(" SELECTED")%> > Kentucky
			    <option value="LA" <%if strPropState = "LA" then Response.Write(" SELECTED")%> > Louisiana
			    <option value="ME" <%if strPropState = "AL" then Response.Write(" SELECTED")%> > Maine
			    <option value="MD" <%if strPropState = "MD" then Response.Write(" SELECTED")%> > Maryland
			    <option value="MA" <%if strPropState = "MA" then Response.Write(" SELECTED")%> > Massachusetts
			    <option value="MI" <%if strPropState = "MI" then Response.Write(" SELECTED")%> > Michigan
			    <option value="MN" <%if strPropState = "MN" then Response.Write(" SELECTED")%> > Minnesota
			    <option value="MS" <%if strPropState = "MS" then Response.Write(" SELECTED")%> > Mississippi
			    <option value="MO" <%if strPropState = "MO" then Response.Write(" SELECTED")%> > Missouri
			    <option value="MT" <%if strPropState = "MT" then Response.Write(" SELECTED")%> > Montana
			    <option value="NE" <%if strPropState = "NE" then Response.Write(" SELECTED")%> > Nebraska
			    <option value="NV" <%if strPropState = "NV" then Response.Write(" SELECTED")%> > Nevada
			    <option value="NH" <%if strPropState = "NH" then Response.Write(" SELECTED")%> > New Hampshire
			    <option value="NJ" <%if strPropState = "NJ" then Response.Write(" SELECTED")%> > New Jersey
			    <option value="NM" <%if strPropState = "NM" then Response.Write(" SELECTED")%> > New Mexico
			    <option value="NY" <%if strPropState = "NY" then Response.Write(" SELECTED")%> > New York
			    <option value="NC" <%if strPropState = "NC" then Response.Write(" SELECTED")%> > North Carolina
			    <option value="ND" <%if strPropState = "ND" then Response.Write(" SELECTED")%> > North Dakota
			    <option value="OH" <%if strPropState = "OH" then Response.Write(" SELECTED")%> > Ohio
			    <option value="OK" <%if strPropState = "OK" then Response.Write(" SELECTED")%> > Oklahoma
			    <option value="OR" <%if strPropState = "OR" then Response.Write(" SELECTED")%> > Oregon
			    <option value="PA" <%if strPropState = "PA" then Response.Write(" SELECTED")%> > Pennsylvania
			    <option value="PR" <%if strPropState = "PR" then Response.Write(" SELECTED")%> > Puerto Rico
			    <option value="RI" <%if strPropState = "RI" then Response.Write(" SELECTED")%> > Rhode Island
			    <option value="SC" <%if strPropState = "SC" then Response.Write(" SELECTED")%> > South Carolina
			    <option value="SD" <%if strPropState = "SD" then Response.Write(" SELECTED")%> > South Dakota
			    <option value="TN" <%if strPropState = "TN" then Response.Write(" SELECTED")%> > Tennessee
			    <option value="TX" <%if strPropState = "TX" then Response.Write(" SELECTED")%> > Texas
			    <option value="UT" <%if strPropState = "UT" then Response.Write(" SELECTED")%> > Utah
			    <option value="VT" <%if strPropState = "VT" then Response.Write(" SELECTED")%> > Vermont
			    <option value="VA" <%if strPropState = "VA" then Response.Write(" SELECTED")%> > Virginia
			    <option value="WA" <%if strPropState = "WA" then Response.Write(" SELECTED")%> > Washington
			    <option value="WV" <%if strPropState = "WV" then Response.Write(" SELECTED")%> > West Virginia
			    <option value="WI" <%if strPropState = "WI" then Response.Write(" SELECTED")%> > Wisconsin
			    <option value="WY" <%if strPropState = "WY" then Response.Write(" SELECTED")%> > Wyoming
			</Select><span class="errortext"><%=strPropStateErr%></span>
		</td>
	</tr>
	<TR <%if blnPropZipErr then%> class="errorline" <%end if%>>
		<TD class="requiredField" align="right" nowrap>
			Property Zip Code
		</TD>
		<TD nowrap>
			<INPUT type="text" name="txtPropZip" value="<%=strPropZip%>" size=15 maxlength=25><span class="errortext"><%=strPropZipErr%></Span>
		</TD>
	<TR>
	<TR>
		<TD class="requiredfield" align="right" nowrap>
			Property Type
		</TD>
		<TD>
			<%=strPropType%>
			<INPUT Type="hidden" name="hdnPropType" value="<%=strPropType%>">
		</TD>
	<TR>
		<TD align=right>
			Aquisition Order
		</TD>
		<TD align=left nowrap>
			<input type="text" name="selYear" value="<%Response.Write iYear & ""%>" size="4"></TD>
						<span class="errorline"><%=iYearErr%></span>
		</TD>
	</TR>
	<TR>
		<TD ColSpan=2 ALign=Center>
			<B>Leasing Information</B>
		</TD>
	</TR>
	<TR <%if blnLContactErr Then%> Class="errorline" <%End If%>>
		<TD Class="requiredField" Align=right>
			Leasing Contact
		</TD>
		<TD nowrap align=left>
			<Input Type="text" name="txtLContact" Value="<%=strLContact%>" Size=60 maxlength=255>
			<Span Class="errortext"><%=strLContactErr%></Span>
		</TD>
	</TR>
	<TR <%if blnLCompanyErr Then%> Class="ErrorLine" <%end If%>>
		<TD class="requiredfield" align=right>
			Leasing Company
		</TD>
		<TD nowrap align=left>
			<Input Type="text" name="txtLCompany" Value="<%=strLCompany%>" Size=60 maxlength=255>
			<Span Class="errortext"><%=strLCompanyErr%></Span>
		</TD>
	</TR>
	<TR <%if blnLAddr1Err Then%> Class="errorline" <%End If%>>
		<TD class="requiredfield" align=right>
			Leasing Address
		</TD>
		<TD align=left nowrap>
			<input type="text" name="txtLAddr1" Value="<%=strLAddr1%>" Size=60 maxlength=255>
			<Span Class="errortext"><%=strLAddr1Err%></Span>
		</TD>
	</TR>
	<TR>
		<TD Align=Right>
			Leasing Address 2
		</TD>
		<TD Align=left nowrap>
			<Input type="text" name="txtLAddr2" Value="<%=strLAddr2%>" Size=60 maxlength=255>
		</TD>
	</TR>
	<TR <%if blnLCityErr Then%> Class="errorline" <%end if%>>
		<TD Align=right class="requiredfield">
			Leasing City
		</TD>
		<TD align=left nowrap>
			<Input type="text" name="txtLCity" Value="<%=strLCity%>" Size=60 maxlength=255>
			<SPAN class="errortext"><%=strLCityErr%></span>
		</TD>
	</TR>
	<tr <%if blnLStateErr then %> Class="errorline" <%end if%>>
		<td class="requiredField" align=right nowrap>
			Leasing State
		</td>
		<td nowrap>
			<select name=selLState>
			    <option value="0" > -- States --
			    <option value="AL" <%if strLState = "AL" then Response.Write(" SELECTED")%>> Alabama
			    <option value="AK" <%if strLState = "AK" then Response.Write(" SELECTED")%> > Alaska
			    <option value="AZ" <%if strLState = "AZ" then Response.Write(" SELECTED")%>> Arizona
			    <option value="AR" <%if strLState = "AR" then Response.Write(" SELECTED")%> > Arkansas
			    <option value="CA" <%if strLState = "CA" then Response.Write(" SELECTED")%> > California
			    <option value="CO" <%if strLState = "CO" then Response.Write(" SELECTED")%> > Colorado
			    <option value="CT" <%if strLState = "CT" then Response.Write(" SELECTED")%> > Connecticut
			    <option value="DE" <%if strLState = "DE" then Response.Write(" SELECTED")%> > Delaware
			    <option value="DC" <%if strLState = "DC" then Response.Write(" SELECTED")%> > District of Columbia
			    <option value="FL" <%if strLState = "FL" then Response.Write(" SELECTED")%> > Florida
			    <option value="GA" <%if strLState = "GA" then Response.Write(" SELECTED")%> > Georgia
			    <option value="HI" <%if strLState = "HI" then Response.Write(" SELECTED")%> > Hawaii
			    <option value="ID" <%if strLState = "ID" then Response.Write(" SELECTED")%> > Idaho
			    <option value="IL" <%if strLState = "IL" then Response.Write(" SELECTED")%> > Illinois
			    <option value="IN" <%if strLState = "IN" then Response.Write(" SELECTED")%> > Indiana
			    <option value="IA" <%if strLState = "IA" then Response.Write(" SELECTED")%> > Iowa
			    <option value="KS" <%if strLState = "KS" then Response.Write(" SELECTED")%> > Kansas
			    <option value="KY" <%if strLState = "KY" then Response.Write(" SELECTED")%> > Kentucky
			    <option value="LA" <%if strLState = "LA" then Response.Write(" SELECTED")%> > Louisiana
			    <option value="ME" <%if strLState = "AL" then Response.Write(" SELECTED")%> > Maine
			    <option value="MD" <%if strLState = "MD" then Response.Write(" SELECTED")%> > Maryland
			    <option value="MA" <%if strLState = "MA" then Response.Write(" SELECTED")%> > Massachusetts
			    <option value="MI" <%if strLState = "MI" then Response.Write(" SELECTED")%> > Michigan
			    <option value="MN" <%if strLState = "MN" then Response.Write(" SELECTED")%> > Minnesota
			    <option value="MS" <%if strLState = "MS" then Response.Write(" SELECTED")%> > Mississippi
			    <option value="MO" <%if strLState = "MO" then Response.Write(" SELECTED")%> > Missouri
			    <option value="MT" <%if strLState = "MT" then Response.Write(" SELECTED")%> > Montana
			    <option value="NE" <%if strLState = "NE" then Response.Write(" SELECTED")%> > Nebraska
			    <option value="NV" <%if strLState = "NV" then Response.Write(" SELECTED")%> > Nevada
			    <option value="NH" <%if strLState = "NH" then Response.Write(" SELECTED")%> > New Hampshire
			    <option value="NJ" <%if strLState = "NJ" then Response.Write(" SELECTED")%> > New Jersey
			    <option value="NM" <%if strLState = "NM" then Response.Write(" SELECTED")%> > New Mexico
			    <option value="NY" <%if strLState = "NY" then Response.Write(" SELECTED")%> > New York
			    <option value="NC" <%if strLState = "NC" then Response.Write(" SELECTED")%> > North Carolina
			    <option value="ND" <%if strLState = "ND" then Response.Write(" SELECTED")%> > North Dakota
			    <option value="OH" <%if strLState = "OH" then Response.Write(" SELECTED")%> > Ohio
			    <option value="OK" <%if strLState = "OK" then Response.Write(" SELECTED")%> > Oklahoma
			    <option value="OR" <%if strLState = "OR" then Response.Write(" SELECTED")%> > Oregon
			    <option value="PA" <%if strLState = "PA" then Response.Write(" SELECTED")%> > Pennsylvania
			    <option value="PR" <%if strLState = "PR" then Response.Write(" SELECTED")%> > Puerto Rico
			    <option value="RI" <%if strLState = "RI" then Response.Write(" SELECTED")%> > Rhode Island
			    <option value="SC" <%if strLState = "SC" then Response.Write(" SELECTED")%> > South Carolina
			    <option value="SD" <%if strLState = "SD" then Response.Write(" SELECTED")%> > South Dakota
			    <option value="TN" <%if strLState = "TN" then Response.Write(" SELECTED")%> > Tennessee
			    <option value="TX" <%if strLState = "TX" then Response.Write(" SELECTED")%> > Texas
			    <option value="UT" <%if strLState = "UT" then Response.Write(" SELECTED")%> > Utah
			    <option value="VT" <%if strLState = "VT" then Response.Write(" SELECTED")%> > Vermont
			    <option value="VA" <%if strLState = "VA" then Response.Write(" SELECTED")%> > Virginia
			    <option value="WA" <%if strLState = "WA" then Response.Write(" SELECTED")%> > Washington
			    <option value="WV" <%if strLState = "WV" then Response.Write(" SELECTED")%> > West Virginia
			    <option value="WI" <%if strLState = "WI" then Response.Write(" SELECTED")%> > Wisconsin
			    <option value="WY" <%if strLState = "WY" then Response.Write(" SELECTED")%> > Wyoming
			</Select><span class="errortext"><%=strLStateErr%></span>
		</td>
	</tr>
	<TR <%If blnLZipErr Then%> class="errorline" <%end if%>>
		<TD Align=right class="requiredfield">
			Leasing Zip
		</TD>
		<TD ALign=left nowrap>
			<INPUT Type="Text" name="txtLZip" Value="<%=strLZip%>" Size=15 maxlength=25>
			<Span class="errortext"><%=strLZipErr%></span>
		</TD>
	</TR>
	<TR>
		<TD Align=right>
			Leasing Phone
		</TD>
		<TD Align=left nowrap>
			<INPUT Type="text" Name="txtLPhone" Value="<%=strLPhone%>" Size=15 maxlength=25>
		</TD>
	</TR>
	<TR>
		<TD Align=right>
			Leasing Fax
		</TD>
		<TD ALign=left nowrap>
			<INPUT Type="text" Name="txtLFax" Value="<%=strLFax%>" Size=15 maxlength=25>
		</TD>
	</TR>
	<TR>
		<TD Align=right>
			Leasing Email
		</TD>
		<TD ALign=left nowrap>
			<INPUT Type="text" Name="txtLEmail" Value="<%=strLEmail%>" Size=60 maxlength=100>
		</TD>
	</TR>
	<TR>
		<TD ColSpan=2 ALign=Center>
			<B>Management Information</B>
		</TD>
	</TR>
	<TR <%if blnMContactErr Then%> Class="errorline" <%End If%>>
		<TD Class="requiredField" Align=right>
			Management Contact
		</TD>
		<TD nowrap align=left>
			<Input Type="text" name="txtMContact" Value="<%=strMContact%>" Size=60 maxlength=255>
			<Span Class="errortext"><%=strMContactErr%></Span>
		</TD>
	</TR>
	<TR <%if blnMCompanyErr Then%> Class="ErrorLine" <%end If%>>
		<TD class="requiredfield" align=right>
			Management Company
		</TD>
		<TD nowrap align=left>
			<Input Type="text" name="txtMCompany" Value="<%=strMCompany%>" Size=60 maxlength=255>
			<Span Class="errortext"><%=strMCompanyErr%></Span>
		</TD>
	</TR>
	<TR <%if blnMAddr1Err Then%> Class="errorline" <%End If%>>
		<TD class="requiredfield" align=right>
			Management Address
		</TD>
		<TD align=left nowrap>
			<input type="text" name="txtMAddr1" Value="<%=strMAddr1%>" Size=60 maxlength=255>
			<Span Class="errortext"><%=strMAddr1Err%></Span>
		</TD>
	</TR>
	<TR>
		<TD Align=Right>
			Management Address 2
		</TD>
		<TD Align=left nowrap>
			<Input type="text" name="txtMAddr2" Value="<%=strMAddr2%>" Size=60 maxlength=255>
		</TD>
	</TR>
	<TR <%if blnMCityErr Then%> Class="errorline" <%end if%>>
		<TD Align=right class="requiredfield">
			Management City
		</TD>
		<TD align=left nowrap>
			<Input type="text" name="txtMCity" Value="<%=strMCity%>" Size=60 maxlength=255>
			<SPAN class="errortext"><%=strMCityErr%></span>
		</TD>
	</TR>
	<tr <%if blnMStateErr then %> Class="errorline" <%end if%>>
		<td class="requiredField" align=right nowrap>
			Management State
		</td>
		<td nowrap>
			<select name=selMState>
			    <option value="0" > -- States --
			    <option value="AL" <%if strMState = "AL" then Response.Write(" SELECTED")%>> Alabama
			    <option value="AK" <%if strMState = "AK" then Response.Write(" SELECTED")%> > Alaska
			    <option value="AZ" <%if strMState = "AZ" then Response.Write(" SELECTED")%>> Arizona
			    <option value="AR" <%if strMState = "AR" then Response.Write(" SELECTED")%> > Arkansas
			    <option value="CA" <%if strMState = "CA" then Response.Write(" SELECTED")%> > California
			    <option value="CO" <%if strMState = "CO" then Response.Write(" SELECTED")%> > Colorado
			    <option value="CT" <%if strMState = "CT" then Response.Write(" SELECTED")%> > Connecticut
			    <option value="DE" <%if strMState = "DE" then Response.Write(" SELECTED")%> > Delaware
			    <option value="DC" <%if strMState = "DC" then Response.Write(" SELECTED")%> > District of Columbia
			    <option value="FL" <%if strMState = "FL" then Response.Write(" SELECTED")%> > Florida
			    <option value="GA" <%if strMState = "GA" then Response.Write(" SELECTED")%> > Georgia
			    <option value="HI" <%if strMState = "HI" then Response.Write(" SELECTED")%> > Hawaii
			    <option value="ID" <%if strMState = "ID" then Response.Write(" SELECTED")%> > Idaho
			    <option value="IL" <%if strMState = "IL" then Response.Write(" SELECTED")%> > Illinois
			    <option value="IN" <%if strMState = "IN" then Response.Write(" SELECTED")%> > Indiana
			    <option value="IA" <%if strMState = "IA" then Response.Write(" SELECTED")%> > Iowa
			    <option value="KS" <%if strMState = "KS" then Response.Write(" SELECTED")%> > Kansas
			    <option value="KY" <%if strMState = "KY" then Response.Write(" SELECTED")%> > Kentucky
			    <option value="LA" <%if strMState = "LA" then Response.Write(" SELECTED")%> > Louisiana
			    <option value="ME" <%if strMState = "AL" then Response.Write(" SELECTED")%> > Maine
			    <option value="MD" <%if strMState = "MD" then Response.Write(" SELECTED")%> > Maryland
			    <option value="MA" <%if strMState = "MA" then Response.Write(" SELECTED")%> > Massachusetts
			    <option value="MI" <%if strMState = "MI" then Response.Write(" SELECTED")%> > Michigan
			    <option value="MN" <%if strMState = "MN" then Response.Write(" SELECTED")%> > Minnesota
			    <option value="MS" <%if strMState = "MS" then Response.Write(" SELECTED")%> > Mississippi
			    <option value="MO" <%if strMState = "MO" then Response.Write(" SELECTED")%> > Missouri
			    <option value="MT" <%if strMState = "MT" then Response.Write(" SELECTED")%> > Montana
			    <option value="NE" <%if strMState = "NE" then Response.Write(" SELECTED")%> > Nebraska
			    <option value="NV" <%if strMState = "NV" then Response.Write(" SELECTED")%> > Nevada
			    <option value="NH" <%if strMState = "NH" then Response.Write(" SELECTED")%> > New Hampshire
			    <option value="NJ" <%if strMState = "NJ" then Response.Write(" SELECTED")%> > New Jersey
			    <option value="NM" <%if strMState = "NM" then Response.Write(" SELECTED")%> > New Mexico
			    <option value="NY" <%if strMState = "NY" then Response.Write(" SELECTED")%> > New York
			    <option value="NC" <%if strMState = "NC" then Response.Write(" SELECTED")%> > North Carolina
			    <option value="ND" <%if strMState = "ND" then Response.Write(" SELECTED")%> > North Dakota
			    <option value="OH" <%if strMState = "OH" then Response.Write(" SELECTED")%> > Ohio
			    <option value="OK" <%if strMState = "OK" then Response.Write(" SELECTED")%> > Oklahoma
			    <option value="OR" <%if strMState = "OR" then Response.Write(" SELECTED")%> > Oregon
			    <option value="PA" <%if strMState = "PA" then Response.Write(" SELECTED")%> > Pennsylvania
			    <option value="PR" <%if strMState = "PR" then Response.Write(" SELECTED")%> > Puerto Rico
			    <option value="RI" <%if strMState = "RI" then Response.Write(" SELECTED")%> > Rhode Island
			    <option value="SC" <%if strMState = "SC" then Response.Write(" SELECTED")%> > South Carolina
			    <option value="SD" <%if strMState = "SD" then Response.Write(" SELECTED")%> > South Dakota
			    <option value="TN" <%if strMState = "TN" then Response.Write(" SELECTED")%> > Tennessee
			    <option value="TX" <%if strMState = "TX" then Response.Write(" SELECTED")%> > Texas
			    <option value="UT" <%if strMState = "UT" then Response.Write(" SELECTED")%> > Utah
			    <option value="VT" <%if strMState = "VT" then Response.Write(" SELECTED")%> > Vermont
			    <option value="VA" <%if strMState = "VA" then Response.Write(" SELECTED")%> > Virginia
			    <option value="WA" <%if strMState = "WA" then Response.Write(" SELECTED")%> > Washington
			    <option value="WV" <%if strMState = "WV" then Response.Write(" SELECTED")%> > West Virginia
			    <option value="WI" <%if strMState = "WI" then Response.Write(" SELECTED")%> > Wisconsin
			    <option value="WY" <%if strMState = "WY" then Response.Write(" SELECTED")%> > Wyoming
			</Select><span class="errortext"><%=strMStateErr%></span>
		</td>
	</tr>
	<TR <%If blnMZipErr Then%> class="errorline" <%end if%>>
		<TD Align=right class="requiredfield">
			Management Zip
		</TD>
		<TD ALign=left nowrap>
			<INPUT Type="Text" name="txtMZip" Value="<%=strMZip%>" Size=15 maxlength=25>
			<Span class="errortext"><%=strMZipErr%></span>
		</TD>
	</TR>
	<TR>
		<TD Align=right>
			Management Phone
		</TD>
		<TD Align=left nowrap>
			<INPUT Type="text" Name="txtMPhone" Value="<%=strMPhone%>" Size=15 maxlength=25>
		</TD>
	</TR>
	<TR>
		<TD Align=right>
			Management Fax
		</TD>
		<TD ALign=left nowrap>
			<INPUT Type="text" Name="txtMFax" Value="<%=strMFax%>" Size=15 maxlength=25>
		</TD>
	</TR>
	<TR>
		<TD Align=right>
			Management Email
		</TD>
		<TD ALign=left nowrap>
			<INPUT Type="text" Name="txtMEmail" Value="<%=strMEmail%>" Size=60 maxlength=100>
		</TD>
	</TR>
	<TR>
		<TD ColSpan=2 ALign=Center>
			<B>Building Information</B>
		</TD>
	</TR>
	<TR <%if blnNumberOfTenantsErr then%> Class="errorline" <%end if%>>
		<TD align=right>
			Number of Tenants
		</TD>
		<TD align=left nowrap>
			<Input type="text" name="txtNumberOfTenants" value="<%=strNumberOfTenants%>" size=10 maxlength=10>
			<span class="errortext"><%=strNumberOfTenantsErr%></span>
		</TD>
	</TR>
	<TR <%if blnTotSqrFootErr Then%> Class="errorline" <%end if%>>
		<TD align=right>
			Total Square Footage
		</TD>
		<TD align=left nowrap>
			<input type="text" name="txtTotSqrFoot" value="<%=strTotSqrFoot%>" size=10 maxlength=10>
			<span class="errortext"><%=strTotSqrFootErr%></Span>
		</TD>
	</TR>
	<TR>
		<TD Align=Right>
			Starting Rates
		</TD>
		<TD Align=left nowrap>
			<Input Type="text" name="txtStartingRates" Value="<%=strStartingRates%>" size=60 maxlength=255>
			<INPUT Type="hidden" name="hdRetailDetailsId" Value=<%=iRDId%>>
		</TD>
	</TR>
	<TR>
		<TD align=right>
			Primary Trade Area Population
		</TD>
		<TD align=left nowrap>
			<input type="text" name="txtPopulation" value="<%=strPopulation%>" Size=60 maxlength=255>
		</TD>
	</TR>
	<TR>
		<TD align=right>
			Average Household Income
		</TD>
		<TD align=left nowrap>
			<input type="text" name="txtIncome" value="<%=strIncome%>" Size=60 maxlength=255>
		</TD>
	</TR>
	<TR>
		<TD align=right>
			Average Daily Traffic
		</TD>
		<TD align=left nowrap>
			<input type="text" name="txtTraffic" value="<%=strTraffic%>" Size=60 maxlength=255>
		</TD>
	</TR>
	<TR>
		<TD align=right>
			Current Floor Plan Image
		</TD>
		<TD align=left nowrap>
			<%if strFloorPlan = "" Then%>
				None Available
			<%else%>
				<A href="FloorPlans/<%=strFloorPlan%>" Target="_blank"><%=strFloorPlan%></A><input type="checkbox" name="RemoveFloorplan" value="True">Remove FloorPlan
			<%End If%>
		</TD>
	<TR>
		<TD align=right>
			New Floor Plan Image
		</TD>
		<TD align=left nowrap>
			<input type="file" name="txtPath" value="" size=35 maxlength=255>
		</TD>
	</TR>
	<TR>
		<TD colspan=2>
			<INPUT Type="button" name=cmdUpdate Value="Update Property" onclick="Update()">
			<INPUT Type="button" name=cmdDelete value="Delete Property" OnClick="Delete()">
		</TD>
	</TR>
</TABLE>
</FORM>
</BODY>
</HTML>

Open in new window

0
Comment
Question by:MainSail2007
  • 3
  • 3
6 Comments
 
LVL 9

Expert Comment

by:AsishRaj
ID: 23677842
0
 

Author Comment

by:MainSail2007
ID: 23747210
I had already looked at that link and it did not resolve my problem.
0
 
LVL 9

Expert Comment

by:AsishRaj
ID: 23749995
we where here to help only if he could have come back earlier stating the reason before asking to delete this request
0
Concerto Cloud for Software Providers & ISVs

Can Concerto Cloud Services help you focus on evolving your application offerings, while delivering the best cloud experience to your customers? From DevOps to revenue models and customer support, the answer is yes!

Learn how Concerto can help you.

 

Author Comment

by:MainSail2007
ID: 23750193
Nothing against you. It was just the problem was an emergency and I needed an answer immediately. The first reply I received was two days later. We had already worked around the problem then and the link was one I had already looked at.
0
 
LVL 9

Expert Comment

by:AsishRaj
ID: 23751186
Set No Problem
0
 

Accepted Solution

by:
MainSail2007 earned 0 total points
ID: 23776132
Instead of loggin in using this asp page the user changed the page using MS Frontpage, which meant the user did not have to get this page to work anymore. The user was then able to use her login credentials to directly make changes to the pages she had permissions and access to.
0

Featured Post

How to Use the Help Bell

Need to boost the visibility of your question for solutions? Use the Experts Exchange Help Bell to confirm priority levels and contact subject-matter experts for question attention.  Check out this how-to article for more information.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Australian government abolished Visa 457 earlier this April and this article describes how this decision might affect Australian IT scene and IT experts.
CTAs encourage people to do something specific to show interest in your company, product or service. Keep reading to learn why CTAs should always be thought of as extremely important, albeit small, sections of websites.
The viewer will learn the basics of jQuery, including how to invoke it on a web page. Reference your jQuery libraries: (CODE) Include your new external js/jQuery file: (CODE) Write your first lines of code to setup your site for jQuery.: (CODE)
In this fourth video of the Xpdf series, we discuss and demonstrate the PDFinfo utility, which retrieves the contents of a PDF's Info Dictionary, as well as some other information, including the page count. We show how to isolate the page count in a…
Suggested Courses
Course of the Month19 days, 21 hours left to enroll

872 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question