form con sendmail

[i_am_antipop]

premetto che son completamente digiuno di ASP...

..e purtroppo devo però realizzare una pagina Html + ASP con un modulo di contatto (es: nome cognome, email..) ch eutilizzi Sendmail.

potete farmi vedere come si fa, o indicarmi dove scaricare un script?


grazie

[viki1967]

Se la tua versione di windows server è NT-2000 (Componente CDONTS):
http://www.weppos.com/asp/script/scr....asp?script=16

Se la tua versione di windows server è 2003 (Componente CDOSYS):
http://www.weppos.com/asp/script/scr....asp?script=17

[i_am_antipop]

grazei mille x i links!


...mm.. una cosa xò, io non so che server sia... esiste un modo per scoprire via codice quale dei 2 metodi usare?

tnx!

[viki1967]

<%

	
	Dim comList(1)
	
	comList(0) = Array( "CDOSYS", "CDO.Message" )
	comList(1) = Array( "CDONTS","CDONTS.NewMail" )

Function IsAvailable( comIdentity )
		On Error Resume Next
		IsAvailable = False
		Err = 0
		Set xTestObj = Server.CreateObject( comIdentity )
		If Err = 0 Then IsAvailable = True
		Set xTestObj = Nothing
		Err = 0
	End Function

	Public Function CheckCOM()
		Avail = 0
		strTxt = "<table cellpadding=3 cellspacing=3 border=0 align=center width=300>" & vbNewLine
		For Idx = LBound( comList ) To UBound( comList )
			Provider = Idx
			strTxt = strTxt & vbTab & "<tr><td width=200><font class=norm>" & comList(Idx)(0) & "</font></td>"
			strTxt = strTxt & "<td align=right width=20><font class=norm>[</font></td>"
			If IsAvailable( comList(Idx)(1) ) Then
				strTxt = strTxt & "<td align=center><font face=tahoma size=2 color=blue>Available</font></td>"
				Avail = Avail + 1 
			Else
				strTxt = strTxt & "<td align=center><font class=norm>Unavailable</font></td>"
			End If
			strTxt = strTxt & "<td align=left width=20><font class=norm>]</font></td></tr>" & vbNewLine
		Next
		strTxt = strTxt & vbTab & "<tr><td colspan=4 height=30><font class=norm><font color=blue>" & Avail & "</font> of "
		strTxt = strTxt & UBound( comList ) + 1 & " supported components are available.</font></td></tr>" & vbNewLine
		CheckCOM = strTxt & "</table>" & vbNewLine
	End Function

	Response.Write( CheckCOM() )
%>

[i_am_antipop]

grazie!

faccio una prova!