Form con Allegato

[sraddi]

Ciao ragà...

sono incapace e quindi preferisco chiedere a voi prima di avventurarmi in qualcosa che neanche mai ho sognato di saper fare:

Ho bisogno di fare una sezione privata con login (e fin qua ci sono)
all'interno dovrebbe esserci un form con possilità di allegare file.

Il contenuto del form dovrebbe andar scritto sullo spazio web anzicchè spedirlo per email e il file allegato lo stesso.

Ho pensato che usando un db si possono collegare i due file (.txt+allegato) in modo da poter visualizzare il testo del form con il link al file allegato.

Quindi, secondo me (io ignorante!)
una volta caricati il testo ed il file nel db
tramite unico form
basterebbe una query per visualizzare tramite web le singole
spedizioni con i file allegati ad ogni spedizione!

Non so se questo è possibile farlo con php oppure bisogna
farlo con asp.

Cmq. a me servirebbe sapere come spedire i dati ed il file allegato al db e poi come poter visualizzare la query con il testo del form e con il link all'allegato!!

GRAZIE A TUTTI

Salvo

[Roby_72]

Il processo che ti occorre è denominato "upload", nel forum trovi molti esempi.
Quello che ti consiglio di fare è di caricare nel db i dati del form ed il nome del file. Quest'utlimo invece lo inserisci in una cartella del server.

Roby

[sraddi]

ciao

questo è il codice che ho creato per visualizzare i dati:

<% 

Dim conn 
Set conn = Server.CreateObject("ADODB.Connection") 
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&Server.MapPath("pratiche.mdb") 

Dim rs 
Set rs = Server.CreateObject("ADODB.Recordset") 
rs.Open "SELECT * FROM [form]", conn 

Response.Write("<center><table width=100% border=1 bordercolor=gray><tr><td>

<center><font color=red>Pratica </font>") 
Response.Write("
<font color=black>") 
Response.Write(rs("NOME_COLLABORATORE")) 
Response.Write("
</font><font color=black>") 
Response.Write(rs("NOME_CLIENTE")) 
Response.Write("</font>

<font color=red>Allegato:</font>") 
Response.Write("</a>

<font size=10 color=black>") 

%> 

<a href=" 
<% Response.Write(rs("ALLEGATO"))%> 
" target="_blank"></a>   

<% 
Response.Write("</font>

</td></tr></table></center>") 
rs.MoveNext() 
%>

Sicuramente sbaglio qualcosa nel codice xkè mi restituisce un solo valore al quanto io ne ho 2 nel db.

Se noti la parte di codice in grassetto ti farai un'idea di quello che volevo fare ma che purtroppo non ha funzionato!!! Insomma, volevo che i dati di una certa colonna venissero visualizzati come link in modo da poterci cliccare sopra, ma non ci sono riuscito!!!

Se potete aiutarmi ve ne sarei grato!!! Ma che?! di piùùùùù!!!!!!

Grazie a tutti

[Roby_72]

<% 

Dim conn 
Set conn = Server.CreateObject("ADODB.Connection") 
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&Server.MapPath("pratiche.mdb") 

Dim rs 
Set rs = Server.CreateObject("ADODB.Recordset") 
rs.Open "SELECT * FROM [form]", conn 

Response.Write("<center><table width=100% border=1 bordercolor=gray><tr><td>

<center><font color=red>Pratica </font>") 
Response.Write("
<font color=black>") 
Response.Write(rs("NOME_COLLABORATORE")) 
Response.Write("
</font><font color=black>") 
Response.Write(rs("NOME_CLIENTE")) 
Response.Write("</font>

<font color=red>Allegato:</font>") 
Response.Write("</a>

<font size=10 color=black>") 

do while not rs.EOF 
%> 
" target="_blank">   
<% 
Response.Write("</font>

</td></tr></table></center>") 
rs.MoveNext() 
%>

Roby

[sraddi]

questo l'errore che mi ritrovo adesso:
Microsoft VBScript compilation error '800a03fb'

Expected 'Loop'

/connessione.asp, line 24

[Roby_72]

...
...
rs.MoveNext
Loop
%>

Roby

[sraddi]

cmq. grazie Roby

ma purtroppo anche con le tue modifiche ottengo gli sttessi risultati di prima: visualizzo solo il primo risultato e non visualizzo il link.

sono disperato....


grazie ancora!

[Roby_72]

" target="_blank"><%=(rs("ALLEGATO"))%>

Roby

[sraddi]

ROBY: Sei GRANDE!!!

ho risolto con entrambi i problemi facendo una query mirata ad una colonna e incusi i tuoi tips!

ecco il codice che viene richiamato da un form:

<%@ language=JSCRIPT %>

<%
var testo = String(Request.Form("keywords"));
if (testo=="" || testo=="undefined") Response.Redirect("index.asp");

var keywords = testo.split(" ");

var stringaDiConnessione = "driver={Microsoft Access Driver (*.mdb)};dbq=";
stringaDiConnessione += Server.MapPath("pratiche.mdb");
var conn = new ActiveXObject("ADODB.Connection");
conn.Open(stringaDiConnessione);

var sql = "SELECT * FROM [form] WHERE";
for (i=0;i<keywords.length;i++) {
  if (i>0) sql += "OR";
  sql += " [NOME_COLLABORATORE] LIKE '%" + keywords[i] + "%'";
}


var ris=conn.Execute(sql);

if (ris.EOF) Response.Write("


<CENTER><FONT COLOR=RED>IL NOME DEL COLLABORATORE NON RISULTA ESSERE NEL DATABASE. RIPROVA!</FONT>
</CENTER>");
else while (!ris.EOF) {
  Response.Write("<center><table width=100% border=1 bordercolor=gray><tr><td>

<center><font color=white>La Pratica ricercata è: : </font>");
  Response.Write("
<font color=red>Collaboratore: </font><font color=yellow>")
  Response.Write(ris("NOME_COLLABORATORE"));
  Response.Write("<font color=red> Provigione: </font><font color=yellow>")
  Response.Write(ris("PROVIGIONE"));
  Response.Write("%
</font><font color=red>Cliente: </font><font color=yellow>")
  Response.Write(ris("NOME_CLIENTE"));
  Response.Write("</font>

<font color=white>In allegato il seguente file:</font>")
  Response.Write("</a>

<font size=10 color=red>");
%> 
" target="_blank"><%=(ris("ALLEGATO"))%>
<%
  Response.Write("</font>

</td></tr></table></center>")
  ris.MoveNext();
}

conn.Close();
%>

Adesso ho un'altra domanda +tosto banale:

per fare l'inserimento di dati su .mdb faccio la stessa procedura di connessione e poi proseguo come per sql? INSERT INTO...??

grazie ancora Roby

[Roby_72]

Diciamo di sì anche se non ho ben capito...

Roby