Ho questo codice
che però non fa redirect alla insert.aspcodice:<% ..... set msg = CreateObject("CDO.Message") msg.Subject = "Richiesta: " & Now() msg.From = user'request.Form("uid") msg.To = user & "; " & user_assegn_mail & ", " & fmail' HTML = "<html>" HTML = HTML & "<head>" HTML = HTML & "<title>Richiesta del " & data & "</title>" HTML = HTML & "</head>" HTML = HTML & "<body bgcolor=""#FFFFFF"">" HTML = HTML & " <font face=""Verdana"">" HTML = HTML & "ID richiesta: " & sql15320 & " " HTML = HTML & "Descrizione:" & request.Form("description") & " " HTML = HTML & "Utente assegnato: " & usr & " " HTML = HTML & "Priorità: " & pri & " " HTML = HTML & "Canale: " & can & " " HTML = HTML & "Classificazione: " & cla & " " HTML = HTML & "Fornitore:" & forn & " " HTML = HTML & "</body>" HTML = HTML & "</html>" msg.HTMLBody = HTML msg.Configuration.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "192.168.100.60" msg.Configuration.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 msg.Configuration.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 msg.Configuration.Fields.Update msg.Send() set msg = nothing response.Redirect("insert.asp") ELSE response.redirect("err.asp") end if end if
xchèèèèè?

Rispondi quotando