Errore stringa !!!!

[gelova]

Non avendo dimestichezza con l'ASP non capisco dove sta l'errore il browser mi dice che c'è un errore nel file global.asa nel collegamento con il database ho controllato il file ed ho questo:

Sub Application_OnStart

':: app database connection string
application("cn_str") = "provider=microsoft.jet.oledb.4.0;data source=" & server.MapPath("database/database.mdb") & ""
'application("cn_str") = "provider=SQLOLEDB.1;server=serverip_or_address;da tabase=database_name;uid=userid;pwd=password"
application("cn_str") = "{RUNSETUP}"

':: initilize app variables from database
set cn = Server.CreateObject("ADODB.Connection")
on error resume next
cn.Open application("cn_str")
set rs = cn.Execute("SELECT * FROM AppSettings")
for each field in rs.Fields
application(field.Name) = field.Value
next
on error goto 0

End Sub

Considerate che utilizzo Access

[michele.santoro]

La riga da modificare è questa:

application("cn_str") = "provider=microsoft.jet.oledb.4.0;data source=" & server.MapPath("database/database.mdb")

database/database.mdb stanno rispettivamente per nome cartella in cui si trova il database e nome del database.
Se per esempio la cartella in cui si trova il tuo database si chiama mdb-database e il tuo database si chiama contatti.mdb devi cambiare la riga come di seguito:

application("cn_str") = "provider=microsoft.jet.oledb.4.0;data source=" & server.MapPath("mdb-database/contatti.mdb")

Se sei su server windows 2003 devi modificarla come segue:

application("cn_str") = "provider=microsoft.jet.oledb.4.0;data source=" & server.MapPath("/mdb-database/contatti.mdb")

E comunque vedi in che riga ti da l'errore e che tipo di errore

[gelova]

Si questo lo sapevo infatti essendo posizionato su Aruba avevo già modificato così:

application("cn_str") = "provider=microsoft.jet.oledb.4.0;data source=" & server.MapPath("/mdb-database/8690.mdb") 

naturalmente 8690.mdb è il database il problema sencondo me è che essendo possibile utilizzarlo sia con Access che con SQL ci sarebbe da togliere qualche apice, ma non so dove e quale !!!

[michele.santoro]

Originariamente inviato da gelova
Si questo lo sapevo infatti essendo posizionato su Aruba avevo già modificato così:

application("cn_str") = "provider=microsoft.jet.oledb.4.0;data source=" & server.MapPath("/mdb-database/8690.mdb") 

naturalmente 8690.mdb è il database il problema sencondo me è che essendo possibile utilizzarlo sia con Access che con SQL ci sarebbe da togliere qualche apice, ma non so dove e quale !!!

Prova a sostituirla con questa:

Application("cn_str") = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=URL=mdb-database/8690.mdb"

e comunque continuo a ripetere che dovresti guardare meglio il messaggio d'errore che sicuramente ti indica il numero della riga e il tipo di errore

[gelova]

Non funziona !!!!
Non dà un numero di errore ma porta ad un file error.asp dove è scritto:

If you are getting a connection error, you may need to re-install the files or verify the connection string in the 'global.asa' application file (D:\inetpub\webs\soluzionepcit\global.asa). Also, make sure that the IIS Web user account has read/write permission on the folder where the database is located. Contact your administrator or hosting support if you need assitance with setting permissions.

Cmq ripeto io ho scritto così:

application("cn_str") = "provider=microsoft.jet.oledb.4.0;data source=" & server.MapPath("/mdb-database/8690.mdb")

[gelova]

Ok questo l'ho risolto.....ora si presenta un'altro errore e cioè questo:

Server object error 'ASP 0177 : 800401f3'
Server.CreateObject Failed
/forapp/common/i_smtp.asp, line 122
800401f3

alla linea 122 abbiamo questo:

set mail = Server.CreateObject("SMTPsvg.Mailer")

consideriamo che il sito risiede su aruba, ed ancora in fondo abbiamo

case "cdosys"
    ':::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
    ' CDOSYS mail object Windows 2000+

    set mail = Server.CreateObject("CDO.Message")
    set mailcon = Server.CreateObject ("CDO.Configuration")

    'set and update fields properties
    With mailcon
    
    'SMTP server
    .Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = mailserver

    'SMTP port
    .Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25

    'CDO Port
    .Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

    'timeout
    .Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60 

[gelova]

[gelova]

case "cdosys"
    
    set mail = Server.CreateObject("CDO.Message")
    set mailcon = Server.CreateObject ("CDO.Configuration")

    'set and update fields properties
    With mailcon
    
    'SMTP server
    .Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.aruba.it"

    'SMTP port
    .Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25

    'CDO Port
    .Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

    'timeout
    .Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60

.Fields.Update 
    End With
    
    Set mail.Configuration = mailcon

    With mail
    .From = sender_address
    .To = recipient_address

    .Subject = subject
    .HTMLBody = body
end with
    
    '' send the mail
    on error resume next
    mail.Send
    if Err.Number = 0 then
        sendmail = 1
    else
        sendmail = -1
    end if
    on error goto 0
    
 response.write sendmail

    end select 

[michele.santoro]

Ho provato lo script e funziona perfettamente.
Probabilmente lo sbaglio sta a monte nella scelta del componente per l'invio.
Mi spiego meglio, potrebbe esserci un pannello di controllo da dove è possibile scegliere il componente da usare per l'invio e magari c'è impostato CDONTS o qualcosaltro e non CDOSYS.

[gelova]

Ascolta è impossibile che ti funzioni così comè almenochè hai cambiato i parametri

Set mail.Configuration = mailcon

With mail
.From = sender_address
.To = recipient_address

è qui che non capisco cosa devo inserire e come .