VBScript Error

Discussion in 'ASP.NET / ASP.NET Core' started by Hidden Farce, Mar 29, 2007.

Thread Status:
Threads that have been inactive for 5 years or longer are closed to further replies. Please start a new thread.
  1. Hidden Farce

    Hidden Farce

    I need help from someone that knows VBScript or similar. I can send the code. I am trying to fix a asp page that emails data from a form to a few emails.

    Thanks in advance for your help. The following is the error message I get.

    Server object error 'ASP 0177 : 800401f3'

    Server.CreateObject Failed

    /thankyou.asp, line 52

    800401f3


    Code:

    <%@ Language=VBScript %>
    <%
    Dim FirstName, LastName, Address, City, State, Zipcode, Homephone, Workphone, email, MaritalStatus, Children
    Dim Sex, Age, Education, Employer, Jobtitle, S_Employer, Movereason, Othersmoving, Movedate, Buyrent, Housing, Realtor_company
    Dim Temphousing, Priceinfo, Matureliving, Householdincome, Hearaboutus, info, county, Comments, message


    If Request.Form(Cstr('Action')) <> '' Then
    Response.Cookies('ta_user') = 'bypass'
    Response.Cookies('ta_user').Expires = Date() + 365

    message = ':: TARGET ATLANTA ONLINE ::'
    message = message & chr(13) & chr(13) & 'Start of Web Submission'
    message = message & chr(13) & chr(13) & '+-----------------------------------------------+'
    message = message & chr(13) & 'FirstName: ' & Request.Form(Cstr('FirstName'))
    message = message & chr(13) & 'LastName: ' & Request.Form(Cstr('LastName'))
    message = message & chr(13) & 'Address: ' & Request.Form(Cstr('Address'))
    message = message & chr(13) & 'City: ' & Request.Form(Cstr('City'))
    message = message & chr(13) & 'State: ' & Request.Form(Cstr('State'))
    message = message & chr(13) & 'Zipcode: ' & Request.Form(Cstr('Zipcode'))
    message = message & chr(13) & 'Homephone: ' & Request.Form(Cstr('Homephone'))
    message = message & chr(13) & 'Workphone: ' & Request.Form(Cstr('Workphone'))
    message = message & chr(13) & 'email: ' & Request.Form(Cstr('email'))
    message = message & chr(13) & chr(13) & '+-----------------------------------------------+'
    message = message & chr(13) & 'MaritalStatus: ' & Request.Form(Cstr('MaritalStatus'))
    message = message & chr(13) & 'Children: ' & Request.Form(Cstr('Children'))
    message = message & chr(13) & 'Sex: ' & Request.Form(Cstr('Sex'))
    message = message & chr(13) & 'Age: ' & Request.Form(Cstr('Age'))
    message = message & chr(13) & 'Education: ' & Request.Form(Cstr('Education'))
    message = message & chr(13) & 'Employer: ' & Request.Form(Cstr('Employer'))
    message = message & chr(13) & 'Jobtitle: ' & Request.Form(Cstr('Jobtitle'))
    message = message & chr(13) & 'S_Employer: ' & Request.Form(Cstr('S_Employer'))
    message = message & chr(13) & 'Movereason: ' & Request.Form(Cstr('Movereason'))
    message = message & chr(13) & 'Othersmoving: ' & Request.Form(Cstr('Othersmoving'))
    message = message & chr(13) & 'Movedate: ' & Request.Form(Cstr('Movedate'))
    message = message & chr(13) & chr(13) & '+-----------------------------------------------+'
    message = message & chr(13) & 'Buyrent: ' & Request.Form(Cstr('Buyrent'))
    message = message & chr(13) & 'Housing: ' & Request.Form(Cstr('Housing'))
    message = message & chr(13) & 'Realtor_company: ' & Request.Form(Cstr('Realtor_company'))
    message = message & chr(13) & 'Temphousing: ' & Request.Form(Cstr('Temphousing'))
    message = message & chr(13) & 'Priceinfo: ' & Request.Form(Cstr('Priceinfo'))
    message = message & chr(13) & 'Matureliving: ' & Request.Form(Cstr('Matureliving'))
    message = message & chr(13) & 'Householdincome: ' & Request.Form(Cstr('Householdincome'))
    message = message & chr(13) & 'Hearaboutus: ' & Request.Form(Cstr('Hearaboutus'))
    message = message & chr(13) & 'info: ' & Request.Form(Cstr('info'))
    message = message & chr(13) & chr(13)& 'county: ' & Request.Form(Cstr('county'))
    message = message & chr(13) & chr(13)& 'Comments: ' & Request.Form(Cstr('Comments'))
    message = message & chr(13) & chr(13) & '+-----------------------------------------------+'
    message = message & chr(13) & chr(13) & 'End of Web Submission'


    Set objCDOMail = Server.CreateObject('CDONTS.NewMail')
    objCDOMail.Send '[email protected]','[email protected]','[TA] WebForm Submission',message
    Else
    Response.Redirect('target.asp')
    End If
    %>
    <html>
    <head>
    <meta name='GENERATOR' content='Microsoft FrontPage 5.0'>
    <meta name='ProgId' content='FrontPage.Editor.Document'>
    <meta http-equiv='Content-Type' content='text/html; charset=windows-1252'>
    <title>:: Target Atlanta :: Thank You</title>
    <link rel='stylesheet' type='text/css' href='include/main.css'>
    <meta http-equiv='Refresh' content='10; URL=http://www.targetatlanta.com/ta_index.asp'>
    <link REL='SHORTCUT ICON' href='http://www.targetatlanta.com/ta.ico'>
    </head>


    <p align='center'>
    <img border='0' src='images/ta_banner2.jpg' width='496' height='159'>



    <p align='center'><p align='center'><p align='center'>
    <font color='#FFFFFF'>Thank you for filling out the survey.
    Your FREE magazine will be sent shortly.

    You can use the following access code
    to bypass the survey form in the future.</font><p align='center' class='medlgbold'>


    <font color='#FFFFFF'>Bypass Code: atlanta</font><p align='center'><p align='center'><p align='center'>

    <a href='ta_index.asp'>click here</a><span lang='en-us'>
    </span><font color='#FFFFFF' class='medlg'>to enter our exclusive
    Business Directory</font></b></body></html>
     
    Hidden Farce, Mar 29, 2007
    #1
  2. Bruce

    Bruce DiscountASP.NET Staff

    Bruce, Mar 29, 2007
    #2
Thread Status:
Threads that have been inactive for 5 years or longer are closed to further replies. Please start a new thread.

Share This Page