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 = "firstname.lastname@example.org" EmailTo = "email@example.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) %>