Ciao a tutti il mio da un errore ed è il seguente:
ADODB.Fields error '800a0bb9'
Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another.
/mailing/mailing1.asp, line 46
Lo script della pagina è il seguente e l'errore è alla linea 46:
<%
DIM corpoMessaggio, numeroCampi, invioA, invioDa, nomeDominio, indirizzoIp, modulo, browserSistemaOperativo
'* voce da modificare con il proprio indirizzo email
invioA = "mio indirizzo"
'* voce da modificare con un indirizzo email che funga da mittente:
'* in caso di errore riceverete notifica a questo indirizzo un MAILER-DAEMON
'* dato che cdosys supporta questa notifica
invioDa = "da "
'------------fine modifiche necessarie------------------
nomeDominio = Request.ServerVariables("HTTP_HOST")
indirizzoIp = Request.ServerVariables("REMOTE_ADDR")
modulo = Request.ServerVariables("HTTP_REFERER")
browserSistemaOperativo = Request.ServerVariables("HTTP_USER_AGENT")
'*rilevo i campi del form
FOR numeroCampi = 1 TO (Request.Form.Count() - 1)
IF NOT Request.Form(numeroCampi) = "" THEN
corpoMessaggio = corpoMessaggio & vbCrLf & Request.Form.Key(numeroCampi) & " = " & Trim(Request.Form(numeroCampi))
END IF
NEXT
'* creo gli oggetti cdosys sul server e li gestisco
DIM iMsg, Flds, iConf
Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
Flds(cdoSendUsingMethod) = cdoSendUsingPort ERRORE
Flds(cdoSMTPServer) = "smtp.aruba.it"
Flds(cdoSMTPServerPort) = 25
Flds(cdoSMTPAuthenticate) = cdoAnonymous ' 0
Flds.Update
With iMsg
Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.OpenTextFile(Server.MapPath ("template.html") , 1, False, False)
do while not a.AtEndOfStream
linea = linea & a.readline & vbcrlf
loop
a.close()
set fs = nothing
linea=replace(linea,"##HTTP_HOST##","<a href=""http://" & nomeDominio & """>")
linea=replace(linea,"##INTESTAZIONE##", "Contatto dal dominio " &"<a href=""http://" & nomeDominio & """>" & nomeDominio)
linea=replace(linea,"##CORPO##",testo)
linea=replace(linea,"##FOOTER##",footer)
.Send
End With
%>
Chi mi sa dare una mano???
Grazie mille a tutti!!!
Rispondi quotando
