2 questions re asp email and forms

[nicjones]

Apologies if these have already been posted, had a quick search but couldn't find anything.

Being a bit of a novice to web design I have 2 quick questions if you'd be so kind guys:-

 
 
<table>
<form action="testform.asp" method="post" >
<tr><td colspan="2">
<%    If FormErrorsString = " ConnectionError " Then 
        response.write "<font color=red>There is currently a problem with connecting to the database. Please try again later.</font>"
    Else 
        response.write "Please enter your details here:"
    End If 
%></td>
</tr>
 
<tr>
    <td>Full Name:</td>
    <td><%
    If InStr(FormErrorsString, "$1$" ) Then 
        'display image
        Response.Write "<IMG SRC=""rejected.gif"" BORDER=""0"">"
    End If 
    %></td>
    <td><input name="strname"  value="<%request("strname" )%> " SIZE=50> </td>    
    <td><%
    If InStr(FormErrorsString, "$1$" ) Then
        'display image
        Response.Write "<h5 style=""color:red"">There is an error in this field, please rectify and submit again</h5>"
    End If
    %></td>
</tr>
 
' ---------------------------
' Validation of script occurs
 
<%
Function ConfirmationEmail()
 
    dim objemail
    set objemail = Server.CreateObject("CDO.Message" )
    objemail.From = "test_test@testwebsite" 
    objemail.To = request("stremailadd" ) 
    objemail.Cc = ";" & "[e-mail]" 
    objemail.Subject = "test Confirmation"
    objemail.HTMLBody = "Thank you for submitting your details regarding the xxxxxxx with us."
    objemail.Send
    set objemail = Nothing
 
End Function
%>
 
 

The form is submitted to a database, once submitted I need it to send out an email to the person who has submitted (stremailadd) this works, I also however need to include in the same email the information the user submitted.

I've tried putting:-
objemail.HTMLBody = "Thank you for submitting your details regarding the xxxxxxx with us."
objemail.HTMLBody = request("strname" )
objemail.HTMLBody = request("stremailadd" )

etc....

But it doesn't seem to work, any pointers would be lovely.

 
 
<tr>
    <td>Email Address:</td>
    <td><%
    If InStr(FormErrorsString, "$2$" ) Then
        'display image
        Response.Write "<IMG SRC=""rejected.gif"" BORDER=""0"">"
    End If
    %></td>
    <td><input name="stremailadd" value="<% If request("stremailadd" ) <> "" and InStr(request("stremailadd" ), "@xxxxx.net" ) >3 Then
            response.write("stremailadd" )
            End If %>@xxxxx.net" SIZE=50>
    </td>
 
    <td><%
    If InStr(FormErrorsString, "$2$" ) Then
        'display image
        Response.Write "<h5 style=""color:red"">There is an error in this field, please rectify and submit again</h5>"
    End If
    %></td>
 
</tr>
 
 

I also have set up the form so in the email address form field it permanently has "@xxxxx.net" in it, the problem comes that when I submit and the validation script runs I want it to put the users email address back in the form field without adding another "@xxxxx.net" I can't quite get it to work, at the moment it returns the form with "[e-mail]" which obviously isn't right.
Again, I can't see what to change to make it return the users email address.

Thanks, I'm tearing my hair out now!

[markrawlingson]

I've tried putting:-
objemail.HTMLBody = "Thank you for submitting your details regarding the xxxxxxx with us."
objemail.HTMLBody = request("strname" )
objemail.HTMLBody = request("stremailadd" )

The best way to do this is to set up a, usually, rather long variable.

sTemp = "Thank you for submitting your details regarding the xxxxxxx with us.<br/>"
sTemp = sTemp & request("strname") & "<br/>"
sTemp = sTemp & request("stremailadd") & "<br/>"
objemail.HTMLBody = sTemp
 

Second Question is because you put quotes around your response.write - so asp is interpretting this as you actually want to write "stremailadd", not the value of stremailadd

<td><input name="stremailadd" value="<% If request("stremailadd" ) <> "" and InStr(request("stremailadd" ), "@xxxxx.net" ) >3 Then
response.write("stremailadd" )
End If %>@xxxxx.net" SIZE=50>

Try this instead..

<td>
   <input name="stremailadd" value="<% If request("stremailadd" ) <> "" and InStr(request("stremailadd"), "@xxxxx.net" ) >3 Then response.write stremailadd End If %>@xxxxx.net" SIZE=50>
 

Hope this helps,

Sincerely,
Mark

[nicjones]

Thanks for the above post, much appreciated and very helpful.

In a similar vein to the above, I need to make a drop down box remember the inputs as well:-

<tr>
    <td>Ready For Migration?</td>
    <td><%
    If InStr(FormErrorsString, "$6$") Then 
        'display image
        Response.Write "<IMG SRC=""rejected.gif"" BORDER=""0"">"
    End If 
    %></td>
    <td><select class=black11 name="strreadymigrate" style="width:60">
    <option value="">                         <option value="Yes">Yes                     <option value="No">No 
    </select></td>
    <td><%
    If InStr(FormErrorsString, "$6$") Then
        'display image
        Response.Write "<p style=""color:red"">There is an error in this field, please rectify and submit again</p>"
        End If
    %></td>
</tr>
 

I've tried putting:-

<%If Trim(request("strreadymigrate")) = "Yes" Then
response.write "Yes"
End If %>

After each field but it doesn't seem to work, this is the only thing not working on the form now!


Help please!!

[markrawlingson]

Drop Down lists are set a default value by setting the option to "SELECTED".. see the below example..

<option value="Yes"  <% If Request.Form("thisdropdown") = "Yes" Then Response.Write "SELECTED" End If%>>Yes
<option value="No" <% If Request.Form("thisdropdown") = "No" Then Response.Write "SELECTED" End If%>>No 
 

Sincerely,
Mark