Form Processing Applications

[bradyg23]

I have not had much experience with forms processing, but need to build one for
a site. I saw a link to Kmita-mail ([url]http://www1.kmita-mail.com/[/url]) that looks
promising for making the process easier. Does anyone have any experience with
this product or another that does something similar?

The form is for a job application (about 40 fields). The process only needs to
convert the data to an email and send it to the customer.

Thanks for any help you can offer.

Brady

[Murray *ACE*]

Ask your host what they provide for processing forms.

--
Murray --- ICQ 71997575
Adobe Community Expert
(If you *MUST* email me, don't LAUGH when you do so!)
==================
[url]http://www.dreamweavermx-templates.com[/url] - Template Triage!
[url]http://www.projectseven.com/go[/url] - DW FAQs, Tutorials & Resources
[url]http://www.dwfaq.com[/url] - DW FAQs, Tutorials & Resources
[url]http://www.macromedia.com/support/search/[/url] - Macromedia (MM) Technotes
==================


"bradyg23" <webforumsuser@macromedia.com> wrote in message
news:egjadq$p22$1@forums.macromedia.com...

>I have not had much experience with forms processing, but need to build one
>for
> a site. I saw a link to Kmita-mail ([url]http://www1.kmita-mail.com/[/url]) that
> looks
> promising for making the process easier. Does anyone have any experience
> with
> this product or another that does something similar?
>
> The form is for a job application (about 40 fields). The process only
> needs to
> convert the data to an email and send it to the customer.
>
> Thanks for any help you can offer.
>
> Brady
>

[bradyg23]

I use GoDaddy Windows hosting. I checked, and they provide the following ASP
script. It takes all of the form fields, sorts them by alphabetical order, and
returns all of the data in a fairly raw form.

I would like to take this and add some formatting to it, because it the form
has about 60 fields and would be difficult to read otherwise. Where in this
script would I start to add in the appropriate formatting?

(The current output reads like:
a_High_School_Name: Milton HS
b_Years_Attended: 1989-1993
c_HS_Graduate: HSgrad_yes
d_HS_Subject_Studied: Math, English, Music
e_College_Name: Furman University
f_Years_Attended: 1993-1997
g_College_Graduate: colgrad_yes
I added the letters to the field names to have this sort alphabetically, but
its obviously still hard to read for 60+ fields)



<%

Dim landing_page, host_url
Dim fso, outfile, filename, dirname, myFolder
Dim req_method, key, value
Dim bErr, errStr, bEmpty
On Error resume next
bErr = false
bEmpty = true
errStr = ""
Set fso = Server.CreateObject("Scripting.FileSystemObject")
host_url = Request.ServerVariables("HTTP_HOST")
req_method = Request.ServerVariables("REQUEST_METHOD")
dtNow = Now()
filename = Server.MapPath("ssfm")
dirname = filename
filename = filename & "/gdform_" & DatePart("M", dtNow) & DatePart("D", dtNow)
& DatePart("YYYY", dtNow) & DatePart("N", dtNow) & DatePart("S", dtNow)

Function FormatVariableLine(byval var_name, byVal var_value)
Dim tmpStr
tmpStr = tmpStr & "<GDFORM_VARIABLE NAME=" & var_name & " START>" & vbCRLF
tmpStr = tmpStr & var_value & vbCRLF
tmpStr = tmpStr & "<GDFORM_VARIABLE NAME=" & var_name & " END>"
FormatVariableLine = tmpStr
end function

Sub OutputLine(byVal line)
outfile.WriteLine(line)
end sub

if err.number = 0 then
Set outfile = fso.CreateTextFile(filename, true, false)
if err.number <> 0 then
bErr = true
errStr = "Error creating file! Directory may not be writable or may not
exist.<br>Unable to process request."
else
if(req_method = "GET") then
for each Item in request.QueryString
if item <> "" then
bEmpty = false
key = item
value = Request.QueryString(item)
if(lcase(key) = "redirect") then
landing_page = value
else
line = FormatVariableLine(key, value)
Call OutputLine(line)
end if
end if
next
elseif (req_method = "POST") then
for each Item in request.form
if item <> "" then
bEmpty = false
key = item
value = Request.form(item)
if(lcase(key) = "redirect") then
landing_page = value
else
line = FormatVariableLine(key, value)
Call OutputLine(line)
end if
end if
next
end if
outfile.close
end if
if(bEmpty = true) AND errStr = "" then
bErr = true
errStr = errStr & "<br>No variables sent to form! Unable to process request."
end if
if(bErr = false) then
if (landing_page <> "") then
response.Redirect "http://" & host_url & "/" & landing_page
else
response.Redirect "http://" & host_url
end if
else
Response.Write errStr
end if
set fso = nothing
else
Response.Write " An Error Occurred creating mail message. Unable to process
form request at this time."
end if
%>