Hello All,
I am new to asp and having a little trouble accomplishing what seems
to be a relatively simple task. I want take input from a html form and
save it to a text file, then I would like to email this information to
myself, then redirect the visitor to a thank you page. I have CDONTS
installed on the server and have the email form with validation
working fine.. I am having trouble with writing to the text file and I
haven't been able to find much info on accomplishing both these tasks
from the same source. I have posted the error I am receiving along
with my butchered code..I commented at line 132 where I am getting the error Any help , advice, links to samples would be
greatly appreciated..
Thanks and good day.
JW Taylor
please email me at josh.taylor@MethodSmart.com
My error:
Server object error 'ASP 0177 : 800a0046'
Server.CreateObject Failed
/mailcontact.asp, line 132
The operation completed successfully.
My Code:
<%
'Broken Script by Josh Taylor
Dim oEmail
Set oEmail = Server.CreateObject("CDONTS.NewMail"
'Defining all of the variables required for the form fields.
Requesting the form fields and setting them as variables.
Dim
eFrom,eEmail,eSubject,eComments,eCompany,eTitle,eAddress,eCi
ty,eState,eZipcode,eCountry,ePhone,eExperience,eReferrals,eP
rospective,eSponsor
eFrom = Request.Form("name"
eEmail = Request.Form("email"
eSubject = "Contact us Form"
eComments = Request.Form("comments"
eCompany = Request.Form("Company"
eTitle = Request.Form("title"
eAddress = Request.Form("Address"
eCity = Request.Form("city"
eState = Request.Form("state"
eZipcode = Request.Form("zipcode"
eCountry = Request.Form("country"
ePhone = Request.Form("phone"
eExperience = Request.Form("experience"
eReferrals = Request.Form("InternetSearch" &
Request.Form("skymagazine" & Request.Form("NPR_Radio" &
Request.Form("Newspaper" & Request.Form("whichnewspaper" &
Request.Form("employerreferral" &
Request.Form("employerreferraltext" &
Request.Form("personalalumnireferral" &
Request.Form("personalalumniname" & Request.Form
("openhouse" &
Request.Form("other" & Request.Form("otherreferral"
eProspective = Request.Form("prospectivestudent"
eSponsor = Request.Form("employeesponsor"
'Checking that there is some data in the input fields. If
there is no
data then an error is produced, which can be found near the
bottom of
this script.
If Request.Form("email" <> "" Then
If Request.Form("comments" <> "" Then
If Request.Form("name" <> "" Then
If Request.Form("experience" <> "" Then
If eReferrals <> "" Then
'Getting some information from the user, such as their
platform,
referer, time, date, and host.
Dim sPlatform,sReferer,sTime,sDate,sHost
sPlatform = request.servervariables("HTTP_USER_AGENT"
sReferer = request.servervariables("HTTP_Referer"
sTime = Time
sDate = Date
sHost = request.servervariables("REMOTE_HOST"
'The email address it is being sent to.
oEmail.To = "josh.taylor@temp.com"
'Who the email is from, using the variable we defined above.
oEmail.From = eFrom
'The subject of the message again using the variable we
defined above.
oEmail.Subject = eSubject
'Inserting the body content, using the variable, and all
that user
information we found out. VBCRLF is VBScript formatting to
insert a
line break.
oEmail.Body = "Name: " & eName & vbcrlf&_
"Email: " & eEmail & vbcrlf&_
"Street Address: " & eAddress & vbcrlf&_
"City: " & eCity & vbcrlf&_
"State: " & eState & vbcrlf&_
"Zipcode: " & eZipcode & vbcrlf&_
"Country: " & eCountry & vbcrlf&_
"Telephone: " & ePhone & vbcrlf&_
"Company: " & eCompany & vbcrlf&_
"Title: " & eTitle & vbcrlf&_
"Years of Managerial Experience: " & eExperience & vbcrlf&_
" " & vbcrlf&_
"How did you hear about ? " & vbcrlf&_
"Referrals: " & eReferrals & vbcrlf&_
" " & vbcrlf&_
"Are you a prospective student: " & eProspective & vbcrlf&_
"Are you a prospective employer sponsor: " & eSponsor &
vbcrlf&_
"Comments or Question: " & eComments & vbcrlf&_
" " & vbcrlf&_
"Additional Information------------" & vbcrlf&_
"User Platform: " & sPlatform & vbcrlf&_
"User URL: " & sReferer & vbcrlf&_
"Time Sent: " & sTime & vbcrlf&_
"Date Sent: " & sDate & vbcrlf&_
"User Host: " & sHost & vbcrlf&_
"User Name: " & tUserName
'Send the email.
oEmail.Send
'This is the validation text
Else
response.write("Please tell us how you heard about the
program.<br><br><a href='javascript:history.back()'>:: GO
BACK
::</a>"
End If
Else
response.write("Please enter a your years of managerial
experience<br><br><a href='javascript:history.back()'>:: GO
BACK
::</a>"
End If
Else
response.write("Please enter your name. <br><br><a
href='javascript:history.back()'>:: GO BACK ::</a>"
End If
Else
response.write("Please enter a question or comment. <br><br><a
href='javascript:history.back()'>:: GO BACK ::</a>"
End If
Else
response.write("Please enter your email address.<br><br><a
href='javascript:history.back()'>:: GO BACK ::</a>"
End If
%>
<%
Dim MyWord 'What we will put into the text file.
Dim objFSO 'FileSystemObject Variable
Dim objFile 'File Object Variable
MyWord = Request.Form("name" 'Put in the string into
the text
file.
'This locates our text file that will be written to.
strFile = Server.MapPath("contactus.txt"
' Create an instance of the FileSystemObject
Set objFSO = Server.CreateObject
("Scripting.FileSystemObject"
'LINE 132 below causing the error
Set objFile = objFSO.OpenTextFile(strFile, 8, True)
'Here we actually append new information to
the text
file.
objFile.Write Server.HTMLEncode(MyWord)
'This gives us a new line for the next
piece of
information.
objFile.WriteLine ""
' Close the file and dispose of our objects
objFile.Close
Set objFile = Nothing
Set objFSO = Nothing
'Give the user a thank you message for sending the email.
response.redirect "/thanks.htm"
%>
I am new to asp and having a little trouble accomplishing what seems
to be a relatively simple task. I want take input from a html form and
save it to a text file, then I would like to email this information to
myself, then redirect the visitor to a thank you page. I have CDONTS
installed on the server and have the email form with validation
working fine.. I am having trouble with writing to the text file and I
haven't been able to find much info on accomplishing both these tasks
from the same source. I have posted the error I am receiving along
with my butchered code..I commented at line 132 where I am getting the error Any help , advice, links to samples would be
greatly appreciated..
Thanks and good day.
JW Taylor
please email me at josh.taylor@MethodSmart.com
My error:
Server object error 'ASP 0177 : 800a0046'
Server.CreateObject Failed
/mailcontact.asp, line 132
The operation completed successfully.
My Code:
<%
'Broken Script by Josh Taylor
Dim oEmail
Set oEmail = Server.CreateObject("CDONTS.NewMail"
'Defining all of the variables required for the form fields.
Requesting the form fields and setting them as variables.
Dim
eFrom,eEmail,eSubject,eComments,eCompany,eTitle,eAddress,eCi
ty,eState,eZipcode,eCountry,ePhone,eExperience,eReferrals,eP
rospective,eSponsor
eFrom = Request.Form("name"
eEmail = Request.Form("email"
eSubject = "Contact us Form"
eComments = Request.Form("comments"
eCompany = Request.Form("Company"
eTitle = Request.Form("title"
eAddress = Request.Form("Address"
eCity = Request.Form("city"
eState = Request.Form("state"
eZipcode = Request.Form("zipcode"
eCountry = Request.Form("country"
ePhone = Request.Form("phone"
eExperience = Request.Form("experience"
eReferrals = Request.Form("InternetSearch"
&Request.Form("skymagazine"
& Request.Form("NPR_Radio" &Request.Form("Newspaper"
& Request.Form("whichnewspaper" &Request.Form("employerreferral"
&Request.Form("employerreferraltext"
&Request.Form("personalalumnireferral"
&Request.Form("personalalumniname"
& Request.Form("openhouse"
&Request.Form("other"
& Request.Form("otherreferral"eProspective = Request.Form("prospectivestudent"
eSponsor = Request.Form("employeesponsor"
'Checking that there is some data in the input fields. If
there is no
data then an error is produced, which can be found near the
bottom of
this script.
If Request.Form("email"
<> "" ThenIf Request.Form("comments"
<> "" ThenIf Request.Form("name"
<> "" ThenIf Request.Form("experience"
<> "" ThenIf eReferrals <> "" Then
'Getting some information from the user, such as their
platform,
referer, time, date, and host.
Dim sPlatform,sReferer,sTime,sDate,sHost
sPlatform = request.servervariables("HTTP_USER_AGENT"
sReferer = request.servervariables("HTTP_Referer"
sTime = Time
sDate = Date
sHost = request.servervariables("REMOTE_HOST"
'The email address it is being sent to.
oEmail.To = "josh.taylor@temp.com"
'Who the email is from, using the variable we defined above.
oEmail.From = eFrom
'The subject of the message again using the variable we
defined above.
oEmail.Subject = eSubject
'Inserting the body content, using the variable, and all
that user
information we found out. VBCRLF is VBScript formatting to
insert a
line break.
oEmail.Body = "Name: " & eName & vbcrlf&_
"Email: " & eEmail & vbcrlf&_
"Street Address: " & eAddress & vbcrlf&_
"City: " & eCity & vbcrlf&_
"State: " & eState & vbcrlf&_
"Zipcode: " & eZipcode & vbcrlf&_
"Country: " & eCountry & vbcrlf&_
"Telephone: " & ePhone & vbcrlf&_
"Company: " & eCompany & vbcrlf&_
"Title: " & eTitle & vbcrlf&_
"Years of Managerial Experience: " & eExperience & vbcrlf&_
" " & vbcrlf&_
"How did you hear about ? " & vbcrlf&_
"Referrals: " & eReferrals & vbcrlf&_
" " & vbcrlf&_
"Are you a prospective student: " & eProspective & vbcrlf&_
"Are you a prospective employer sponsor: " & eSponsor &
vbcrlf&_
"Comments or Question: " & eComments & vbcrlf&_
" " & vbcrlf&_
"Additional Information------------" & vbcrlf&_
"User Platform: " & sPlatform & vbcrlf&_
"User URL: " & sReferer & vbcrlf&_
"Time Sent: " & sTime & vbcrlf&_
"Date Sent: " & sDate & vbcrlf&_
"User Host: " & sHost & vbcrlf&_
"User Name: " & tUserName
'Send the email.
oEmail.Send
'This is the validation text
Else
response.write("Please tell us how you heard about the
program.<br><br><a href='javascript:history.back()'>:: GO
BACK
::</a>"
End If
Else
response.write("Please enter a your years of managerial
experience<br><br><a href='javascript:history.back()'>:: GO
BACK
::</a>"
End If
Else
response.write("Please enter your name. <br><br><a
href='javascript:history.back()'>:: GO BACK ::</a>"
End If
Else
response.write("Please enter a question or comment. <br><br><a
href='javascript:history.back()'>:: GO BACK ::</a>"
End If
Else
response.write("Please enter your email address.<br><br><a
href='javascript:history.back()'>:: GO BACK ::</a>"
End If
%>
<%
Dim MyWord 'What we will put into the text file.
Dim objFSO 'FileSystemObject Variable
Dim objFile 'File Object Variable
MyWord = Request.Form("name"
'Put in the string into the text
file.
'This locates our text file that will be written to.
strFile = Server.MapPath("contactus.txt"
' Create an instance of the FileSystemObject
Set objFSO = Server.CreateObject
("Scripting.FileSystemObject"
'LINE 132 below causing the error
Set objFile = objFSO.OpenTextFile(strFile, 8, True)
'Here we actually append new information to
the text
file.
objFile.Write Server.HTMLEncode(MyWord)
'This gives us a new line for the next
piece of
information.
objFile.WriteLine ""
' Close the file and dispose of our objects
objFile.Close
Set objFile = Nothing
Set objFSO = Nothing
'Give the user a thank you message for sending the email.
response.redirect "/thanks.htm"
%>