Tengo un script que revisa un abase de datos y sí es correcto un código envía un email... en local no da ningún problema.. pero en servidor salta error 500...
Código PHP:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!--#include file="Connections/representantes.asp" -->
<%
Dim Recordset1
Dim Recordset1_numRows
Set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = MM_representantes_STRING
Recordset1.Source = "SELECT * FROM claves WHERE clave = '"&request.querystring("codigo")&"'"
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 1
Recordset1.Open()
Recordset1_numRows = 0
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<title>Documento sin título</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<%
if Recordset1.eof = true then
response.write("Error no existe la clave<br>")
enviar = 0
else
enviar = 1
end if
'guardar datos y enviar email
'enviar email
'creo el objeto correo
if enviar = 1 then
set mail = server.createObject("Persits.MailSender")
'configuro el mensaje
'señalo el servidor de salida para enviar el correo
mail.host = "mail.just-e-business.com"
'indico la dirección de correo del remitente
mail.from = "[email protected]"
'indico la dirección del destinatario del mensaje
mail.addAddress "[email protected]"
'indico el cuerpo del mensaje
mail.body = request.querystring("codigo")&" El codigo de ese usuatio"
'lo envio
'aseguro que no se presenten errores en la página si se producen
On Error Resume Next
mail.send
if Err ><0 then
response.write "Error, no se ha podido completar la operación"
else
response.write "Gracias por rellenar el formulario. Se ha enviado correctamente." end if
fin enviar email
else
response.write ("no se envio el email<br>")
end if
%>
<body>
</body>
</html>
<%
Recordset1.Close()
Set Recordset1 = Nothing
%>