connessione a database

[emilianom]

ciao ragazzi, sto tentando di installare una sezione per le news nel mio sito "che risiede su aruba" ma devo cambiare la stringa di connessione al database ...le ho provate tutte ma nn riesco a cavare un ragno dal buco :-)

questa è stringa originale


Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=C:\Inetpub\wwwroot\asp_collection\eng \news\db\db.mdb"
%>

tenendo conto che il database è nella cartella db che è nella cartella news che risiede nella root principale del web come dovrei fare??
grazie e un bacione a tutti

[maximum]

Usa questa:

<% 
'APERTURA CONNESSIONE CON IL DATABASE SENZA DSN
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("db\db.mdb")
%>

[emilianom]

nn va!! funziona solo una parte ma se cerco di aceedre ad altre pagine nn me le fa aprire..mi da errore dl server .

qualcuno conosce un sistema di news gia bello che probto per server aruba?

grazie ciao

[emilianom]

ciao maximum

mi sai dire perche mi da tale errore

Microsoft OLE DB Provider for ODBC Drivers error '80004005'

[Microsoft][ODBC Microsoft Access Driver] Cannot open database '(unknown)'. It may not be a database that your application recognizes, or the file may be corrupt.

/news/list.asp, line 32

questa è la stringa di connessione al db:

<%
'!!! START NEWS SCRIPT
dim cConn, RS2, sConn

Application.Lock

'<-- IMPORTANT: SET THE FOLLOWING LINE TO CORRESPOND WITH YOUR DATABASE'S FOLDER
Application("Site_DBPath")="D:\accounts\youraccoun t\www\db\"

Application.Unlock

sConn="DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Application("Site_DBPath") & "templates.mdb;"
set cConn=Server.CreateObject("ADODB.Connection")
cConn.Open sConn
set RS2=cConn.Execute("SELECT * FROM News ORDER BY Dates DESC")

do while RS2.EOF=False
%>
<font size="2" face="arial,sans-serif,verdana,times new roman"><font size="3">"><%=RS2("HeadLine")%></font>

<%=RS2("Dates")%>

Editor: "><%=RS2("Author")%>

<%=RS2("ShortText")%></font>



<%
RS2.MoveNext
loop
set RS2=Nothing
'### END NEWS SCRIPT
%>

[teorema55]

Il messaggio di errore è esplicito: lo script non riesce a trovare il database.

La stringa di connessione suggerita da maximum va bene, a condizione che il database si chiami "db.mdb" e che sia contenuto nella cartella "db" residente nella root del sito.

Nella configurazione standard su aruba, la cartella di default per i file di database è "mdb-database", l'unica comunque con il permesso di scrittura, indispensabile per una applicazione di gestione delle news.

In tal caso, la connessione potrebbe essere

Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("/mdb-database/db.mdb")

Verifica la posizione e il nome del database, e prova questa connessione, eventualmente sostituendo i nomi della cartella e del file corretti, se sono diversi.

A proposito di news, puoi trovare due script interessanti qui . Okkio: quello per le news scorrevoli è ancora tutto da testare!

[asva]

ma su aruba la cartella data base è mdb-database è li che devi inserire il tuo file

è l'unica insieme a public ad avere i corretti permessi di scrittura e lettura.

<%
percorso="/mdb-database/tuodb.mdb
set cn=server.CreateObject ("ADODB.Connection")
cn.connectionString="DRIVER={MICROSOFT ACCESS DRIVER (*.MDB)};"& "DBQ=" & SERVER.MapPath(percorso)
cn.open cn
%>

[emilianom]

ho risolto; la stringa è questa:

sConn="Driver={Microsoft Access Driver (*.mdb)};Dbq=" & Server.Mappath("\mdb-database\db.mdb")

ma adesso ho un nuovo problema: quando cerco di passare i parametri della pagina index.asp che è questa:


---------------------------
<%
'!!! START NEWS SCRIPT
dim cConn, RS2, sConn

Application.Lock

'<-- IMPORTANT: SET THE FOLLOWING LINE TO CORRESPOND WITH YOUR DATABASE'S FOLDER
Application("\mdb-database\db.mdb")="\mdb-database\"

Application.Unlock

sConn="Driver={Microsoft Access Driver (*.mdb)};Dbq=" & Server.Mappath("\mdb-database\db.mdb")
set cConn=Server.CreateObject("ADODB.Connection")
cConn.Open sConn
set RS2=cConn.Execute("SELECT * FROM News ORDER BY Dates DESC")

do while RS2.EOF=False
%>
<font size="2" face="arial,sans-serif,verdana,times new roman"><font size="3">"><%=RS2("HeadLine")%></font>




<%=RS2("Dates")%>

Editor: "><%=RS2("Author")%>

<%=RS2("ShortText")%></font>



<%
RS2.MoveNext
loop
set RS2=Nothing
'### END NEWS SCRIPT
%>

-------------------------------------------
alla pagina news.asp che è questa: -----------------------------------------------------

<%
'MAKE SURE THAT THERE IS AN INDEX
if request.querystring("index")="" then
response.write "<H1>Please do not access this page directly</h1>"
end if

'OPEN DATABASE
dim cConn, RS, MainText, sConn
sConn="Driver={Microsoft Access Driver (*.mdb)};Dbq=" & Server.Mappath("\mdb-database\db.mdb")
set cConn=Server.CreateObject("ADODB.Connection")
cConn.Open sConn
set RS=cConn.Execute("SELECT * FROM News WHERE Index=" & Request.Querystring("Index"))
MainText=Replace(RS("FullText"), chr(13) & chr(10), "
")
%>
<html>
<head>
<title>News - FreeFallSoft</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<BODY BGCOLOR="#FFFFFF" LINK="#FF0000" VLINK="FF0000" ALINK="#FF0000">


<table width="450" border="0" cellspacing="0" cellpadding="0" align="center">
<tr valign="top">
<td>
<div align="left"><font size="2" face="arial,sans-serif,verdana,times new roman"><font size="4"><%=RS("Headline")%></font>

<%=RS("Dates")%>

Editor: "><%=RS("Author")%>



<% if RS("Image")<>"" then %> [img]<%=RS([/img]" align="left" border="0">
<%end if
response.write MainText
%> </font></div>
</td>
</tr>
</table>

<%'!!!!!!!!!!!!!!!!!WARNING!!!!!!!!!!!!!!!!
'MODIFYING THE FOLLOWING CODE IS PROHIBITED BY FREEFALLSOFT'S LISCENSE AGREEMENT
'MODIFYING THIS CODE IS ILLEGAL AND MAY RESULT IN PROSECUTION
%>
<div align="center">


<font size="-2" face="Arial, Helvetica, sans-serif">News created with
PostFast v1.0

&copy; 2002 by FreeFall Soft</font></p>
</div>
<%'END MODIFICATION WARNING%>

<% set RS=Nothing
set cConn=Nothing
%>
---------------------------------------------------------

il browser mi da errore 500 del server :-((( perchè.. perchè..
forde è un bug di questo script????

[Roby_72]

Disabilita gli errori HTTP brevi dal menu Strumenti --> Opzioni Internet --> Avanzate di IE e guarda l'errore.

Roby

[emilianom]

fattooo, ho tolto gli include che nn trovava e adesso funziona perfettamente,
voglio inviare questo script ad html.it visto che senza di voi nn lo avrei mai fatto funzionare..
ciao

WWWWWWWWWWW HTML.IT