Ciao , a tutti chi è in grado di convertire questo codice per mandare email tramite il CDOSYS su windows 2003 server ?
io uso xp.
codice:
if request.form("oggetto")<>"" AND request.form("priorita")<>"" AND 
request.Form("testo")<>"" then

dim oggetto
dim priorita
dim testo
dim rs
dim ObjMail
dim danome
dim damail
dim dachi
dim title_site
oggetto = Request.Form("oggetto")
priorita=request.form("priorita")
testo = Request.Form("testo")
Set rs=Server.CreateObject("ADODB.recordset")
dim stmsql
stmsql="Select nick,email FROM newsletter"
rs.Open stmsql,Conn
do while not rs.EOF
Set objMail = Server.CreateObject("CDONTS.NewMail")
'danome="" &   & ""
danome="" & Session("title_site") & ""
damail="<" & Session("email") & ">"		
dachi=chr(34) & danome & chr(34) & damail
objMail.From=dachi
objMail.Body=testo
objMail.To=chr(34) & rs("nick") & chr(34) &"<"& rs("email")&">"
objMail.Subject=oggetto
objmail.importance=priorita
objMail.Send
set objMail = nothing
rs.MoveNext
loop
rs.close
Set rs = nothing
End If
grazie 1000.