Solved: ASP problem - Internal server error

When I try running the following script, I get an error:

500 - Internal server error.
There is a problem with the resource you are looking for, and it cannot be displayed.

I've gone through this several times, and cannot see where this problem might be coming from. I tried removing the mailing code, and it's not that, because it doesn't even get that far before failing.

Help! :)

<html>
<body>
<center><BR><BR><FONT STYLE="color: #6D8ECA; font-size: 22px"><b>Thank You</b><br><br><br>Your email has been sent.</FONT></center>
</body>
</html>
<!--#INCLUDE file="config.asp"-->
<%
strMode = request.querystring("mode")
str_to = request.querystring("str_to")
 
Set conn=Server.CreateObject("ADODB.Connection")
Set RS = Server.CreateObject("ADODB.Recordset")
 
conn.Open dsn
rs.open sql, conn
 
SQL="SELECT * FROM users where EMail ='" & str_to & "'"
 
if strMode = "password" then
  if rs.EOF then
    CloseDB()
    Response.Redirect("forgot_password.asp?stat=bademl")
  end if
 
  str_subj = sitename & " Password Reminder"
 
  str_body = "Automated Password Reminder From " &sitename & vbCrLf
  str_body = str_body & "--------------------------------" & vbCrLf
  str_body = str_body & "UserName: " & RS("UserName") & vbCrLf
  str_body = str_body & "Password: " & RS("strPassword") & vbCrLf
elseif strMode = "welcome" then
  str_subj = "Welcome to "& sitename
 
  str_body = "Welcome to " &sitename & vbCrLf
  str_body = str_body & "--------------------------------" & vbCrLf
  str_body = str_body & "UserName: " & RS("UserName") & vbCrLf
  str_body = str_body & "Password: " & RS("strPassword") & vbCrLf  
else
  str_subj = sitename & " E-Mail Validation"
  str_body = "Please visit the following URL to validate your "&sitename&" membership. ("&ajloginurl&"validate.asp?n="&rs("confirmation_num")&")"
end if
 
CloseDB()
 
Set objMessage = Server.CreateObject("CDO.Message")
objMessage.From    = str_from
objMessage.To      = str_to
objMessage.Subject = str_subj
objMessage.TextBody   = str_body
 
if strMode="password" then 
  if sendPassword = true then
    objMessage.Send
    set mail=nothing
    Response.Redirect("login.asp?stat=checkeml")
  else
    Response.Write(str_body)
  end if
else
  objMessage.Send
  set mail=nothing
  Response.Redirect("login.asp?stat=checkeml")
end if
 
sub CloseDB()
  rs.Close
  conn.Close
  Set rs = Nothing
  Set conn = Nothing
  Set objMessage = Nothing
  Set objCon = Nothing
end sub
%>

Open in new window