Variable is empty in URL link

[brimike]

Hello,
I am trying to pass a variable in a link. When you roll over link the variable is empty. And the query string request on the recieving page is empty as well.
Here is the code. Any help would be greatly appreciated.

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=er;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://-properssa.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=er;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=er;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=er;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/ier/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
%>


<%
AgentEmail = request("AgentEmail")
If AgentEmail <> "" Then
varMessage2 ="" & AgentEmail
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" -->

 

[brimike]

The Link____

<a href="contactustest1.asp?mls=<%=varMLS%>&LID=<%=varLID%>&Associate=<%=varAssociate%>&AgentEmail=<%=AgentEmail%>"><span class="style5">Request Additional Information</span></a>

I am trying to pass <%=AgentEmail%>

 

[Sheco]

When you roll over link the variable is empty.

Just to clarify, do you mean that when you place the mouse over the link, the URL that appears in the status area at the bottom of the browser window has the proper querystring variable for AgentEmail, but there is no value associated with the variable?

 

[brimike]

Yes. Here is the link source .

http://premier-properties.com/contactustest1.asp?mls=205094186&LID=23879&Associate=Thomas

L. Campbell, Jr. 434-2424.&AgentEmail=

Here is the call for the variable on the recieving .asp page empty.
<tr class="devTXT">
<td>&nbsp;</td>
<td><span class="smclientfont">Agent</span>'s Name: </td>
<td>Thomas L. Campbell, Jr. 434-2424.</td>
<td>&nbsp;</td>
<td>&nbsp;</td>
</tr>
<tr class="devTXT">
<td>&nbsp;</td>
<td>Agent's Email: </td>
<td></td>
<td>&nbsp;</td>
<td>&nbsp;</td>

 

[DotNetGnat]

as you can see AgentEmail is empty...make sure it is populated correctly...

-DNG

 

[brimike]

Yes. I see it is empty. The email address should be there but it is not showing. I declared the variable. I associated the AgentEmail in the code with the email tag

which is

Dim AgentEmail
AgentEmail = CStr(rsAgent("email"))


And in the URL path I am using
>&AgentEmail=<%=AgentEmail%>

Thanks

 

[Sheco]

And you are certain that the "email" field has a value in the recordset named rsAgent?

PS: You may want to encode that URL since it has spaces in the agent name, but that is a different issue.

 

[brimike]

I believe so, when I I print to screen it works in the sending page EG; and I get the value fine. But when I try to pull the value and add it to a string it dies.

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

As far as rsAgent the table is pulling like so.
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>")

 

[Sheco]

And the correct email address appears in the browser's lower status area when you put the mouse pointer over the mailto: link?

If NOT IsNULL(rsAgent("email")) THEN Response.Write("<br>[highlight]<a href='mailto:" & TRIM(rsAgent("email")) & "'>Email</a>[/highlight]")

 

[brimike]

Yes.

 

[Sheco]

Also it looks like the place where you assign the value of the recordset's email field appears lower in the code than the place where the QueryString is actually created.

So it may be the case that, at the time the link is built, the value of your AgentEmail variable is empty and it is only set to the recordset value at a later point during the execution.

 

[brimike]

I was thinking that but since the page is compiled I didn't think it mattered. I will move the entire section higher in the page and give it a try. Thanks.

 

[DotNetGnat]

the flow of your code is little confusing...i would suggest breaking the code into parts and at each stage check the values of variables by doing a response.write and checking if they have the correct values that can be passed to the next stage...and so on...

-DNG

 

[brimike]

Will do. The code is not mine, I am just trying to add some features, I will say it is a mess. Thanks

 

[Sheco]

The use of Option Explicit at the top of the code usually prevents "out of order" problems.

But to go back and add it in at this point might be a headache.