flash form and asp

[lude712]

ok guys i need some help....i have a form that i made from flash. i got the form to work and the information was sent to my email...the problem is, the info that is on the email is all on one line. I need each field to be on a separate line. For example i want it to go like this:
First Name:
Last Name:
Address:
State:
Zip Code:

and not like this
First Name:Last Name:Address:State:Zip Code:

Here is my ASP code ( i didnt include the top where it sends the email and subject line..i know that works.)


<%
Dim strError
Response.Buffer = True
Set objFM = CreateObject("Scripting.Dictionary")
Set objMailx = CreateObject("CDONTS.Newmail")
Set objMailx = Nothing
ParseForm
CheckForm
If Len(strError) > 0 Then
ReportError strError
End If
strOutX = SeqForm
If Len(strOutX) < 1 Then
strOutX = FormToString
End If
If Len(strOutX) < 1 Then
ReportError "Submitted form is empty"
End If
strSubject = strDefSubject
If objFM.Exists("TGsubject") Then
strSubject = objFM.Item("TGsubject")
End If
strFrom = strDefFrom
If Len(strFromVar) > 0 Then
If objFM.Exists(strFromVar) Then strFrom = objFM.Item(strFromVar) End If
End If
SendMail strFrom,strRcpt,strSubject,strOutX
If Len(strRedirect) > 0 Then
Response.redirect(strRedirect)
Response.End
End If
If objFM.Exists("TGredirect") = True Then
If Len(objFM.Item("TGredirect")) > 0 Then
Response.redirect(objFM.Item("TGredirect"))
Response.End
End If
End If
%>


<h1>Form Sent!</h1>
Your request has been received and will be processed shortly.

<%
Credit
Response.End
%>
<%
Function IsValidEmail(Email)
Dim Temp,Temp2
strNotValid = "
Email address not valid"
strTooLong = "
Email address too long"
If Len(Email) > 100 Then
ReportError strTooLong
End If
Email = LCase(Email)
Temp = Split(Email,"@",2,1)
If UBound(Temp) < 1 Then
ReportError strNotValid
End If
Temp2 = Split(Temp(1),".",-1,1)
If UBound(Temp2) < 1 Then
ReportError strNotValid
End If
End Function
%>
<%
Function SendMail(From,Rcpt,Subject,Body)
Trim(From)
Trim(Rcpt)
If Len(From) < 1 Then
ReportError strError & "
No Reply-to address (From) for this letter"
End If
If Len(Rcpt) < 1 Then
ReportError strError & "
No recipient for this letter"
End If
IsValidEmail Rcpt
IsValidEmail From
Set objMailer = CreateObject("CDONTS.Newmail")
objMailer.From = From
objMailer.To = Rcpt
objMailer.Subject = Subject
objMailer.Body = Body
objMailer.Send
Set objMailer = Nothing
End Function
%>
<%
Function CheckForm()
Dim Temp,strTmp,strForce
strInputReq = "
Input required for "
If objFM.Exists("TGrequire") = False Then
Exit Function
ElseIf isEmpty(objFM.Item("TGrequire")) Then
Exit Function
End If
strForce = objFM.Item("TGrequire")
Temp = Split(strForce,",",-1,1)
For Each strTmp in Temp
If objFM.Exists(strTmp) = False Then
strError = strError & strInputReq & strTmp
ElseIf Len(objFM.Item(strTmp)) < 1 Then
strError = strError & strInputReq & strTmp
End If
Next
End Function
%>
<%
Function ParseForm()
For Each Item in Request.Form
If objFM.Exists(Item) Then
objFM.Item(Item) = objFM.Item(Item) & "," & Request.QueryString(Item)
Else
objFM.Add Item,Request.Form(Item)
End If
Next
For Each Item in Request.QueryString
If objFM.Exists(Item) Then
objFM.Item(Item) = objFM.Item(Item) & "," & Request.QueryString(Item)
Else
objFM.Add Item,Request.QueryString(Item)
End If
Next
End Function
%>
<%
Function SeqForm()
Dim Temp,strTmp,strOrder,strOut
If objFM.Exists("TGorder") = False Then
Exit Function
ElseIf isEmpty(objFM.Item("TGorder")) Then
Exit Function
End If
strOrder = objFM.Item("TGorder")
Temp = Split(strOrder,",",-1,1)
For Each strTmp in Temp
If objFM.Exists(strTmp) Then
strOut = strOut & strTmp & "=" & objFM.Item(strTmp) & Chr(10)
End If
Next
SeqForm = strOut
End Function
%>
<%
Function FormToString()
Dim strOut
strKeys = objFM.Keys
strValues = objFM.Items
For intCnt = 0 To objFM.Count -1
strOut = strOut & strKeys(intCnt) & "=" & strValues(intCnt) & Chr(10)
Next
FormToString = strOut
End Function
%>
<%
Function ReportError(strMess)
If Len(strMess) < 1 Then
strMess = strError
End If
strErr = "The following error(s) happened:
" & strMess
Response.Clear
%>


<h1>Error!</h1>


<%'Error messages will be output here, between your html%>
<%
Response.Write(strErr)
%>

<p>
<b>Click on you browser's <i>Back</i> button to correct any mistakes in your input</b>
</p>

<%

Response.End
End Function
%>

[lmf232s]

you need to find where the body of your email is being built.
Then after each of the fields add a <br> to break to the next line.

This will require you to send the email as html.
you just need to add the following to your email function

objMailer.BodyFormat=0
objMailer.MailFormat=0
objMailer.Body=HTML

[lude712]

i still cannot find where the body is being made....anyone else know anythng about this???? please help thanks

[lmf232s]

in the top section of your code you have this call
SendMail strFrom,strRcpt,strSubject,strOutX

This is a call to a function that actually sends the email.

This section of code calls the 2 functions below (depending on the if statement, might call 1 or both)

strOutX = SeqForm
If Len(strOutX) < 1 Then
strOutX = FormToString
End If

The 2 functions that it looks like it uses to build the body are here where strOut is the body.

Function SeqForm()
Dim Temp,strTmp,strOrder,strOut
If objFM.Exists("TGorder") = False Then
Exit Function
ElseIf isEmpty(objFM.Item("TGorder")) Then
Exit Function
End If

strOrder = objFM.Item("TGorder")
Temp = Split(strOrder,",",-1,1)

For Each strTmp in Temp
If objFM.Exists(strTmp) Then
strOut = strOut & strTmp & "=" & objFM.Item(strTmp) & Chr(10)
End If
Next
SeqForm = strOut
End Function

Function FormToString()
Dim strOut
strKeys = objFM.Keys
strValues = objFM.Items
For intCnt = 0 To objFM.Count -1
strOut = strOut & strKeys(intCnt) & "=" & strValues(intCnt) & Chr(10)
Next
FormToString = strOut
End Function

[lude712]

thank you so much!!!!!!!!!!!!! i got it working