submit form data to a txt file

[Ninkasi]

Hey all.

I'm wanting to have a small function of letting a user submit questions inorder to get a FAQ page up and running. What I want to happen is they type in the question into a form field, and when they submit, that data gets written to a txt file.

Is this possible?

[kevin]

yes it is possible.

[putts]

If you work with Kram, you prolly use ASP.

With ASP, you can easily use a FileSystemObject to create a new file to hold this FAQ or even append the new FAQ to the end of a FAQ file that you already have (so you only need one file).

Are you on ASP also? If not, I'm sure the other languages have similar abilities.

[Ninkasi]

Yeh, I'm using ASP also. Is it just a simple request.write or something?

[putts]

This is the page that I send everybody to first when they want to use FileSystemObjects...
http://www.4guysfromrolla.com/webtech/faq/FileSystemObject/faq3.shtml

If you still have some questions after that, fire away :D

[Ninkasi]

thanks heaps putts!! I'll check that out! :D

[Ninkasi]

How can I send an email at the same time?? or is that already been covered?

[Ninkasi]

how do I send an email at the same time?? Or is that already been asked in another thread??

[Ninkasi]

sorry guys.. Our work internet is stuffing up. Sorry for the double posts!!!!

[Ninkasi]

Would this work??

<% @ LANGUAGE = VBScript %>
<% Option Explicit %>
<%
Const ForReading = 1, ForWritting = 2, ForAppending = 8
Const TristateUseDefault = -2
Const TristateTrue = -1
Const TristateFalse = 0
Dim objFS, objTextS, strLine

Set objFS = Server.CreateObject("Scripting.FileSystemObject")
If objFS.FileExists("blah.txt") = True Then
Set objTextS = objFS.OpenTextFile("blah.txt", ForAppending, False, TristateFalse)
Else
Set objTextS = objFS.CreateTextFile("blah.txt", False, False)
objTextS.WriteLine "This file was created at: " & Now
objTextS.WriteLine ""
End If
objTextS.WriteLine "Name: " & (request.form("fname"))
objTextS.WriteLine "E-mail: " & (request.form("eMail"))
objTextS.WriteLine "Question: " & (request.form("question"))
objTextS.WriteLine "Time: " & Now
objTextS.WriteLine ""
objTextS.close

dim objMail
Set objMail = Server.CreateObject("CDONTS.NewMail")
objMail.From = (request.form("eMail"))
objMail.Subject = "FAQ Question"
objmail.To = "someone@somewhere.com"
objMail.Body = "This is a test, but here is the question\n " & (request.form("question"))
objMail.Send

Response.Redirect("somepage.asp")
%>

[putts]

it should...yes

[Ninkasi]

I don't think it is for some reason. I tired to send it to about 4 or 5 different email addys, and none of them worked... Maybe our server is blocking them?

[putts]

I just keep getting some stupid error on the createTextFile....argh

[putts]

heheheheeheee....tricky user permissions IUSER :D

anyhow...it's doing the same thing for me!!! :eek:

[Ninkasi]

So the code looks good to you??

[Ninkasi]

it says on 4guys that CDONTS can only be used on NTservers...

[putts]

ahhhhhhhhh...that would explain some things

such as the emergance I've noticed of a bunch of non-CDONTS ASP email components and the fact that CDONTS doesn't come registered on XP machines.

There are plenty of alternatives out there though.

[Ninkasi]

I'm checking with the server gurus here at work to see if it is enabled or whatever. If not, then hopefully they can enable it for me, or I will look into others