Cannot pass variable in link? 1

[brimike]

Hello,
here is my problem I am trying to pass a variable from one page to another using a string in the URL and nothing.


Here is the code:
================================
'response.write("TESTING: " & fpTable)
END IF
END SUB
SUB GetAgent(strIn)
IF TRIM(strIn) <> "" THEN
SET NewConn=Server.CreateObject("ADODB.Connection")
NewConn = "DSN=Premier;PW=;"
set rsAgent=Server.CreateObject("ADODB.recordset")
agentSQL = "SELECT * FROM ASSOCIATES WHERE AgentStatus='Active' AND Last_Name = '" & strIn & "';"
rsAgent.Open agentSQL, NewConn
IF NOT rsAgent.EOF AND NOT rsAgent.BOF THEN
response.write "<table width='100%' cellpadding='3' cellspacing='0' border='0'>"
IF Trim(rsAgent("Picture")) <> "" AND NOT IsNull(rsAgent("Picture")) THEN
strPic = "<a href='agent.asp?aid=" & Trim(rsAgent("LAID")) & "&agent=" & Trim(rsAgent("Last_Name")) & "'><img src='/MultiMedia/agents/"&SERVER.URLENCODE(Trim(lcase(rsAgent("Picture"))))&"' width='100' border='0'></a>"
ELSE
strPic = "<a href='agent.asp?aid=" & Trim(rsAgent("LAID")) & "&agent=" & Trim(rsAgent("Last_Name")) & "'><img src='/images/premier/Search/NoAgent.jpg' width='100' border='0'></a>"
END IF
response.write "<tr class='resultsCopy'><td valign='top' align='left' rowspan='7' height='10'>" & strPic & "</td>"
response.write "<td nowrap valign='top'><b><a class='dynamiclinks1' href='agent.asp?aid=" & Trim(rsAgent("LAID")) & "&agent=" & Trim(rsAgent("Last_Name")) & "'>" & Trim(rsAgent("Listing_Associate")) & "</a></b>"
response.write "<br>"
IF Trim(lcase(rsAgent("Title"))) = "realtor" THEN
response.write "Sales Associate/REALTOR^{<font size='1'>&reg;</font>}"
ELSE
response.write Trim(rsAgent("Title"))
END IF
If NOT IsNULL(rsAgent("Address1")) THEN Response.Write("<BR>" & TRIM(rsAgent("Address1")) & "")
If NOT IsNULL(rsAgent("Address2")) THEN Response.Write("<BR>" & TRIM(rsAgent("Address2")) & "")
If NOT IsNULL(rsAgent("City")) THEN Response.Write("<BR>" & TRIM(rsAgent("City")) & "")
If NOT IsNULL(rsAgent("State")) THEN Response.Write(", " & TRIM(rsAgent("State")) & "")
If NOT IsNULL(rsAgent("Zip")) THEN Response.Write("&nbsp;&nbsp;" & TRIM(rsAgent("Zip")) & "")
response.write("<br>")
If NOT IsNULL(rsAgent("phoneNumber1")) THEN Response.Write("<br>Phone: " & TRIM(rsAgent("phoneNumber1")) & "")
If NOT IsNULL(rsAgent("fax1")) THEN Response.Write("<br>Fax: &nbsp;&nbsp;&nbsp;&nbsp;" & TRIM(rsAgent("fax1")) & "")
If NOT IsNULL(rsAgent("email")) THEN Response.Write("<br><a href='mailto:" & TRIM(rsAgent("email")) & "'>Email</a>")

Dim AgentEmail
AgentEmail = CStr(rsAgent("email"))
Response.Write(AgentEmail)

response.write "</td></tr></table>"
END IF
rsAgent.close
SET rsAgent = NOTHING
SET NewConn = NOTHING
ELSE
EXIT SUB
END IF
strPic = ""
strIn = ""
END SUB
%>=======================
I need to pass the CStr(rsAgent("email")) to the next page in this link.
==========================
<a href="contactustest1.asp?mls=<%=varMLS%>&LID=<%=varLID%> &Associate=<%=varAssociate%>&AgentEmail=<%=AgentEmail%>"><span class="style5">Request Additional Information</span></a>
+++++++++++++++++++++++++++++++++++++++++
Any Ideas

 

[Sheco]

=======================
I need to pass the CStr(rsAgent("email")) to the next page in this link.
==========================
<a href="contactustest1.asp?mls=<%=varMLS%>&LID=<%=varLID%> &Associate=<%=varAssociate%>[highlight]&AgentEmail=<%=AgentEmail%>[/highlight]"><span class="style5">Request Additional Information</span></a>
+++++++++++++++++++++++++++++++++++++++++
Any Ideas

It looks like you are already doing this in the highlighted part above... unless the variable named AgentEmail is empty. The variable is set above as:[tt]AgentEmail = CStr(rsAgent("email"))[/tt]

Please post the HTML that is sent to your browser by the ASP quoted above.

 

[brimike]

Here is where I declared it:

-------------
Dim AgentEmail
AgentEmail = CStr(rsAgent("email"))
Response.Write(AgentEmail)
------------------

I thought this should work:
<a href="contactustest1.asp?mls=<%=varMLS%>&LID=<%=varLID%> &Associate=<%=varAssociate%>&AgentEmail=<%=CStr(rsAgent("email"))%>">
---------------------------------
But I get nothing using a naked request like this:
<%=AgentEmail%>

 

[DotNetGnat]

should be:

<a href="contactustest1.asp?mls=<%=varMLS%>&LID=<%=varLID%> &Associate=<%=varAssociate%>&AgentEmail=<%=[red]AgentEmail[/red]%>">

-DNG

 

[DotNetGnat]

i mean something like this:

Dim blah
blah = CStr(rsAgent("email"))
<a href="contactustest1.asp?mls=<%=varMLS%>&LID=<%=varLID%> &Associate=<%=varAssociate%>&AgentEmail=<%=blah%>">

in order not to confuse with the same, i used blah
and the on next page...when you do

Response.Write request.querystring("AgentEmail")...you should see the expected value

-DNG

 

[brimike]

Hi,

Tried it and nothing. Doesn't make sense

 

[Sheco]

Please post the HTML for the <a href=> tag as it appears in your browser.

I mean open the page in the browser, click "View Source", scroll down and find the HTML for this link, and post it here.

 

[brimike]

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title></title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">

<link href="global.css" rel="stylesheet" type="text/css">


<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 MM_preloadImages() { //v3.0
var d=document; if(d.images){ 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.indexOf("#")!=0){ d.MM_p[j]=new Image; d.MM_p[j++].src=a;}}
}

function MM_swapImgRestore() { //v3.0
var i,x,a=document.MM_sr; for(i=0;a&&i<a.length&&(x=a)&&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[n];
for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers.document);
if(!x && d.getElementById) x=d.getElementById; 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))!=null){document.MM_sr[j++]=x; if(!x.oSrc) x.oSrc=x.src; x.src=a[i+2];}
}
//-->
</script>
</head>

<body leftmargin="0" topmargin="0" onLoad="MM_preloadImages('images/lutgertlogoOVER.gif')">
<div id="Layer1" style="position:absolute; left:0px; top:72px; width:100%; height:126px; z-index:1; overflow: hidden;">
<SCRIPT LANGUAGE=JavaScript1.1>
<!--
var MM_contentVersion = 6;
var plugin = (navigator.mimeTypes && navigator.mimeTypes["application/x-shockwave-flash"]) ? navigator.mimeTypes["application/x-shockwave-flash"].enabledPlugin : 0;
if ( plugin ) {
var words = navigator.plugins["Shockwave Flash"].description.split(" ");
for (var i = 0; i < words.length; ++i)
{
if (isNaN(parseInt(words)))
continue;
var MM_PluginVersion = words;
}
var MM_FlashCanPlay = MM_PluginVersion >= MM_contentVersion;
}
else if (navigator.userAgent && navigator.userAgent.indexOf("MSIE")>=0
&& (navigator.appVersion.indexOf("Win") != -1)) {
document.write('<SCR' + 'IPT LANGUAGE=VBScript\> \n'); //FS hide this from IE4.5 Mac by splitting the tag
document.write('on error resume next \n');
document.write('MM_FlashCanPlay = ( IsObject(CreateObject("ShockwaveFlash.ShockwaveFlash." & MM_contentVersion)))\n');
document.write('</SCR' + 'IPT\> \n');
}
if ( MM_FlashCanPlay ) {
document.write('<OBJECT classid="clsid27CDB6E-AE6D-11cf-96B8-444553540000"');
document.write(' codebase="

http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,0,0"

');
document.write(' ID="script" WIDTH="1220" HEIGHT="126" ALIGN="">');
document.write(' <PARAM NAME=movie VALUE="flash/flashback6.swf"> <PARAM NAME=quality VALUE=high> <PARAM NAME=bgcolor VALUE=#FFFFFF> ');
document.write(' <EMBED src="flash/flashback6.swf" quality=high bgcolor=#FFFFFF ');
document.write(' swLiveConnect=FALSE WIDTH="1220" HEIGHT="126" NAME="script" ALIGN=""');
document.write(' TYPE="application/x-shockwave-flash" PLUGINSPAGE="

http://www.macromedia.com/go/getflashplayer">');

document.write(' </EMBED>');
document.write(' </OBJECT>');
} else{
document.write('<IMG SRC="flash/flashback6.jpg" WIDTH="1220" HEIGHT="126" usemap="#script" BORDER=0>');
}
//-->
</SCRIPT>
</div>
<table width="100%" height="70" border="0" cellpadding="0" cellspacing="0" class="inctopheader">
<tr>
<td width="90%" height="72"><img src="images/pplogo.gif" width="228" height="65"></td>
<td width="10%" valign="top"><a href="

http://www.lutgert.com"

target="_blank"><img src="images/lutgertlogo.gif" alt="" name="lutgertlogo" width="91" height="65" border="0" onMouseOver="MM_swapImage('lutgertlogo','','images/lutgertlogoOVER.gif',1)" onMouseOut="MM_swapImgRestore()"></a></td>
</tr>
</table>
<br>

<script type="text/javascript" language="JavaScript1.2" src="stm31.js"></script>
<link href="headers.css" rel="stylesheet" type="text/css">
</head>

<body leftmargin="0" topmargin="0">

<table width="100%" height="106" border="0" cellpadding="0" cellspacing="0" class="contactusheader">
<tr>
<tr>
<td><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="19" valign="top"><script type="text/javascript" language="JavaScript1.2">
<!--
stm_bm(["menu7ee4",430,"","blank.gif",0,"","",0,0,250,0,1000,1,0,0,"","",0],this);
stm_bp("p0",[0,4,0,0,0,0,0,0,100,"",-2,"",-2,90,0,0,"#7F7F7F","#000000","",3,0,0,"#000000"]);
stm_ai("p0i0",[2,"","menuimage_r1_c1.gif","menuimageOV_r1_c1.gif",75,21,0,"default.asp","_self","","","","",0,0,0,"","",0,0,0,0,1,"#FFFFFF",0,"#FFFFFF",0,"","",3,3,0,0,"#FFFFFF","#FFFFFF","#FFCC00","#FFCC00","bold 9pt Arial","bold 9pt Arial",0,0]);
stm_aix("p0i1","p0i0",[2,"","menuimage_r1_c2.gif","menuimageOV_r1_c2.gif",153,21,0,"","_self","","","","",0,0,0,"","",0,7]);
stm_bpx("p1","p0",[1,4]);
stm_aix("p1i0","p0i0",[0," Residential ","","",-1,-1,0,"search.asp","_self","","","","",0,0,0,"","",0,0,0,0,1,"#FFFFFF",0,"#333333",0,"","",3,3,1,1,"#999999","#CCCCCC","#333333","#ffffff","8pt Verdana","8pt Verdana"],0,17);
stm_aix("p1i1","p1i0",[0," Commercial ","","",-1,-1,0,"search.asp?search=commercial","_self","","","","",0,0,0,"","",0,0,0,0,1,"#FFFFFF",0,"#333333",0,"","",3,3,1,1,"#595959 #d3d1d1 #999999 #666666","#999999","#000000"],0,17);
stm_aix("p1i2","p1i1",[0," Open Houses ","","",-1,-1,0,"openhouse.asp"],0,17);
stm_aix("p1i3","p1i1",[0," Agents","","",-1,-1,0,"agents.asp"],0,17);
stm_aix("p1i4","p1i1",[0," Community Profiles ","","",-1,-1,0,"communities.asp"],0,17);
stm_aix("p1i5","p1i1",[0," Resources ","","",-1,-1,0,"resources.asp"],0,17);
stm_ep();
stm_aix("p0i2","p0i1",[2,"","menuimage_r1_c3.gif","menuimageOV_r1_c3.gif",87]);
stm_bpx("p2","p1",[]);
stm_aix("p2i0","p1i1",[0," Weekly Rentals","","",-1,-1,0,"searchRentalsWeekly.asp","_self","","","","",0,0,0,"","",0,0,0,0,1,"#FFFFFF",0,"#333333",0,"","",3,3,1,1,"#999999"],0,17);
stm_aix("p2i1","p2i0",[0," Monthly Rentals ","","",-1,-1,0,"searchRentalsMonthly.asp"],0,17);
stm_aix("p2i2","p2i0",[0," Annual Rentals ","","",-1,-1,0,"searchRentalsAnnual.asp"],0,17);
stm_aix("p2i3","p2i0",[0," Rental Agents ","","",-1,-1,0,"rentalagents.asp"],0,17);
stm_aix("p2i4","p2i0",[0," Resort Rentals ","","",-1,-1,0,"RentalCommunities.asp"],0,17);
stm_aix("p2i5","p2i0",[0," Useful Information ","","",-1,-1,0,"usefulinfo.asp"],0,17);
stm_ep();
stm_aix("p0i3","p0i0",[2,"","menuimage_r1_c4.gif","menuimageOV_r1_c4.gif",139,21,0,"developments.asp"]);
stm_aix("p0i4","p0i1",[2,"","menuimage_r1_c5.gif","menuimageOV_r1_c5.gif",90]);
stm_bpx("p3","p1",[]);
stm_aix("p3i0","p2i0",[0," Office Locations ","","",-1,-1,0,"locations.asp"],0,17);
stm_aix("p3i1","p2i0",[0," Agents ","","",-1,-1,0,"agents.asp"],0,17);
stm_aix("p3i2","p2i0",[0," Premier Management ","","",-1,-1,0,"management.asp"],0,17);
stm_aix("p3i3","p2i0",[0," Christie\'s Affiliate ","","",-1,-1,0,"christies.asp"],0,17);
stm_aix("p3i4","p2i0",[0," Lutgert Management ","","",-1,-1,0,"lutgertmanagement.asp"],0,17);
stm_aix("p3i5","p2i0",[0," View e-Newsletter ","","",-1,-1,0,"viewnews.asp"],0,17);
stm_aix("p3i6","p2i0",[0," PR and News Articles ","","",-1,-1,0,"news.asp"],0,17);
stm_ep();
stm_aix("p0i5","p0i1",[2,"","menuimage_r1_c6.gif","menuimageOV_r1_c6.gif",119,21,0,"recreation.asp"]);
stm_bpx("p4","p1",[]);
stm_aix("p4i0","p2i0",[0," Golf ","","",-1,-1,0,"golfcourses.asp"],0,17);
stm_aix("p4i1","p2i0",[0," Beaches ","","",-1,-1,0,"beaches.asp","_self","","","","",0,0,0,"","",0,0,0,0,0],0,17);
stm_aix("p4i2","p4i1",[0," Boating ","","",-1,-1,0,"boating.asp"],0,17);
stm_ep();
stm_aix("p0i6","p0i1",[2,"","menuimage_r1_c7.gif","menuimageOV_r1_c7.gif",109]);
stm_bpx("p5","p1",[]);
stm_aix("p5i0","p3i0",[],0,17);
stm_aix("p5i1","p2i0",[0," Request Info ","","",-1,-1,0,"contactus.asp"],0,17);
stm_aix("p5i2","p2i0",[0," Subscribe to e-Newsletter ","","",-1,-1,0,"newsletter.asp"],0,17);
stm_aix("p5i3","p2i0",[0," Naples Screensaver ","","",-1,-1,0,"screensaver.asp"],0,17);
stm_aix("p5i4","p2i0",[0," Career Opportunities ","","",-1,-1,0,"careers.asp"],0,17);
stm_aix("p5i5","p2i0",[0," Tell a Friend ","","",-1,-1,0,"javascript:window.open(\"tellafriend.asp\", \"_blank\", \"height=350, width=450, left=100, top=50, status=yes, toolbar=no, scrollbar=yes, menubar=no\");"],0,17);
stm_aix("p5i6","p2i0",[0," Site Map ","","",-1,-1,0,"sitemap.asp"],0,17);
stm_ep();
stm_ep();
stm_em();
//-->
</script>

</td>
</tr>
</table></td>
</tr>
<tr>
<td><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="2%" height="41">&nbsp;</td>
<td width="65%"><img src="images/HEADERS/contactusTXT.jpg" width="340" height="52"></td>
<td width="33%">&nbsp;</td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
</table>

<script type="text/javascript" language="JavaScript1.2" src="stm31.js"></script>
<link href="headers.css" rel="stylesheet" type="text/css">
</head>

<body leftmargin="0" topmargin="0">

<table width="100%" height="106" border="0" cellpadding="0" cellspacing="0" class="contactusheader">
<tr>
<tr>
<td><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="19" valign="top"><script type="text/javascript" language="JavaScript1.2">
<!--
stm_bm(["menu7ee4",430,"","blank.gif",0,"","",0,0,250,0,1000,1,0,0,"","",0],this);
stm_bp("p0",[0,4,0,0,0,0,0,0,100,"",-2,"",-2,90,0,0,"#7F7F7F","#000000","",3,0,0,"#000000"]);
stm_ai("p0i0",[2,"","menuimage_r1_c1.gif","menuimageOV_r1_c1.gif",75,21,0,"default.asp","_self","","","","",0,0,0,"","",0,0,0,0,1,"#FFFFFF",0,"#FFFFFF",0,"","",3,3,0,0,"#FFFFFF","#FFFFFF","#FFCC00","#FFCC00","bold 9pt Arial","bold 9pt Arial",0,0]);
stm_aix("p0i1","p0i0",[2,"","menuimage_r1_c2.gif","menuimageOV_r1_c2.gif",153,21,0,"","_self","","","","",0,0,0,"","",0,7]);
stm_bpx("p1","p0",[1,4]);
stm_aix("p1i0","p0i0",[0," Residential ","","",-1,-1,0,"search.asp","_self","","","","",0,0,0,"","",0,0,0,0,1,"#FFFFFF",0,"#333333",0,"","",3,3,1,1,"#999999","#CCCCCC","#333333","#ffffff","8pt Verdana","8pt Verdana"],0,17);
stm_aix("p1i1","p1i0",[0," Commercial ","","",-1,-1,0,"search.asp?search=commercial","_self","","","","",0,0,0,"","",0,0,0,0,1,"#FFFFFF",0,"#333333",0,"","",3,3,1,1,"#595959 #d3d1d1 #999999 #666666","#999999","#000000"],0,17);
stm_aix("p1i2","p1i1",[0," Open Houses ","","",-1,-1,0,"openhouse.asp"],0,17);
stm_aix("p1i3","p1i1",[0," Agents","","",-1,-1,0,"agents.asp"],0,17);
stm_aix("p1i4","p1i1",[0," Community Profiles ","","",-1,-1,0,"communities.asp"],0,17);
stm_aix("p1i5","p1i1",[0," Resources ","","",-1,-1,0,"resources.asp"],0,17);
stm_ep();
stm_aix("p0i2","p0i1",[2,"","menuimage_r1_c3.gif","menuimageOV_r1_c3.gif",87]);
stm_bpx("p2","p1",[]);
stm_aix("p2i0","p1i1",[0," Weekly Rentals","","",-1,-1,0,"searchRentalsWeekly.asp","_self","","","","",0,0,0,"","",0,0,0,0,1,"#FFFFFF",0,"#333333",0,"","",3,3,1,1,"#999999"],0,17);
stm_aix("p2i1","p2i0",[0," Monthly Rentals ","","",-1,-1,0,"searchRentalsMonthly.asp"],0,17);
stm_aix("p2i2","p2i0",[0," Annual Rentals ","","",-1,-1,0,"searchRentalsAnnual.asp"],0,17);
stm_aix("p2i3","p2i0",[0," Rental Agents ","","",-1,-1,0,"rentalagents.asp"],0,17);
stm_aix("p2i4","p2i0",[0," Resort Rentals ","","",-1,-1,0,"RentalCommunities.asp"],0,17);
stm_aix("p2i5","p2i0",[0," Useful Information ","","",-1,-1,0,"usefulinfo.asp"],0,17);
stm_ep();
stm_aix("p0i3","p0i0",[2,"","menuimage_r1_c4.gif","menuimageOV_r1_c4.gif",139,21,0,"developments.asp"]);
stm_aix("p0i4","p0i1",[2,"","menuimage_r1_c5.gif","menuimageOV_r1_c5.gif",90]);
stm_bpx("p3","p1",[]);
stm_aix("p3i0","p2i0",[0," Office Locations ","","",-1,-1,0,"locations.asp"],0,17);
stm_aix("p3i1","p2i0",[0," Agents ","","",-1,-1,0,"agents.asp"],0,17);
stm_aix("p3i2","p2i0",[0," Premier Management ","","",-1,-1,0,"management.asp"],0,17);
stm_aix("p3i3","p2i0",[0," Christie\'s Affiliate ","","",-1,-1,0,"christies.asp"],0,17);
stm_aix("p3i4","p2i0",[0," Lutgert Management ","","",-1,-1,0,"lutgertmanagement.asp"],0,17);
stm_aix("p3i5","p2i0",[0," View e-Newsletter ","","",-1,-1,0,"viewnews.asp"],0,17);
stm_aix("p3i6","p2i0",[0," PR and News Articles ","","",-1,-1,0,"news.asp"],0,17);
stm_ep();
stm_aix("p0i5","p0i1",[2,"","menuimage_r1_c6.gif","menuimageOV_r1_c6.gif",119,21,0,"recreation.asp"]);
stm_bpx("p4","p1",[]);
stm_aix("p4i0","p2i0",[0," Golf ","","",-1,-1,0,"golfcourses.asp"],0,17);
stm_aix("p4i1","p2i0",[0," Beaches ","","",-1,-1,0,"beaches.asp","_self","","","","",0,0,0,"","",0,0,0,0,0],0,17);
stm_aix("p4i2","p4i1",[0," Boating ","","",-1,-1,0,"boating.asp"],0,17);
stm_ep();
stm_aix("p0i6","p0i1",[2,"","menuimage_r1_c7.gif","menuimageOV_r1_c7.gif",109]);
stm_bpx("p5","p1",[]);
stm_aix("p5i0","p3i0",[],0,17);
stm_aix("p5i1","p2i0",[0," Request Info ","","",-1,-1,0,"contactus.asp"],0,17);
stm_aix("p5i2","p2i0",[0," Subscribe to e-Newsletter ","","",-1,-1,0,"newsletter.asp"],0,17);
stm_aix("p5i3","p2i0",[0," Naples Screensaver ","","",-1,-1,0,"screensaver.asp"],0,17);
stm_aix("p5i4","p2i0",[0," Career Opportunities ","","",-1,-1,0,"careers.asp"],0,17);
stm_aix("p5i5","p2i0",[0," Tell a Friend ","","",-1,-1,0,"javascript:window.open(\"tellafriend.asp\", \"_blank\", \"height=350, width=450, left=100, top=50, status=yes, toolbar=no, scrollbar=yes, menubar=no\");"],0,17);
stm_aix("p5i6","p2i0",[0," Site Map ","","",-1,-1,0,"sitemap.asp"],0,17);
stm_ep();
stm_ep();
stm_em();
//-->
</script>

</td>
</tr>
</table></td>
</tr>

 

[Sheco]

If that is the HTML source for a single page then there are serious issues....

It has 3 <body> tags and 0 </body> tags.

It has 1 <head> tag and 3 </head> tags.

Back to the problem at hand... the link does not even appear on this page at all!

We can't really go about testing whether or not the variable is passed in a link if the ASP does not even product a proper web page that includes the link in question.

 

[brimike]

Hi,

Thanks for your help.
The page that I sent was from the wrong dir.
I need to fix this path issue first.

Regards,
Bry

 

[brimike]

Hello Sheco,

Here's the page I am sending from:
<link href="globaldynamic.css" type="text/css">
<%

varMLS = Trim(Request("mls"))
IF TRIM(varMLS) = "" THEN
varMLS = Trim(Request("lid"))
END IF
IF TRIM(Request.QueryString("LAID")) <> "" THEN
varListingAgent = TRIM(Request.QueryString("LAID"))
END IF
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DSN=Premier;PWD="
SQL = "SELECT * FROM current_listings WHERE (Status='A') "
IF Trim(varMLS) <> "" THEN
SQL = SQL & " AND (MLS# = '" & varMLS & "' OR LID = '" & varMLS & "')"
END IF
IF Trim(varListingAgent) <> "" THEN
SQL = SQL & " AND (Associates_Last_Name = '" & varListingAgent & "' OR Listing_Assoc2 = '" & varListingAgent & "' OR Listing_Assoc3 = '" & varListingAgent & "')"
END IF

'response.write "sql=" & sql & "<br>"

Set rs = Server.CreateObject("ADODB.Recordset")
'response.write "<br>SQL = " & sql & "<br>"
rs.Open sql, conn, 3, 3

%>

<%If NOT rs.EOF THEN

varLID = quoteIt(trim(rs("LID")))
varDate_Entered = quoteIt(trim(rs("Date_Entered")))
varOfficeNumber = quoteIt(trim(rs("OfficeNumber")))
varPS_Date = quoteIt(trim(rs("PS_Date")))
varPC_Date = trim(rs("PC_Date"))
varClose_Sale_Date = quoteIt(trim(rs("Close_Sale_Date")))
varMLS = quoteIt(trim(rs("MLS#")))
varOther_MLS = quoteIt(trim(rs("Other_MLS#")))
varClass = quoteIt(trim(rs("Class")))
varZone = quoteIt(trim(rs("Zone")))
varStatus = quoteIt(trim(rs("Status")))
varVillage_Key = quoteIt(trim(rs("Village_Key#")))
varOld_Naples_Key = quoteIt(trim(rs("Old_Naples_Key#")))
varVanderbilt_Key = quoteIt(trim(rs("Vanderbilt_Key#")))
varPelican_Landing = quoteIt(trim(rs("Pelican_Landing#")))
varProperty = quoteIt(trim(rs("Property")))
varProperty_Address = quoteIt(trim(rs("Property_Address")))
varPrice = quoteIt(trim(rs("Price")))
IF varPrice <> "" Then
varPrice = formatcurrency(varPrice,0)
End IF
varLower_List_Price = quoteIt(trim(rs("Lower_List_Price")))
varCommPercntSell = quoteIt(trim(rs("CommPercntSell")))
varCommPercntList = quoteIt(trim(rs("CommPercntList")))
varTotalCommPercnt = quoteIt(trim(rs("TotalCommPercnt")))
varOtherPrice = quoteIt(trim(rs("OtherPrice")))
varSignReqd = quoteIt(trim(rs("SignReqd")))
varOwnerName = quoteIt(trim(rs("OwnerName")))
varOwners_Last_Name = quoteIt(trim(rs("Owners_Last_Name")))
varFirst_Name = quoteIt(trim(rs("First_Name")))
varSpouse_Name = quoteIt(trim(rs("Spouse_Name")))
varPrefix = quoteIt(trim(rs("Prefix")))
varSecond_Owner_or_Co = quoteIt(trim(rs("Second_Owner_or_Co")))
varMailing_Address = quoteIt(trim(rs("Mailing_Address")))
varCity = quoteIt(trim(rs("City")))
varState = quoteIt(trim(rs("State")))
varZip = quoteIt(trim(rs("Zip")))
varCountry = quoteIt(trim(rs("Country")))
varHome_Phone = quoteIt(trim(rs("Home_Phone")))
varOffice_Phone = quoteIt(trim(rs("Office_Phone")))
varFax_Number = quoteIt(trim(rs("Fax_Number")))
varUnit_Phone_Number = quoteIt(trim(rs("Unit_Phone_Number")))
varAssociates_Last_Name = quoteIt(trim(rs("Associates_Last_Name")))
varList_Date = quoteIt(trim(rs("List_Date")))
varExp_Date = quoteIt(trim(rs("Exp_Date")))
varLA = quoteIt(trim(rs("LA")))
varTA = quoteIt(trim(rs("TA")))
varBR = quoteIt(trim(rs("BR")))
varBA = quoteIt(trim(rs("BA")))
varFurnished = quoteIt(trim(rs("Furnished")))
varShowing_Instructions = quoteIt(trim(rs("Showing_Instructions")))
varCondo_Sub = quoteIt(trim(rs("Condo_Sub")))
varC_S_Address = quoteIt(trim(rs("C_S_Address")))
varAd__newspaper = quoteIt(trim(rs("Ad_#__newspaper_")))
varAd_Copy = quoteIt(trim(rs("Ad_Copy")))
varBanner = quoteIt(trim(rs("Banner")))
varAssociate = quoteIt(trim(rs("Associate")))
varKeybox = quoteIt(trim(rs("Keybox")))
varListing_Assoc2 = quoteIt(trim(rs("Listing_Assoc2")))
varListing_Assoc3 = quoteIt(trim(rs("Listing_Assoc3")))
varRange_Code = quoteIt(trim(rs("Range_Code")))
varRange = quoteIt(trim(rs("Range")))
varIproperty_Type = quoteIt(trim(rs("Iproperty_Type")))
varProperty_Address = quoteIt(trim(rs("Property_Address")))
varIneighborhood = quoteIt(trim(rs("Ineighborhood")))
varIcatagory = quoteIt(trim(rs("Icatagory")))
varIlocation = quoteIt(trim(rs("Ilocation")))
varRemove_Date = quoteIt(trim(rs("Remove_Date")))
varHalfbath = quoteIt(trim(rs("Halfbath")))
varZip1 = quoteIt(trim(rs("Zip1")))
varYear_Built = quoteIt(trim(rs("YearBuilt")))
varVirtual_Tour = quoteIt(trim(rs("Virtual_Tour")))

'Response.write rs("VirtualTourAddress")
'response.end
varVirtualTourAddress = quoteIt(trim(rs("VirtualTourAddress")))
varAvailableSqFeet = quoteIt(trim(rs("AvailableSqFeet")))
varVTURL = ""
varURL = ""

strAddress = " "
strAddress = varC_S_Address & " " &varZip1
'strAddress = varC_S_Address & " " & varCity & " " & varState & " " &varZip1
strAddress = TRIM(strAddress)
'response.write "strAddress = ||" & strAddress & "||"

'=========================================================================================================
SQL = "SELECT * FROM imgList WHERE (PhotoName LIKE '"& varMLS & "%') AND ((PhotoName NOT LIKE '%FP%')) ORDER BY OrderNumber"
Set rs2 = Server.CreateObject("ADODB.Recordset")
rs2.Open sql, conn, 3, 3
If rs2.recordcount <> 0 Then
varPhotoName = trim(rs2("PhotoName"))
varGraphic = "

http://premier-properties.com/listingsphotos-all/"

& varPhotoName
Else
varGraphic = "/graphics/no_photo_small.gif"
End If
'=========================================================================================================
End If
'======================================================================================================
' End If
'------------------------------------------------------------------------------------------------------------->
'--[Photo Loop Ends HERE]------------------------------------------------------------------------------------->
'------------------------------------------------------------------------------------------------------------->
%>
<%
'NEW LAYOUT START
%>
<style type="text/css">
<!--
.style5 {font-family: Arial, Helvetica, sans-serif; font-weight: bold; font-size: 12px; color: #FFFFFF; text-decoration:none; }
-->
</style>



<script language="JavaScript" type="text/JavaScript">
<!--
function MM_openBrWindow(theURL,winName,features) { //v2.0
window.open(theURL,winName,features);
}
//-->
</script>
<table width="95%" border="0" cellspacing="0" cellpadding="0" align="center">
<tr bgcolor="#000000">
<td>
<table width="100%" border="0" cellspacing="0" cellpadding="2">
<tr align="center" bgcolor="#000000" class="style5">
<td valign="bottom" style="padding:3px;" nowrap><a href="javascript:history.back(1)"><span class="style5">Back to Search Results</span></a></td>
<td valign="bottom" style="padding:3px;" nowrap><a href="javascript:window_open('savelisting.asp?mls=<%=varMLS%>', '400', '450')"><span class="style5">Save Listing to Favorites</span></a></td>
<td valign="bottom" style="padding:3px;" nowrap><a href="contactustest1.asp?mls=<%=varMLS%>&LID=<%=varLID%>&Associate=<%=varAssociate%>&AgentEM=<%=AgentEM%>"><span class="style5">Request Additional Information</span></a></td>
<style type="text/css">
.mapLink {
color:#FFFFFF;
text-decoration:none;
}
</style>
<td valign="bottom" style="padding:3px;" nowrap><% CALL GoogleMap(varPrice,strAddress,varMLS,varLID)%></td>
</tr>
<%
IF InStr(1,varAd_Copy,"Christie",1) THEN
%>
<tr bgcolor="#FFFFFF">
<td colspan="4" align="left" valign="bottom" style="padding:3px;background-repeat:repeat-y; background-image:url(images/ChristiesBar.jpg); color:#FFFFFF" nowrap><strong>Christie's Great Estate</strong></td>
</tr>
<%
END IF
%>
<tr align="left" valign="top" bgcolor="#FFFFFF">
<td colspan="4">

<%
CALL GetPhotos(TRIM(varMLS))
%>

<%
'response.write("FloorPlan Photo Count: |"&FPCOUNT&"|")
CALL GetFP(TRIM(varMLS))
%>
</td>
</tr>
<tr class="resultsCopy" style="text-align:left" align="left" valign="top" bgcolor="#FFFFFF">
<td colspan="4">
<B><%=varCondo_Sub%></B>
<%
IF Trim(varIproperty_Type) <> "" THEN
Response.write("<br>" & Trim(varIproperty_Type))
END IF
%>

</td>
</tr>


<% IF Trim(varAd_Copy) <> "" THEN %>
<tr class="resultsCopy" style="text-align:left; padding:5px;" align="left" valign="top" bgcolor="#FFFFFF">
<td colspan="4">
<strong><br>Description:</strong>
<%=varAd_Copy%>
</td>
</tr>
<tr class="resultsCopy" style="text-align:left; padding:5px;" align="left" valign="top" bgcolor="#FFFFFF">
<td colspan="4">
<table width="100%" border="0" cellpadding="3" cellspacing="0">
<tr class="resultsCopy" style="text-align:left; padding:5px;" valign="top" bgcolor="#FFFFFF">
<td width="7%" nowrap>
<% IF Trim(varPrice) <> "" THEN Response.write("<BR><b>Sale Price:&nbsp;</b>") %>
<% IF Trim(varMLS) <> "" THEN Response.write("<BR><b>MLS:&nbsp;</b>") %>
<% IF Trim(varBR) <> "" THEN Response.write("<BR><b>Bedrooms:&nbsp;</b>") %>
<% IF Trim(varBA) <> "" THEN Response.write("<br><b>Baths:&nbsp;</b>") %>
<% IF Trim(varTA) <> "" THEN Response.write("<br><b>Total SqFt:&nbsp;</b>") %>
</td>
<td width="25%" nowrap>
<% IF Trim(varPrice) <> "" THEN Response.write("<BR>" & varPrice) %>
<% IF Trim(varMLS) <> "" THEN Response.write("<BR>" & varMLS) %>
<% IF Trim(varBR) <> "" THEN Response.write("<BR>" & varBR) %>
<% IF Trim(varBA) <> "" THEN Response.write("<br>" & varBA & "") %>
<% IF Trim(varTA) <> "" THEN Response.write("<br>" & varTA & " sqft") %>
</td>


<td width="5%" nowrap><br>
<% IF Trim(varYear_Built) <> "" THEN Response.write("<br><b>Year Built&nbsp;</b>") %>
<% 'IF Trim(varHOA_Fees) <> "" AND Trim(varHOA_Fees) > 0 THEN Response.write("<br><b>HOA Fees:&nbsp;</b>") %>
<% IF Trim(varTax_Year) <> "" AND Trim(varTaxes) <> "" THEN Response.write("<br><b>" & varTax_Year & " Taxes</b>") %>
</td>
<td width="63%" nowrap><br>
<% IF Trim(varYear_Built) <> "" THEN Response.write("<br>" & varYear_Built) %>
<% 'IF Trim(varHOA_Fees) <> "" AND Trim(varHOA_Fees) > 0 THEN Response.write("<br>" & FORMATCURRENCY(varHOA_Fees,0)) %>
<% IF Trim(varTax_Year) <> "" AND Trim(varTaxes) <> "" THEN Response.write("<br>" & FORMATCURRENCY(varTaxes,0)) %>
</td>
</tr>
</table>
</td>
</tr>
<tr class="resultsCopy" style="text-align:left; padding:5px;" align="left" valign="top" bgcolor="#FFFFFF">
<td colspan="4">
<strong><br>
This Property Presented By:<BR>
</strong>
<table width="100%" border="0" cellspacing="0" cellpadding="4">
<tr align="left" valign="top">
<td width="33%"><% CALL GetAgent(varAssociates_Last_Name)%></td>
<td width="33%"><% CALL GetAgent(varListing_Assoc2)%></td>
<td width="33%"><% CALL GetAgent(varListing_Assoc3)%></td>
</tr>
</table> </td>
</tr>
<% END IF %>
</table>
</td>
</tr>
</table>
<br>
</td>
</tr>
</table>
</td>
</tr>
</table>
<%
SUB GetPhotos(MLS)
SET NewConn=Server.CreateObject("ADODB.Connection")
NewConn = "DSN=Premier;PW=;"
set rsPhotos=Server.CreateObject("ADODB.recordset")
photoSQL = "SELECT * FROM imgList WHERE MLS ='" & MLS & "' ORDER BY OrderNumber;"
'response.write photoSQL &"<BR><BR>"
'response.write Conn &"<BR><BR>"
rsPhotos.Open photoSQL, NewConn
If NOT rsPhotos.EOF OR NOT rsPhotos.BOF then
FPCOUNT = 0
DIM fpimage
photoTable = "<table border='0' cellpadding='2' cellspacing='1' width='100%' class='resultsCopy'><tr><td><table border='0' cellpadding='3' cellspacing='0' width='100%' ><tr class='resultsCopy'>"

Do while not rsPhotos.EOF

k = k + 1
reDim photoarray(k)
IF InStr(rsPhotos("photoName"),"FP") OR InStr(rsPhotos("photoName"),"fp")THEN
FPCOUNT = (FPCOUNT + 1)
FP = TRUE
'FpImage(FPCOUNT)= (rsPhotos("live") & "/" & rsPhotos("photoName"))
'FpImage(FPCOUNT) = (rsPhotos("PID"))
rsPhotos.movenext
ELSE
photoarray(k) = rsPhotos("live") & "/" & rsPhotos("photoName")
'Start Row - Cell Count is Count - 1
'SET MAIN IMAGE
IF count = 0 THEN
PhotoTable = photoTable & "<td rowspan='10' valign='top' class='resultsCopy'><img src='" & rsPhotos("live")&"/"&rsPhotos("photoName") & "' border='0' id='main'></td><td valign='top'><div id='photo"&K&"' style='display:block'><table border='0' cellpadding='0' cellspacing='1' width='100%'><tr>"
END IF
count = (count + 1)
totalCount = (totalCount + 1)
xCount = (xCount + 1)
IF TotalCount = 13 THEN
hide = Cint(K / 12)
show = Cint(hide+1)
prev = Cint(hide-1)
IF hide = 0 THEN
hide =1
END IF
IF prev = 0 THEN
prev =1
END IF
photoTable = photoTable & "</table><table width='100%' cellpadding='3' cellspacing='0' valign='bottom'><tr class='stats'><td valign='bottom' align='left'><a class='resultsCopy' href='javascript:displayDiv(&quot;photo"&hide&"&quot;,&quot;none&quot;displayDiv(&quot;photo"&prev&"&quot;,&quot;block&quot;'><< Previous</a></td><td align='right' valign='bottom'><a class='resultsCopy' href='javascript:displayDiv(&quot;photo"&show&"&quot;,&quot;block&quot;displayDiv(&quot;photo"&hide&"&quot;,&quot;none&quot;'>Next >></a></td></tr></table></div><div id='photo"&show&"' style='display:none'>"
TotalCount = 1
photoTable = photoTable & "<table border='0' cellpadding='0' cellspacing='1' ><tr class='resultsCopy'>"
END IF

IF Count < 4 AND Count > 0 THEN
PhotoTable = photoTable & "<td valign='top' height='1' class='resultsCopy'><a href='javascript:swapImage(&quot;main&quot;,&quot;&quot;,&quot;" & rsPhotos("live")&"/"&rsPhotos("photoName") & "&quot;' class='stats'><img src='" & rsPhotos("live")&"/"&rsPhotos("photoName") & "' width='80' height='55' border='0' id='"&rsPhotos("PID")&"'></a></td>"
ELSE
count = 1
PhotoTable = photoTable & "</tr><tr class='resultsCopy'><td valign='top' height='1'><a href='javascript:swapImage(&quot;main&quot;,&quot;&quot;,&quot;" & rsPhotos("live")&"/"&rsPhotos("photoName") & "&quot;' class='stats'><img src='" & rsPhotos("live")&"/"&rsPhotos("photoName") & "' width='80' height='55' border='0' id='"&rsPhotos("PID")&"'></a></td>"
END IF
rsPhotos.movenext
END IF
loop
rsPhotos.close
SET rsPhotos=NOTHING
SET NewConn=NOTHING
IF (totalCount < 12) AND (xCount > 12) THEN
photoTable = photoTable & "<table width='100%' cellpadding='3' cellspacing='0' valign='bottom'><tr class='stats'><td valign='bottom' align='left' class='resultsCopy'><a class='resultsCopy' href='javascript:displayDiv(&quot;photo"&hide&"&quot;,&quot;block&quot;displayDiv(&quot;photo"&show&"&quot;,&quot;none&quot;'><< Previous</a></td><td align='right' valign='bottom'><a class='resultsCopy' href='javascript:displayDiv(&quot;photo"&show&"&quot;,&quot;block&quot;displayDiv(&quot;photo"&hide&"&quot;,&quot;none&quot;'>Next >></a></td></tr></table></div>"
END IF

PhotoTable = photoTable & "</table></table></div></table>"
ELSE
PhotoTable = photoTable & "<img src='/graphics/no_photo_large.gif' border='1'></table></div>"
END IF

response.write(photoTable)

':: Show virtual tour if database has the address in the field

If VarVirtualTourAddress <> "" then
Response.write "<a target=_blank href='"&VarVirtualTourAddress&"'><img border='0' src='graphics/home_search_virtual_tour.gif' ></a>"
End if

END SUB

SUB GetFP(MLS)
SET NewConn=Server.CreateObject("ADODB.Connection")
NewConn = "DSN=Premier;PW=;"
set rsFPPhoto=Server.CreateObject("ADODB.recordset")
photoSQL = "SELECT * FROM imgList WHERE MLS ='" & MLS & "' AND(photoName LIKE '%FP%' OR photoName LIKE '%fp%') ORDER BY OrderNumber;"
rsFPPhotpen photoSQL, NewConn
FPCOUNT = 0

If NOT rsFPPhoto.EOF OR NOT rsFPPhoto.BOF then
FPCOUNT = (FPCOUNT + 1)
fpTable = "<table border='0' cellpadding='2' cellspacing='1' width='100%' bgcolor='FFFFFF' class='resultsCopy'><tr><td><b>&nbsp;View Floor Plans "
Do while not rsFPPhoto.EOF
'response.write("<BR>" & rsFPPhoto("live")&"/"&rsFPPhoto("photoName"))

fpTable = fpTable & "<a href='javascript:void window.open(&#39;" & rsFPPhoto("live")&"/"&rsFPPhoto("photoName") & "&#39;,&#39;FloorPlans&#39;,&#39;resizable=1,width=500,height=400&#39;'>"& FPCOUNT &"</a>&nbsp;"
rsFPPhoto.movenext
LOOP
fpTable = fpTable & "</b></td></tr></table>"
response.write fpTable
fpTable = ""
rsFPPhoto.close
SET rsFPPhoto=NOTHING
SET NewConn=NOTHING

'response.write("TESTING: " & fpTable)
END IF
END SUB
SUB GetAgent(strIn)
IF TRIM(strIn) <> "" THEN
SET NewConn=Server.CreateObject("ADODB.Connection")
NewConn = "DSN=Premier;PW=;"
set rsAgent=Server.CreateObject("ADODB.recordset")
agentSQL = "SELECT * FROM ASSOCIATES WHERE AgentStatus='Active' AND Last_Name = '" & strIn & "';"
rsAgent.Open agentSQL, NewConn
IF NOT rsAgent.EOF AND NOT rsAgent.BOF THEN
response.write "<table width='100%' cellpadding='3' cellspacing='0' border='0'>"
IF Trim(rsAgent("Picture")) <> "" AND NOT IsNull(rsAgent("Picture")) THEN
strPic = "<a href='agent.asp?aid=" & Trim(rsAgent("LAID")) & "&agent=" & Trim(rsAgent("Last_Name")) & "'><img src='/MultiMedia/agents/"&SERVER.URLENCODE(Trim(lcase(rsAgent("Picture"))))&"' width='100' border='0'></a>"
ELSE
strPic = "<a href='agent.asp?aid=" & Trim(rsAgent("LAID")) & "&agent=" & Trim(rsAgent("Last_Name")) & "'><img src='/images/premier/Search/NoAgent.jpg' width='100' border='0'></a>"
END IF
response.write "<tr class='resultsCopy'><td valign='top' align='left' rowspan='7' height='10'>" & strPic & "</td>"
response.write "<td nowrap valign='top'><b><a class='dynamiclinks1' href='agent.asp?aid=" & Trim(rsAgent("LAID")) & "&agent=" & Trim(rsAgent("Last_Name")) & "'>" & Trim(rsAgent("Listing_Associate")) & "</a></b>"
response.write "<br>"
IF Trim(lcase(rsAgent("Title"))) = "realtor" THEN
response.write "Sales Associate/REALTOR^{<font size='1'>&reg;</font>}"
ELSE
response.write Trim(rsAgent("Title"))
END IF
If NOT IsNULL(rsAgent("Address1")) THEN Response.Write("<BR>" & TRIM(rsAgent("Address1")) & "")
If NOT IsNULL(rsAgent("Address2")) THEN Response.Write("<BR>" & TRIM(rsAgent("Address2")) & "")
If NOT IsNULL(rsAgent("City")) THEN Response.Write("<BR>" & TRIM(rsAgent("City")) & "")
If NOT IsNULL(rsAgent("State")) THEN Response.Write(", " & TRIM(rsAgent("State")) & "")
If NOT IsNULL(rsAgent("Zip")) THEN Response.Write("&nbsp;&nbsp;" & TRIM(rsAgent("Zip")) & "")
response.write("<br>")
If NOT IsNULL(rsAgent("phoneNumber1")) THEN Response.Write("<br>Phone: " & TRIM(rsAgent("phoneNumber1")) & "")
If NOT IsNULL(rsAgent("fax1")) THEN Response.Write("<br>Fax: &nbsp;&nbsp;&nbsp;&nbsp;" & TRIM(rsAgent("fax1")) & "")
If NOT IsNULL(rsAgent("email")) THEN Response.Write("<br><a href='mailto:" & TRIM(rsAgent("email")) & "'>Email</a>")

Dim AgentEM
AgentEM = CStr(rsAgent("email"))
Response.Write(AgentEM)

response.write "</td></tr></table>"
END IF
rsAgent.close
SET rsAgent = NOTHING
SET NewConn = NOTHING
ELSE
EXIT SUB
END IF
strPic = ""
strIn = ""
END SUB
%>
-----------------------------------------
Here is the page I am sending too...
----------------------------------------
<%@ Language=VBScript %>

<%
Option Explicit
%>

<%
' -----------------------------------------------------
' CDONTS Email send script
' ©

http://www.designplace.org/

' Comments must remain intact for re-use of this code
' -----------------------------------------------------
dim strErrText, strAction, varMLS, varMessage, varAssociate, varAgentEmail, varMessage2, varMessage3, AgentEmail, AgentEmail2

strAction = Request.QueryString("action")

Select Case strAction

Case "err1"
strErrText = "<span style='font-family: Verdana; font-size: 11px;color: red; font-weight: bold;'>Error: Please enter your First Name.</span>"
Case "err2"
strErrText = strErrText & "<span style='font-family: Verdana; font-size: 11px;color: red; font-weight: bold;'>Error: Please enter your Last Name.</span>"
Case "err3"
strErrText = strErrText & "<span style='font-family: Verdana; font-size: 11px;color: red; font-weight: bold;'>Error: Please enter your e-mail address.</span>"

End Select
%>

<!--#include file="inc_contactusheader.asp" -->
<!--#include file="inc_contactus2.asp" -->

<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" height="100%" bgcolor="#FFFFFF">
<tr>
<td width="100%" height="100%">
<p align="center"></p>
<div align="center">
<center>
<table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0" class="bgpositionNEWS">
<tr>
<td>&nbsp;</td>
<td class="title">&nbsp;</td>
<td>&nbsp;</td>
</tr>
<tr>
<td width="3%">&nbsp;</td>
<td width="67%" class="devTXT"><div align="right">
<p>&nbsp;</p>
<p align="left">Contact Us <span style="font-size: large">TEST11 </span></p>
</div></td>
<td width="30%">&nbsp;</td>
</tr>
<tr>
<td rowspan="3">&nbsp;</td>
<td class="devTXT"><p><font color="#CC0000" size="4"><strong>*</strong></font><font color="#FF0000" size="3"></font>
indicates a required field</p></td>
<td rowspan="3">&nbsp;</td>
</tr>
<tr>
<td class="devTXT">For more information about our services
please provide us with your information and we will be </td>
</tr>
<tr>
<td class="devTXT">back in touch with you shortly. And thanks
again for visiting the Premier-Properties Company website.</td>
</tr>
<tr>

<td>&nbsp;</td>
<td><table width="100%" height="766" border="0" cellpadding="2" cellspacing="0">
<tr>
<td height="23" valign="top" class="frontfacebold">
<%
if strAction > "" then
response.write strErrText
end if
%>
<%
varMLS = request("mls")
If varMLS <> "" Then
varMessage ="Please send more information on property " & varMLS
End If
%>
<%
varAssociate = request("Associate")
If varAssociate <> "" Then
varMessage2 ="" & varAssociate
End If
%>


</td>
</tr>
<tr>
<td height="743" valign="top">
<form name="form1" method="post" action="NEW/send_it_test1.asp">

<div align="right"> <strong><font color="#CC0000" size="4">
</font></strong><font color="#990000" size="2" face="Arial, Helvetica, sans-serif"><strong></strong></font>
<table width="106%" border="0" cellspacing="3" cellpadding="2">
<tr class="devTXT">
<td width="13%"><div align="right" class="smclientfont">First
Name: </div></td>
<td width="37%" colspan="2"> <div align="left">
<input name="firstname" type="text" class="formfield" value="">
<font color="#CC0000" size="4"><strong>*</strong></font></div></td>
<td width="12%"><div class="frontface">
<div align="right" class="smclientfont">Last
Name:</div>
</div></td>
<td width="38%"> <div align="left">
<input name="lastname" type="text" class="formfield" value="">
<font color="#CC0000" size="4"><strong>*</strong></font></div></td>
</tr>
<tr class="devTXT">
<td><div align="right">Company:</div></td>
<td colspan="2"><input name="company" type="text" class="formfield" value=""></td>
<td><div align="right">eMail:</div></td>
<td><input name="email" type="text" class="formfield" value="">
<font color="#CC0000" size="4"><strong>*</strong></font></td>
</tr>
<tr class="devTXT">
<td><div align="right" class="smclientfont">Position:</div></td>
<td colspan="2"> <div align="left">
<input name="position" type="text" class="formfield" value="">
</div></td>
<td><div class="frontface">
<div align="right" class="smclientfont">State<font size="-1" face="arial"><font size="-1" face="arial"><font size="-1" face="arial">:</font></font></font></div>
</div></td>
<td align="left"> <div align="left"> <font size="-1" face="arial"><span class="frontface"><font size="-1" face="arial"><font size="-1" face="arial"><font size="-1" face="arial">
<input name="state" type="text" class="formfield" value="">
</font></font></font></span></font><font color="#CC0000" size="4"></font></div></td>
</tr>
<tr class="devTXT">
<td><div align="right">Street:</div></td>
<td colspan="2"><input name="street" type="text" class="formfield" value=""></td>
<td><div align="right"><span class="smclientfont">Zip:</span></div></td>
<td><font size="-1" face="arial"><span class="frontface"><font size="-1" face="arial"><font size="-1" face="arial"><font size="-1" face="arial"><span class="frontface"><font size="-1" face="arial"><font size="-1" face="arial"><font size="-1" face="arial"><span class="frontface"><font size="-1" face="arial"><font size="-1" face="arial"><font size="-1" face="arial"><span class="frontface"><font size="-1" face="arial"><font size="-1" face="arial"><font size="-1" face="arial">
<input name="zip" type="text" class="formfield" value="" size="8" maxlength="8">
</font></font></font></span></font></font></font></span></font></font></font></span>
</font></font></font></span></font></td>
</tr>
<tr class="devTXT">
<td><div class="smclientfont">
<div align="right">City:</div>
</div></td>
<td colspan="2"><input name="city" type="text" class="formfield" value=""></td>
<td><div align="right" class="smclientfont"><font size="-1" face="arial"></font></div></td>
<td align="left"><font size="-1" face="arial"><span class="frontface"><font size="-1" face="arial"><font size="-1" face="arial"><font size="-1" face="arial"><span class="frontface"><font size="-1" face="arial"><font size="-1" face="arial"><font size="-1" face="arial"><span class="frontface"><font size="-1" face="arial"><font size="-1" face="arial"><font size="-1" face="arial">
</font></font></font></span></font></font></font></span></font></font></font></span></font></td>
</tr>
<tr class="devTXT">
<td><div class="frontface">
<div align="right" class="smclientfont">Country:</div>
</div></td>
<td colspan="2"> <div align="left"> <span class="frontface"><font size="-1" face="arial"><span class="frontface"></span>
<input type=hidden name="country" value="">
<select name="country" class="devTXT">
<option value="United States / Canada"selected>United
States / Canada</option>
<option value="Afgha">Afghanistan</option>
<option value="Albania">Albania</option>
<option value="Algeria">Algeria</option>
<option value="American Samoa">American Samoa</option>
<option value="Andorra">Andorra</option>
<option value="Angola">Angola</option>
<option value="Antarctica">Antarctica / Norfolk
Island</option>
<option value="Antigua">Antigua and Barbuda</option>
<option value="Argentina">Argentina</option>
<option value="Armenia">Armenia</option>
<option value="Aruba">Aruba</option>
<option value="Ascension">Ascension Island</option>
<option value="Australia">Australia</option>
<option value="Austria">Austria</option>
<option value="Azerbaijan">Azerbaijan</option>
<option value="Bahrain">Bahrain</option>
<option value="Bangladesh">Bangladesh</option>
<option value="Belarus">Belarus</option>
<option value="Belgium">Belgium</option>
<option value="Belize">Belize</option>
<option value="Benin">Benin</option>
<option value="Bhutan">Bhutan</option>
<option value="Bolivia">Bolivia</option>
<option value="Bosnia">Bosnia &amp; Herzogovina</option>
<option value="Botswana">Botswana</option>
<option value="Brazil">Brazil</option>
<option value="Brunei">Brunei</option>
<option value="Bulgaria">Bulgaria</option>
<option value="Burkina Faso">Burkina Faso</option>
<option value="Burundi">Burundi</option>
<option value="Cambodia">Cambodia</option>
<option value="Cameroon">Cameroon</option>
<option value="Cape Verde Islands">Cape Verde
Islands</option>
<option value="236">Central African Republic</option>
<option value="235">Chad</option>
<option value="56">Chile</option>
<option value="86">China (PRC)</option>
<option value="57">Colombia</option>
<option value="269">Comoros / Mayotte Island</option>
<option value="242">Congo</option>
<option value="243">Congo, Dem. Rep. of (former
Zaire)</option>
<option value="Cook">Cook Islands</option>
<option value="506">Costa Rica</option>
<option value="385">Croatia</option>
<option value="53">Cuba</option>
<option value="357">Cyprus</option>
<option value="420">Czech Republic</option>
<option value="45">Denmark</option>
<option value="246">Diego Garcia</option>
<option value="253">Djibouti</option>
<option value="670">East Timor</option>
<option value="593">Ecuador</option>
<option value="20">Egypt</option>
<option value="503">El Salvador</option>
<option value="240">Equatorial Guinea</option>
<option value="291">Eritrea</option>
<option value="372">Estonia</option>
<option value="251">Ethiopia</option>
<option value="298">Faeroe Islands</option>
<option value="500">Falkland Islands</option>
<option value="679">Fiji Islands</option>
<option value="358">Finland</option>
<option value="33">France</option>
<option value="594">French Guiana</option>
<option value="689">French Polynesia</option>
<option value="241">Gabon</option>
<option value="220">Gambia</option>
<option value="995">Georgia</option>
<option value="49">Germany</option>
<option value="233">Ghana</option>
<option value="350">Gibraltar</option>
<option value="30">Greece</option>
<option value="299">Greenland</option>
<option value="590">Guadeloupe</option>
<option value="502">Guatemala</option>
<option value="224">Guinea (PRP)</option>
<option value="245">Guinea-Bissau</option>
<option value="592">Guyana</option>
<option value="509">Haiti</option>
<option value="504">Honduras</option>
<option value="852">Hong Kong</option>
<option value="36">Hungary</option>
<option value="354">Iceland</option>
<option value="91">India</option>
<option value="62">Indonesia</option>
<option value="98">Iran</option>
<option value="964">Iraq</option>
<option value="353">Ireland</option>
<option value="972">Israel</option>
<option value="39">Italy</option>
<option value="225">Ivory Coast (C&ocirc;te
d`Ivoire)</option>
<option value="81">Japan</option>
<option value="962">Jordan</option>
<option value="254">Kenya</option>
<option value="686">Kiribati</option>
<option value="850">Korea (North)</option>
<option value="82">Korea (South)</option>
<option value="965">Kuwait</option>
<option value="996">Kyrgyz Republic</option>
<option value="856">Laos</option>
<option value="371">Latvia</option>
<option value="961">Lebanon</option>
<option value="266">Lesotho</option>
<option value="231">Liberia</option>
<option value="218">Libya</option>
<option value="423">Liechtenstein</option>
<option value="370">Lithuania</option>
<option value="352">Luxembourg</option>
<option value="853">Macau</option>
<option value="389">Macedonia</option>
<option value="261">Madagascar</option>
<option value="265">Malawi</option>
<option value="60">Malaysia</option>
<option value="960">Maldives</option>
<option value="223">Mali Republic</option>
<option value="356">Malta</option>
<option value="692">Marshall Islands</option>
<option value="596">Martinique / French Antilles</option>
<option value="222">Mauritania</option>
<option value="230">Mauritius</option>
<option value="52">Mexico</option>
<option value="691">Micronesia (Federal States
of)</option>
<option value="808">Midway Island / Wake Island</option>
<option value="373">Moldova</option>
<option value="377">Monaco</option>
<option value="976">Mongolia</option>
<option value="212">Morocco</option>
<option value="258">Mozambique</option>
<option value="95">Myanmar</option>
<option value="264">Namibia</option>
<option value="674">Nauru</option>
<option value="977">Nepal</option>
<option value="31">Netherlands</option>
<option value="599">Netherlands Antilles /
Cura&ccedil;ao</option>
<option value="687">New Caledonia</option>
<option value="64">New Zealand</option>
<option value="505">Nicaragua</option>
<option value="227">Niger</option>
<option value="234">Nigeria</option>
<option value="683">Niue</option>
<option value="47">Norway</option>
<option value="968">Oman</option>
<option value="92">Pakistan</option>
<option value="680">Palau</option>
<option value="970">Palestine</option>
<option value="507">Panama</option>
<option value="675">Papua New Guinea</option>
<option value="595">Paraguay</option>
<option value="51">Peru</option>
<option value="63">Philippines</option>
<option value="48">Poland</option>
<option value="351">Portugal</option>
<option value="974">Qatar</option>
<option value="262">R&eacute;union Island</option>
<option value="40">Romania</option>
<option value="7">Russian Federation</option>
<option value="250">Rwanda</option>
<option value="869">Saint Kitts and Nevis</option>
<option value="378">San Marino</option>
<option value="239">S&atilde;o Tom&eacute; and
Principe</option>
<option value="966">Saudi Arabia</option>
<option value="221">Senegal</option>
<option value="248">Seychelles Islands</option>
<option value="232">Sierra Leone</option>
<option value="65">Singapore</option>
<option value="421">Slovak Republic</option>
<option value="386">Slovenia</option>
<option value="677">Solomon Islands</option>
<option value="252">Somalia</option>
<option value="27">South Africa</option>
<option value="34">Spain</option>
<option value="94">Sri Lanka</option>
<option value="290">St. Helena</option>
<option value="508">St. Pierre / Miquelon</option>
<option value="249">Sudan</option>
<option value="597">Suriname</option>
<option value="268">Swaziland</option>
<option value="46">Sweden</option>
<option value="41">Switzerland</option>
<option value="963">Syria</option>
<option value="886">Taiwan</option>
<option value="992">Tajikistan</option>
<option value="255">Tanzania</option>
<option value="66">Thailand</option>
<option value="228">Togo</option>
<option value="690">Tokelau</option>
<option value="676">Tonga Islands</option>
<option value="216">Tunisia</option>
<option value="90">Turkey</option>
<option value="993">Turkmenistan</option>
<option value="688">Tuvalu</option>
<option value="256">Uganda</option>
<option value="Ukraine">Ukraine</option>
<option value="971">United Arab Emirates</option>
<option value="United Kingdom">United Kingdom</option>
<option value="United States / Canada">United
States / Canada</option>
<option value="0">Unknown</option>
<option value="598">Uruguay</option>
<option value="998">Uzbekistan</option>
<option value="678">Vanuatu</option>
<option value="58">Venezuela</option>
<option value="84">Vietnam</option>
<option value="681">Wallis and Futuna Islands</option>
<option value="685">Western Samoa</option>
<option value="967">Yemen</option>
<option value="381">Yugoslavia</option>
<option value="260">Zambia</option>
<option value="263">Zimbabwe</option>
</select>
</font></span></div></td>
<td><div align="center"></div></td>
<td><div align="left"><font size="-1" face="arial"><span class="frontface"><font size="-1" face="arial"><font size="-1" face="arial"><font size="-1" face="arial"><span class="frontface"><font size="-1" face="arial"><font size="-1" face="arial"><font size="-1" face="arial">
</font></font></font></span> </font></font></font></span>
</font></div></td>
</tr>
<tr class="devTXT">
<td><div align="right" class="smclientfont">Phone:</div></td>
<td colspan="2">(
<input name="areacode" type="text" class="formfield" value="" size="3" maxlength="3">
)
<input name="phone" type="text" class="formfield" value="" size="7" maxlength="7">
<font face="arial">&nbsp; </font> </td>
<td>&nbsp;</td>
<td>&nbsp;</td>
</tr>
<tr class="devTXT">
<td>&nbsp;</td>
<td colspan="2">&nbsp;</td>
<td>&nbsp;</td>
<td>&nbsp;</td>
</tr>
<tr class="devTXT">
<td>&nbsp;</td>
<td colspan="2"><strong>I am interested in the following:</strong></td>
<td>&nbsp;</td>
<td>&nbsp;</td>
</tr>
<tr class="devTXT">
<td><div align="right" class="smclientfont"></div></td>
<td>Purchasing a Residence: </td>
<td><input name="purchase" type="radio" value="yes" checked>
Yes
<input type="radio" name="purchase" value="no">
No </td>
<td> <font face="arial">&nbsp;</font></td>
<td>&nbsp;</td>
</tr>
<tr class="devTXT">
<td>&nbsp;</td>
<td>Listing a Property:</td>
<td><input name="list" type="radio" value="yes" checked>
Yes
<input type="radio" name="list" value="no">
No </td>
<td>&nbsp;</td>
<td>&nbsp;</td>
</tr>
<tr class="devTXT">
<td>&nbsp;</td>
<td>Rental information:</td>
<td><input name="rental" type="radio" value="yes" checked>
Yes
<input type="radio" name="rental" value="no">
No</td>
<td>&nbsp;</td>
<td>&nbsp;</td>
</tr>
<tr class="devTXT">
<td>&nbsp;</td>
<td>Commercial Property:</td>
<td><input name="commercial" type="radio" value="yes" checked>
Yes
<input type="radio" name="commercial" value="no">
No</td>
<td>&nbsp;</td>
<td>&nbsp;</td>
</tr>
<tr class="devTXT">
<td>&nbsp;</td>
<td>Our Property Magazine:</td>
<td><input name="mag" type="radio" value="yes" checked>
Yes
<input type="radio" name="mag" value="no">
No</td>
<td>&nbsp;</td>
<td>&nbsp;</td>
</tr>
<tr class="devTXT">
<td>&nbsp;</td>
<td>Our E-newsletter.</td>
<td><input name="newsletter" type="radio" value="yes" checked>
Yes
<input type="radio" name="newsletter" value="no">
No</td>
<td>&nbsp;</td>
<td>&nbsp;</td>
</tr>
<tr class="devTXT">
<td>&nbsp;</td>
<td>Timeframe:</td>
<td><select name="timeframe" class="devTXT" id="timeframe">
<option>3 - 6 months</option>
<option>6 -12 months</option>
<option>1 - 2 Years</option>
</select></td>
<td>&nbsp;</td>
<td>&nbsp;</td>
</tr>
<tr class="devTXT">
<td>&nbsp;</td>
<td>Property Type:</td>
<td><select name="proptype" class="devTXT" id="proptype">
<option>Single Family
<option>Condominium
<option>Investment
</select></td>
<td>&nbsp;</td>
<td>&nbsp;</td>
</tr>
<tr class="devTXT">
<td>&nbsp;</td>
<td><span class="smclientfont">Agent</span>'s Name: </td>
<td><%=varAssociate%></td>
<td>&nbsp;</td>
<td>&nbsp;</td>
</tr>
<tr class="devTXT">
<td>&nbsp;</td>
<td>Agent's Email: </td>
<td><%=AgentEmail%>
</td>
<td>&nbsp;</td>
<td>&nbsp;</td>
</tr>
<tr class="devTXT">
<td>&nbsp;</td>
<td>&nbsp;</td>
<td><input name="mls" type="hidden" id="mls" value="<%=varMessage%>"></td>
<td>&nbsp;</td>
<td>&nbsp;</td>
</tr>
<tr class="devTXT">
<td><div align="right">Questions?</div></td>
<td colspan="2">&nbsp;</td>
<td>&nbsp;</td>
<td>&nbsp;</td>
</tr>
<tr class="devTXT">
<td>&nbsp;</td>
<td colspan="2" align="left"> <div align="left">
<textarea name="message" cols="30" rows="6" class="formfield"><%=varMessage%>
<%Response.Write request.querystring("AgentEM")%>
</textarea>
</div></td>
<td>&nbsp;</td>
<td>&nbsp;</td>
</tr>
<tr class="devTXT">
<td>&nbsp;</td>
<td colspan="2">&nbsp;</td>
<td>&nbsp;</td>
<td>&nbsp;</td>
</tr>
<tr class="devTXT">
<td>&nbsp;</td>
<td colspan="2"><input name="submit" type="submit" class="SearchButtons" style="background-color:#000000 ;font-size: 9pt; color: white; font-weight:bold" value="Submit"> </td>
<td>&nbsp;</td>
<td>&nbsp;</td>
</tr>
</table>
<p align="right">&nbsp; </p>
</div>
</form></td>
</tr>
</table></td>
<td>&nbsp;</td>
</tr>
</table>
</center>
</div>
<p align="center">



</p>
<div align="center">
<center>
</center>
</div>
</td>
</tr>
</table>
</center>
</div>
</table>

<!--#include file="inc_footer.asp" -->

 

[Sheco]

Was it cut off? That page you are sending to? Was that all of it?

I expected to see something like this:[tt]
AgentEmail = Request.QueryString("AgentEmail")[/tt]


But I don't see it.

I would have expected to see a line pulling AgentEmail out of the Request.QueryString somewhere near... perhaps immediately aftter this line:[tt]
strAction = Request.QueryString("action")[/tt]

 

[brimike]

Hello Sheco,
I placed all code and in the string I still see the variable empty. Here's the code:
Sending Page
==============================================
<link href="globaldynamic.css" type="text/css">
<%

varMLS = Trim(Request("mls"))
IF TRIM(varMLS) = "" THEN
varMLS = Trim(Request("lid"))
END IF
IF TRIM(Request.QueryString("LAID")) <> "" THEN
varListingAgent = TRIM(Request.QueryString("LAID"))
END IF
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DSN=Premier;PWD="
SQL = "SELECT * FROM current_listings WHERE (Status='A') "
IF Trim(varMLS) <> "" THEN
SQL = SQL & " AND (MLS# = '" & varMLS & "' OR LID = '" & varMLS & "')"
END IF
IF Trim(varListingAgent) <> "" THEN
SQL = SQL & " AND (Associates_Last_Name = '" & varListingAgent & "' OR Listing_Assoc2 = '" & varListingAgent & "' OR Listing_Assoc3 = '" & varListingAgent & "')"
END IF

'response.write "sql=" & sql & "<br>"

Set rs = Server.CreateObject("ADODB.Recordset")
'response.write "<br>SQL = " & sql & "<br>"
rs.Open sql, conn, 3, 3

%>

<%If NOT rs.EOF THEN

varLID = quoteIt(trim(rs("LID")))
varDate_Entered = quoteIt(trim(rs("Date_Entered")))
varOfficeNumber = quoteIt(trim(rs("OfficeNumber")))
varPS_Date = quoteIt(trim(rs("PS_Date")))
varPC_Date = trim(rs("PC_Date"))
varClose_Sale_Date = quoteIt(trim(rs("Close_Sale_Date")))
varMLS = quoteIt(trim(rs("MLS#")))
varOther_MLS = quoteIt(trim(rs("Other_MLS#")))
varClass = quoteIt(trim(rs("Class")))
varZone = quoteIt(trim(rs("Zone")))
varStatus = quoteIt(trim(rs("Status")))
varVillage_Key = quoteIt(trim(rs("Village_Key#")))
varOld_Naples_Key = quoteIt(trim(rs("Old_Naples_Key#")))
varVanderbilt_Key = quoteIt(trim(rs("Vanderbilt_Key#")))
varPelican_Landing = quoteIt(trim(rs("Pelican_Landing#")))
varProperty = quoteIt(trim(rs("Property")))
varProperty_Address = quoteIt(trim(rs("Property_Address")))
varPrice = quoteIt(trim(rs("Price")))
IF varPrice <> "" Then
varPrice = formatcurrency(varPrice,0)
End IF
varLower_List_Price = quoteIt(trim(rs("Lower_List_Price")))
varCommPercntSell = quoteIt(trim(rs("CommPercntSell")))
varCommPercntList = quoteIt(trim(rs("CommPercntList")))
varTotalCommPercnt = quoteIt(trim(rs("TotalCommPercnt")))
varOtherPrice = quoteIt(trim(rs("OtherPrice")))
varSignReqd = quoteIt(trim(rs("SignReqd")))
varOwnerName = quoteIt(trim(rs("OwnerName")))
varOwners_Last_Name = quoteIt(trim(rs("Owners_Last_Name")))
varFirst_Name = quoteIt(trim(rs("First_Name")))
varSpouse_Name = quoteIt(trim(rs("Spouse_Name")))
varPrefix = quoteIt(trim(rs("Prefix")))
varSecond_Owner_or_Co = quoteIt(trim(rs("Second_Owner_or_Co")))
varMailing_Address = quoteIt(trim(rs("Mailing_Address")))
varCity = quoteIt(trim(rs("City")))
varState = quoteIt(trim(rs("State")))
varZip = quoteIt(trim(rs("Zip")))
varCountry = quoteIt(trim(rs("Country")))
varHome_Phone = quoteIt(trim(rs("Home_Phone")))
varOffice_Phone = quoteIt(trim(rs("Office_Phone")))
varFax_Number = quoteIt(trim(rs("Fax_Number")))
varUnit_Phone_Number = quoteIt(trim(rs("Unit_Phone_Number")))
varAssociates_Last_Name = quoteIt(trim(rs("Associates_Last_Name")))
varList_Date = quoteIt(trim(rs("List_Date")))
varExp_Date = quoteIt(trim(rs("Exp_Date")))
varLA = quoteIt(trim(rs("LA")))
varTA = quoteIt(trim(rs("TA")))
varBR = quoteIt(trim(rs("BR")))
varBA = quoteIt(trim(rs("BA")))
varFurnished = quoteIt(trim(rs("Furnished")))
varShowing_Instructions = quoteIt(trim(rs("Showing_Instructions")))
varCondo_Sub = quoteIt(trim(rs("Condo_Sub")))
varC_S_Address = quoteIt(trim(rs("C_S_Address")))
varAd__newspaper = quoteIt(trim(rs("Ad_#__newspaper_")))
varAd_Copy = quoteIt(trim(rs("Ad_Copy")))
varBanner = quoteIt(trim(rs("Banner")))
varAssociate = quoteIt(trim(rs("Associate")))
varKeybox = quoteIt(trim(rs("Keybox")))
varListing_Assoc2 = quoteIt(trim(rs("Listing_Assoc2")))
varListing_Assoc3 = quoteIt(trim(rs("Listing_Assoc3")))
varRange_Code = quoteIt(trim(rs("Range_Code")))
varRange = quoteIt(trim(rs("Range")))
varIproperty_Type = quoteIt(trim(rs("Iproperty_Type")))
varProperty_Address = quoteIt(trim(rs("Property_Address")))
varIneighborhood = quoteIt(trim(rs("Ineighborhood")))
varIcatagory = quoteIt(trim(rs("Icatagory")))
varIlocation = quoteIt(trim(rs("Ilocation")))
varRemove_Date = quoteIt(trim(rs("Remove_Date")))
varHalfbath = quoteIt(trim(rs("Halfbath")))
varZip1 = quoteIt(trim(rs("Zip1")))
varYear_Built = quoteIt(trim(rs("YearBuilt")))
varVirtual_Tour = quoteIt(trim(rs("Virtual_Tour")))
'Response.write rs("VirtualTourAddress")
'response.end
varVirtualTourAddress = quoteIt(trim(rs("VirtualTourAddress")))
varAvailableSqFeet = quoteIt(trim(rs("AvailableSqFeet")))
varVTURL = ""
varURL = ""

strAddress = " "
strAddress = varC_S_Address & " " &varZip1
'strAddress = varC_S_Address & " " & varCity & " " & varState & " " &varZip1
strAddress = TRIM(strAddress)
'response.write "strAddress = ||" & strAddress & "||"

'=========================================================================================================
SQL = "SELECT * FROM imgList WHERE (PhotoName LIKE '"& varMLS & "%') AND ((PhotoName NOT LIKE '%FP%')) ORDER BY OrderNumber"
Set rs2 = Server.CreateObject("ADODB.Recordset")
rs2.Open sql, conn, 3, 3
If rs2.recordcount <> 0 Then
varPhotoName = trim(rs2("PhotoName"))
varGraphic = "

http://premier-properties.com/listingsphotos-all/"

& varPhotoName
Else
varGraphic = "/graphics/no_photo_small.gif"
End If
'=========================================================================================================
End If
'======================================================================================================
' End If
'------------------------------------------------------------------------------------------------------------->
'--[Photo Loop Ends HERE]------------------------------------------------------------------------------------->
'------------------------------------------------------------------------------------------------------------->
%>
<%
'NEW LAYOUT START
%>
<style type="text/css">
<!--
.style5 {font-family: Arial, Helvetica, sans-serif; font-weight: bold; font-size: 12px; color: #FFFFFF; text-decoration:none; }
-->
</style>



<script language="JavaScript" type="text/JavaScript">
<!--
function MM_openBrWindow(theURL,winName,features) { //v2.0
window.open(theURL,winName,features);
}
//-->
</script>
<table width="95%" border="0" cellspacing="0" cellpadding="0" align="center">
<tr bgcolor="#000000">
<td>
<table width="100%" border="0" cellspacing="0" cellpadding="2">
<tr align="center" bgcolor="#000000" class="style5">
<td valign="bottom" style="padding:3px;" nowrap><a href="javascript:history.back(1)"><span class="style5">Back to Search Results</span></a></td>
<td valign="bottom" style="padding:3px;" nowrap><a href="javascript:window_open('savelisting.asp?mls=<%=varMLS%>', '400', '450')"><span class="style5">Save Listing to Favorites</span></a></td>
<td valign="bottom" style="padding:3px;" nowrap><a href="contactustest1.asp?mls=<%=varMLS%>&LID=<%=varLID%>&Associate=<%=varAssociate%>&AgentEmail=<%=AgentEmail%>"><span class="style5">Request Additional Information</span></a></td>
<style type="text/css">
.mapLink {
color:#FFFFFF;
text-decoration:none;
}
</style>
<td valign="bottom" style="padding:3px;" nowrap><% CALL GoogleMap(varPrice,strAddress,varMLS,varLID)%></td>
</tr>
<%
IF InStr(1,varAd_Copy,"Christie",1) THEN
%>
<tr bgcolor="#FFFFFF">
<td colspan="4" align="left" valign="bottom" style="padding:3px;background-repeat:repeat-y; background-image:url(images/ChristiesBar.jpg); color:#FFFFFF" nowrap><strong>Christie's Great Estate</strong></td>
</tr>
<%
END IF
%>
<tr align="left" valign="top" bgcolor="#FFFFFF">
<td colspan="4">

<%
CALL GetPhotos(TRIM(varMLS))
%>

<%
'response.write("FloorPlan Photo Count: |"&FPCOUNT&"|")
CALL GetFP(TRIM(varMLS))
%>
</td>
</tr>
<tr class="resultsCopy" style="text-align:left" align="left" valign="top" bgcolor="#FFFFFF">
<td colspan="4">
<B><%=varCondo_Sub%></B>
<%
IF Trim(varIproperty_Type) <> "" THEN
Response.write("<br>" & Trim(varIproperty_Type))
END IF
%>

</td>
</tr>


<% IF Trim(varAd_Copy) <> "" THEN %>
<tr class="resultsCopy" style="text-align:left; padding:5px;" align="left" valign="top" bgcolor="#FFFFFF">
<td colspan="4">
<strong><br>Description:</strong>
<%=varAd_Copy%>
</td>
</tr>
<tr class="resultsCopy" style="text-align:left; padding:5px;" align="left" valign="top" bgcolor="#FFFFFF">
<td colspan="4">
<table width="100%" border="0" cellpadding="3" cellspacing="0">
<tr class="resultsCopy" style="text-align:left; padding:5px;" valign="top" bgcolor="#FFFFFF">
<td width="7%" nowrap>
<% IF Trim(varPrice) <> "" THEN Response.write("<BR><b>Sale Price:&nbsp;</b>") %>
<% IF Trim(varMLS) <> "" THEN Response.write("<BR><b>MLS:&nbsp;</b>") %>
<% IF Trim(varBR) <> "" THEN Response.write("<BR><b>Bedrooms:&nbsp;</b>") %>
<% IF Trim(varBA) <> "" THEN Response.write("<br><b>Baths:&nbsp;</b>") %>
<% IF Trim(varTA) <> "" THEN Response.write("<br><b>Total SqFt:&nbsp;</b>") %>
</td>
<td width="25%" nowrap>
<% IF Trim(varPrice) <> "" THEN Response.write("<BR>" & varPrice) %>
<% IF Trim(varMLS) <> "" THEN Response.write("<BR>" & varMLS) %>
<% IF Trim(varBR) <> "" THEN Response.write("<BR>" & varBR) %>
<% IF Trim(varBA) <> "" THEN Response.write("<br>" & varBA & "") %>
<% IF Trim(varTA) <> "" THEN Response.write("<br>" & varTA & " sqft") %>
</td>


<td width="5%" nowrap><br>
<% IF Trim(varYear_Built) <> "" THEN Response.write("<br><b>Year Built&nbsp;</b>") %>
<% 'IF Trim(varHOA_Fees) <> "" AND Trim(varHOA_Fees) > 0 THEN Response.write("<br><b>HOA Fees:&nbsp;</b>") %>
<% IF Trim(varTax_Year) <> "" AND Trim(varTaxes) <> "" THEN Response.write("<br><b>" & varTax_Year & " Taxes</b>") %>
</td>
<td width="63%" nowrap><br>
<% IF Trim(varYear_Built) <> "" THEN Response.write("<br>" & varYear_Built) %>
<% 'IF Trim(varHOA_Fees) <> "" AND Trim(varHOA_Fees) > 0 THEN Response.write("<br>" & FORMATCURRENCY(varHOA_Fees,0)) %>
<% IF Trim(varTax_Year) <> "" AND Trim(varTaxes) <> "" THEN Response.write("<br>" & FORMATCURRENCY(varTaxes,0)) %>
</td>
</tr>
</table>
</td>
</tr>
<tr class="resultsCopy" style="text-align:left; padding:5px;" align="left" valign="top" bgcolor="#FFFFFF">
<td colspan="4">
<strong><br>
This Property Presented By:<BR>
</strong>
<table width="100%" border="0" cellspacing="0" cellpadding="4">
<tr align="left" valign="top">
<td width="33%"><% CALL GetAgent(varAssociates_Last_Name)%></td>
<td width="33%"><% CALL GetAgent(varListing_Assoc2)%></td>
<td width="33%"><% CALL GetAgent(varListing_Assoc3)%></td>
</tr>
</table> </td>
</tr>
<% END IF %>
</table>
</td>
</tr>
</table>
<br>
</td>
</tr>
</table>
</td>
</tr>
</table>
<%
SUB GetPhotos(MLS)
SET NewConn=Server.CreateObject("ADODB.Connection")
NewConn = "DSN=Premier;PW=;"
set rsPhotos=Server.CreateObject("ADODB.recordset")
photoSQL = "SELECT * FROM imgList WHERE MLS ='" & MLS & "' ORDER BY OrderNumber;"
'response.write photoSQL &"<BR><BR>"
'response.write Conn &"<BR><BR>"
rsPhotos.Open photoSQL, NewConn
If NOT rsPhotos.EOF OR NOT rsPhotos.BOF then
FPCOUNT = 0
DIM fpimage
photoTable = "<table border='0' cellpadding='2' cellspacing='1' width='100%' class='resultsCopy'><tr><td><table border='0' cellpadding='3' cellspacing='0' width='100%' ><tr class='resultsCopy'>"

Do while not rsPhotos.EOF

k = k + 1
reDim photoarray(k)
IF InStr(rsPhotos("photoName"),"FP") OR InStr(rsPhotos("photoName"),"fp")THEN
FPCOUNT = (FPCOUNT + 1)
FP = TRUE
'FpImage(FPCOUNT)= (rsPhotos("live") & "/" & rsPhotos("photoName"))
'FpImage(FPCOUNT) = (rsPhotos("PID"))
rsPhotos.movenext
ELSE
photoarray(k) = rsPhotos("live") & "/" & rsPhotos("photoName")
'Start Row - Cell Count is Count - 1
'SET MAIN IMAGE
IF count = 0 THEN
PhotoTable = photoTable & "<td rowspan='10' valign='top' class='resultsCopy'><img src='" & rsPhotos("live")&"/"&rsPhotos("photoName") & "' border='0' id='main'></td><td valign='top'><div id='photo"&K&"' style='display:block'><table border='0' cellpadding='0' cellspacing='1' width='100%'><tr>"
END IF
count = (count + 1)
totalCount = (totalCount + 1)
xCount = (xCount + 1)
IF TotalCount = 13 THEN
hide = Cint(K / 12)
show = Cint(hide+1)
prev = Cint(hide-1)
IF hide = 0 THEN
hide =1
END IF
IF prev = 0 THEN
prev =1
END IF
photoTable = photoTable & "</table><table width='100%' cellpadding='3' cellspacing='0' valign='bottom'><tr class='stats'><td valign='bottom' align='left'><a class='resultsCopy' href='javascript:displayDiv(&quot;photo"&hide&"&quot;,&quot;none&quot;displayDiv(&quot;photo"&prev&"&quot;,&quot;block&quot;'><< Previous</a></td><td align='right' valign='bottom'><a class='resultsCopy' href='javascript:displayDiv(&quot;photo"&show&"&quot;,&quot;block&quot;displayDiv(&quot;photo"&hide&"&quot;,&quot;none&quot;'>Next >></a></td></tr></table></div><div id='photo"&show&"' style='display:none'>"
TotalCount = 1
photoTable = photoTable & "<table border='0' cellpadding='0' cellspacing='1' ><tr class='resultsCopy'>"
END IF

IF Count < 4 AND Count > 0 THEN
PhotoTable = photoTable & "<td valign='top' height='1' class='resultsCopy'><a href='javascript:swapImage(&quot;main&quot;,&quot;&quot;,&quot;" & rsPhotos("live")&"/"&rsPhotos("photoName") & "&quot;' class='stats'><img src='" & rsPhotos("live")&"/"&rsPhotos("photoName") & "' width='80' height='55' border='0' id='"&rsPhotos("PID")&"'></a></td>"
ELSE
count = 1
PhotoTable = photoTable & "</tr><tr class='resultsCopy'><td valign='top' height='1'><a href='javascript:swapImage(&quot;main&quot;,&quot;&quot;,&quot;" & rsPhotos("live")&"/"&rsPhotos("photoName") & "&quot;' class='stats'><img src='" & rsPhotos("live")&"/"&rsPhotos("photoName") & "' width='80' height='55' border='0' id='"&rsPhotos("PID")&"'></a></td>"
END IF
rsPhotos.movenext
END IF
loop
rsPhotos.close
SET rsPhotos=NOTHING
SET NewConn=NOTHING
IF (totalCount < 12) AND (xCount > 12) THEN
photoTable = photoTable & "<table width='100%' cellpadding='3' cellspacing='0' valign='bottom'><tr class='stats'><td valign='bottom' align='left' class='resultsCopy'><a class='resultsCopy' href='javascript:displayDiv(&quot;photo"&hide&"&quot;,&quot;block&quot;displayDiv(&quot;photo"&show&"&quot;,&quot;none&quot;'><< Previous</a></td><td align='right' valign='bottom'><a class='resultsCopy' href='javascript:displayDiv(&quot;photo"&show&"&quot;,&quot;block&quot;displayDiv(&quot;photo"&hide&"&quot;,&quot;none&quot;'>Next >></a></td></tr></table></div>"
END IF

PhotoTable = photoTable & "</table></table></div></table>"
ELSE
PhotoTable = photoTable & "<img src='/graphics/no_photo_large.gif' border='1'></table></div>"
END IF

response.write(photoTable)

':: Show virtual tour if database has the address in the field

If VarVirtualTourAddress <> "" then
Response.write "<a target=_blank href='"&VarVirtualTourAddress&"'><img border='0' src='graphics/home_search_virtual_tour.gif' ></a>"
End if

END SUB

SUB GetFP(MLS)
SET NewConn=Server.CreateObject("ADODB.Connection")
NewConn = "DSN=Premier;PW=;"
set rsFPPhoto=Server.CreateObject("ADODB.recordset")
photoSQL = "SELECT * FROM imgList WHERE MLS ='" & MLS & "' AND(photoName LIKE '%FP%' OR photoName LIKE '%fp%') ORDER BY OrderNumber;"
rsFPPhotpen photoSQL, NewConn
FPCOUNT = 0

If NOT rsFPPhoto.EOF OR NOT rsFPPhoto.BOF then
FPCOUNT = (FPCOUNT + 1)
fpTable = "<table border='0' cellpadding='2' cellspacing='1' width='100%' bgcolor='FFFFFF' class='resultsCopy'><tr><td><b>&nbsp;View Floor Plans "
Do while not rsFPPhoto.EOF
'response.write("<BR>" & rsFPPhoto("live")&"/"&rsFPPhoto("photoName"))

fpTable = fpTable & "<a href='javascript:void window.open(&#39;" & rsFPPhoto("live")&"/"&rsFPPhoto("photoName") & "&#39;,&#39;FloorPlans&#39;,&#39;resizable=1,width=500,height=400&#39;'>"& FPCOUNT &"</a>&nbsp;"
rsFPPhoto.movenext
LOOP
fpTable = fpTable & "</b></td></tr></table>"
response.write fpTable
fpTable = ""
rsFPPhoto.close
SET rsFPPhoto=NOTHING
SET NewConn=NOTHING

'response.write("TESTING: " & fpTable)
END IF
END SUB
SUB GetAgent(strIn)
IF TRIM(strIn) <> "" THEN
SET NewConn=Server.CreateObject("ADODB.Connection")
NewConn = "DSN=Premier;PW=;"
set rsAgent=Server.CreateObject("ADODB.recordset")
agentSQL = "SELECT * FROM ASSOCIATES WHERE AgentStatus='Active' AND Last_Name = '" & strIn & "';"
rsAgent.Open agentSQL, NewConn
IF NOT rsAgent.EOF AND NOT rsAgent.BOF THEN
response.write "<table width='100%' cellpadding='3' cellspacing='0' border='0'>"
IF Trim(rsAgent("Picture")) <> "" AND NOT IsNull(rsAgent("Picture")) THEN
strPic = "<a href='agent.asp?aid=" & Trim(rsAgent("LAID")) & "&agent=" & Trim(rsAgent("Last_Name")) & "'><img src='/MultiMedia/agents/"&SERVER.URLENCODE(Trim(lcase(rsAgent("Picture"))))&"' width='100' border='0'></a>"
ELSE
strPic = "<a href='agent.asp?aid=" & Trim(rsAgent("LAID")) & "&agent=" & Trim(rsAgent("Last_Name")) & "'><img src='/images/premier/Search/NoAgent.jpg' width='100' border='0'></a>"
END IF
response.write "<tr class='resultsCopy'><td valign='top' align='left' rowspan='7' height='10'>" & strPic & "</td>"
response.write "<td nowrap valign='top'><b><a class='dynamiclinks1' href='agent.asp?aid=" & Trim(rsAgent("LAID")) & "&agent=" & Trim(rsAgent("Last_Name")) & "'>" & Trim(rsAgent("Listing_Associate")) & "</a></b>"
response.write "<br>"
IF Trim(lcase(rsAgent("Title"))) = "realtor" THEN
response.write "Sales Associate/REALTOR^{<font size='1'>&reg;</font>}"
ELSE
response.write Trim(rsAgent("Title"))
END IF
If NOT IsNULL(rsAgent("Address1")) THEN Response.Write("<BR>" & TRIM(rsAgent("Address1")) & "")
If NOT IsNULL(rsAgent("Address2")) THEN Response.Write("<BR>" & TRIM(rsAgent("Address2")) & "")
If NOT IsNULL(rsAgent("City")) THEN Response.Write("<BR>" & TRIM(rsAgent("City")) & "")
If NOT IsNULL(rsAgent("State")) THEN Response.Write(", " & TRIM(rsAgent("State")) & "")
If NOT IsNULL(rsAgent("Zip")) THEN Response.Write("&nbsp;&nbsp;" & TRIM(rsAgent("Zip")) & "")
response.write("<br>")
If NOT IsNULL(rsAgent("phoneNumber1")) THEN Response.Write("<br>Phone: " & TRIM(rsAgent("phoneNumber1")) & "")
If NOT IsNULL(rsAgent("fax1")) THEN Response.Write("<br>Fax: &nbsp;&nbsp;&nbsp;&nbsp;" & TRIM(rsAgent("fax1")) & "")
If NOT IsNULL(rsAgent("email")) THEN Response.Write("<br><a href='mailto:" & TRIM(rsAgent("email")) & "'>Email</a>")

Dim AgentEmail
AgentEmail = CStr(rsAgent("email"))
Response.Write(AgentEmail)

response.write "</td></tr></table>"
END IF
rsAgent.close
SET rsAgent = NOTHING
SET NewConn = NOTHING
ELSE
EXIT SUB
END IF
strPic = ""
strIn = ""
END SUB
%>
==============================Recieving Page===============
<%@ Language=VBScript %>

<%
Option Explicit
%>

<%
' -----------------------------------------------------
' CDONTS Email send script
' ©

http://www.designplace.org/

' Comments must remain intact for re-use of this code
' -----------------------------------------------------
dim strErrText, strAction, varMLS, varMessage, varAssociate, varAgentEmail, varMessage2, varMessage3, AgentEmail, AgentEmail2

strAction = Request.QueryString("action")
AgentEmail = Request.QueryString("AgentEmail")
Select Case strAction

Case "err1"
strErrText = "<span style='font-family: Verdana; font-size: 11px;color: red; font-weight: bold;'>Error: Please enter your First Name.</span>"
Case "err2"
strErrText = strErrText & "<span style='font-family: Verdana; font-size: 11px;color: red; font-weight: bold;'>Error: Please enter your Last Name.</span>"
Case "err3"
strErrText = strErrText & "<span style='font-family: Verdana; font-size: 11px;color: red; font-weight: bold;'>Error: Please enter your e-mail address.</span>"

End Select
%>

<!--#include file="inc_contactusheader.asp" -->
<!--#include file="inc_contactus2.asp" -->

<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" height="100%" bgcolor="#FFFFFF">
<tr>
<td width="100%" height="100%">
<p align="center"></p>
<div align="center">
<center>
<table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0" class="bgpositionNEWS">
<tr>
<td>&nbsp;</td>
<td class="title">&nbsp;</td>
<td>&nbsp;</td>
</tr>
<tr>
<td width="3%">&nbsp;</td>
<td width="67%" class="devTXT"><div align="right">
<p>&nbsp;</p>
<p align="left">Contact Us <span style="font-size: large">TEST12 </span></p>
</div></td>
<td width="30%">&nbsp;</td>
</tr>
<tr>
<td rowspan="3">&nbsp;</td>
<td class="devTXT"><p><font color="#CC0000" size="4"><strong>*</strong></font><font color="#FF0000" size="3"></font>
indicates a required field</p></td>
<td rowspan="3">&nbsp;</td>
</tr>
<tr>
<td class="devTXT">For more information about our services
please provide us with your information and we will be </td>
</tr>
<tr>
<td class="devTXT">back in touch with you shortly. And thanks
again for visiting the Premier-Properties Company website.</td>
</tr>
<tr>

<td>&nbsp;</td>
<td><table width="100%" height="766" border="0" cellpadding="2" cellspacing="0">
<tr>
<td height="23" valign="top" class="frontfacebold">
<%
if strAction > "" then
response.write strErrText
end if
%>
<%
varMLS = request("mls")
If varMLS <> "" Then
varMessage ="Please send more information on property " & varMLS
End If
%>
<%
varAssociate = request("Associate")
If varAssociate <> "" Then
varMessage2 ="" & varAssociate
End If
%>


</td>
</tr>
<tr>
<td height="743" valign="top">
<form name="form1" method="post" action="NEW/send_it_test1.asp">

<div align="right"> <strong><font color="#CC0000" size="4">
</font></strong><font color="#990000" size="2" face="Arial, Helvetica, sans-serif"><strong></strong></font>
<table width="106%" border="0" cellspacing="3" cellpadding="2">
<tr class="devTXT">
<td width="13%"><div align="right" class="smclientfont">First
Name: </div></td>
<td width="37%" colspan="2"> <div align="left">
<input name="firstname" type="text" class="formfield" value="">
<font color="#CC0000" size="4"><strong>*</strong></font></div></td>
<td width="12%"><div class="frontface">
<div align="right" class="smclientfont">Last
Name:</div>
</div></td>
<td width="38%"> <div align="left">
<input name="lastname" type="text" class="formfield" value="">
<font color="#CC0000" size="4"><strong>*</strong></font></div></td>
</tr>
<tr class="devTXT">
<td><div align="right">Company:</div></td>
<td colspan="2"><input name="company" type="text" class="formfield" value=""></td>
<td><div align="right">eMail:</div></td>
<td><input name="email" type="text" class="formfield" value="">
<font color="#CC0000" size="4"><strong>*</strong></font></td>
</tr>
<tr class="devTXT">
<td><div align="right" class="smclientfont">Position:</div></td>
<td colspan="2"> <div align="left">
<input name="position" type="text" class="formfield" value="">
</div></td>
<td><div class="frontface">
<div align="right" class="smclientfont">State<font size="-1" face="arial"><font size="-1" face="arial"><font size="-1" face="arial">:</font></font></font></div>
</div></td>
<td align="left"> <div align="left"> <font size="-1" face="arial"><span class="frontface"><font size="-1" face="arial"><font size="-1" face="arial"><font size="-1" face="arial">
<input name="state" type="text" class="formfield" value="">
</font></font></font></span></font><font color="#CC0000" size="4"></font></div></td>
</tr>
<tr class="devTXT">
<td><div align="right">Street:</div></td>
<td colspan="2"><input name="street" type="text" class="formfield" value=""></td>
<td><div align="right"><span class="smclientfont">Zip:</span></div></td>
<td><font size="-1" face="arial"><span class="frontface"><font size="-1" face="arial"><font size="-1" face="arial"><font size="-1" face="arial"><span class="frontface"><font size="-1" face="arial"><font size="-1" face="arial"><font size="-1" face="arial"><span class="frontface"><font size="-1" face="arial"><font size="-1" face="arial"><font size="-1" face="arial"><span class="frontface"><font size="-1" face="arial"><font size="-1" face="arial"><font size="-1" face="arial">
<input name="zip" type="text" class="formfield" value="" size="8" maxlength="8">
</font></font></font></span></font></font></font></span></font></font></font></span>
</font></font></font></span></font></td>
</tr>
<tr class="devTXT">
<td><div class="smclientfont">
<div align="right">City:</div>
</div></td>
<td colspan="2"><input name="city" type="text" class="formfield" value=""></td>
<td><div align="right" class="smclientfont"><font size="-1" face="arial"></font></div></td>
<td align="left"><font size="-1" face="arial"><span class="frontface"><font size="-1" face="arial"><font size="-1" face="arial"><font size="-1" face="arial"><span class="frontface"><font size="-1" face="arial"><font size="-1" face="arial"><font size="-1" face="arial"><span class="frontface"><font size="-1" face="arial"><font size="-1" face="arial"><font size="-1" face="arial">
</font></font></font></span></font></font></font></span></font></font></font></span></font></td>
</tr>
<tr class="devTXT">
<td><div class="frontface">
<div align="right" class="smclientfont">Country:</div>
</div></td>
<td colspan="2"> <div align="left"> <span class="frontface"><font size="-1" face="arial"><span class="frontface"></span>
<input type=hidden name="country" value="">
<select name="country" class="devTXT">
<option value="United States / Canada"selected>United
States / Canada</option>
<option value="Afgha">Afghanistan</option>
<option value="Albania">Albania</option>
<option value="Algeria">Algeria</option>
<option value="American Samoa">American Samoa</option>
<option value="Andorra">Andorra</option>
<option value="Angola">Angola</option>
<option value="Antarctica">Antarctica / Norfolk
Island</option>
<option value="Antigua">Antigua and Barbuda</option>
<option value="Argentina">Argentina</option>
<option value="Armenia">Armenia</option>
<option value="Aruba">Aruba</option>
<option value="Ascension">Ascension Island</option>
<option value="Australia">Australia</option>
<option value="Austria">Austria</option>
<option value="Azerbaijan">Azerbaijan</option>
<option value="Bahrain">Bahrain</option>
<option value="Bangladesh">Bangladesh</option>
<option value="Belarus">Belarus</option>
<option value="Belgium">Belgium</option>
<option value="Belize">Belize</option>
<option value="Benin">Benin</option>
<option value="Bhutan">Bhutan</option>
<option value="Bolivia">Bolivia</option>
<option value="Bosnia">Bosnia &amp; Herzogovina</option>
<option value="Botswana">Botswana</option>
<option value="Brazil">Brazil</option>
<option value="Brunei">Brunei</option>
<option value="Bulgaria">Bulgaria</option>
<option value="Burkina Faso">Burkina Faso</option>
<option value="Burundi">Burundi</option>
<option value="Cambodia">Cambodia</option>
<option value="Cameroon">Cameroon</option>
<option value="Cape Verde Islands">Cape Verde
Islands</option>
<option value="236">Central African Republic</option>
<option value="235">Chad</option>
<option value="56">Chile</option>
<option value="86">China (PRC)</option>
<option value="57">Colombia</option>
<option value="269">Comoros / Mayotte Island</option>
<option value="242">Congo</option>
<option value="243">Congo, Dem. Rep. of (former
Zaire)</option>
<option value="Cook">Cook Islands</option>
<option value="506">Costa Rica</option>
<option value="385">Croatia</option>
<option value="53">Cuba</option>
<option value="357">Cyprus</option>
<option value="420">Czech Republic</option>
<option value="45">Denmark</option>
<option value="246">Diego Garcia</option>
<option value="253">Djibouti</option>
<option value="670">East Timor</option>
<option value="593">Ecuador</option>
<option value="20">Egypt</option>
<option value="503">El Salvador</option>
<option value="240">Equatorial Guinea</option>
<option value="291">Eritrea</option>
<option value="372">Estonia</option>
<option value="251">Ethiopia</option>
<option value="298">Faeroe Islands</option>
<option value="500">Falkland Islands</option>
<option value="679">Fiji Islands</option>
<option value="358">Finland</option>
<option value="33">France</option>
<option value="594">French Guiana</option>
<option value="689">French Polynesia</option>
<option value="241">Gabon</option>
<option value="220">Gambia</option>
<option value="995">Georgia</option>
<option value="49">Germany</option>
<option value="233">Ghana</option>
<option value="350">Gibraltar</option>
<option value="30">Greece</option>
<option value="299">Greenland</option>
<option value="590">Guadeloupe</option>
<option value="502">Guatemala</option>
<option value="224">Guinea (PRP)</option>
<option value="245">Guinea-Bissau</option>
<option value="592">Guyana</option>
<option value="509">Haiti</option>
<option value="504">Honduras</option>
<option value="852">Hong Kong</option>
<option value="36">Hungary</option>
<option value="354">Iceland</option>
<option value="91">India</option>
<option value="62">Indonesia</option>
<option value="98">Iran</option>
<option value="964">Iraq</option>
<option value="353">Ireland</option>
<option value="972">Israel</option>
<option value="39">Italy</option>
<option value="225">Ivory Coast (C&ocirc;te
d`Ivoire)</option>
<option value="81">Japan</option>
<option value="962">Jordan</option>
<option value="254">Kenya</option>
<option value="686">Kiribati</option>
<option value="850">Korea (North)</option>
<option value="82">Korea (South)</option>
<option value="965">Kuwait</option>
<option value="996">Kyrgyz Republic</option>
<option value="856">Laos</option>
<option value="371">Latvia</option>
<option value="961">Lebanon</option>
<option value="266">Lesotho</option>
<option value="231">Liberia</option>
<option value="218">Libya</option>
<option value="423">Liechtenstein</option>
<option value="370">Lithuania</option>
<option value="352">Luxembourg</option>
<option value="853">Macau</option>
<option value="389">Macedonia</option>
<option value="261">Madagascar</option>
<option value="265">Malawi</option>
<option value="60">Malaysia</option>
<option value="960">Maldives</option>
<option value="223">Mali Republic</option>
<option value="356">Malta</option>
<option value="692">Marshall Islands</option>
<option value="596">Martinique / French Antilles</option>
<option value="222">Mauritania</option>
<option value="230">Mauritius</option>
<option value="52">Mexico</option>
<option value="691">Micronesia (Federal States
of)</option>
<option value="808">Midway Island / Wake Island</option>
<option value="373">Moldova</option>
<option value="377">Monaco</option>
<option value="976">Mongolia</option>
<option value="212">Morocco</option>
<option value="258">Mozambique</option>
<option value="95">Myanmar</option>
<option value="264">Namibia</option>
<option value="674">Nauru</option>
<option value="977">Nepal</option>
<option value="31">Netherlands</option>
<option value="599">Netherlands Antilles /
Cura&ccedil;ao</option>
<option value="687">New Caledonia</option>
<option value="64">New Zealand</option>
<option value="505">Nicaragua</option>
<option value="227">Niger</option>
<option value="234">Nigeria</option>
<option value="683">Niue</option>
<option value="47">Norway</option>
<option value="968">Oman</option>
<option value="92">Pakistan</option>
<option value="680">Palau</option>
<option value="970">Palestine</option>
<option value="507">Panama</option>
<option value="675">Papua New Guinea</option>
<option value="595">Paraguay</option>
<option value="51">Peru</option>
<option value="63">Philippines</option>
<option value="48">Poland</option>
<option value="351">Portugal</option>
<option value="974">Qatar</option>
<option value="262">R&eacute;union Island</option>
<option value="40">Romania</option>
<option value="7">Russian Federation</option>
<option value="250">Rwanda</option>
<option value="869">Saint Kitts and Nevis</option>
<option value="378">San Marino</option>
<option value="239">S&atilde;o Tom&eacute; and
Principe</option>
<option value="966">Saudi Arabia</option>
<option value="221">Senegal</option>
<option value="248">Seychelles Islands</option>
<option value="232">Sierra Leone</option>
<option value="65">Singapore</option>
<option value="421">Slovak Republic</option>
<option value="386">Slovenia</option>
<option value="677">Solomon Islands</option>
<option value="252">Somalia</option>
<option value="27">South Africa</option>
<option value="34">Spain</option>
<option value="94">Sri Lanka</option>
<option value="290">St. Helena</option>
<option value="508">St. Pierre / Miquelon</option>
<option value="249">Sudan</option>
<option value="597">Suriname</option>
<option value="268">Swaziland</option>
<option value="46">Sweden</option>
<option value="41">Switzerland</option>
<option value="963">Syria</option>
<option value="886">Taiwan</option>
<option value="992">Tajikistan</option>
<option value="255">Tanzania</option>
<option value="66">Thailand</option>
<option value="228">Togo</option>
<option value="690">Tokelau</option>
<option value="676">Tonga Islands</option>
<option value="216">Tunisia</option>
<option value="90">Turkey</option>
<option value="993">Turkmenistan</option>
<option value="688">Tuvalu</option>
<option value="256">Uganda</option>
<option value="Ukraine">Ukraine</option>
<option value="971">United Arab Emirates</option>
<option value="United Kingdom">United Kingdom</option>
<option value="United States / Canada">United
States / Canada</option>
<option value="0">Unknown</option>
<option value="598">Uruguay</option>
<option value="998">Uzbekistan</option>
<option value="678">Vanuatu</option>
<option value="58">Venezuela</option>
<option value="84">Vietnam</option>
<option value="681">Wallis and Futuna Islands</option>
<option value="685">Western Samoa</option>
<option value="967">Yemen</option>
<option value="381">Yugoslavia</option>
<option value="260">Zambia</option>
<option value="263">Zimbabwe</option>
</select>
</font></span></div></td>
<td><div align="center"></div></td>
<td><div align="left"><font size="-1" face="arial"><span class="frontface"><font size="-1" face="arial"><font size="-1" face="arial"><font size="-1" face="arial"><span class="frontface"><font size="-1" face="arial"><font size="-1" face="arial"><font size="-1" face="arial">
</font></font></font></span> </font></font></font></span>
</font></div></td>
</tr>
<tr class="devTXT">
<td><div align="right" class="smclientfont">Phone:</div></td>
<td colspan="2">(
<input name="areacode" type="text" class="formfield" value="" size="3" maxlength="3">
)
<input name="phone" type="text" class="formfield" value="" size="7" maxlength="7">
<font face="arial">&nbsp; </font> </td>
<td>&nbsp;</td>
<td>&nbsp;</td>
</tr>
<tr class="devTXT">
<td>&nbsp;</td>
<td colspan="2">&nbsp;</td>
<td>&nbsp;</td>
<td>&nbsp;</td>
</tr>
<tr class="devTXT">
<td>&nbsp;</td>
<td colspan="2"><strong>I am interested in the following:</strong></td>
<td>&nbsp;</td>
<td>&nbsp;</td>
</tr>
<tr class="devTXT">
<td><div align="right" class="smclientfont"></div></td>
<td>Purchasing a Residence: </td>
<td><input name="purchase" type="radio" value="yes" checked>
Yes
<input type="radio" name="purchase" value="no">
No </td>
<td> <font face="arial">&nbsp;</font></td>
<td>&nbsp;</td>
</tr>
<tr class="devTXT">
<td>&nbsp;</td>
<td>Listing a Property:</td>
<td><input name="list" type="radio" value="yes" checked>
Yes
<input type="radio" name="list" value="no">
No </td>
<td>&nbsp;</td>
<td>&nbsp;</td>
</tr>
<tr class="devTXT">
<td>&nbsp;</td>
<td>Rental information:</td>
<td><input name="rental" type="radio" value="yes" checked>
Yes
<input type="radio" name="rental" value="no">
No</td>
<td>&nbsp;</td>
<td>&nbsp;</td>
</tr>
<tr class="devTXT">
<td>&nbsp;</td>
<td>Commercial Property:</td>
<td><input name="commercial" type="radio" value="yes" checked>
Yes
<input type="radio" name="commercial" value="no">
No</td>
<td>&nbsp;</td>
<td>&nbsp;</td>
</tr>
<tr class="devTXT">
<td>&nbsp;</td>
<td>Our Property Magazine:</td>
<td><input name="mag" type="radio" value="yes" checked>
Yes
<input type="radio" name="mag" value="no">
No</td>
<td>&nbsp;</td>
<td>&nbsp;</td>
</tr>
<tr class="devTXT">
<td>&nbsp;</td>
<td>Our E-newsletter.</td>
<td><input name="newsletter" type="radio" value="yes" checked>
Yes
<input type="radio" name="newsletter" value="no">
No</td>
<td>&nbsp;</td>
<td>&nbsp;</td>
</tr>
<tr class="devTXT">
<td>&nbsp;</td>
<td>Timeframe:</td>
<td><select name="timeframe" class="devTXT" id="timeframe">
<option>3 - 6 months</option>
<option>6 -12 months</option>
<option>1 - 2 Years</option>
</select></td>
<td>&nbsp;</td>
<td>&nbsp;</td>
</tr>
<tr class="devTXT">
<td>&nbsp;</td>
<td>Property Type:</td>
<td><select name="proptype" class="devTXT" id="proptype">
<option>Single Family
<option>Condominium
<option>Investment
</select></td>
<td>&nbsp;</td>
<td>&nbsp;</td>
</tr>
<tr class="devTXT">
<td>&nbsp;</td>
<td><span class="smclientfont">Agent</span>'s Name: </td>
<td><%=varAssociate%></td>
<td>&nbsp;</td>
<td>&nbsp;</td>
</tr>
<tr class="devTXT">
<td>&nbsp;</td>
<td>Agent's Email: </td>
<td><%=AgentEmail%></td>
<td>&nbsp;</td>
<td>&nbsp;</td>
</tr>
<tr class="devTXT">
<td>&nbsp;</td>
<td>&nbsp;</td>
<td><input name="mls" type="hidden" id="mls" value="<%=varMessage%>"></td>
<td>&nbsp;</td>
<td>&nbsp;</td>
</tr>
<tr class="devTXT">
<td>&nbsp;</td>
<td>&nbsp;</td>
<td><%Response.Write request.querystring("AgentEmail")%></td>
<td>&nbsp;</td>
<td>&nbsp;</td>
</tr>
<tr class="devTXT">
<td><div align="right">Questions?</div></td>
<td colspan="2">&nbsp;</td>
<td>&nbsp;</td>
<td>&nbsp;</td>
</tr>
<tr class="devTXT">
<td>&nbsp;</td>
<td colspan="2" align="left"> <div align="left">
<textarea name="message" cols="30" rows="6" class="formfield"><%=varMessage%>
<%Response.Write request.querystring("AgentEmail")%>
</textarea>
</div></td>
<td>&nbsp;</td>
<td>&nbsp;</td>
</tr>
<tr class="devTXT">
<td>&nbsp;</td>
<td colspan="2">&nbsp;</td>
<td>&nbsp;</td>
<td>&nbsp;</td>
</tr>
<tr class="devTXT">
<td>&nbsp;</td>
<td colspan="2"><input name="submit" type="submit" class="SearchButtons" style="background-color:#000000 ;font-size: 9pt; color: white; font-weight:bold" value="Submit"> </td>
<td>&nbsp;</td>
<td>&nbsp;</td>
</tr>
</table>
<p align="right">&nbsp; </p>
</div>
</form></td>
</tr>
</table></td>
<td>&nbsp;</td>
</tr>
</table>
</center>
</div>
<p align="center">



</p>
<div align="center">
<center>
</center>
</div>
</td>
</tr>
</table>
</center>
</div>
</table>

<!--#include file="inc_footer.asp" -->