Good Afternoon,
I'm sure it is possible and hopefully someone here can help me.
I am looking to be able to send data from a form I have to a file server. Right now, I have it emailing the data but I am hoping to fully automate it by having it to straight to the file server.
Is there a way to do this? Or FTP it to one of our UNIX servers?
Any help would be greatly apprecaited.
Thanks in advance
Here is what i have for my asp form:
<%
' Website Contact Form Generator
' http://www.tele-pro.co.uk/scripts/contact_form/
' This script is free to use as long as you
' retain the credit link
' declare variables
Dim EmailFrom
Dim EmailTo
Dim Subject
Dim FirstName
Dim LastName
Dim ContactExt
Dim Suggestions
' get posted data into variables
EmailFrom = "user@user.com"
EmailTo = "user@user.com"
Subject = "Suggestions"
FirstName = Trim(Request.Form("FirstName"))
LastName = Trim(Request.Form("LastName"))
ContactExt = Trim(Request.Form("ContactExt"))
Suggestions = Trim(Request.Form("Suggestions"))
' validation
Dim validationOK
validationOK=true
If (Trim(Suggestions)="") Then validationOK=false
If (validationOK=false) Then Response.Redirect("error_suggestions.htm?" & EmailFrom)
' prepare email body text
Dim Body
Body = Body & "FirstName: " & FirstName & VbCrLf
Body = Body & "LastName: " & LastName & VbCrLf
Body = Body & "ContactExt: " & ContactExt & VbCrLf
Body = Body & "Suggestions: " & Suggestions & VbCrLf
' OLD CDONTS send email
'Dim mail
'Set mail = Server.CreateObject("CDONTS.NewMail")
'mail.To = EmailTo
'mail.CC = EmailCC
'mail.From = EmailFrom
'mail.Subject = Subject
'mail.Body = Body
'mail.Send
'Set mail=nothing
'NEW CDOsys
Dim iMsg
Dim iConf
Dim Flds
Dim strHTML
Dim strSmartHost
Const cdoSendUsingPort = 2
StrSmartHost = "hosthere.com"
set iMsg = CreateObject("CDO.Message")
set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
' set the CDOSYS configuration fields to use port 25 on the SMTP server
With Flds
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = cdoSendUsingPort
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = strSmartHost
.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30
.Update
End With
With iMsg
Set .Configuration = iConf
.To = EmailTo
.From = EmailFrom
.CC = EmailCC
.Subject = Subject
.TextBody = Body
.Send
End With
' cleanup of variables
Set iMsg = Nothing
Set iConf = Nothing
Set Flds = Nothing
' redirect to success page
Response.Redirect("Confirmation.htm?")
'Response.Redirect("ok.htm?" & EmailFrom)
%>