Email Address fill-in on ASP form; ExportMagic=True

Upon opening a page that uses a separate template, I want the Email address to fill-in the value automatically in the Input box at the bottom of the page. This allows the user to open the page, see that the email address is already there and click SEND to send the form. Here is what I'm using to get the email address:

<FORM>
<%
EMADDR = session("aspdb_600_AgtAssignEmail")
Response.write(" ") & EMADDR
%>
 
Email Addr: <INPUT TYPE=TEXT SIZE=30 NAME=emailaddress VALUE= <% Response.write(" ") & EMADDR %> >
Optional Note:<INPUT TYPE=TEXT SIZE=25 NAME='EXTRA'>
Email Subject:<INPUT TYPE=TEXT SIZE=25 NAME=ESUB VALUE= "Letter from Relocation" >
<INPUT TYPE="Submit" NAME="EMAILMe" VALUE="Send">
</FORM>

If I have:
Mydb.dbOptions = "ExportMagic=True" then the VALUE= statement for the emailaddress won't work. I comment out the dbOptions statement, then it will work, but I don't get any formatting for the percent and date fiedls.

How can I have both the formatting for the percent and date fields in the template, and have the email address fill-in?

I think you better post the complete test code to use the template.

FK

Here's the complete code:

<HTML>

<title>Assigned Conf Ltr In</title>

<BODY >

<%
SESSION("EXTRA_600") = ""

response.write("<center> " & FormatDateTime(date(),1) & " ")

Set MyDb = Server.CreateObject("ASP.db")
MyDb.dbUnit = 600
'MyDb.dbDBType = "ACCESS"
MyDb.dbDBType = "SQL"
'Mydb.dbMDB = Server.MapPath(session("aspdb_1000_CompanyDB"))
Mydb.dbDAT = "PROSWS," & Session("SQLDATABASE") & Session("SQLUIDPWD")
MyDb.dbSQL = "Select * from Referrals WHERE ReferralsID = " & session ("aspdb_100_ReferralsID")

' Mydb.dbOptions = "ExportMagic=True"

MyDb.dbExportFlds = "City,State,Zip,ReferralType,ReferralStatus,FileNu m,DateRecvd,Date, " &_
"ClientFName,ClientLName,ClientAddr,ClientCity,Cli entState,ClientZip,HomePhone, " &_
"ClientCell,ClientEmail,WorkPhone, " &_
"AgentAssigned,AgentOffice,Address1,OfficeLocation , " &_
"NetReferFeePercent, ReloDeptPercent,BodyText,DefaultName,Address," &_
"ContactFName,ContactLName,AgtAssignFirstName,AgtA ssignLastName,RefAgtFirstName,RefAgtLastName," &_
"ContactEmail,ReferAgtEmail,AgtAssignEmail"

Mydb.dbMagicCell = "(|,)ContractDate,align=center, format=[dd-mmm-yyyy] , | " &_
"DateRecvd,align=center, format=[dd-mmm-yyyy] , | " &_
"ReferralType,align=left,#ReferralType#,| " &_
"ReferralStatus,align=left,#ReferralStatus#,| " &_
"FileNum,align=left,#FileNum#,| " &_
"ContactName,align=left,#ContactName#,| " &_
"ContactFName,align=left,#ContactFName#|" &_
"ContactLName,align=left,#ContactLName#|" &_
"ContactPhone,align=left,format=[(###)###-####] |" &_
"ContactExt,align=left,#ContactExt#|" &_
"Firm,align=left,#Firm#|" &_
"ContactFax,align=left,format=[(###)###-####] |" &_
"ContactAddr,align=left,#ContactAddr#|" &_
"ContactCity,align=left,#ContactCity#|" &_
"ContactState,align=left,#ContactState#|" &_
"ContactZip,align=left,#ContactZip#|" &_
"CategoryAffinity,align=left,#CategoryAffinity#|" &_
"ContactEmail,align=left,#ContactEmail#|" &_

"SalePrice, align=right,format=[currency]| " &_
"NetReferFeePercent, align=right,format=[percent]| " &_

"AgentOffice, align=left,#AgentOffice#| " &_
"AgtAssignFirstName,align=left,#AgtAssignFirstName#|" &_
"AgtAssignLastName,align=left,#AgtAssignLastName#|" &_
"AgentPhone,align=left,format=[(###)###-####] |" &_
"AgentExt,align=left,#AgentExt#|" &_
"AgtAssignEmail,align=left,#AgtAssignEmail#|" &_
"AgentRegion,align=left,#AgentRegion#|" &_
"AgtAssignCell,align=left,format=[(###)###-####] |" &_

"MgrConsultant, align=left,#MgrConsultant#| " &_

"ClientFName,align=left,#ClientFName#|" &_
"ClientLName,align=left,#ClientLName#|" &_
"ClientTitle,align=left,#ClientTitle#|" &_
"ClientAddr,align=left,#ClientAddr#|" &_
"ClientCity,align=left,#ClientCity#|" &_
"ClientState,align=left,#ClientState#|" &_
"ClientZip,align=left,#ClientZip#|" &_
"HomePhone,align=left,format=[(###)###-####] |" &_
"WorkPhone,align=left,format=[(###)###-####] |" &_

MyDb.dbFormDisplayFlds = -1 'Hide all the fields from displaying

MyDb.dbImageDir="../images/" 'Point to the "images" directory
MyDb.dbStatusBar = false 'Turn off the status bar
Mydb.dbMode = "form"

Mydb.dbNavigationItem = "top, bottom, next, prev"
Mydb.dbNavigationIcon = "std"
Mydb.dbNavigation = "bottom"

If Request("EMAILme") = "Send" then
Mydb.dbNavigation = "none"
End If

Mydb.dbDisplay = False

Mydb.ASPdb
Mydb.ASPdbSendTemplate("rptAssgndConfLtrIn2.htm")
TemplateFileName = Server.MapPath("rptAssgndConfLtrIn2.htm")

%>

<FORM>
<%
EMADDR = session("aspdb_600_AgtAssignEmail")
%>
 
Email Addr: <INPUT TYPE=TEXT SIZE=30 NAME=emailaddress VALUE= <% Response.write(" ") & EMADDR %> >
Optional Note:<INPUT TYPE=TEXT SIZE=25 NAME='EXTRA'>
Email Subject:<INPUT TYPE=TEXT SIZE=25 NAME=ESUB VALUE= "Letter from Relocation" >
<INPUT TYPE="Submit" NAME="EMAILMe" VALUE="Send">
</FORM>

<%

extra = " "
if (Request("EXTRA") <> "") then
extra = " " & Request("EXTRA") & "<HR>"
SESSION("EXTRA_600") = extra
end if

If Request("EMAILme") = "Send" then

'dbMail SYNTAX:
'MSG = From|To|Cc|Bcc|Subject|Body|Format|Importance|Base |Location| Attach|Name1=value1,name2=value2..."

Set Mail = Server.CreateObject("ASP.DB")

EmailFrom = session("aspdb_10202_UserEmail")
EmailTo = "|" & Request("emailaddress")
EmailCC = "|"
EmailBCC = "|"
Subject = "| " & Request("ESUB")
Body = "|Tmp=" & TemplateFileName

MSG = "(|,)" & EmailFrom & EmailTo & EmailCC & EmailBCC & Subject & Body & "|0|1"

Mail.dbMail = MSG

Mail.ASPdbSendMail

Response.write(" MAIL SENT. ")

End If

%>

</BODY>

</HTML>

James,

AS always, I need code that I can run and see the problem. Let me look at your first setup and if I couldn't make anythingout of it then you have to make a simple NWIND example to illustrate the problem.

FK

Hi Jim,

Frank's right, NWind code would really help. However, looking at your code it appears the critical line is:

Email Addr: <INPUT TYPE=TEXT SIZE=30 NAME=emailaddress VALUE= <% Response.write(" ") & EMADDR %> >

right?

If so, let's address what looks "strange" about that emailaddress part:

1) The Response.write only writes out a space and then is closed (" "). Why isn't the EMADDR inside those parenthesis?

2) Where's the quotes around the VALUE= section?

3) Why do you want a leading space in there anyway?

It seems like it should be more like:
VALUE='<% =EMADDR %>' >

or if you really want that space:
VALUE='<% =" " & EMADDR %>' >

and if you want to do it the long way:
VALUE='<% Response.Write(" " & EMADDR) %>' >

Let me know if I'm reading this right?

Thanks,
John

John,

You are exactly on the right track. I have replaced the text with your suggestion, and now in the field where the email address should be populated, I get "cornishcr@aol.com" and what is stranger is that the email address it should be putting in is: "djackson@fastrealty.com".

I'm the Jim Evans with the Relocation Specialist application and the page I'm trying to fix is: ...relospec/SQL/rptAssgndConfLtrIn2.asp

Any ideas on this one?