Experts,
We currently use the javascript swap / restore image bahaviours on our property website. Please have a look at the following page for example.
http://www.bspc.co.uk/bspc/propertydetails.asp?pRef=6085&pPostCode=TD5%207BSYou will notice that the thumbnail images swap with the main image on mouse over.
We have seen other sites where the image fades in and would like to incorporate this into our site. Please see below the code for the page. Can anyone suggest how we can have the images fade in?
Thanks in advance for any suggestions.
<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="../Connections/bspc_
database.a
sp" -->
<% Session.LCID = 2057 %>
<%
if(Request.Querystring("pR
ef") <> "") then Command1__vpRef = Request.Querystring("pRef"
)
%>
<%
Dim propertydetails__MMColPara
m
propertydetails__MMColPara
m = "1"
If (Request.QueryString("pRef
") <> "") Then
propertydetails__MMColPara
m = Request.QueryString("pRef"
)
End If
%>
<%
Dim propertydetails
Dim propertydetails_numRows
Set propertydetails = Server.CreateObject("ADODB
.Recordset
")
propertydetails.ActiveConn
ection = MM_bspc_database_STRING
propertydetails.Source = "SELECT * FROM dbo.current_residential WHERE pRef = " + Replace(propertydetails__M
MColParam,
"'", "''") + ""
propertydetails.CursorType
= 0
propertydetails.CursorLoca
tion = 2
propertydetails.LockType = 1
propertydetails.Open()
propertydetails_numRows = 0
%>
<%
Dim propertypdfs__MMColParam
propertypdfs__MMColParam = "1"
If (Request.Querystring("pRef
") <> "") Then
propertypdfs__MMColParam = Request.Querystring("pRef"
)
End If
%>
<%
Dim propertypdfs
Dim propertypdfs_numRows
Set propertypdfs = Server.CreateObject("ADODB
.Recordset
")
propertypdfs.ActiveConnect
ion = MM_bspc_database_STRING
propertypdfs.Source = "SELECT * FROM dbo.propertyPDFS WHERE ppRef = '" + Replace(propertypdfs__MMCo
lParam, "'", "''") + "'"
propertypdfs.CursorType = 0
propertypdfs.CursorLocatio
n = 2
propertypdfs.LockType = 1
propertypdfs.Open()
propertypdfs_numRows = 0
%>
<%
Dim imagea__MMColParam
imagea__MMColParam = "1"
If (Request.QueryString("pRef
") <> "") Then
imagea__MMColParam = Request.QueryString("pRef"
)
End If
%>
<%
Dim imagea
Dim imagea_numRows
Set imagea = Server.CreateObject("ADODB
.Recordset
")
imagea.ActiveConnection = MM_bspc_database_STRING
imagea.Source = "SELECT pPhoteFilea FROM dbo.propertyimages WHERE pRef = " + Replace(imagea__MMColParam
, "'", "''") + ""
imagea.CursorType = 0
imagea.CursorLocation = 2
imagea.LockType = 1
imagea.Open()
imagea_numRows = 0
%>
<%
Dim imageb__MMColParam
imageb__MMColParam = "1"
If (Request.QueryString("pRef
") <> "") Then
imageb__MMColParam = Request.QueryString("pRef"
)
End If
%>
<%
Dim imageb
Dim imageb_numRows
Set imageb = Server.CreateObject("ADODB
.Recordset
")
imageb.ActiveConnection = MM_bspc_database_STRING
imageb.Source = "SELECT pPhoteFileb FROM dbo.propertyimages WHERE pRef = " + Replace(imageb__MMColParam
, "'", "''") + ""
imageb.CursorType = 0
imageb.CursorLocation = 2
imageb.LockType = 1
imageb.Open()
imageb_numRows = 0
%>
<%
Dim imagec__MMColParam
imagec__MMColParam = "1"
If (Request.QueryString("pRef
") <> "") Then
imagec__MMColParam = Request.QueryString("pRef"
)
End If
%>
<%
Dim imagec
Dim imagec_numRows
Set imagec = Server.CreateObject("ADODB
.Recordset
")
imagec.ActiveConnection = MM_bspc_database_STRING
imagec.Source = "SELECT pPhoteFilec FROM dbo.propertyimages WHERE pRef = " + Replace(imagec__MMColParam
, "'", "''") + ""
imagec.CursorType = 0
imagec.CursorLocation = 2
imagec.LockType = 1
imagec.Open()
imagec_numRows = 0
%>
<%
Dim imaged__MMColParam
imaged__MMColParam = "1"
If (Request.QueryString("pRef
") <> "") Then
imaged__MMColParam = Request.QueryString("pRef"
)
End If
%>
<%
Dim imaged
Dim imaged_numRows
Set imaged = Server.CreateObject("ADODB
.Recordset
")
imaged.ActiveConnection = MM_bspc_database_STRING
imaged.Source = "SELECT pPhoteFiled FROM dbo.propertyimages WHERE pRef = " + Replace(imaged__MMColParam
, "'", "''") + ""
imaged.CursorType = 0
imaged.CursorLocation = 2
imaged.LockType = 1
imaged.Open()
imaged_numRows = 0
%>
<%
Dim imagee__MMColParam
imagee__MMColParam = "1"
If (Request.QueryString("pRef
") <> "") Then
imagee__MMColParam = Request.QueryString("pRef"
)
End If
%>
<%
Dim imagee
Dim imagee_numRows
Set imagee = Server.CreateObject("ADODB
.Recordset
")
imagee.ActiveConnection = MM_bspc_database_STRING
imagee.Source = "SELECT pPhoteFilee FROM dbo.propertyimages WHERE pRef = " + Replace(imagee__MMColParam
, "'", "''") + ""
imagee.CursorType = 0
imagee.CursorLocation = 2
imagee.LockType = 1
imagee.Open()
imagee_numRows = 0
%>
<%
Dim imagef__MMColParam
imagef__MMColParam = "1"
If (Request.QueryString("pRef
") <> "") Then
imagef__MMColParam = Request.QueryString("pRef"
)
End If
%>
<%
Dim imagef
Dim imagef_numRows
Set imagef = Server.CreateObject("ADODB
.Recordset
")
imagef.ActiveConnection = MM_bspc_database_STRING
imagef.Source = "SELECT pPhoteFilef FROM dbo.propertyimages WHERE pRef = " + Replace(imagef__MMColParam
, "'", "''") + ""
imagef.CursorType = 0
imagef.CursorLocation = 2
imagef.LockType = 1
imagef.Open()
imagef_numRows = 0
%>
<%
Dim propertyvt__MMColParam
propertyvt__MMColParam = "1"
If (Request.QueryString("pRef
") <> "") Then
propertyvt__MMColParam = Request.QueryString("pRef"
)
End If
%>
<%
Dim propertyvt
Dim propertyvt_numRows
Set propertyvt = Server.CreateObject("ADODB
.Recordset
")
propertyvt.ActiveConnectio
n = MM_bspc_database_STRING
propertyvt.Source = "SELECT * FROM dbo.propertyVTS WHERE pvRef = '" + Replace(propertyvt__MMColP
aram, "'", "''") + "'"
propertyvt.CursorType = 0
propertyvt.CursorLocation = 2
propertyvt.LockType = 1
propertyvt.Open()
propertyvt_numRows = 0
%>
<%
Dim localinformation__MMColPar
am
localinformation__MMColPar
am = "1"
If (Request.QueryString("pPos
tCode") <> "") Then
localinformation__MMColPar
am = Request.QueryString("pPost
Code")
End If
%>
<%
Dim localinformation
Dim localinformation_numRows
Set localinformation = Server.CreateObject("ADODB
.Recordset
")
localinformation.ActiveCon
nection = MM_bspc_database_STRING
localinformation.Source = "SELECT * FROM dbo.localinformation WHERE pPostCode = '" + Replace(localinformation__
MMColParam
, "'", "''") + "'"
localinformation.CursorTyp
e = 0
localinformation.CursorLoc
ation = 2
localinformation.LockType = 1
localinformation.Open()
localinformation_numRows = 0
%>
<%
set Command1 = Server.CreateObject("ADODB
.Command")
Command1.ActiveConnection = MM_bspc_database_STRING
Command1.CommandText = "INSERT INTO dbo.PropertyDetailsCount (pRef, pCount) VALUES (" + Replace(Command1__vpRef, "'", "''") + ",1) "
Command1.CommandType = 1
Command1.CommandTimeout = 0
Command1.Prepared = true
Command1.Execute()
%>
<%
Dim count__MMColParam
count__MMColParam = "abc"
If (Request.Querystring("pRef
") <> "") Then
count__MMColParam = Request.Querystring("pRef"
)
End If
%>
<%
Dim count
Dim count_numRows
Set count = Server.CreateObject("ADODB
.Recordset
")
count.ActiveConnection = MM_bspc_database_STRING
count.Source = "SELECT Count(pRef) count FROM dbo.PropertyDetailsCount WHERE pRef = " + Replace(count__MMColParam,
"'", "''") + " "
count.CursorType = 0
count.CursorLocation = 2
count.LockType = 1
count.Open()
count_numRows = 0
%>
<%
Dim MM_paramName
%>
<%
' *** Go To Record and Move To Record: create strings for maintaining URL and Form parameters
Dim MM_keepNone
Dim MM_keepURL
Dim MM_keepForm
Dim MM_keepBoth
Dim MM_removeList
Dim MM_item
Dim MM_nextItem
' create the list of parameters which should not be maintained
MM_removeList = "&index="
If (MM_paramName <> "") Then
MM_removeList = MM_removeList & "&" & MM_paramName & "="
End If
MM_keepURL=""
MM_keepForm=""
MM_keepBoth=""
MM_keepNone=""
' add the URL parameters to the MM_keepURL string
For Each MM_item In Request.QueryString
MM_nextItem = "&" & MM_item & "="
If (InStr(1,MM_removeList,MM_
nextItem,1
) = 0) Then
MM_keepURL = MM_keepURL & MM_nextItem & Server.URLencode(Request.Q
ueryString
(MM_item))
End If
Next
' add the Form variables to the MM_keepForm string
For Each MM_item In Request.Form
MM_nextItem = "&" & MM_item & "="
If (InStr(1,MM_removeList,MM_
nextItem,1
) = 0) Then
MM_keepForm = MM_keepForm & MM_nextItem & Server.URLencode(Request.F
orm(MM_ite
m))
End If
Next
' create the Form + URL string and remove the intial '&' from each of the strings
MM_keepBoth = MM_keepURL & MM_keepForm
If (MM_keepBoth <> "") Then
MM_keepBoth = Right(MM_keepBoth, Len(MM_keepBoth) - 1)
End If
If (MM_keepURL <> "") Then
MM_keepURL = Right(MM_keepURL, Len(MM_keepURL) - 1)
End If
If (MM_keepForm <> "") Then
MM_keepForm = Right(MM_keepForm, Len(MM_keepForm) - 1)
End If
' a utility function used for adding additional parameters to these strings
Function MM_joinChar(firstItem)
If (firstItem <> "") Then
MM_joinChar = "&"
Else
MM_joinChar = ""
End If
End Function
%>
<% Session("pPostCode") = (propertydetails.Fields.It
em("pPostC
ode").Valu
e) %>
<% Session("first") = (propertydetails.Fields.It
em("pRef")
.Value) %>
<% Session("pRefmustbe") = (propertydetails.Fields.It
em("pRef")
.Value)%>
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_preloadImages() { //v3.0
var d=document; if(d.imagea){ if(!d.MM_p) d.MM_p=new Array();
var i,j=d.MM_p.length,a=MM_pre
loadImages
.arguments
; for(i=0; i<a.length; i++)
if (a[i].indexOf("#")!=0){ d.MM_p[j]=new Image; d.MM_p[j++].src=a[i];}}
}
//-->
</script>
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_reloadPage(init) { //reloads the window if Nav4 resized
if (init==true) with (navigator) {if ((appName=="Netscape")&&(p
arseInt(ap
pVersion)=
=4)) {
document.MM_pgW=innerWidth
; document.MM_pgH=innerHeigh
t; onresize=MM_reloadPage; }}
else if (innerWidth!=document.MM_p
gW || innerHeight!=document.MM_p
gH) location.reload();
}
MM_reloadPage(true);
function formButtonFever(formName,a
ction){
var myString = "document."+formName+"."+a
ction+"();
";
eval(myString);
}
function MM_openBrWindow(theURL,win
Name,featu
res) { //v2.0
window.open(theURL,winName
,features)
;
}
function MM_swapImgRestore() { //v3.0
var i,x,a=document.MM_sr; for(i=0;a&&i<a.length&&(x=
a[i])&&x.o
Src;i++) x.src=x.oSrc;
}
function MM_findObj(n, d) { //v4.01
var p,i,x; if(!d) d=document; if((p=n.indexOf("?"))>0&&p
arent.fram
es.length)
{
d=parent.frames[n.substrin
g(p+1)].do
cument; n=n.substring(0,p);}
if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;
i++) x=d.forms[i][n];
for(i=0;!x&&d.layers&&i<d.
layers.len
gth;i++) x=MM_findObj(n,d.layers[i]
.document)
;
if(!x && d.getElementById) x=d.getElementById(n); return x;
}
function MM_swapImage() { //v3.0
var i,j=0,x,a=MM_swapImage.arg
uments; document.MM_sr=new Array; for(i=0;i<(a.length-2);i+=
3)
if ((x=MM_findObj(a[i]))!=nul
l){documen
t.MM_sr[j+
+]=x; if(!x.oSrc) x.oSrc=x.src; x.src=a[i+2];}
}
//-->
<% Session("pPostCode") = (propertydetails.Fields.It
em("pPostC
ode").Valu
e)%>
</script>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
"
http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="
http://www.w3.org/1999/xhtml"
xml:lang="en" lang="en">
<head>
<title>BSPC Borders Solicitors Property Centre Property Guide</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<link href="genstyles_original.c
ss" rel="stylesheet" type="text/css" />
<style type="text/css">
<!--
.style2 {color: #990000}
-->
</style>
</head>
<body>
<!--#include file="bspcheader_blank.asp
" -->
<!--#include file="bspcmainnav.asp" -->
<div class="mainpic"> <a href="forsale.asp"><img src="images/header/solicit
or_l.jpg" alt="BSPC feature" width="150" height="292" border="0" /></a></div>
</div>
<div id="homecontent">
<table width="100%" height="0" border="0" cellpadding="0" cellspacing="5">
<tr>
<td width="0" height="85" align="left"><a href="javascript: history.go(-1)"><img src="/bspc/images/header/h
elp.jpg" alt="BSPC feature" width="600" height="85" border="0" /></a></td>
<td width="150" rowspan="2" align="center" valign="top" background="images/adverti
sing.jpg" bgcolor="#CCCCCC"><img src="images/spacer.gif" width="150" height="5" /></td>
</tr>
<tr>
<td width="594" height="0" valign="top">
<div id ="formcontainer">
<table width="100%" height="0" border="0" cellpadding="2" cellspacing="0" >
<tr>
<td height="20" colspan="3" background="images/nav_bg.
gif">
<h3><%=(propertydetails.Fi
elds.Item(
"pAddress1
").Value)%
> <%=(propertydetails.Fields
.Item("pAd
dress2").V
alue)%>, <%=(propertydetails.Fields
.Item("pTo
wn").Value
)%> &
nbsp; 
;
<% if (propertydetails.Fields.It
em("pPrice
Type").Val
ue) = "O/O " then %>
Offers Over
<%End If%>
<% if (propertydetails.Fields.It
em("pPrice
Type").Val
ue) = "F/P " then %>
Fixed Price
<%End If%>
<% if (propertydetails.Fields.It
em("pPrice
Type").Val
ue) = "IRO " then %>
In Region Of
<%End If%>
<% if (propertydetails.Fields.It
em("pPrice
Type").Val
ue) = "O/A " then %>
Offers Around
<%End If%>
<% if (propertydetails.Fields.It
em("pPrice
Type").Val
ue) = "POA " then %>
Price on Application
<%End If%>
<%= FormatCurrency((propertyde
tails.Fiel
ds.Item("p
Price").Va
lue), 0, -2, -2, -2) %><br />
</h3></td>
</tr>
<tr>
<td width="172" height="20">
<p><img src="images/icons/printer.
gif" width="16" height="16" hspace="4" align="absbottom" /><A HREF="propertydetails_prin
terfriendl
y.asp?<%= Server.HTMLEncode(MM_keepN
one) & MM_joinChar(MM_keepNone) & "pRef=" & propertydetails.Fields.Ite
m("pRef").
Value %>">Printer-friendly version</A></p></td>
<td width="173" align="right">
<p><a href="forsale.asp">> New property search</a></p></td>
<td height="20" align="right"><p><a href="javascript: history.go(-1)">< Return
to search results </a></p></td>
</tr>
<tr>
<td colspan="2" valign="top" bgcolor="#DBDBDB">
<div align="center"><img src="/bspc/propertyphotos/
<%=(proper
tydetails.
Fields.Ite
m("pPhoteF
ile").Valu
e)%>" alt="property photograph" name="image" width="345" height="235" hspace="0" vspace="0" border="0" id="image" />
</div>
<h4>Property Details :
<% if (propertydetails.Fields.It
em("pStage
").Value) = "UNDEROFF " then %>
<font color="#990000"><strong>Un
der Offer</strong></font><br />
<%End If%>
<% if (propertydetails.Fields.It
em("pClosi
ngdate").V
alue) <> "NULL" then %>
<span class="style2">Closing Date <%=(propertydetails.Fields
.Item("pCl
osingdate"
).Value)%>
</span>
<%End If%>
</h4>
<p> <%=(propertydetails.Fields
.Item("pDe
scription"
).Value)%>
<p><a href="javascript: history.go(-1)"><br />
< Return
to search results </a>
<p><br />
<p>
<p>
<p><img src="/bspc/images/icons/vi
ewdetails.
gif" width="16" height="16" align="absmiddle" /><font size="1">Number
of viewings online at
www.bspc.co.uk: <%=(count.Fields.Item("cou
nt").Value
)%></font>
</p>
<p>
<br />
<p></td>
<td width="51%" valign="top">
<% If Not imagea.EOF Or Not imagea.BOF Then %>
<h4>Additional photographs:</h4>
<p> Place cursor over image to enlarge</p>
<% End If ' end Not imagea.EOF Or NOT imagea.BOF %> <table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="33%"><% If Not imagea.EOF Or Not imagea.BOF Then %>
<% If (imagea.Fields.Item("pPhot
eFilea").V
alue) <> "NULL " then %>
<a href="javascript:;" onMouseOver="MM_swapImage(
'image',''
,'/bspc//p
ropertypho
tos/<%=(im
agea.Field
s.Item("pP
hoteFilea"
).Value)%>
',1)" onMouseOut="MM_swapImgRest
ore()"><im
g src="/bspc/propertyphotos/
<%=(imagea
.Fields.It
em("pPhote
Filea").Va
lue)%>" alt="Property photograph" name="photeFilea" width="70" height="44" border="0" id="photeFilea""></a>
<% End If %>
<% End If ' end Not imagea.EOF Or NOT imagea.BOF %> </td>
<td width="33%"><% If Not imagec.EOF Or Not imagec.BOF Then %>
<% If (imagec.Fields.Item("pPhot
eFilec").V
alue) <> "NULL " then %>
<a href="javascript:;" onMouseOver="MM_swapImage(
'image',''
,'/bspc//p
ropertypho
tos/<%=(im
agec.Field
s.Item("pP
hoteFilec"
).Value)%>
',1)" onMouseOut="MM_swapImgRest
ore()"><im
g src="/bspc/propertyphotos/
<%=(imagec
.Fields.It
em("pPhote
Filec").Va
lue)%>" alt="Property photograph" name="photeFilec" width="70" height="44" border="0" id="photeFilec""></a>
<% End If %>
<% End If ' end Not imagec.EOF Or NOT imagec.BOF %> </td>
<td width="33%"><% If Not imagee.EOF Or Not imagee.BOF Then %>
<% If (imagee.Fields.Item("pPhot
eFilee").V
alue) <> "NULL " then %>
<a href="javascript:;" onMouseOver="MM_swapImage(
'image',''
,'/bspc//p
ropertypho
tos/<%=(im
agee.Field
s.Item("pP
hoteFilee"
).Value)%>
',1)" onMouseOut="MM_swapImgRest
ore()"><im
g src="/bspc/propertyphotos/
<%=(imagee
.Fields.It
em("pPhote
Filee").Va
lue)%>" alt="Property photograph" name="photeFilee" width="70" height="44" border="0" id="photeFilee""></a>
<% End If %>
<% End If ' end Not imagee.EOF Or NOT imagee.BOF %> </td>
</tr>
<tr>
<td><% If Not imageb.EOF Or Not imageb.BOF Then %>
<% If (imageb.Fields.Item("pPhot
eFileb").V
alue) <> "NULL " then %>
<a href="javascript:;" onMouseOver="MM_swapImage(
'image',''
,'/bspc//p
ropertypho
tos/<%=(im
ageb.Field
s.Item("pP
hoteFileb"
).Value)%>
',1)" onMouseOut="MM_swapImgRest
ore()"><im
g src="/bspc/propertyphotos/
<%=(imageb
.Fields.It
em("pPhote
Fileb").Va
lue)%>" alt="Property photograph" name="photeFileb" width="70" height="44" border="0" id="photeFileb""></a>
<% End If %>
<% End If ' end Not imageb.EOF Or NOT imageb.BOF %> </td>
<td><% If Not imaged.EOF Or Not imaged.BOF Then %>
<% If (imaged.Fields.Item("pPhot
eFiled").V
alue) <> "NULL " then %>
<a href="javascript:;" onMouseOver="MM_swapImage(
'image',''
,'/bspc//p
ropertypho
tos/<%=(im
aged.Field
s.Item("pP
hoteFiled"
).Value)%>
',1)" onMouseOut="MM_swapImgRest
ore()"><im
g src="/bspc/propertyphotos/
<%=(imaged
.Fields.It
em("pPhote
Filed").Va
lue)%>" alt="Property photograph" name="photeFiled" width="70" height="44" border="0" id="photeFiled""></a>
<% End If %>
<% End If ' end Not imaged.EOF Or NOT imaged.BOF %> </td>
<td><% If Not imagef.EOF Or Not imagef.BOF Then %>
<% If (imagef.Fields.Item("pPhot
eFilef").V
alue) <> "NULL " then %>
<a href="javascript:;" onMouseOver="MM_swapImage(
'image',''
,'/bspc//p
ropertypho
tos/<%=(im
agef.Field
s.Item("pP
hoteFilef"
).Value)%>
',1)" onMouseOut="MM_swapImgRest
ore()"><im
g src="/bspc/propertyphotos/
<%=(imagef
.Fields.It
em("pPhote
Filef").Va
lue)%>" alt="Property photograph" name="photeFilef" width="70" height="44" border="0" id="photeFilef""></a>
<% End If %>
<% End If ' end Not imagef.EOF Or NOT imagef.BOF %> </td>
</tr>
</table>
<h4> Additional information:</h4>
<p>
<% If Not propertypdfs.EOF Or Not propertypdfs.BOF Then %>
<img src="images/icons/page_whi
te_acrobat
.gif" alt="view schedule" width="16" height="16" hspace="2" vspace="3" align="absmiddle" /><a href="pdfs/<%=(propertypdf
s.Fields.I
tem("ppPdf
File").Val
ue)%>" target="_blank">View
schedule</a> <br />
<% End If ' end Not propertypdfs.EOF Or NOT propertypdfs.BOF %>
<img src="/bspc/images/icons/vi
ewmap.gif"
alt="view map" width="16" height="16" hspace="2" vspace="3" align="absmiddle" /><a href="
http://uk.multimap.com/p/browse.cgi?pc=<
%=(propert
ydetails.F
ields.Item
("pPostCod
e").Value)
%>" target="_blank">View
map</a><br />
<% If Not propertyvt.EOF Or Not propertyvt.BOF Then %>
<img src="/bspc/images/icons/vi
ewtour.gif
" alt="view virtual tour" width="16" height="16" hspace="2" vspace="3" align="absmiddle" /><a href="
http://www.360eTours.net/tour.asp?id=<%=
(propertyv
t.Fields.I
tem("pvVid
").Value)%
>" width=761 height=533 target="_blank">View virtual tour
</a><br />
<% End If ' end Not propertyvt.EOF Or NOT propertyvt.BOF %>
<% If Not localinformation.EOF Or Not localinformation.BOF Then %>
<img src="/bspc/images/icons/in
fo.gif" alt="view local information" width="16" height="16" hspace="2" vspace="3" align="absmiddle" /><A HREF="localinformation.asp
?<%= Server.HTMLEncode(MM_keepN
one) & MM_joinChar(MM_keepNone) & "pPostCode=" & propertydetails.Fields.Ite
m("pPostCo
de").Value
%>&pRef=<%=(propertydetail
s.Fields.I
tem("pRef"
).Value)%>
">View local information</A><br />
<% End If ' end Not localinformation.EOF Or NOT localinformation.BOF %>
<img src="images/icons/money.gi
f" alt="view council tax band" width="16" height="16" hspace="2" vspace="3" border="0" align="absmiddle" /><a href="javascript:;" onclick="MM_openBrWindow('
http://www.saa.gov.uk/searchterm.php?st=<%=(proper
tydetails.
Fields.Ite
m("pPostCo
de").Value
)%>','coun
cil','scro
llbars=yes
,width=780
,height=60
0')">View
Council Tax band </a><br />
<img src="/bspc/images/icons/po
rtfolio.gi
f" alt="add to my bspc portfolio" width="16" height="16" hspace="2" vspace="3" align="absmiddle" /><A HREF="propertydetails_addt
oportfolio
.asp?<%= Server.HTMLEncode(MM_keepN
one) & MM_joinChar(MM_keepNone) & "pRef=" & propertydetails.Fields.Ite
m("pRef").
Value %>">Add
to my BSPC portfolio</A><br />
<img src="/bspc/images/icons/mo
rtgagecalc
.gif" alt="mortgage calculator" width="16" height="16" hspace="2" vspace="3" align="absmiddle" /><A HREF="mortgagecalc.asp?<%=
Server.HTMLEncode(MM_keepN
one) & MM_joinChar(MM_keepNone) & "pRef=" & propertydetails.Fields.Ite
m("pRef").
Value %>">Mortgage
calculator</A><br />
<img src="/bspc/images/icons/em
ail.gif" alt="e-mail solicitor" width="16" height="16" hspace="2" vspace="3" align="absmiddle" /><A HREF="emailsolicitor.asp?<
%= Server.HTMLEncode(MM_keepN
one) & MM_joinChar(MM_keepNone) & "pRef=" & propertydetails.Fields.Ite
m("pRef").
Value %>">E-mail
Selling Solicitor</A> </p>
<h4> <br />
BSPC selling solicitor: </h4>
<p> <%=(propertydetails.Fields
.Item("MbM
emberName"
).Value)%>
<br />
<%=(propertydetails.Fields
.Item("MbS
iteAddress
1").Value)
%> <%=(propertydetails.Fields
.Item("MbS
iteAddress
2").Value)
%> <br />
<%=(propertydetails.Fields
.Item("MbS
iteAddress
Town").Val
ue)%>, <%=(propertydetails.Fields
.Item("MbS
itePostCod
e").Value)
%></p>
<p>Tel: <%=(propertydetails.Fields
.Item("MbS
iteTelepho
ne").Value
)%><br />
Fax: <%=(propertydetails.Fields
.Item("MbS
iteFax").V
alue)%><a
href="
http://<%=(propertyd
etails.Fie
lds.Item("
MbSiteWeb"
).Value)%>
"
target="_blank"><br />
<%=(propertydetails.Fields
.Item("MbS
iteWeb").V
alue)%></a
> <br />
<img src="
http://www.gilmoreplace.co.uk/bspc<%=(pro
pertydetai
ls.Fields.
Item("MbLo
goFile").V
alue)%>" alt="solicitor logo" width="142" height="100" hspace="0" vspace="5" /><br />
</p></td>
</tr>
</table>
</div></td>
</tr>
<tr align="center">
<td height="0" valign="top"> <p><a href="terms.asp">terms and conditions</a> | <a href="privacy.asp">privacy
</a> | <a href="advertise.asp">adver
tise</a> | <a href="
http://www.bordermc.co.uk" target="_blank">site by Border Marketing Co</a> | Copyrig
ht © 2006 BSPC</p></td>
<td valign="top"> </td>
</tr>
</table>
</div>
</body>
</html>
<%
propertydetails.Close()
Set propertydetails = Nothing
%>
<%
propertypdfs.Close()
Set propertypdfs = Nothing
%>
<%
imagea.Close()
Set imagea = Nothing
%>
<%
imageb.Close()
Set imageb = Nothing
%>
<%
imagec.Close()
Set imagec = Nothing
%>
<%
imaged.Close()
Set imaged = Nothing
%>
<%
imagee.Close()
Set imagee = Nothing
%>
<%
imagef.Close()
Set imagef = Nothing
%>
<%
propertyvt.Close()
Set propertyvt = Nothing
%>
<%
localinformation.Close()
Set localinformation = Nothing
%>
<%
count.Close()
Set count = Nothing
%>
