error 'asp 0115' Unexpected error

by: msdixonPosted on 2000-12-19 at 06:04:27ID: 31975

how about some code

by: danielthekidPosted on 2000-12-19 at 06:09:03ID: 31988

When ASP reports 0115, it means:
"I don't know what the cause for the error is"

I had this same problem a while back, and it was due to my use of stored procs in an asa file. when I cut out the includes command for the asa file, i didnt get the error. I ended up rewriting it and things worked fine; the reason, which i learned later, is because I was using a SQL reserved word in the asa as a dim (accidentally :)).

This might help some, if you havent seen it already...

http://www.asptips.com/faq/faqShow.asp?fid=8

by: ShuraPosted on 2000-12-19 at 06:59:08ID: 32053

This is not a small page. I had to build this page around old page that had been developed by previous developer and used to be a main page. Now these is a Popup window.
It is retriving 12 recordsets.

This is a code:

<% '@ LANGUAGE="VBSCRIPT" %>

<%
Option explicit
Response.Expires = 0

Dim n,curPage, Prm, totalPages, count, strStName,strCrStName,strStDir,strStType
Dim strCityCode,strComplCode,strHouse,strBlock,strCrStType,strCrStDir, strCallWindow
Dim strPageCode, lastActType,strYear,strNum, sAddr, strEstDate, cpac_numb,council_dist
Dim strBack, iCode, StrCmpType,strDscrpt,strSubDiv,strDiv,strDep,strCmpStatusDesc
Dim strAddress, council_distName,cpac_description,strIchoods, strIntHPhone, strIntWPhone
Dim strIntFax, strIntPager, strIntEmail, strIntNotify, strActTypeDesc,sSubDiv
Dim strActDivDesc,strActDepDesc, strActComments,strDate,strResp,sReason, sContact
Dim intHouse, intBlock, strProbCode, Citydb, cmdTemp, rsAddresssearch, rsSmr
Dim rsInfo,rsCmpDesc,rsCmplDiv, rsCouncil, rsCPAC,rsIntPty, rsCmplAcDiv,rsRespDesc,rsFU
Dim SQLStmt, SQLCmpCode, SQL2, srtEstDate, strOrigComments, strHomePhone, strWorkPhone, bFollowUp, bAddFollowUp
Dim intDivHight, i
intDivHight = 280
bFollowUp = True
bAddFollowUp = True
Const NumPerPage = 7
Session("strInqAddress") = ""
%>

<html>
<head>
<meta NAME="GENERATOR" Content="Microsoft Visual InterDev 1.0">

<title>Duplicate Issues Search Page</title>
</head>
<basefont FACE="Arial, Helvetica, sans-serif">
<link REL="STYLESHEET" HREF="Stylesheets/Grid/Style2.css">
<body BACKGROUND="Images/Grid/Background/Back2.jpg" BGCOLOR="White" BGPROPERTIES="Fixed">
<script language="javascript" SRC="addresssearch.js">
 </script>
<script language="javascript" SRC="ShowDoc.js">
 </script>
<script language="JavaScript" src="dhtmllib.js"></script>

<form id="form1" name="frmAutoDuplSears">
<table ALIGN="Center" WIDTH="100%" CELLSPACING="0" CELLPADDING="1" BORDER="0">
 <tr VALIGN="Middle" WIDTH="100%">
 <th COLSPAN="2" NOWRAP BGCOLOR="Silver" BACKGROUND="Images/Grid/Navigation/Nav1.jpg">
 Duplicate Issues Search
 </th>
 </tr>
 
</table>

<%
On Error Resume Next

 strCallWindow = ""
 strStName =""
 strCrStName =""
 strStDir=""
 strStType=""
 strCityCode=""
 strComplCode=""
 strHouse= ""
 strBlock= ""
 strCrStType=""
 strCrStDir=""
 strPageCode = ""



 If Request.QueryString("curPage") = "" Then

 strStName=Request("strName")
 strStType=Request("strType")
 strStDir=Request("strDir")

 strCityCode=Request("strCtCd")
 strComplCode=Request("strdupCmpCode")
 strHouse= request("strHouse")
 strBlock= request("strBlock")
 strCrStType=Request("strCrType")
 strCrStDir=Request("strCrDir")

 strCrStName=Request("strCrName")
 strCallWindow = Request("AutoSearch")
 If strCallWindow = "Y" Then
 strPageCode = "E"
 Else
 strPageCode = "D"
 End If
 Else

 strStName=Request("strName")
 strStType=Request("strType")
 strStDir=Request("strDir")
 strCityCode=Request("str_CityCode")
 strComplCode=Request("strdupCmpCode")
 strHouse= request("strHouse")
 strBlock= request("strBlock")
 strCrStType=Request("str_Cross_St_Type")
 strCrStDir=Request("str_Cross_St_Dir")
 strCrStName=Request("str_Cross_St")
 strCallWindow = Request("AutoSearch")
 If strCallWindow = "Y" Then
 strPageCode = "E"
 Else
 strPageCode = "D"
 End If
 End If
 If strCityCode= "" then
strCityCode="00"
 end if
 If strStName= "" then
strStName=Null

 end if
 if strStType= "" then
 strStType= null

 end if
 if strStDir = "" then
 strStDir = Null

 end if
 If strHouse= "" Then
 intHouse= Null
 else
 intHouse=Cint(strHouse)
 End If
 If strBlock= "" Then
 intBlock=Null
 else
 intBlock = Cint(strBlock)
 End If
 If strComplCode= "" Then
 strProbCode= Null
 else
 strProbCode = Cstr(strComplCode)
 End If
 If strCrStType="" Then
 strCrStType= Null
 End IF
 If strCrStDir="" Then
 strCrStDir= Null
 End IF

 If strCrStName="" Then

 strCrStName= NUll
 End If
 Set Citydb = Server.CreateObject("ADODB.Connection")
 Citydb.ConnectionTimeout = Session("Citydb_ConnectionTimeout")
 Citydb.CommandTimeout = Session("Citydb_CommandTimeout")
 Citydb.Open Session("Citydb_ConnectionString"), Session("Citydb_RuntimeUserName"), Session("Citydb_RuntimePassword")





 Set cmdTemp = Server.CreateObject("ADODB.Command")
 Set rsAddresssearch = Server.CreateObject("ADODB.Recordset")

 cmdTemp.CommandText = "usp_AutoAddressSearch_Manual" '"usp_AutoAddressSearch"
 cmdTemp.CommandType = 4 ' Stored Proc
 Set cmdTemp.ActiveConnection = Citydb

 set Prm = cmdTemp.CreateParameter("cmpName")
 Prm.Type=8
 Prm.Size=20
 Prm.Direction=1
 Prm.Value=strStName
 cmdTemp.Parameters.Append Prm

 set Prm = cmdTemp.CreateParameter("cmpType")
 Prm.Type=8 ' 8 Char
 Prm.Size=2
 Prm.Direction=1
 Prm.Value=strStType
 cmdTemp.Parameters.Append Prm

 set Prm = cmdTemp.CreateParameter("cmpDir")
 Prm.Type=8
 Prm.Size=2
 Prm.Direction=1
 Prm.Value=strStDir
 cmdTemp.Parameters.Append Prm

 set Prm = cmdTemp.CreateParameter("CrossSt")
 Prm.Type=8
 Prm.Size=20
 Prm.Direction=1
 Prm.Value=strCrStName
 cmdTemp.Parameters.Append Prm

 set Prm = cmdTemp.CreateParameter("CrossStType")
 Prm.Type=8 ' 8 Char
 Prm.Size=2
 Prm.Direction=1
 Prm.Value=strCrStType
 cmdTemp.Parameters.Append Prm

 set Prm = cmdTemp.CreateParameter("CrossStDir")
 Prm.Type=8
 Prm.Size=2
 Prm.Direction=1
 Prm.Value=strCrStDir
 cmdTemp.Parameters.Append Prm

set Prm = cmdTemp.CreateParameter("cmpHouse")
 Prm.Type=3 '
 Prm.Size=8
 Prm.Direction=1
 Prm.Value=(intHouse)
 cmdTemp.Parameters.Append Prm

 set Prm = cmdTemp.CreateParameter("cmpBlock")
 Prm.Type=3 '
 Prm.Size=8
 Prm.Direction=1
 Prm.Value=(intBlock)
 cmdTemp.Parameters.Append Prm

 set Prm = cmdTemp.CreateParameter("CmpCity")
 Prm.Type=8
 Prm.Size=2
 Prm.Direction=1
 Prm.Value=strCityCode
 cmdTemp.Parameters.Append Prm
 set Prm = cmdTemp.CreateParameter("strPage")
 Prm.Type=8
 Prm.Size=1
 Prm.Direction=1
 Prm.Value=strPageCode
 cmdTemp.Parameters.Append Prm
 'FOR EACH Prm in cmdTemp.Parameters
 'Response.Write "Parameter name: " & (Prm.NAme) & " "
 'Response.Write "Parameter VAlue: " & (Prm.VAlue) & " "
 'NEXT

rsAddresssearch.Open cmdTemp, , 0,3
' rsAddresssearch.ActiveConnection = Nothing
If rsAddresssearch.EOF Then
%>



<blockquote>
 The address you have entered is incorrect.   Please check the entry and try again.
 
</blockquote>
 
<center>

 
 <%
 If strCallWindow = "Y" then
 strBack = " Back to Entry Page"
 Else
 strBack = " Back to Dupl.Search"
 End IF
%>

 <table width="96%">
 
 <tr>
 <td width="72%"></td>
 <td bgColor="#F5F5DC" width="24%">
 <fieldset id="fldCom" style="background:silver;border-left:0.1cm double Gainsboro;border-top:0.1cm double LightGrey;border-bottom:0.07cm ridge silver; border-right:0.1cm ridge silver">
 <a href onclick="self.close()" style="TEXT-DECORATION: none">
 
 <%=strBack%>
 </a></fieldset>
 </td>
 </tr>
 </table>
<center>



<%
Else



 If Request.QueryString("curPage") = "" Then
 curPage = 1 ' first page
 Else
 curPage = Request.QueryString("curPage")
 End If



 Set cmdTemp = Server.CreateObject("ADODB.Command")
 Set rsSmr = Server.CreateObject("ADODB.Recordset")
 rsSmr.CursorLocation = 3
 rsSmr.CacheSize = NumPerPage
 'rsSmr.CursorType = 1
 cmdTemp.CommandText = "usp_SearchForDupl"
 cmdTemp.CommandType = 4 ' Stored Proc
 Set cmdTemp.ActiveConnection = Citydb

 set Prm = cmdTemp.CreateParameter("SmrName")
 Prm.Type=8
 Prm.Size=20
 Prm.Direction=1
 Prm.Value=strStName
 cmdTemp.Parameters.Append Prm

 set Prm = cmdTemp.CreateParameter("SmrType")
 Prm.Type=8 ' 8 Char
 Prm.Size=2
 Prm.Direction=1
 Prm.Value=strStType
 cmdTemp.Parameters.Append Prm

 set Prm = cmdTemp.CreateParameter("SmrDir")
 Prm.Type=8
 Prm.Size=2
 Prm.Direction=1
 Prm.Value=strStDir
 cmdTemp.Parameters.Append Prm

 set Prm = cmdTemp.CreateParameter("CrossSt")
 Prm.Type=8
 Prm.Size=20
 Prm.Direction=1
 Prm.Value=strCrStName
 cmdTemp.Parameters.Append Prm

 set Prm = cmdTemp.CreateParameter("CrossStType")
 Prm.Type=8 ' 8 Char
 Prm.Size=2
 Prm.Direction=1
 Prm.Value=strCrStType
 cmdTemp.Parameters.Append Prm

 set Prm = cmdTemp.CreateParameter("CrossStDir")
 Prm.Type=8
 Prm.Size=2
 Prm.Direction=1
 Prm.Value=strCrStDir
 cmdTemp.Parameters.Append Prm

set Prm = cmdTemp.CreateParameter("cmpHouse")
 Prm.Type=3 '
 Prm.Size=8
 Prm.Direction=1
 Prm.Value=(intHouse)
 cmdTemp.Parameters.Append Prm

 set Prm = cmdTemp.CreateParameter("cmpBlock")
 Prm.Type=3 '
 Prm.Size=8
 Prm.Direction=1
 Prm.Value=(intBlock)
 cmdTemp.Parameters.Append Prm

set Prm = cmdTemp.CreateParameter("cmpOrigCompCod")
 Prm.Type=8 '
 Prm.Size=3
 Prm.Direction=1
 Prm.Value=strProbCode
 cmdTemp.Parameters.Append Prm

 set Prm = cmdTemp.CreateParameter("SmrCity")
 Prm.Type=8
 Prm.Size=2
 Prm.Direction=1
 Prm.Value=strCityCode
 cmdTemp.Parameters.Append Prm

 set Prm = cmdTemp.CreateParameter("strPage")
 Prm.Type=8
 Prm.Size=1
 Prm.Direction=1
 Prm.Value=strPageCode
 cmdTemp.Parameters.Append Prm
 'FOR EACH Prm in cmdTemp.Parameters
 'Response.Write "Parameter name: " & (Prm.NAme) & " "
 'Response.Write "Parameter VAlue: " & (Prm.VAlue) & " "
 'NEXT

rsSmr.Open cmdTemp, , 1,1
rsSmr.ActiveConnection = Nothing
If rsSmr.BOF Or rsSmr.EOF Then


%>

 <blockquote>
 No Duplicates found for selected critirea.
 
 </blockquote>
 
 <center>
<%
 If strCallWindow = "Y" then
 strBack = " Back to Entry Page"
 Else
 strBack = " Back to Dupl.Search"
 End IF
%>

 <table width="96%">
 
 <tr>
 <td width="72%"></td>
 <td bgColor="#F5F5DC" width="24%">
 <fieldset id="fldCom" style="background:silver;border-left:0.1cm double Gainsboro;border-top:0.1cm double LightGrey;border-bottom:0.07cm ridge silver; border-right:0.1cm ridge silver">
 <a href onclick="self.close()" style="TEXT-DECORATION: none">
 
 <%=strBack%>
 </a></fieldset>
 </td>
 </tr>
 </table>
 <center>

<%


 Else

 rsSmr.MoveFirst

 count = rsSmr.RecordCount

 rsSmr.MoveFirst
 rsSmr.PageSize = NumPerPage

 'Get the MAX number of pages
 totalPages = Cint(rsSmr.PageCount)

 'Set the Absolutepage
 rsSmr.AbsolutePage = curPage

 'howManyFields = rsSmr.Fields.Count-1

 On Error Resume Next


 Response.Write " <left> Total Number of Records : " & count & "</left><right> Page " & curPage & " of " & totalPages & "</right> "

%>


 <table ALIGN="Center" WIDTH="100%" CELLSPACING="0" CELLPADDING="1" BORDER="1">

 <tr BGCOLOR="Silver" VALIGN="Middle" ALIGN="Right" WIDTH="100%" BACKGROUND="./Images/Grid/Navigation/Nav1.jpg">
 <td NOWRAP BGCOLOR="Silver" ALIGN="Left">  </td>
 <td NOWRAP BGCOLOR="Silver" ALIGN="Left">Issue #</td>

 <td NOWRAP BGCOLOR="Silver" ALIGN="Left">Address</td>

 <td NOWRAP BGCOLOR="Silver" ALIGN="Left">Complaint Description</td>

 <td NOWRAP BGCOLOR="Silver" ALIGN="Left">Est.Date</td>
 <td NOWRAP BGCOLOR="Silver" ALIGN="Left">Entr.Date</td>
 <td NOWRAP BGCOLOR="Silver" ALIGN="Left">Status</td>
 </tr>

<%

 If len(Trim(Request("strYear"))) > 0 Then
 strYear = Trim(Request("strYear"))
 strNum = Trim(Request("strNumber"))

 Else


 strYear = rsSmr("cmp_year")
 strNum = rsSmr("cmp_Num")
 End IF


 Do while not rsSmr.EOF and n < rsSmr.PageSize
 n = n + 1


 sAddr= CapitalizeFirstLetter(rsSmr("address"))

 If Len(rsSmr("cmp_cross_st_code")) > 0 Then
 sAddr = sAddr & "/" & CapitalizeFirstLetter(rsSmr("CrossStreet"))

 Elseif len(rsSmr("cmp_house_num")) > 0 Then
 sAddr= rsSmr("cmp_house_num") & " " & sAddr
 Elseif len(rsSmr("cmp_Block_num")) > 0 Then
 sAddr= rsSmr("cmp_Block_num") & " Of " & sAddr

 End If

 If rsSmr("CMP_EST_COMPL_DATE") <> "" Then
 If len (trim(rsSmr("CMP_EST_COMPL_DATE")))<= 8 then
 srtEstDate = trim(rsSmr("CMP_EST_COMPL_DATE"))
 Else
 srtEstDate = left(rsSmr("CMP_EST_COMPL_DATE"),instr(rsSmr("CMP_EST_COMPL_DATE")," "))
 End If
 End IF

%>
 <tr>
<%
 If Trim(rsSmr("cmp_year")) = Trim(strYear) and Trim(rsSmr("cmp_num")) = Trim(strNum) Then
%>
 <td BGCOLOR="#FAFAD2" ALIGN="center"><img SRC="images/Bullet5.gif" WIDTH="14" HEIGHT="10"> </td>
<%
 Else
%>

 <td BGCOLOR="#FAFAD2" ALIGN="center">    </td>
<%
 End IF
%>
 <td BGCOLOR="#FAFAD2"><a HREF="AutoDuplSearch.asp?strYear=<%=rsSmr("cmp_year")%>&strNumber=<%=rsSmr("cmp_Num")%>&curPage=<%= curPage%>&strName=<%=strStName%>&strType=<%=strStType%>&strDir=<%=strStDir%>&strdupCmpCode=<%=Session("dupCmpCode")%>&strHouse=<%=strHouse%>&strBlock=<%=strBlock%>&str_Cross_St_Type=<%=strCrStType%>&str_Cross_St_Dir=<%=strCrStDir%>&str_Cross_St=<%=strCrStName%>&str_CityCode=<%=strCityCode%>&dupFirstSearch=Y"><%= rsSmr(("CMP_YEAR")) %> - <%= rsSmr(("CMP_NUM")) %></td></a>
 <td BGCOLOR="#FAFAD2"><%= sAddr %></td>
 <td BGCOLOR="#FAFAD2"><%= rsSmr(("cod_description")) %></td>
 <td BGCOLOR="#FAFAD2"><%= srtEstDate %></td>
 <td BGCOLOR="#FAFAD2"><%= rsSmr("CMP_DATE") %></td>
 <td BGCOLOR="#FAFAD2">
<%
 If rsSmr(("CMP_STATUS")) = "n" Or rsSmr(("CMP_STATUS")) = "N" OR rsSmr(("CMP_STATUS")) = "" Then
 Response.Write "New"
 ElseIf rsSmr(("CMP_STATUS")) = "a" OR rsSmr(("CMP_STATUS")) = "A" Then
 Response.Write "Active"
 ElseIf rsSmr(("CMP_STATUS")) = "s" OR rsSmr(("CMP_STATUS")) = "S" Then
 Response.Write "Special Handling"
 ElseIf rsSmr(("CMP_STATUS")) = "c" or rsSmr(("CMP_STATUS")) = "C" Then
 Response.Write "Closed"
 ElseIf rsSmr(("CMP_STATUS")) = "x" or rsSmr(("CMP_STATUS")) = "X" Then
 Response.Write "Canceled"
 End If
%>
 </td>
 </tr>
<%
 rsSmr.MoveNext


 Loop
%>
 </table>


<%
 If count > NumPerPage Then




%>
 <table border="0" width="100%">

 <tr>
 <td align="right" width="50%">
<%
 If Cint(curPage) > 1 Then ' (Cint(curPage) <> Cint(totalPages)) and%>
 <a HREF="AutoDuplSearch.asp?curPage=<%= curPage - 1%>&strName=<%=strStName%>&strType=<%=strStType%>&strDir=<%=strStDir%>&strdupCmpCode=<%=Session("dupCmpCode")%>&strHouse=<%=strHouse%>&strBlock=<%=strBlock%>&str_Cross_St_Type=<%=strCrStType%>&str_Cross_St_Dir=<%=strCrStDir%>&str_Cross_St=<%=strCrStName%>&str_CityCode=<%=strCityCode%>&AutoSearch=<%=strCallWindow%>& dupFirstSearch=Y">Previous </a> |
<%
 Else
%>
 Previous |
<%
 End If

 If (Cint(curPage) < Cint(totalPages)) and Cint(curPage) >= 1 Then %>
 <a HREF="AutoDuplSearch.asp?curPage=<%= curPage + 1 %>&strName=<%=strStName%>&strType=<%=strStType%>&strDir=<%=strStDir%>&strdupCmpCode=<%=Session("dupCmpCode")%>&strHouse=<%=strHouse%>&strBlock=<%=strBlock%>&str_Cross_St_Type=<%=strCrStType%>&str_Cross_St_Dir=<%=strCrStDir%>&str_Cross_St=<%=strCrStName%>&str_CityCode=<%=strCityCode%>&AutoSearch=<%=strCallWindow%>&dupFirstSearch=Y">Next </a> |
<%
 Else
%>
 Next |
<%
 End If
 If Cint(curPage) = 1 Then

%>
 First |
<%
 Else
%>
 <a HREF="AutoDuplSearch.asp?curPage=1&strName=<%=strStName%>&strType=<%=strStType%>&strDir=<%=strStDir%>&strdupCmpCode=<%=Session("dupCmpCode")%>&strHouse=<%=strHouse%>&strBlock=<%=strBlock%>&str_Cross_St_Type=<%=strCrStType%>&str_Cross_St_Dir=<%=strCrStDir%>&str_Cross_St=<%=strCrStName%>&str_CityCode=<%=strCityCode%>&AutoSearch=<%=strCallWindow%>&dupFirstSearch=Y">First </a> |
<%
 End IF
 If Cint(curPage) = totalPages Then

%>
 Last |
<%
 Else
%>
 <a HREF="AutoDuplSearch.asp?curPage=<%=totalPages %>&strName=<%=strStName%>&strType=<%=strStType%>&strDir=<%=strStDir%>&strdupCmpCode=<%=Session("dupCmpCode")%>&strHouse=<%=strHouse%>&strBlock=<%=strBlock%>&str_Cross_St_Type=<%=strCrStType%>&str_Cross_St_Dir=<%=strCrStDir%>&str_Cross_St=<%=strCrStName%>&str_CityCode=<%=strCityCode%>&AutoSearch=<%=strCallWindow%>&dupFirstSearch=Y">Last</a> | </td>
<%
 End IF
%>
 <td>
 <td align="right" width="50%"> Page #: <%= curPage%></td>
 </tr>
 </table>
<%
 End IF
 SQLStmt = "exec usp_FindByNum @cmpYear='" & strYear & "', @cmpNum='" & strNum & "';"
 'Response.Write SQLStmt & " "
 cmdTemp.CommandText=SQLStmt
 cmdTemp.CommandType = 1
 Set cmdTemp.ActiveConnection = Citydb
 Set rsInfo = Server.CreateObject("ADODB.Recordset")

 rsInfo.Open cmdTemp, , 1, 3
 If rsInfo.BOF or rsInfo.Eof Then
 'cpac_numb = NULL
 'council_dist = NULL

 Response.Write " <CENTER>No Records for Issue / Topic Number: " & strYear & "-" & strNum & "</CENTER> "
%>
 <hr>
<%

 Else




 cmdTemp.CommandText="SELECT * FROM FOLLOWUP WHERE ( FU_CMP_YEAR = " & strYear & ") AND ( FU_CMP_NUM = " & strNum & ") "
 cmdTemp.CommandType = 1
 Set cmdTemp.ActiveConnection = Citydb
 Set rsFU = Server.CreateObject("ADODB.Recordset")
 rsFU.Open cmdTemp, , 1, 3
 If rsFU.bof or rsFU.Eof Then
 bFollowUp = False
 Else
 bFollowUp = True
 End IF

%>


 <hr size="3" color="red">

 <table border="0" cellPadding="0" cellSpacing="0" class="tablinks">

 <tr>
 <td rowSpan="2"><img height="23" src="images/menuleft.gif" width="6"></td>
 <td bgColor="#400000" height="1"><img height="1" src="images/spacer.gif" width="1"></td>
 <td rowSpan="2"><img height="22" src="images/menuright.gif" width="6"></td>
 <td rowSpan="2" width="1"></td>


 <td rowSpan="2"><img height="23" src="images/menuleft.gif" width="6"></td>
 <td bgColor="#400000" height="1"><img height="1" src="images/spacer.gif" width="1"></td>
 <td rowSpan="2"><img height="22" src="images/menuright.gif" width="6"></td>
<%
 If bFollowUp Then
%> <td rowSpan="2" width="1"></td>


 <td rowSpan="2"><img height="23" src="images/menuleft.gif" width="6"></td>
 <td bgColor="#400000" width="1"><img height="1" src="images/spacer.gif" width="1"></td>
 <td rowSpan="2"><img height="22" src="images/menuright.gif" width="6"></td>
 <td rowSpan="2" width="145"></td>
<%
 Else
%>
 <td rowSpan="2" width="250"></td>
<%
 End IF
 If rsInfo("cmp_status") = "c" or rsInfo("cmp_status") = "x" Then

 bAddFollowUp = False

%>
 <td rowSpan="2" width="138"></td>

<%

 Else
%>
 <td rowSpan="2"><img height="23" src="images/menuleft.gif" width="6"></td>
 <td bgColor="#400000" height="1"><img height="1" src="images/spacer.gif" width="1"></td>
 <td rowSpan="2"><img height="22" src="images/menuright.gif" width="6"></td>

 <td rowSpan="2" width="1"></td>
<%
 End IF
%>

 <td rowSpan="2"><img height="23" src="images/menuleft.gif" width="6"></td>
 <td bgColor="#400000" height="1"><img height="1" src="images/spacer.gif" width="1"></td>
 <td rowSpan="2"><img height="22" src="images/menuright.gif" width="6"></td>

 </tr>
 <tr>
 <td bgColor="#F5F5DC"><a href="#Issue Information" style="TEXT-DECORATION: none">Issue Info </a>

 </td>
 <td bgColor="#F5F5DC"><a href="#List of Actions" style="TEXT-DECORATION: none">

 Actions </a>
 </td>
<%
 If bFollowUp Then
%>
 <td bgColor="#F5F5DC"><a href="#List of Follow Up Calls" style="TEXT-DECORATION: none">
 Follow Up Calls</a>
 </a>
 </td>
<%
 End IF
 If bAddFollowUp Then
%>
 
 <td bgColor="#F5F5DC"><a href="followup.asp?Year=<%=strYear%>&Number=<%=strNum%>" style="TEXT-DECORATION: none">
 Add Follow Up Call
 </a>
 </td>
<%
 End IF
 If strCallWindow = "Y" then
%>
 <td bgColor="#F5F5DC"><a href onclick="self.close()" style="TEXT-DECORATION: none">Back to Entry Page</a>
 </td>
<%
 Else
%>
 <td bgColor="#F5F5DC"><a href onclick="self.close()" style="TEXT-DECORATION: none">
 
 Back to Dupl.Search
 </a>
 </td>
<%
 End IF

 For i = n to 2 step - 1

 intDivHight = intDivHight - 19

 Next



%>
 </tr>
 </table>
 <fieldset id="fldCom" style="border-left:0.1cm double Gainsboro;border-top:0.1cm double LightGrey;border-bottom:0.07cm ridge silver; border-right:0.1cm ridge silver">
 <div STYLE="height:<%=intDivHight%>;overflow:scroll">
<%




 cpac_numb = rsInfo("cmp_cpa_num")
 council_dist = rsInfo("CMP_COUNCIL_DIST")
 lastActType = trim(rsInfo("lac_type"))

 If (RTrim(rsInfo("CMP_COMMENTS")) = "") or IsNull(rsInfo("CMP_COMMENTS")) Then

 strOrigComments = "(No comments)"
 Else
 strOrigComments = rsInfo("CMP_COMMENTS")

 End If


 iCode = rsInfo("CMP_ORIG_COMPL_CODE")
 StrCmpType = rsInfo("CMP_COD_type")


 If Len(Trim(rsInfo("cmp_Orig_Compl_Code")))= 0 Then

 strDscrpt = "Complaint Description not Available"

 Else
 SQLCmpCode = "exec usp_SelCmpDesc @CodType='" & StrCmpType & "',@CodCmpl='" & iCode & "', @Sta=I ;"
 'Response.Write " SQLCmpCode: " & SQLCmpCode & " "
 cmdTemp.CommandText= SQLCmpCode'"SELECT * FROM Z_COMPLAINT_DESCRIPTIONS WHERE cod_type ='" & StrCmpType & "' and COD_CMPL_CODE= '" & iCode & "'"
 cmdTemp.CommandType = 1
 Set cmdTemp.ActiveConnection = Citydb
 Set rsCmplDesc = Server.CreateObject("ADODB.Recordset")
 rsCmplDesc.Open cmdTemp, , 1, 3
'**AD********************IF PRoperty Safety Get Sub division name***********************


 IF rsInfo("cmp_dep_code") = "nb" and rsInfo("cmp_div_code") = "ps" Then

 Select Case rsInfo("lac_activity_code2")
 Case 1
 strSubDiv = "Code Enforcement"
 Case 2
 strSubDiv = "Zoning"
 Case 3

 strSubDiv = "Animal Care"
 End Select
 End If

 If rsCmplDesc.EOF OR rsCmplDesc.BOF Then
 strDscrpt = "Complaint Description not Available"
 Else
 strDscrpt = rsCmplDesc("COD_DESCRIPTION")
 End if


 rsCmplDesc.Close
 Set rsCmplDesc = Nothing
 End If


 SQLStmt = "exec usp_SelDepDivDesc @DivCode='" & trim(rsInfo("CMP_ORIG_DIV_CODE")) & "', @DepCode='" & Trim(rsInfo("CMP_ORIG_DEP_CODE")) & "',@EOC=" & Application("EocActive") & ";"
 cmdTemp.CommandText=SQLStmt '"SELECT * FROM Z_DIVISION WHERE DIV_DEP_CODE= '" & rsInfo("CMP_DEP_CODE") & "' AND DIV_CODE='" & rsInfo("CMP_DIV_CODE") & "' "
 cmdTemp.CommandType = 1
 Set cmdTemp.ActiveConnection = Citydb
 Set rsCmplDIV = Server.CreateObject("ADODB.Recordset")
 rsCmplDiv.Open cmdTemp, , 1, 3

 If rsCmplDiv.BOF or rsCmplDiv.EOF Then
 strDiv = "Division Description not Available"
 strDep = "Department Description not Available"
 Else
 strDiv = rsCmplDiv("DIV_DESCRIPTION")
 strDep = rsCmplDiv("DEP_DESCRIPTION")
 End If

 rsCmplDiv.Close
 Set rsCmplDiv = Nothing


%>


 
<%
 Select Case rsInfo("cmp_status")
 Case "n","N"
 strCmpStatusDesc = "New"
 Case "a","A"
 strCmpStatusDesc = "Active"
 Case "s","S"
 strCmpStatusDesc = "Special Handling"
 Case "d","D"
 strCmpStatusDesc = "Cancelled"
 Case "c","C"
 strCmpStatusDesc = "Completed"
 Case "x","X"
 strCmpStatusDesc = "Cancelled"
 end Select

%>

 <fieldset id="fldCom" style="border-left:0.1cm double Gainsboro;border-top:0.1cm double LightGrey;border-bottom:0.07cm ridge silver; border-right:0.08cm ridge silver"><legend align="left"><a Name="Issue Information"> Issue Information </legend>
 <table ALIGN="Center" WIDTH="99%" CELLSPACING="0" CELLPADDING="1" BORDER="0">

 

 <tr valign="top">
 <td>Number:<%= rsInfo("cmp_year")%>-<%= rsInfo("cmp_num")%>
<%
 if strCmpStatusDesc = "Special Handling" then
%>
 <td>Status:<%= strCmpStatusDesc %>
<%
 ElseIf strCmpStatusDesc = "Completed" or strCmpStatusDesc = "Cancelled" Then
%>
 <td>Status: <%= strCmpStatusDesc %>
<%
 Else
%>
 <td>Status:<%= strCmpStatusDesc %>
<%
 End If
%>
 <td>Entered:<%= rsInfo("cmp_date")%>   <%= rsInfo("cmp_time")%>
 <td>Est.Completion:<%= rsInfo("cmp_est_compl_date")%>
 </table>
 <table width="100%">
<%
 IF rsInfo("cmp_dep_code") = "nb" and rsInfo("cmp_div_code") = "ps" Then
%>
 <tr valign="top">
 <td>Description:<%= strDscrpt%></td>
 <td>Source:<%= rsInfo("csg_description") %></td></tr>
 <tr valign="top">
 <td> Division:<%= strDiv%></td>
 <td> Sub.Division:<%= strSubDiv%></td></tr>
<%
 Else
%>
 <tr colspan="2" valign="top">
 <td>Description:<%= strDscrpt%></td></tr>
 <tr valign="top">
 <td>Source:<%= rsInfo("csg_description") %></td>
 <td>Division:<%= strDiv%></td></tr>
<%
 End If
 strAddress =CapitalizeFirstLetter( rsInfo("cmp_street_Name") & " " & rsInfo("cmp_street_Type") & " " & rsInfo("cmp_street_Dir"))
 If len(Trim(rsInfo("cmp_cross_st_Code"))) > 0 Then
 strAddress = strAddress & " / " & CapitalizeFirstLetter(rsInfo("cmp_Cr_street_Name") & " " & rsInfo("cmp_Cr_street_Type") & " " & rsInfo("cmp_Cr_street_Dir"))
 ElseIF len(Trim(rsInfo("cmp_house_num"))) > 0 Then
 strAddress = Trim(Cstr(rsInfo("cmp_house_num"))) & " " & strAddress
 ElseIF len(Trim(rsInfo("cmp_block_num"))) > 0 Then
 strAddress = Trim(Cstr(rsInfo("cmp_block_num"))) & " Block of " & strAddress
 Else
 strAddress = "Unknown"
 End IF
 If len(Trim(rsInfo("cmp_unit"))) > 0 Then
 strAddress = strAddress & "Unit#: " & Trim(Cstr(rsInfo("cmp_unit")))
 End IF


 Session("strInqAddress") = strAddress
%>
 </table>
 <table width="100%">
 <tr valign="top">

 <td>Address: <%= strAddress%></td></tr>


</table>
 <table width="100%">
<tr valign="top">
<%
If council_dist <> "99" then

 SQL = "Select cds_councilperson from Z_COUNCIL_DIST where " & council_dist & " = Convert(int(2),CDS_CODE)"
 cmdTemp.CommandText=SQL
 cmdTemp.CommandType = 1
 Set cmdTemp.ActiveConnection = Citydb
 Set rsCOUNCIL = Server.CreateObject("ADODB.Recordset")

 rsCOUNCIL.Open cmdTemp, , 1, 3

 if NOT rsCOUNCIL.EOF then
 If rsCOUNCIL("cds_councilperson") = "" then
 council_distName = "There is no Council District Information available"
 else
 council_distName = rsCOUNCIL("cds_councilperson")
 end if
 end if
 rsCOUNCIL.Close
 Set rsCOUNCIL = Nothing

 Else
 council_distName = "There is no Council District Information available"

 End if

 If cpac_numb <> "" then
 SQL = "Select cpa_description from Z_CPAC_DESCRIPTION where " & cpac_numb & " = cpa_num"
 cmdTemp.CommandText=SQL
 cmdTemp.CommandType = 1
 Set cmdTemp.ActiveConnection = Citydb
 Set rsCPAC = Server.CreateObject("ADODB.Recordset")

 rsCPAC.Open cmdTemp, , 1, 3

 If rsCPAC.BOF or rsCPAC.EOF then
 cpac_description = "There is no CPAC information available"
 else
 cpac_description = rsCPAC("cpa_description")
 end if

 rsCPAC.Close
 Set rsCPAC = Nothing

 Else
 cpac_description = "There is no CPAC information available"
 End if


%>
 <td> Council District: <%= rsInfo("cmp_council_dist") %> - <%= council_distNAme %></td>
 <td> CPAC: <%= cpac_description %></td>
 <td> Who Notified Us: <%=rsInfo("src_description")%></td>
 </tr>
 </table>
 <table width="100%">
 <tr valign="top">
 <td>Comments:  <%= strOrigComments%></td></tr>
 </table>

 <table width="100%">
 <tr valign="top">
<%
 If rsInfo("cmp_DIV_CODE") = "bz" and rsInfo("cmp_DEP_CODE") = "pw" Then
%>
 <td>Build.Insp Number:  <%= rsInfo("CMP_bid_num") %></td>
<%
 End IF
 If rsInfo("cmp_DIV_CODE") = "ps" and rsInfo("cmp_DEP_CODE") = "nb" Then
 If len(trim(rsInfo("CMP_CEMS_NUM"))) > 0 Then %>

 <td>Cems Number:  <%= rsInfo("CMP_CEMS_YEAR") %> - <%= rsInfo("CMP_CEMS_NUM") %></td>



<%
 End If
 If len(trim(rsInfo("cmp_ACC_num"))) > 0 Then
%>
 <td>Anim.Care Number:  <%= rsInfo("CMP_ACC_num") %></td>
<%
 End IF
 If len(trim(rsInfo("cmp_Zone_num"))) > 0 Then
%>
 <td>Zoning Number:  <%= rsInfo("CMP_Zone_num") %></td>
<%

 End IF
 If len(trim(rsInfo("CMP_CEMS_NUM"))) = 0 Or Len(trim(rsInfo("cmp_ACC_num"))) = 0 or len(trim(rsInfo("cmp_Zone_num"))) = 0 Then
%>
 <tr valign="top">
 <td>  <%=strSubDiv%> Number has not been assigned check again later</td>
<%
 End if
 End IF
%>



<%
 If (rsInfo("cmp_DIV_CODE") = "te" and rsInfo("cmp_DEP_CODE") = "pw") and rsinfo("cmp_cod_type")= "P" then %>
<%
 If not isNull(rsInfo("CMP_TEAMS_NUM")) OR Trim(rsInfo("CMP_TEAMS_NUM")) <> "" then %>

 <td>Teams Number:  <%= rsInfo("CMP_TEAMS_NUM") %></td>
<%
 Else
%>

 <td>  Teams Number has not been assigned check again later</td>
<%
 End if

 End if

 If (rsInfo("act_DIV_CODE") = "sd" and rsInfo("act_DEP_CODE") = "pw") then
%>

 <td>Street & Drainage:  Service Area: <%= trim(rsInfo("CMP_SERVICE_AREA_DIR")) %>-<%= trim(rsInfo("CMP_SERVICE_SUBAREA")) %></td>
<%
 End if
 If (rsInfo("act_DIV_CODE") = "sc" and rsInfo("act_DEP_CODE") = "sw") then
%>

 <td>Sanitation District:  <%= rsInfo("CMP_SANITATION_DISTRICT") %></td>
<%
 End if
%>
<%
 If (Trim(rsInfo("cmp_ichoods")) <> "" or not isNull(rsInfo("cmp_ichoods"))) then
 Select Case rsInfo("cmp_ichoods")
 Case "EA"
 strIchoods = "EJax"
 Case "RO"
 strIchoods = "RT/Beth"
 Case "CH"
 strIchoods = "29th & Chase"
 Case "CO"
 strIchoods = "CG/NT/Dur/RA"
 Case "PI"
 strIchoods = "PF/Lan/Sou"
 Case "HY"
 strIchoods = "HP/S Sustainable"
 Case Else
 strIchoods = ""
 End Select
%>
 <td>ICN:  <%= strIchoods %></td>

<%
 End if
%>
 </tr>
 </table></fieldset>
 <fieldset id="fldCom" style="border-left:0.1cm double Gainsboro;border-top:0.1cm double LightGrey;border-bottom:0.07cm ridge silver; border-right:0.1cm ridge silver"><legend>Complainant / Interested Party Information </legend>

<%
 SQL2="SELECT * FROM INT_PARTIES WHERE " _
 & "INT_CMP_YEAR = " & strYear & " AND INT_CMP_NUM = " & strNum
 cmdTemp.CommandText=SQL2
 cmdTemp.CommandType = 1
 Set cmdTemp.ActiveConnection = Citydb
 Set rsIntPty = Server.CreateObject("ADODB.Recordset")

 rsIntPty.Open cmdTemp, , 1, 3

 If rsIntPty.BOF and rsIntPty.EOF then

%>


 <table width="100%">
 <tr>No Complainant / Interested Party Information available</tr>
 </table>
<%
 Else



 If (IsNull(rsIntPty("int_phone_h"))) Then
 strIntHPhone = "(None)"
 Else
 strIntHPhone = FmtPhNum(rsIntPty("int_phone_h"))
 End If

 If (IsNull(rsIntPty("int_phone_w")) ) Then
 strIntWPhone = "(None)"
 Else
 strIntWPhone = FmtPhNum(rsIntPty("int_phone_w"))
 End If

 If (IsNull(rsIntPty("int_fax")) ) Then
 strIntFax = "(None)"
 Else
 strIntFax = FmtPhNum(rsIntPty("int_fax"))
 End If

 If (IsNull(rsIntPty("int_pager")) ) Then
 strIntPager = "(None)"
 Else
 strIntPager = FmtPhNum(rsIntPty("int_pager"))
 End If

 If (IsNull(rsIntPty("int_email")) ) Then
 strIntEmail = "(None)"
 Else
 strIntEmail = FmtEmail(rsIntPty("int_email"))
 End If


 Select Case rsIntPty("int_notify")
 Case "a"
 strIntNotify = "Home Address"
 Case "h"
 strIntNotify = "Home Phone"
 Case "w"
 strIntNotify = "Work Phone"
 Case "p"
 strIntNotify = "Pager"
 Case "f"
 strIntNotify = "Fax"
 Case "e"
 strIntNotify = "E-mail"
 Case Else
 strIntNotify = "Do Not Notify"
 End Select
%>
 
 <table width="100%">
 

 <tr valign="top">
 <td>Name:<%= rsIntPty("int_salutation")%> <%= rsIntPty("int_fname")%> <%= rsIntPty("int_mname")%> <%= rsIntPty("int_lname")%>
 <td>Home Phone:<%= strIntHPhone%> <%= rsIntPty("int_phone_ext_h")%>
 <td>Work Phone:<%= strIntWPhone%> <%= rsIntPty("int_phone_ext_w")%>

 <tr valign="top">
 <td>Address:<%= rsIntPty("int_address_1")%>   <%= rsIntPty("int_address_2")%>
 <td>Fax:<%= strIntFax%>
 <td>Pager:<%= strIntPager%>

 <tr valign="top">
 <td>City, ST, Zip: <%= rsIntPty("int_city")%>,   <%= rsIntPty("int_state")%>   <%= rsIntPty("int_zipcode")%>
 <td>E-mail: <%= strIntEmail%>
 <td>Notify By:<%= strIntNotify%>
 </table>

<%
 End If
%>
 </fieldset>
 
 <fieldset id="fldCom" style="border-left:0.1cm double Gainsboro;border-top:0.1cm double LightGrey;border-bottom:0.07cm ridge silver; border-right:0.1cm ridge silver"><legend> <a name="List of Actions">Action Information </a></legend>


 
<%
 Do Until rsInfo.EOF


 Select Case RTrim(rsInfo("act_type"))
 Case "open"
 strActTypeDesc = "Open"
 Case "spec"
 strActTypeDesc = "Special Handling"
 Case "asign"
 strActTypeDesc = "Assigned"
 Case "close"
 strActTypeDesc = "Closed"
 Case "wip"
 strActTypeDesc = "Work in Process"
 Case "xfer"
 strActTypeDesc = "Transferred"
 Case "inv"
 strActTypeDesc = "Investigated"
 Case "cancl"
 strActTypeDesc = "Cancelled"
 End Select

 If rsInfo("act_dep_code")= "nb" and rsInfo("act_div_code")= "ps" Then
 Select Case rsInfo("act_activity_code2")
 Case 1
 sSubDiv ="Code Enforcement"
 Case 2
 sSubDiv ="Zoning"
 Case 3
 sSubDiv ="Animal Care"
 End Select
 End IF




 SQLStmt = "exec usp_SelDepDivDesc @DivCode='" & trim(rsInfo("ACT_DIV_CODE")) & "', @DepCode='" & Trim(rsInfo("ACT_DEP_CODE")) & "',@EOC=" & Application("EocActive") & ";"

 cmdTemp.CommandText=SQLStmt
 cmdTemp.CommandType = 1
 Set cmdTemp.ActiveConnection = Citydb
 Set rsCmplAcDiv = Server.CreateObject("ADODB.Recordset")
 rsCmplAcDiv.Open cmdTemp, , 1, 3

 If rsCmplAcDiv.BOF or rsCmplAcDiv.EOF Then
 stractDivDesc = "Division Description not Available"
 stractDepDesc = "Department Description not Available"
 Else
 stractDivDesc = rsCmplAcDiv("DIV_DESCRIPTION")
 stractDepDesc = rsCmplAcDiv("DEP_DESCRIPTION")
 End If

 rsCmplAcDiv.Close
 Set rsCmplAcDiv = Nothing

 If IsNull(rsInfo("act_comments")) or Trim( rsInfo("act_comments")) = "" Then
 strActComments = "(None)"
 Else
 strActComments = rsInfo("act_comments")
 End If


 If rsInfo("act_est_compl_date") <> "" Then
 If len (trim(rsInfo("act_est_compl_date")))<= 10 then
 strDate = trim(rsInfo("act_est_compl_date"))
 Else
 strDate = left(rsInfo("act_est_compl_date"),instr(rsInfo("act_est_compl_date")," "))
 End If
 End IF



%>

 <table width="100%" BGCOLOR="#FFFFE0">
 <tr valign="top">
 <td>Act.Date: <%= rsInfo("act_date")%></td>
 <td>Est.Completion: <%= strDate%></td>
 <td>Entered: <%= rsInfo("act_enter_date")%></td>
 </table>
 <table width="100%" BGCOLOR="#FFFFE0">
 <tr valign="top">
 <td> Action: 
<%
 If strActTypeDesc = "Special Handling" then
%>
 <%= strActTypeDesc %></td>
<%
 Else
%>
 <%= strActTypeDesc %></td>
<%
 End if
%>
 <td>Division / Department: <%=stractDivDesc%> / <%=stractDepDesc%></td>


<%'**AD*** Sub Division name***************************
 If rsInfo("act_dep_code")= "nb" and rsInfo("act_div_code")= "ps" Then
%>
 <td> Sub.Division : <%=sSubDiv%></td>
<%
 End IF
 If (rsInfo("act_DIV_CODE") = "sd" and rsInfo("act_DEP_CODE") = "pw") then
%>
 <tr valign="top">
<%
 If Not IsNull(rsInfo("ACT_RESPONSIBILITY_CODE")) Then
 SQLStmt = "exec usp_SelRspDesc @RspCode='" & rsInfo("ACT_RESPONSIBILITY_CODE") & "' ;"

 Set cmdTemp = Server.CreateObject("ADODB.Command")

 Set rsRespDesc = Server.CreateObject("ADODB.Recordset")

 cmdTemp.CommandText = SQLStmt

 cmdTemp.CommandType = 1 ' Stored Proc

 Set cmdTemp.ActiveConnection = Citydb


 Set rsRespDesc = cmdTemp.Execute



 strResp = rsRespDesc("RSP_CODE") & "-" & trim(rsRespDesc("RSP_DESCRIPTION"))

 rsRespDesc.Close
 Set rsRespDesc = Nothing
%>
 <td colspan="4">Responsibility Code: <%= strResp %></td>
 </tr>
<%
 End If
%>
 <tr valign="top">
<%
 If Not IsNull(rsInfo("ACT_SUSPENSE_DATE")) Then
%>
 <td>Suspense Date: <%= rsInfo("ACT_SUSPENSE_DATE") %></td>
<%
 End If
 If Not IsNull(rsInfo("ACT_BARRICADE_NUM")) Then
%>
 <td>Barricade Num: <%= rsInfo("ACT_BARRICADE_NUM") %></td>
<%
 End If
 If Not IsNull(rsInfo("ACT_LOCATE_NUM")) Then
%>
 <td>Locate Num: <%= rsInfo("ACT_LOCATE_NUM") %></td>
<%
 End If
%>
 <tr>

<%
 End if
%>
 </table>
 <table width="100%" BGCOLOR="#FFFFE0">
 <tr valign="top">
 <td colspan="8">Comments:  <%= strActComments%></td>

 </table> 

<%
 rsInfo.MoveNext

 Loop
%>
 </fieldset>

 


<fieldset id=fldCom style="border-left:0.1cm double Gainsboro;border-top:0.1cm double LightGrey;border-bottom:0.07cm ridge silver; border-right:0.1cm ridge silver"><legend><A Name="List of Follow Up Calls"> List of Follow Up Calls </A> </legend>

<%
 'cmdTemp.CommandText="SELECT * FROM FOLLOWUP WHERE ( FU_CMP_YEAR = " & strYear & ") AND ( FU_CMP_NUM = " & strNum & ") "
 'cmdTemp.CommandType = 1
 'Set cmdTemp.ActiveConnection = Citydb
 'Set rsFU = Server.CreateObject("ADODB.Recordset")
 'rsFU.Open cmdTemp, , 1, 3

 'If rsFU.BOF or rsFU.EOF then
 If bFollowUp = False Then
%>
 
 There are no FollowUp calls for this Issue 
<%
 Else
%>
 <fieldset id="fldCom" style="border-left:0.1cm double Gainsboro;border-top:0.1cm double LightGrey;border-bottom:0.07cm ridge silver; border-right:0.1cm ridge silver"><legend><a Name="List of Follow Up Calls"> List of Follow Up Calls </a> </legend>

<%
 sReason = ""
 sContact = ""
 Do Until rsFU.EOF
 If rsFU("FU_CASE") = "1" THEN
 sReason = "Need to speak with someone in the Department/Division"
 ElseIf rsFU("FU_CASE") = "2" THEN
 sReason = "Important information about the issue was updated"
 ElseIf rsFU("FU_CASE") = "3" THEN
 sReason = "General Information"
 ElseIf rsFU("FU_CASE") = "4" THEN
 sReason = "Need to speak with someone in the Dep/div and important information updated"
 End If
 If rsFU("FU_CASE") = "1" or rsFU("FU_CASE") = "4" Then
 If rsFU("FU_PHONE_CHK")= "H" THEN

 sContact = FmtPhNum(rsFU("FU_PHONE_H"))
 If LEN(TRIM(rsFU("FU_PHONE_EXT_H"))) > 0 Then
 sContact = sContact & " ext: " & rsFU("FU_PHONE_EXT_H")
 End If
 Elseif rsFU("FU_PHONE_CHK")= "W" Then

 sContact = FmtPhNum(rsFU("FU_PHONE_W"))
 If LEN(TRIM(rsFU("FU_PHONE_EXT_W"))) > 0 Then
 sContact = sContact & " ext: " & rsFU("FU_PHONE_EXT_W")
 End If

 End If
 End If

%>



 <table width="100%" BGCOLOR="#FAEBD7">

 <tr>
 <td align="left">Caller: <%= rsFU("fu_fname")%> <%= rsFU("fu_lname")%> </th></td>
 <td align="left">Address: <%= rsFU("fu_address")%> <%= rsFU("fu_city")%> <%= rsFU("fu_state")%> <%= rsFU("fu_zipcode")%></td>
 <td align="left">Date: <%= rsFU("fu_entered_date")%> </td>
 </tr>
 </table>
 <table width="100%" BGCOLOR="#FAEBD7">
 <tr>
 <td align="left">Reason for the Call: <%= sReason%> </td>
 </tr>
 <tr>
 <td align="left">
<%
 If (rsFU("FU_CASE") = "1" or rsFU("FU_CASE") = "4") and (rsFU("FU_PHONE_CHK") = "H" or rsFU("FU_PHONE_CHK") = "W" ) Then

%>
 Contact phone:<%= sContact%> 
<%
 If rsFU("FU_PHONE_CHK")= "H" Then
 If trim(rsFU("FU_PHONE_H")) <> "" Then
 strHomePhone = FmtPhNum(rsFU("FU_PHONE_H"))
 If LEN(TRIM(rsFU("FU_PHONE_EXT_H"))) > 0 Then
 strHomePhone = strHomePhone & " ext: " & rsFU("FU_PHONE_EXT_H")
 End If
%>
 Home phone:<%= strHomePhone%> 
<%
 End if
 Else
 If trim(rsFU("FU_PHONE_W")) <> "" Then
 strWorkPhone = FmtPhNum(rsFU("FU_PHONE_W"))
 If LEN(TRIM(rsFU("FU_PHONE_EXT_H"))) > 0 Then
 strWorkPhone = strWorkPhone & " ext: " & rsFU("FU_PHONE_EXT_W")
 End If
%>
 Work phone:<%= strWorkPhone%> 
<%
 End If
 End If
 Else
 If trim(rsFU("FU_PHONE_H")) <> "" Then

%>
 Home phone:<%= FmtPhNum(rsFU("FU_PHONE_H"))%> 
<%
 End If
 If trim(rsFU("FU_PHONE_W")) <> "" Then
%>
 Work phone:<%= FmtPhNum(rsFU("FU_PHONE_W"))%> 
<%
 End If
%>

<%
 End If
%>
 </td>
 </tr>
 </table>
 <table width="100%" BGCOLOR="#FAEBD7">
 <tr>
 <td align="left" colspan="3">Comments: <%= rsFU("fu_comments")%> </td>
 </tr>
 </table>   

<% rsFU.MoveNext
 Loop
End if
%>
</fieldset>

 </div>
 </fieldset>
<%
 rsAddresssearch.Close
 Set rsAddresssearch = Nothing
 rsSmr.Close
 Set rsSmr = Nothing
 rsIntPty.close
 Set rsIntPty = Nothing
 rsInfo.Close
 Set rsInfo = Nothing
 rsFU.Close
 Set rsFU = Nothing
 Citydb.Close
 Set Citydb = Nothing

 End IF
 End IF
End IF
%>
 </form>


</body>
</html>
==========================================================

Thank you.
Shura

by: Silvers5Posted on 2000-12-19 at 08:06:01ID: 32159

Shura.. nu ti navalil code blin!!!

by: ShuraPosted on 2000-12-19 at 08:40:42ID: 32269

What is wrong????? Chto tu imeesh v vidu????

by: rdmjrbPosted on 2000-12-19 at 10:17:35ID: 32660

Without debugging the libraries of codes you have posted I offer the following thoughts for your issue:

This issue will most likely be an environment issue:
>>I developed a popup window on PWS and have no problems at all
>>on IIS I am getting " error 'asp 0115' Unexpected error".

You are developing on one Internet Server version (PWS) and deploying on another (IIS). When you developed your code under PWS everything ran smoothly as expected. You then moved the code over to IIS and errors got thrown unexpectedly. This leads me to think that the version of PWS you develop on is greater then the version of IIS.

Your issue(s) may be twofold:
1.The IIS product you are using is buggy and needs either service pack updates or OS updates.
2.The code you develop was not the standard at the time of the IIS release and therefore looses some stability.

Options:
1.Go through your code and standardize everything.
PROS-gain development knowledge - develop stable apps
CONS-may take a great amount of time - may not be scalable - may not work - hard to maintain

2.Update your environment.
PROS-By using Microsoft's latest you (should) gain greater support, stability, enhancements - your development will have an advantage by using the cutting edge - your applications will have greater scalability - easier maintenance
CONS-it may cost a great deal (software/hardware/engineering/etc)

Opinion:
Spend a weekend or two or three standardizing your code but start making a plan to implement a server upgrade. The latter may be a large undertaking so be prepared to do tons of analysis, or come back here to ask experts more questions on how to go about doing this.
Short-term:go through your code and standardize it. Things like <input type="Text" name="textinput"> instead of <input type="Text">. Microsoft has said that the previous example may throw errors. (Note:This would never happen running at least IIS 4.0)
Long-tern:Update your development environment. Running IIS 5.0 on NT Server 5.0 (Windows 2000) SP1 will lend your applications (development & productivity) great advantages. The Visual Studio (Interdev) is going on version 7.0 (Studio.Net). This will also lend you huge developing advantages.

The bottom line:
Your application suffers from being deployed in a product that has bugs. You will most likely find other issues that most other developers do not have because of this. It may be very difficult to find solutions to these issues, since IIS has had many version updates since the release of your version.

General:
1.What OS/SP are you running? (As a general rule the later the OS/SP (NT 4.0 / SP5) the greater stability your environment will have.)
2.Have you broken your codes down to eliminate as many variables as possible? (I would start by ripping database connectivity and querystring key/value pairs out) This will give you a clearer picture of what is going on and why something is bombing.
3.What are the browser variations (if any) you use?

Resources:
http://www.msdn.microsoft.com
Search for '0115' or 'asp 0115'

http://support.microsoft.com/support/kb/articles/Q173/7/41.ASP
http://support.microsoft.com/support/kb/articles/Q177/0/36.ASP
http://support.microsoft.com/support/kb/articles/Q193/3/10.ASP

by: ShuraPosted on 2000-12-19 at 11:05:29ID: 32779

I would like to tell everybody Thank you.I tried to use
"Accept Comment as Answer" and I am getting "Time out".
I will try again and I am sorry if it will not work.

Thank you.
Shura.

by: rdmjrbPosted on 2000-12-19 at 12:43:39ID: 33096

Shura

This site has been very flakey for the last few weeks, so I suggest trying again later.

by: tyhungPosted on 2000-12-19 at 19:13:52ID: 33917

Hi shura, I donno what is the problem there, your code is too long and i didnt read through it.

I have the same problem when trying to update into my database and the input data size is bigger than the default size of the data field (defined as char 100).

by: tyhungPosted on 2000-12-19 at 19:16:47ID: 33921

I try to use trim() to eliminate the whitespace of the input variable will solve the problem.

by: Silvers5Posted on 2000-12-20 at 00:03:31ID: 34422

Shura... post the lines that the error points to.. and some code that is related to that line (about 10-15 lines of code around it) ....

by: mudfacePosted on 2001-08-08 at 15:22:14ID: 6366110

What is the status with this one? I have having asp errors 0115 and am trying to track down the cause..

by: Silvers5Posted on 2001-08-08 at 23:23:23ID: 6366941

When ASP reports 0115, it means:
"I don't know what the cause for the error is"

The reason is that 0115 stands for an error EXTERNAL to ASP.

Listed below are some of the common causes for ASP returning the 0115 error, followed by some recommended troubleshooting techniques:

----------

1. Permission and authentication issues with files and registry keys.

Errors may occur if the authenticated user does not have sufficient permissions on other files such as custom components, system dynamic-link libraries (DLLs), and even registry keys.

ASP scripts are typically executed in the security context of the IUSR_<machine_name> account.

If you believe you are dealing with a permissions problem in the registry, you can use Regedt32.exe to examine permissions on the various registry keys. In particular, you may want to look at ODBC, Jet, ADO, and other keys
that might be relevant to the problem. If you have a machine that is working properly, try comparing key permissions between the two machines.

The first step is to determine if you really are seeing a permissions problem. A good test is to temporarily add the anonymous logon account (IUSR_<machine_name>) to the administrators group using User Manager. This gives the IUSR_<machine_name> account administrative privileges on the machine. If this causes ASP to function properly, you are almost certainly dealing with a permissions issue.

Note: When you have finished debugging, be sure to remove the IUSR_<machine_name> account from the administrators group to minimize the security risk on your server.

Refer to the following article for additional information:

Q185874 How to Troubleshoot Permissions in IIS 4.0
http://support.microsoft.com/support/kb/articles/q185/8/74.asp
----------

2. Incorrectly registered dlls or incompatible dll version issues.

If you are developing applications with Visual Basic for your web server, you might create a dependency file and compare the file verions to the files installed on your server.

Refer to the following articles:

Q178354 HOWTO: Setup Wizard Dependency Files
http://support.microsoft.com/support/kb/articles/q178/3/54.asp
Q185599 BUG: OleAut32.dll Is Unregistered Incorrectly

http://support.microsoft.com/support/kb/articles/q185/5/59.asp
Q145676 Registry Overwritten with Same ProgID/Different Bitness Server

http://support.microsoft.com/support/kb/articles/q145/6/76.asp

----------

3. Unhandled errors returned from components.

----------

4. Form elements are not named.

Refer to the following article:

Q173741 PRB: Random ASP 0115 Errors when Submitting Form

http://support.microsoft.com/support/kb/articles/q173/7/41.asp

----------

5. Use of the ASP Session Object prior to version 1.24.09 of the ASP dll

Refer to the following article:

Q177036 FIX: ASP 0115 Error Occur With The Session Object
http://support.microsoft.com/support/kb/articles/q177/0/36.asp

----------

6. Use of components that are not thread-safe in a multi-threaded environment.

Refer to the following articles:

Q191979 PRB: VB Component Not Marked Apartment Produces ASP 0115 Error
http://support.microsoft.com/support/kb/articles/q191/9/79.asp

Q172925 INFO: Security Issues with Objects in ASP and ISAPI Extensions

http://support.microsoft.com/support/kb/articles/q172/9/25.asp

Q150777 INFO: Descriptions and Workings of OLE Threading Models

http://support.microsoft.com/support/kb/articles/q150/7/77.asp

----------

7. Using Microsoft Data Access Components (MDAC) 2.0 on IIS 3.0.

Refer to the following article:

Q193310 FIX: ADO 2.0 Generates Error 0115 When Used with IIS 3.0

http://support.microsoft.com/support/kb/articles/q193/3/10.asp

------------------------------------------------------------

Over and above that...if Stored Procedures are being used, watch out for these possible causes of 0115 errors:

----------

1) SP parameters which don't have a value generate 0115 error.

If a stored procedure's parameter doesn't have a value, a 0115 error is generated.

The solution is to validate the parameter before running the ADO script.

----------

2) Incorrect parameter values generate 0115 error.

If a stored procedure's parameter has an incorrect value, a 0115 error is generated.

Examples :

a) Changing the length of a field in a look-up table and not changing it in the stored procedure.
b) Changing the length of a field in a details table and not changing it in the lookup table.

When incorrect field-lengths are passed to the stored procedure, a 0115 error is generated.

The solution is to ensure that correct parameter values are passed to the SP.

----------

3) Reserved SQL Server words :

Using SQL Server Reserved words in SP's, like "SECTION", will generate a 0115 error.

The solution is NOT to use Reserved SQL Server words in SP's.

-----------------------

Additional to that, I've had a couple of reports about how:

1) setting an Application to run in its own memory space has fixed the 0115 error.

2) Installing MDAC2.1 (if MDAC1.5 or 2.0 was being used with IIS3/4) has fixed the 0115 error.

It might be worthwhile for you to look into those possible fixes.

This is NOT an exhaustive list.

For example, any problem in a custom VB or VC++ component could bring about an ASP 0115 error message.

by: hongjunPosted on 2003-02-27 at 19:52:43ID: 8039188

No comment has been added lately, so it's time to clean up this TA.
I will leave a recommendation in the Cleanup topic area that this question is:
[points to rdmjrb]

Please leave any comments here within the next seven days.

PLEASE DO NOT ACCEPT THIS COMMENT AS AN ANSWER!

hongjun
EE Cleanup Volunteer

by: NetminderPosted on 2003-03-09 at 21:32:06ID: 8100831

Per recommendation, force-accepted.

Netminder
EE Admin

Question

error 'asp 0115' Unexpected error

Subscribe now for full access to Experts Exchange and get

Instant Access to this Solution

Active Server Pages (ASP)

Trusted by hundreds of thousands everyday for fast, accurate and reliable tech support.

See what Experts Exchange can do for you.

Got a question?

We've got the answer.

Need individual assistance?

Our experts are ready to help.

Want to learn from the best?

Read articles from industry experts.

Working on a long term project?

Store your work and research.

What Makes Experts Exchange Unique?

Trusted by the world's most respected brands.

Faithfully serving IT professionals since 1996.

Related Solutions

Free Tech Articles

Cloud Class Webinars

Join the Community

Give a Little. Get a Lot.

Answers

3 Ways to Join

The Experts

The Experts

Testimonials

Testimonials

Testimonials

Business Clients

Business Clients

In the Press

In the Press

In the Press