Visualizzazione dei risultati da 1 a 2 su 2

Discussione: Errore con CDOSYS

  1. #1

    Errore con CDOSYS

    MI ha detto il provider che devo attivare io il componente CDOSYS e mi dicono che basta usare

    mail.attiva.biz

    Io ho usato un semnplice script per CDOSYS ma non mi funziona mi da questo errore inviando:


    CDO.Message.1 error '80040220'

    The "SendUsing" configuration value is invalid.

    /wireless/Uk/mail.asp, line 180

    codice:
    <%
    nome = Request.form("nome")
    cognome = Request.form("cognome")
    azienda = Request.form("azienda")
    email = Request.form("email")
    telefono = Request.form("telefono")
    messaggio = Request.form("messaggio")
    
    Dim MiaMail
    Set MiaMail = Server.CreateObject("CDO.Message")
    MiaMail.From = Request.Form("email")
    MiaMail.To = "xx@xxxx.it"
    MiaMail.Subject = "AUREL Wireless - Contatto dal sito"
    MiaMail.HTMLBody = "Nome:  " & Request.Form("nome") & "[b]
    Cognome:  " & Request.Form("nome") & "[b]
    Telefono:  " & Request.Form("telefono") & "
    E-mail:  " & Request.Form("email") & "
    
    Richiesta:  " & Request.Form("messaggio")
    MiaMail.Send()
    Set MiaMail = Nothing
    
    Dim MiaMail2
    Set MiaMail2 = Server.CreateObject("CDO.Message")
    MiaMail2.To = Request.Form("email")
    MiaMail2.Subject = "AUREL Wireless - Conferma di ricezione "
    MiaMail2.HTMLBody = "Your message was received correctly!
    Thanks to write us, you'll be contact as soon as possible.
    
    AUREL s.p.a. - Wireless dpt.
    Sales office"
    MiaMail2.Send()
    Set MiaMail2 = Nothing
    
    Set objConn = Server.CreateObject("ADODB.Connection")
    str="Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("/mdb-database/utenti.mdb")
    objConn.Open str
    str=""
    stringa_1="INSERT INTO Email_newsletter ("'Values (
    for each variable_name in request.form
    	value=request.form(variable_name)
    	if ((not variable_name="button") ) then 'aggiungere OR ....
    		if (not variable_name="Privacy") then 
    		'response.write variable_name& " - " &value &"
    "
    		str=str+ variable_name +","
    		str2=str2 &"'"&value&"',"
    		end if
    	end if
    next
    'crea l'SQL INSERT 
    str=stringa_1 + Left(str,len(str)-1) + ") Values (" + Left(str2,len(str2)-1)+")"
    Set objRs = objConn.Execute (str)
    
    Response.Write ("<span class='testo'>Your message was received correctly, you will be contact as soon as possible.")
    %>

  2. #2
    Moderatore di ASP e MS Server L'avatar di Roby_72
    Registrato dal
    Aug 2001
    Messaggi
    19,559
    La configurazione non l'hai messa.
    Cerca nel forum uno script standard di CDOSYS e vedrai cosa manca.

    Roby

Permessi di invio

  • Non puoi inserire discussioni
  • Non puoi inserire repliche
  • Non puoi inserire allegati
  • Non puoi modificare i tuoi messaggi
  •  
Powered by vBulletin® Version 4.2.1
Copyright © 2025 vBulletin Solutions, Inc. All rights reserved.