Foros del Web » Programando para Internet » ASP Clásico »

consulta sobre una funcion que lee el servidor

Estas en el tema de consulta sobre una funcion que lee el servidor en el foro de ASP Clásico en Foros del Web. buenas tardes a todos estoy tratando de realizar una funcion que si detecta en que servidor esta manda un mail a tal destino, si esta ...
  #1 (permalink)  
Antiguo 07/06/2005, 12:08
Avatar de jUaN_  
Fecha de Ingreso: septiembre-2002
Ubicación: Buenos Aires - Argentina
Mensajes: 220
Antigüedad: 21 años, 9 meses
Puntos: 0
consulta sobre una funcion que lee el servidor

buenas tardes a todos

estoy tratando de realizar una funcion que si detecta en que servidor esta manda un mail a tal destino, si esta en otro lo manda a otro

con esta funcion
<%
function correo_web()
direccion_correo = Request.ServerVariables("SERVER_NAME")
if direccion_correo = "sdbuetbweb01" then
direccion_valida = mySmartMail.Recipients.Add "[email protected]"
elseif direccion_correo = "ssatywebn2" then
direccion_valida = mySmartMail.Recipients.Add "[email protected]"
else
direccion_valida = mySmartMail.Recipients.Add "[email protected]"
end if
'correo_web = direccion_valida
end function
%>

pero cuando llamar la funcion me tira error

pero la unica forma en que el aspsmartmail me deja poner el destinatario es: mySmartMail.Recipients.Add "[email protected]"

alguien me da una idea de como solucionar esto??
__________________
<% Viru %>
  #2 (permalink)  
Antiguo 07/06/2005, 12:14
Avatar de AlZuwaga
Colaborador
 
Fecha de Ingreso: febrero-2001
Ubicación: 34.517 S, 58.500 O
Mensajes: 14.550
Antigüedad: 23 años, 3 meses
Puntos: 535
Qué error da?
Igual, yo haría esto:

Cita:
<%
function correo_web()
direccion_correo = Request.ServerVariables("SERVER_NAME")
if direccion_correo = "sdbuetbweb01" then
direccion_valida = "[email protected]"
elseif direccion_correo = "ssatywebn2" then
direccion_valida = "[email protected]"
else
direccion_valida = "[email protected]"
end if
correo_web = direccion_valida
end function

' luego de haber creado el objeto "mySmartMail" y fiera de la function...
mySmartMail.Recipients.Add correo_web()
%>

Por cierto, no sabés de la existencia de un "puestito" dentro de repsolypf?
__________________
...___...
  #3 (permalink)  
Antiguo 07/06/2005, 14:14
Avatar de jUaN_  
Fecha de Ingreso: septiembre-2002
Ubicación: Buenos Aires - Argentina
Mensajes: 220
Antigüedad: 21 años, 9 meses
Puntos: 0
siempre hay lugar es solo cuestion de dejar el cv jajaja

volviendo a lo otro, me da error, el problema es que no toma mySmartMail.Recipients.Add correo_web() :(
__________________
<% Viru %>
  #4 (permalink)  
Antiguo 07/06/2005, 14:18
Avatar de AlZuwaga
Colaborador
 
Fecha de Ingreso: febrero-2001
Ubicación: 34.517 S, 58.500 O
Mensajes: 14.550
Antigüedad: 23 años, 3 meses
Puntos: 535
Y así?

MandarA = correo_web()
mySmartMail.Recipients.Add MandarA


La próxima poné el errorrrr :P
__________________
...___...
  #5 (permalink)  
Antiguo 08/06/2005, 05:48
Avatar de jUaN_  
Fecha de Ingreso: septiembre-2002
Ubicación: Buenos Aires - Argentina
Mensajes: 220
Antigüedad: 21 años, 9 meses
Puntos: 0
con la ultima funco de diez, muchas gracias!
__________________
<% Viru %>
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 16:09.