0

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)
%>
2
Contributors
1
Reply
2
Views
8 Years
Discussion Span
Last Post by cguan_77
0

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. you want to automate what? data e-mail comes from what application? just try to elaborate further..i'm sure experts around here can help you..

:)

Edited by cguan_77: n/a

This topic has been dead for over six months. Start a new discussion instead.
Have something to contribute to this discussion? Please be thoughtful, detailed and courteous, and be sure to adhere to our posting rules.