Aruba down e gli script smettono di funzionare.

[Enrique_Rojas]

Ciao, quas ci vado al manicomio... sono in hosting su aruba che ieri pomeriggio è andato in spegnimento per alcune ore; al ripristino del servizio lo script per il cambio della propria password (che ha sempre funzionato) che posto di seguito adesso non funziona più, che cosa sarà successo?:

<%
if len(session("id")) > 0 and isNumeric(session("id")) then

pwd1 = trim(request.form("pwd1"))
pwd2 = trim(request.form("pwd2"))

  if len(pwd1) = 0 or len(pwd2) = 0 then
  response.write "Inserire password"
  else

    if strComp(pwd1,pwd2,0) <> 0 then
    response.write "Errore!"
    else

    set conn = server.createObject("ADODB.Connection")
    conn.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="& server.mapPath("/database/carmine.mdb")
    sql = "UPDATE tbl_login SET password1 = '" & pwd1 & "' WHERE id = " & session("id")
    conn.execute(sql)
    response.write sql

 sql = "SELECT email FROM tbl_login WHERE id = " & session("id")
set rs = conn.execute(sql)
response.write sql

if not rs.eof then
indirizzo = rs("email") 

Dim miaMail 
Set miaMail = CreateObject("CDONTS.NewMail") 
miaMail.From = "email@email.com" 
miaMail.To = indirizzo 
miaMail.cc = "email1@email.com" 
miaMail.Subject = "Cambio di Password" 
miaMail.BodyFormat = 0 
miaMail.MailFormat = 0 
miaMail.Importance = 2 
miaMail.Body = "Nuova Password: " & pwd1 
miaMail.Send 
Set miaMail = Nothing 
end if

rs.close
set rs = nothing
conn.close 
set conn = nothing

response.write "Password inviata via email." 


    end if

  end if

end if
%>

[DeR]

Non e ke ti hanno spostato su win server 2003 e percio non riesci ad inviare la posta col cdonts?

[99eros9]

non cambia la password o non invia l'email?

[Enrique_Rojas]

Grazie per le risposte; ho verificato direttamente sul pannello di controllo di aruba e sto su win 2000 server; lo script non funzionava completamente sino a quando ho ricaricato una vecchia copia di backup che avevo sul pc locale.
Adesso è ok.
Non ho idea che cosa possa essere successo.