SitePoint Sponsor

User Tag List

Results 1 to 4 of 4

Thread: vb error

  1. #1
    SitePoint Addict webmistress's Avatar
    Join Date
    Aug 2002
    Location
    Derbyshire, UK
    Posts
    295
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    vb error

    ohh does anyone know what this horrible error means? Is it a problem with the email on my server? It's generated from a simple asp form script. When I press send this happens....


    Code:
    Error: Access is Denied. 
    Microsoft VBScript runtime error '800a0046' 
    
    Permission denied 
    
    /Cgi-bin/formmailcp.asp, line 125
    Ta
    ****************
    The Webmistress

  2. #2
    I'm a college yuppie now! sbdi's Avatar
    Join Date
    Jul 2000
    Location
    Dublin , Ireland
    Posts
    1,271
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)
    Probably havent set up whatever script properly. Check the read me file for the script and look through it making sure all settings are teh same as your hosts.

    Would of been a better idea to post the script but oh well
    Back Again

  3. #3
    SitePoint Addict webmistress's Avatar
    Join Date
    Aug 2002
    Location
    Derbyshire, UK
    Posts
    295
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)
    doh sorry. :P

    I think it's the mail settings because I did a search on the net for that vb error and it came back with doing this from Microsoft: http://support.microsoft.com/default...97619&LN=EN-US

    I have tried that but nothin..?


    Here's the code: (line 25 says this btw: objMailer.Send)

    Code:
    <%@language = "VBscript"%>
    <%
    Dim strError
    Response.Buffer = True 
    If ScriptEngineMajorVersion < 2 Then
    ReportError "Host system needs scripting engine upgrade to use this script"
    End If
    Set objFM = CreateObject("Scripting.Dictionary")
    If IsObject(objFM) = False Then
    ReportError "Host system lacks component(s) required by this script"
    End If
    Set objMailx = CreateObject("CDONTS.Newmail")
    If IsObject(objMailx) = False Then
    ReportError "Host system lacks component(s) required by this script"
    End If
    Set objMailx = Nothing
    %>
    <%
    'mailer.asp 
    %>
    
    <%'variables you can set start here%>
    <%
    strRcpt = "lauraz@mydomain.co.uk" 'Put the address you want the form sent to here
    
    strFromVar = "email" 'If you want a reply-to email address to be taken from the form
    ' put the name of the input item here. 
    
    strDefFrom = "post@yourdomain.co.uk" 'Put a default, even fake, From address here
    
    strDefSubject = "Contact Us" 'Put the subject of the letter here. If an input item called
    'subject exists in the form, its value will be used instead.
    
    strRedirect = "http://www.meme.co.uk/thanks.html" 'Url to redirect to after a successful form submission. If an input item called
    'redirect exists in the form, its value will be used instead.
    
    %>
    <%'variables you can set end here%>
    
    <%
    ParseForm
    CheckForm
    If Len(strError) > 0 Then
    ReportError strError
    End If
    strOutX = SeqForm
    If Len(strOutX) < 1 Then 
     strOutX = FormToString
    End If
    If Len(strOutX) < 1 Then 
    ReportError "Submitted form is empty"
    End If
    strSubject = strDefSubject
    If objFM.Exists("TGsubject") Then
    strSubject = objFM.Item("TGsubject")
    End If
    strFrom = strDefFrom
    If Len(strFromVar) > 0 Then 
    If objFM.Exists(strFromVar) Then strFrom = objFM.Item(strFromVar) End If 
    End If
    SendMail strFrom,strRcpt,strSubject,strOutX
    If Len(strRedirect) > 0 Then
     Response.redirect(strRedirect)
     Response.End
    End If
    If objFM.Exists("TGredirect") = True Then
    If Len(objFM.Item("TGredirect")) > 0 Then 
    Response.redirect(objFM.Item("TGredirect"))
    Response.End
    End If
    End If
    %>
    
    
    <!--*******SUCCESSFUL SUBMISSION RESPONSE - START*******-->
    <!--ADD YOUR OWN HTML TOP SECTION STARTING HERE-->
    <h1>Form sent</h1>
    Your request has been received and will be processed shortly.
    <!--ADD YOUR OWN HTML TOP SECTION UP TO HERE-->
    <!--*******SUCCESSFUL SUBMISSION RESPONSE - END********-->
    
    <%
    Credit
    Response.End
    %>
    <%
    Function IsValidEmail(Email)
    Dim Temp,Temp2
    strNotValid =  "<br>Email address not valid"
    strTooLong =  "<br>Email address too long"
    If Len(Email) > 100 Then
    ReportError strTooLong
    End If
    Email = LCase(Email)
    Temp = Split(Email,"@",2,1)
    If UBound(Temp) < 1 Then
    ReportError strNotValid
    End If
    Temp2 = Split(Temp(1),".",-1,1)
    If UBound(Temp2) < 1 Then
    ReportError strNotValid
    End If
    End Function
    %>
    <%
    Function SendMail(From,Rcpt,Subject,Body)
    Trim(From)
    Trim(Rcpt)
    If Len(From) < 1 Then  
    ReportError strError & "<br>No Reply-to address (From) for this letter"
    End If
    If Len(Rcpt) < 1 Then
    ReportError strError & "<br>No recipient for this letter"
    End If
    IsValidEmail Rcpt
    IsValidEmail From
    Set objMailer = CreateObject("CDONTS.Newmail")
    objMailer.From = From
    objMailer.To = Rcpt
    objMailer.Subject = Subject
    objMailer.Body = Body
    objMailer.Send
    Set objMailer = Nothing
    End Function
    %>
    <%
    Function CheckForm()
    Dim Temp,strTmp,strForce
    strInputReq =  "<br>Input required for "
    If objFM.Exists("TGrequire") = False Then
     Exit Function
      ElseIf isEmpty(objFM.Item("TGrequire")) Then
       Exit Function
    End If
    strForce = objFM.Item("TGrequire")
    Temp = Split(strForce,",",-1,1)
    For Each strTmp in Temp
     If objFM.Exists(strTmp) = False Then
      strError = strError & strInputReq & strTmp
       ElseIf Len(objFM.Item(strTmp)) < 1 Then
        strError = strError & strInputReq & strTmp
     End If 
    Next
    End Function
    %>
    <%
    Function ParseForm()
    For Each Item in Request.Form
     If objFM.Exists(Item) Then
      objFM.Item(Item) = objFM.Item(Item) & "," & Request.QueryString(Item)
       Else 
        objFM.Add Item,Request.Form(Item)
     End If
    Next
    For Each Item in Request.QueryString
     If objFM.Exists(Item) Then
      objFM.Item(Item) = objFM.Item(Item) & "," & Request.QueryString(Item)
       Else 
        objFM.Add Item,Request.QueryString(Item)
     End If
    Next
    End Function
    %>
    <%
    Function SeqForm()
    Dim Temp,strTmp,strOrder,strOut
    If objFM.Exists("TGorder") = False Then
     Exit Function
      ElseIf isEmpty(objFM.Item("TGorder")) Then
       Exit Function
    End If
    strOrder = objFM.Item("TGorder")
    Temp = Split(strOrder,",",-1,1)
    For Each strTmp in Temp
     If objFM.Exists(strTmp) Then
      strOut = strOut & strTmp & ": " & objFM.Item(strTmp) & Chr(10)
     End If 
    Next
    SeqForm = strOut
    End Function
    %>
    <%
    Function FormToString()
    Dim strOut
    strKeys = objFM.Keys
    strValues = objFM.Items
    For intCnt = 0 To objFM.Count -1
      strOut = strOut & strKeys(intCnt) & ": " & strValues(intCnt) & Chr(10)
    Next
    FormToString = strOut
    End Function
    %>
    <%
    Function ReportError(strMess)
    If Len(strMess) < 1 Then
    strMess = strError
    End If
    strErr = "The following error(s) happened: <br>" & strMess
    Response.Clear
    %>
    <!--*******ERRONEOUS SUBMISSION RESPONSE - START*******-->
    <!--ADD YOUR OWN HTML TOP SECTION STARTING HERE-->
    <!--ADD YOUR OWN HTML TOP SECTION UP TO HERE-->
    
    <%'Error messages will be output here, between your html%>
    <%
    Response.Write(strErr)
    %>
    
    <!--ADD YOUR OWN HTML BOTTOM SECTION UP TO HERE-->
    <!--******ERRONEOUS SUBMISSION RESPONSE - END*******-->
    
    <%
    Credit
    Response.End
    End Function
    %>
    
    <%Function Credit%>
    <!--START OF CREDIT - DO NOT CHANGE OR REMOVE ANYTHING BELOW THIS LINE-->
    <p align=center>
    </font>
    </p>
    <!--END OF CREDIT-->
    <%End Function%>
    ****************
    The Webmistress

  4. #4
    SitePoint Addict webmistress's Avatar
    Join Date
    Aug 2002
    Location
    Derbyshire, UK
    Posts
    295
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)
    I think I have managed to well and truely screw somehting up on IIS. the permissions are all set up right yet I still get this error. Oh dear.

    Anyone know what to do in this case.

    Any help would be very very appreciated.

    Thanks!

    ****************
    The Webmistress


Bookmarks

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •