FORM Processor - results specific order

I need help with making my form processor email the results in a specific order.

Can anyone help? Here is the current code...what could I add?

<%
For Each x In Request.Form
message=message & x & ": " & Request.Form(x) & CHR(10)
Next

setsmtp = Server.CreateObject("Bamboo.SMTP")
' You only need to change the smtp.Rcpt and smpt.from part to your email address
smtp.Server = "mail.genericemail.com"
smtp.Rcpt = "generic@email.com.com"
smtp.From = request("email")
smtp.FromName = request("fname") & " " & request("name")
smtp.Subject = "Your web form - " & Request.ServerVariables("HTTP_REFERER")
smtp.Message = message
on error resume next
smtp.Send
if err then
response.Write (" ")
else
response.Write (" ")
end if

set smtp = Server.CreateObject("Bamboo.SMTP")
' You only need to change the smtp.Rcpt and smpt.from part to your email address
smtp.Server = "mail.genericemail.com"
smtp.Rcpt = "myemail@myemail.com"
smtp.From = request("email")
smtp.FromName = request("fname") & " " & request("name")
smtp.Subject = "Your web form - " & Request.ServerVariables("HTTP_REFERER")
smtp.Message = message
on error resume next
smtp.Send
if err then
response.Write ""
else
response.Write ""
end if

set smtp = Nothing
%>