Steven Matthews
Steven Matthews

Reputation: 11355

Internal Server Error with VB script

I'm trying to send an email with VB script/ASP (I don't normally use this language but this is what the site is built in), and it is throwing a 500 error.

I'm not seeing what I did wrong. Everything looks like it should execute to me. Any ideas?

<%
dim name
dim from
dim company
dim phone
dim zip
dim message
dim areas

name = Request.Form("name")
from = Request.Form("from")
company = Request.Form("company")
phone = Request.Form("phone")
zip = Request.Form("zip")
areas = Request.Form("areas")
message = Request.Form("message")


Dim Mail, strHost
Dim strSubject, strBody, strPath

strHost = "localhost"

Set Mail = Server.CreateObject("Persits.MailSender")

Mail.Host = strHost
Mail.From = "[email protected]"
Mail.FromName = "Client Name"
Mail.AddAddress "[email protected]"
If Not InStr(from, "domain.com") Then Mail.AddBcc "[email protected]"
Mail.Subject = name & " sent a request"
Mail.Body = name & "," & vbCrLf & vbCrLf &_ 
     "Name:" & name & vbCrLf &_ 
     "Company: " & company & vbCrLf &_ 
     "From: " & from & vbCrLf &_ 
     "Phone: " & phone & vbCrLf &_ 
     "Zip Code: " & zip & vbCrLf &_ 
     "Message: " & message & vbCrLf &_ 

Mail.Send
Response.Redirect("jlg_thank_you.asp")

set Mail = nothing

%>

Upvotes: 0

Views: 1142

Answers (2)

Francis Ducharme
Francis Ducharme

Reputation: 4987

Make sure you downloaded the latest version of ASPEmail and that it is present on the server running the script.

Also, register it using this command line:

regsvr32 c:\path\aspemail.dll

Upvotes: 0

pompousPanda
pompousPanda

Reputation: 105

The first thing I noticed is that you are missing an End If in the code sample provided.

I disabled Friendly error messages and I attempted to run the code and got this error:

Server object error 'ASP 0177 : 800401f3' 
Server.CreateObject Failed 
/test.asp, line 26 
800401f3

On researching this error I found someone with a similar problem:

Server.createObject with Persist.Mailsender error

They suggested that its a missing dll problem.

For my projects I have used Server.CreateObject("CDO.Message")

Here is an example of my code:

Set mail = Server.CreateObject("CDO.Message")
mail.To = varTo
mail.From = varFrom
mail.Subject = varSubject
mail.HTMLBody = varBody
mail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing")=2
mail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver")="smtp.domain.com"
mail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport")=25 
mail.Configuration.Fields.Update
mail.Send

Upvotes: 2

Related Questions