[ASP] Cercasi Webmaster Con Buone Conoscenze

[Matrix789]

Buongiorno a tutti, sto realizzando uno script per un sito di aste al ribasso, ma ho qualche piccolo problema, che penso un buon programmatore possa risolvere in 10 minuti.
C'è qualcuno disposto gentilmente a darmi una mano?
Grazie 1000 a tutti.

[0rph3n]

condizioni contrattuali?

[Matrix789]

Scusami ma è una cosa abbastanza veloce, non avevo pensato ad una retribuzione sinceramente.
Al momento non dispongo neanche di soldi, potrei darti qualcosa una volta aperto il sito, oppure potrei darti dei crediti per partecipare alle aste..è l'unica cosa che posso fare..

[variabilepippo]

Se è una cosa da "10 minuti" puoi postare il problema sul forum, no?

[Matrix789]

Eh no, perchè dovrei postare 20 codici diversi..

[variabilepippo]

Eh no, perchè dovrei postare 20 codici diversi..

Ok, ma il "piccolo problema" sarà localizzabile in una piccola porzione di quel codice... Se cerchi un "collaboratore" e non un "aiuto da forum" forse dovresti scegliere un'altra sezione.

[Matrix789]

Allora posto il mio primo problema..
nn va la newsletter..il codice è:

<%

strconn="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.Mappath("mdb-database/lb.mdb") & ";Persist Security Info=False"
set cn= server.createobject("ADODB.connection")
Set rsc = Server.CreateObject("ADODB.Recordset")
cn.open strconn

sz_sql= "select * from utenti"
rsc.open sz_sql,cn
do while not rsc.eof
'*** invio mail
invioA = rsc("email")
invioDa = "Last Bid"
corpoMessaggio = request.form("txtMess")
Dim iMsg, iConf, Flds
'Crea l'oggetto email
Set iMsg = CreateObject("CDO.Message")
'Crea l'oggetto configurazione
Set iConf = CreateObject("CDO.Configuration")
'Impostazione delle configurazioni per l'invio remoto
Set Flds = iConf.Fields
Flds("http://schemas.microsoft.com/cdo/configuration/urlgetlatestversion") = True
'Spedizione: mittente, destinatario, oggetto, messaggio
mittente = "[email protected]"
destinatario = invioA
oggetto = request.form("txtOgg")
messaggio = corpoMessaggio
With iMsg
'Assegnazione delle configurazioni
Set .Configuration = iConf
.From = mittente
.To = destinatario
.Subject = oggetto
'Formato HTML
.HTMLBody = messaggio
'Formato testo (scegliere)
'.TextBody = messaggio
'Invia l'email
.Send()

end with

set Flds = Nothing
set iConf = Nothing
set iMsg = Nothing


rsc.movenext
loop
response.redirect("adm_gest_master.asp")



%>

Saluti.

[variabilepippo]

nn va la newsletter

Affermare "nn va la newsletter" è un po' come dire "la macchina mi dà dei problemi". Costringi meccanico, elettrauto, amico smanettone e tutti i possibili interessati a controllare OGNI aspetto della tua macchina.

Specifica in dettaglio COSA "non va della newsletter", così chi vuole aiutarti non sarà costretto a controllare ogni singola riga del codice a caccia del malfunzionamento ignoto.

[Matrix789]

Il problema è che il codice nn l'ho scritto io, io nn ci capisco niente, quindi non so proprio dove possa essere l'errore..

[variabilepippo]

Ok, però puoi descrivere il malfunzionamento... Ricevi messaggi di errore (quali?)? Qualcosa non funziona come ti aspetti (cosa/come?)? etc...

[Matrix789]

Si scusa hai ragione, mi sn dimenticato di postare l'errore.

"CDO.Message.1 error '80040220'

The "SendUsing" configuration value is invalid.

/admin_modulo_invia_newsletter.asp, line 39"

[Matrix789]

Non c'è nessuno che sa dirmi in cosa consiste l'errore?