Solved

Javascript swap image with fade

Posted on 2006-07-08
3
7,563 Views
Last Modified: 2013-12-16
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%207BS

You 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.asp" -->

<% Session.LCID = 2057 %>
<%

if(Request.Querystring("pRef") <> "") then Command1__vpRef = Request.Querystring("pRef")

%>


<%
Dim propertydetails__MMColParam
propertydetails__MMColParam = "1"
If (Request.QueryString("pRef") <> "") Then
  propertydetails__MMColParam = Request.QueryString("pRef")
End If
%>
<%
Dim propertydetails
Dim propertydetails_numRows

Set propertydetails = Server.CreateObject("ADODB.Recordset")
propertydetails.ActiveConnection = MM_bspc_database_STRING
propertydetails.Source = "SELECT *  FROM dbo.current_residential  WHERE pRef = " + Replace(propertydetails__MMColParam, "'", "''") + ""
propertydetails.CursorType = 0
propertydetails.CursorLocation = 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.ActiveConnection = MM_bspc_database_STRING
propertypdfs.Source = "SELECT *  FROM dbo.propertyPDFS  WHERE ppRef = '" + Replace(propertypdfs__MMColParam, "'", "''") + "'"
propertypdfs.CursorType = 0
propertypdfs.CursorLocation = 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.ActiveConnection = MM_bspc_database_STRING
propertyvt.Source = "SELECT *  FROM dbo.propertyVTS  WHERE pvRef = '" + Replace(propertyvt__MMColParam, "'", "''") + "'"
propertyvt.CursorType = 0
propertyvt.CursorLocation = 2
propertyvt.LockType = 1
propertyvt.Open()

propertyvt_numRows = 0
%>
<%
Dim localinformation__MMColParam
localinformation__MMColParam = "1"
If (Request.QueryString("pPostCode") <> "") Then
  localinformation__MMColParam = Request.QueryString("pPostCode")
End If
%>
<%
Dim localinformation
Dim localinformation_numRows

Set localinformation = Server.CreateObject("ADODB.Recordset")
localinformation.ActiveConnection = MM_bspc_database_STRING
localinformation.Source = "SELECT * FROM dbo.localinformation WHERE pPostCode = '" + Replace(localinformation__MMColParam, "'", "''") + "'"
localinformation.CursorType = 0
localinformation.CursorLocation = 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.QueryString(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.Form(MM_item))
  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.Item("pPostCode").Value) %>
<% Session("first") = (propertydetails.Fields.Item("pRef").Value) %>
<% Session("pRefmustbe") = (propertydetails.Fields.Item("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_preloadImages.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")&&(parseInt(appVersion)==4)) {
    document.MM_pgW=innerWidth; document.MM_pgH=innerHeight; onresize=MM_reloadPage; }}
  else if (innerWidth!=document.MM_pgW || innerHeight!=document.MM_pgH) location.reload();
}
MM_reloadPage(true);

function formButtonFever(formName,action){
      var myString = "document."+formName+"."+action+"();";
      eval(myString);
      }

function MM_openBrWindow(theURL,winName,features) { //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.oSrc;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&&parent.frames.length) {
    d=parent.frames[n.substring(p+1)].document; 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.length;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.arguments; document.MM_sr=new Array; for(i=0;i<(a.length-2);i+=3)
   if ((x=MM_findObj(a[i]))!=null){document.MM_sr[j++]=x; if(!x.oSrc) x.oSrc=x.src; x.src=a[i+2];}
}
//-->

<% Session("pPostCode") = (propertydetails.Fields.Item("pPostCode").Value)%>

</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.css" 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/solicitor_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/help.jpg" alt="BSPC feature" width="600" height="85" border="0" /></a></td>
      <td width="150" rowspan="2" align="center" valign="top" background="images/advertising.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.Fields.Item("pAddress1").Value)%> <%=(propertydetails.Fields.Item("pAddress2").Value)%>, <%=(propertydetails.Fields.Item("pTown").Value)%>&nbsp;&nbsp;&nbsp;
                  <% if (propertydetails.Fields.Item("pPriceType").Value) = "O/O                 "  then %>
                  Offers Over
                  <%End If%>
                  <% if (propertydetails.Fields.Item("pPriceType").Value) = "F/P                 "  then %>
                  Fixed Price
                  <%End If%>
                  <% if (propertydetails.Fields.Item("pPriceType").Value) = "IRO                 "  then %>
                  In Region Of
                  <%End If%>
                  <% if (propertydetails.Fields.Item("pPriceType").Value) = "O/A                 "  then %>
                  Offers Around
                  <%End If%>
                  <% if (propertydetails.Fields.Item("pPriceType").Value) = "POA                 "  then %>
                  Price on Application
                  <%End If%>
                  &nbsp;<%= FormatCurrency((propertydetails.Fields.Item("pPrice").Value), 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_printerfriendly.asp?<%= Server.HTMLEncode(MM_keepNone) & MM_joinChar(MM_keepNone) & "pRef=" & propertydetails.Fields.Item("pRef").Value %>">Printer-friendly version</A></p></td>
              <td width="173" align="right">
<p><a href="forsale.asp">&gt; New property search</a></p></td>
              <td height="20" align="right"><p><a href="javascript: history.go(-1)">&lt; Return
                  to  search results </a></p></td>
            </tr>
            <tr>
              <td colspan="2" valign="top" bgcolor="#DBDBDB">
                <div align="center"><img src="/bspc/propertyphotos/<%=(propertydetails.Fields.Item("pPhoteFile").Value)%>" alt="property photograph" name="image" width="345" height="235" hspace="0" vspace="0" border="0" id="image" />
                </div>
                <h4>Property Details :
                  <% if (propertydetails.Fields.Item("pStage").Value) = "UNDEROFF       "  then %>
                  <font color="#990000"><strong>Under Offer</strong></font><br />
                  <%End If%>
                  <% if (propertydetails.Fields.Item("pClosingdate").Value) <> "NULL"  then %>
                  <span class="style2">Closing Date <%=(propertydetails.Fields.Item("pClosingdate").Value)%></span>
                  <%End If%>
</h4>
                <p> <%=(propertydetails.Fields.Item("pDescription").Value)%>
                <p><a href="javascript: history.go(-1)"><br />
&lt; Return
                to  search results </a>                
                <p><br />
                <p>                
                <p>
                <p><img src="/bspc/images/icons/viewdetails.gif" width="16" height="16" align="absmiddle" /><font size="1">Number
                  of viewings online at www.bspc.co.uk: <%=(count.Fields.Item("count").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("pPhoteFilea").Value) <> "NULL      " then %>
                      <a href="javascript:;" onMouseOver="MM_swapImage('image','','/bspc//propertyphotos/<%=(imagea.Fields.Item("pPhoteFilea").Value)%>',1)" onMouseOut="MM_swapImgRestore()"><img src="/bspc/propertyphotos/<%=(imagea.Fields.Item("pPhoteFilea").Value)%>" 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("pPhoteFilec").Value) <> "NULL      " then %>
                      <a href="javascript:;" onMouseOver="MM_swapImage('image','','/bspc//propertyphotos/<%=(imagec.Fields.Item("pPhoteFilec").Value)%>',1)" onMouseOut="MM_swapImgRestore()"><img src="/bspc/propertyphotos/<%=(imagec.Fields.Item("pPhoteFilec").Value)%>" 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("pPhoteFilee").Value) <> "NULL      " then %>
                      <a href="javascript:;" onMouseOver="MM_swapImage('image','','/bspc//propertyphotos/<%=(imagee.Fields.Item("pPhoteFilee").Value)%>',1)" onMouseOut="MM_swapImgRestore()"><img src="/bspc/propertyphotos/<%=(imagee.Fields.Item("pPhoteFilee").Value)%>" 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("pPhoteFileb").Value) <> "NULL      " then %>
                      <a href="javascript:;" onMouseOver="MM_swapImage('image','','/bspc//propertyphotos/<%=(imageb.Fields.Item("pPhoteFileb").Value)%>',1)" onMouseOut="MM_swapImgRestore()"><img src="/bspc/propertyphotos/<%=(imageb.Fields.Item("pPhoteFileb").Value)%>" 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("pPhoteFiled").Value) <> "NULL      " then %>
                      <a href="javascript:;" onMouseOver="MM_swapImage('image','','/bspc//propertyphotos/<%=(imaged.Fields.Item("pPhoteFiled").Value)%>',1)" onMouseOut="MM_swapImgRestore()"><img src="/bspc/propertyphotos/<%=(imaged.Fields.Item("pPhoteFiled").Value)%>" 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("pPhoteFilef").Value) <> "NULL      " then %>
                      <a href="javascript:;" onMouseOver="MM_swapImage('image','','/bspc//propertyphotos/<%=(imagef.Fields.Item("pPhoteFilef").Value)%>',1)" onMouseOut="MM_swapImgRestore()"><img src="/bspc/propertyphotos/<%=(imagef.Fields.Item("pPhoteFilef").Value)%>" 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_white_acrobat.gif" alt="view schedule" width="16" height="16" hspace="2" vspace="3" align="absmiddle" /><a href="pdfs/<%=(propertypdfs.Fields.Item("ppPdfFile").Value)%>" target="_blank">View
                  schedule</a> <br />
                  <% End If ' end Not propertypdfs.EOF Or NOT propertypdfs.BOF %>
                  <img src="/bspc/images/icons/viewmap.gif" alt="view map" width="16" height="16" hspace="2" vspace="3" align="absmiddle" /><a href="http://uk.multimap.com/p/browse.cgi?pc=<%=(propertydetails.Fields.Item("pPostCode").Value)%>" target="_blank">View
                  map</a><br />
                  <% If Not propertyvt.EOF Or Not propertyvt.BOF Then %>
                  <img src="/bspc/images/icons/viewtour.gif" alt="view virtual tour" width="16" height="16" hspace="2" vspace="3" align="absmiddle" /><a href="http://www.360eTours.net/tour.asp?id=<%=(propertyvt.Fields.Item("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/info.gif" alt="view local information" width="16" height="16" hspace="2" vspace="3" align="absmiddle" /><A HREF="localinformation.asp?<%= Server.HTMLEncode(MM_keepNone) & MM_joinChar(MM_keepNone) & "pPostCode=" & propertydetails.Fields.Item("pPostCode").Value %>&pRef=<%=(propertydetails.Fields.Item("pRef").Value)%>">View local information</A><br />
                          <% End If ' end Not localinformation.EOF Or NOT localinformation.BOF %>
                  <img src="images/icons/money.gif" 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=<%=(propertydetails.Fields.Item("pPostCode").Value)%>','council','scrollbars=yes,width=780,height=600')">View
                  Council Tax band </a><br />
                  <img src="/bspc/images/icons/portfolio.gif" alt="add to my bspc portfolio" width="16" height="16" hspace="2" vspace="3" align="absmiddle" /><A HREF="propertydetails_addtoportfolio.asp?<%= Server.HTMLEncode(MM_keepNone) & MM_joinChar(MM_keepNone) & "pRef=" & propertydetails.Fields.Item("pRef").Value %>">Add
                  to my BSPC portfolio</A><br />
                  <img src="/bspc/images/icons/mortgagecalc.gif" alt="mortgage calculator" width="16" height="16" hspace="2" vspace="3" align="absmiddle" /><A HREF="mortgagecalc.asp?<%= Server.HTMLEncode(MM_keepNone) & MM_joinChar(MM_keepNone) & "pRef=" & propertydetails.Fields.Item("pRef").Value %>">Mortgage
                  calculator</A><br />
                  <img src="/bspc/images/icons/email.gif" alt="e-mail solicitor" width="16" height="16" hspace="2" vspace="3" align="absmiddle" /><A HREF="emailsolicitor.asp?<%= Server.HTMLEncode(MM_keepNone) & MM_joinChar(MM_keepNone) & "pRef=" & propertydetails.Fields.Item("pRef").Value %>">E-mail
                  Selling Solicitor</A> </p>
                <h4> <br />
                BSPC selling solicitor: </h4>
                <p> <%=(propertydetails.Fields.Item("MbMemberName").Value)%><br />
                  <%=(propertydetails.Fields.Item("MbSiteAddress1").Value)%> <%=(propertydetails.Fields.Item("MbSiteAddress2").Value)%> <br />
                <%=(propertydetails.Fields.Item("MbSiteAddressTown").Value)%>, <%=(propertydetails.Fields.Item("MbSitePostCode").Value)%></p>
                <p>Tel: <%=(propertydetails.Fields.Item("MbSiteTelephone").Value)%><br />
                  Fax: <%=(propertydetails.Fields.Item("MbSiteFax").Value)%><a
href="http://<%=(propertydetails.Fields.Item("MbSiteWeb").Value)%>"
target="_blank"><br />
                  <%=(propertydetails.Fields.Item("MbSiteWeb").Value)%></a> <br />
                  <img src="http://www.gilmoreplace.co.uk/bspc<%=(propertydetails.Fields.Item("MbLogoFile").Value)%>" 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">advertise</a> | <a href="http://www.bordermc.co.uk" target="_blank">site by Border Marketing Co</a>&nbsp;|&nbsp;Copyright &copy; 2006 BSPC</p></td>
      <td valign="top">&nbsp;</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
%>

 
0
Comment
Question by:grantballantyne
3 Comments
 
LVL 29

Accepted Solution

by:
bloodredsun earned 500 total points
ID: 17068667
I think you'l find that all the buttons that rollover with fade are actually macromedia/adobe flash buttons. That is they are small flash movies that play first one way and then the next on onmouse event handlers.

So this can't be done with pure javascript and HTML but requires flash.

http://www.adobe.com/products/flash/flashpro/?sdid=EZRX
0

Featured Post

What Is Threat Intelligence?

Threat intelligence is often discussed, but rarely understood. Starting with a precise definition, along with clear business goals, is essential.

Join & Write a Comment

In this short web based tutorial, I wanted to show users how they can still use the powers of FrontPage in conjunction with Expression Web 3.  Even though Microsoft eliminated the use of Web components, we can still use them with FrontPage and edit …
Introduction In this tutorial, I'll explain how to create an animated progress meter in a wireframe prototype developed using Axure RP 7.0 - a leading prototyping tool for designing web sites and software. (For more information about Axure and gett…
The purpose of this video is to demonstrate how to add AdSense Ads to a WordPress Website, and how to set up WordPress to automatically place Ads in Sidebars. This will be demonstrated using a Windows 8 PC. Log into your AdSense account. : Cli…
The purpose of this video is to demonstrate how to set up basic WordPress SEO. This will be demonstrated using a Windows 8 PC. The plugin used will be WordPress SEO by Yoast. Go to your WordPress login page. This will look like the following: myw…

759 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

Need Help in Real-Time?

Connect with top rated Experts

20 Experts available now in Live!

Get 1:1 Help Now