% if request("send") <> "" then Dim objMail Dim s '----------------------------------Append File------------------------------------------------------------- s = "***********************************************************************" & vbcrlf s = s & "Sigh-Up @ : " & now & vbcrlf & vbcrlf s = s & "Name : " & request.form("Full_Name") & vbcrlf s = s & "Address : " & request.form("Church_Name") & vbcrlf s = s & "City : " & request.form("Address") & vbcrlf s = s & "State : " & request.form("city_state_zip") & vbcrlf s = s & "Zip : " & request.form("Phone") & vbcrlf s = s & "Fax : " & request.form("Fax") & vbcrlf s = s & "E-Mail : " & request.form("email") & vbcrlf & vbcrlf s = s & "Selections : " & request.form("Workshop_Selections") & vbcrlf &vbcrlf Set fs=Server.CreateObject("Scripting.FileSystemObject") Set f1=fs.OpenTextFile(Server.MapPath("/_private/inforeq.txt"),8) f1.writeline(s) f1.close Set f1=Nothing Set fs=Nothing '--------------------------Send Mail ---------------------------------------------------------------------- Set objMail = Server.CreateObject("CDONTS.NewMail") objMail.From = "register@worshipconference.info" objMail.Subject = "www.worshipconference.info" objMail.To = "kim@worshipconference.info" s = "Sign-up from worshipconference.info/Register.asp - " & now & vbcrlf & vbcrlf s = s & "Name : " & request.form("Full_Name") & vbcrlf s = s & "Address : " & request.form("Church_Name") & vbcrlf s = s & "City : " & request.form("Address") & vbcrlf s = s & "State : " & request.form("city_state_zip") & vbcrlf s = s & "Zip : " & request.form("Phone") & vbcrlf s = s & "Fax : " & request.form("Fax") & vbcrlf s = s & "E-Mail : " & request.form("email") & vbcrlf & vbcrlf s = s & "Selections : " & request.form("Workshop_Selections") & vbcrlf objMail.Body = s objMail.Send Response.write("Mail Sent : ") & now set objMail = nothing ' Response.end Response.redirect "thankyou.htm" '---------------------------------------------------------------------------------------------------------- Else %>