Problemi nella stampa a video

[Artgallery75]

Ho questo file:

http://www.bardellosport.com/a.asp
sto cercando di collegarlo ad un database che si trova nella cartella fpdb e si chiama smorfia_a.mdb.
E' possibile effettuare un collegamento ad ogni singola riga?

Io ho inserito questo codice all'inizio della pagina:

<%@ Language=VBScript %>
<% Response.Buffer = True %>
<%
a = Request.Form("a")

If Trim(a) = "add" then

'Connessione al database
Set cn = Server.CreateObject("ADODB.Connection")
cn.Open "provider=microsoft.jet.oledb.4.0;data source=" & Server.MapPath("\fpdb\smorfia_a.mdb")

Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "a", cn, 3, 3
rs.AddNew
rs("descrizione") = Trim(Request.Form("descrizione"))
rs("numero1") = Trim(Request.Form("numero1"))
rs("numero2") = Trim(Request.Form("numero2"))
rs.Update
rs.Close
set rs = Nothing
cn.Close
set cn = Nothing

End if
%>

E questo nella prima cella: <%=Request.Form("descrizione")%>
Questo nella seconda: <%=Request.Form("numero1")%>
Questo nella terza: <%=Request.Form("numero2")%>

Perchè non va?

Aiutooooo Non posso mica scrivere tutta la smorfia facendo copia e incolla!!!!

[Roby_72]

Io non ho bene capito... :master:

Roby

[Artgallery75]

Ho un database chiamato smorfia_a.mdb con all'interno una tabella chiamata "a" e vorrei far stampare a monitor tutti i valori di questa tabella (inizialmente era fatta con excel). La tabella è composta da tre colonne chiamate rispettivamente descrizione, numero1 e numero2. E' possibile con un semplice script richiamare il tutto e farlo vedere a video senza dover trascrivere tutto a mano?

Fammi sapere se sono stato chiaro.

Ciao e grazie

[Roby_72]

Si ma con il tuo script precedente tentavi di fare tutt'altro...

<%
'Connessione al database 
Set cn = Server.CreateObject("ADODB.Connection") 
cn.Open "provider=microsoft.jet.oledb.4.0;data source=" & Server.MapPath("\fpdb\smorfia_a.mdb") 

strSQS="SELECT * FROM a"
set rs = server.createobject("adodb.recordset")
rs.open strSQL, cn
if not rs.eof then
do while not rs.eof
response.write(rs("descrizione") &" ")
response.write(rs("numero1") &" ")
response.write(rs("numero2") &"
")
rs.MoveNext
Loop
end if
rs.close
set rs=nothing

cn.Close
set cn = nothing
%>

Roby

[Artgallery75]

Perchè ora mi da imp vis pag?

Ho inserito il codice in questo modo:

<%@ Language=VBScript %>
<% Response.Buffer = True %>
<%
'Connessione al database
Set cn = Server.CreateObject("ADODB.Connection")
cn.Open "provider=microsoft.jet.oledb.4.0;data source=" & Server.MapPath("\fpdb\smorfia_a.mdb")

strSQS="SELECT * FROM a"
set rs = server.createobject("adodb.recordset")
rs.open strSQL, cn
if not rs.eof then
do while not rs.eof
response.write(rs("descrizione") &" ")
response.write(rs("numero1") &" ")
response.write(rs("numero2") &"
")
rs.MoveNext
Loop
end if
rs.close
set rs=nothing

cn.Close
set cn = nothing
%>

E ho lasciato questo nelle prime tre celle:

<td width="650" height="16">
<p style="margin-left: 10"><span style="font-size: 9pt"><%=Request.Form("descrizione")%></span></td>
<td width="233" height="16" align="center"><%=Request.Form("numero1")%></td>
<td width="233" height="16" align="center"><%=Request.Form("numero2")%></td>

Cosa sbaglio?

Ciao e grazie lo stesso

[Roby_72]

strSQL="SELECT * FROM a"

Roby

[Artgallery75]

La riga che mi dici di inserire è già presente nel codice!!!

Ho molta furia quindi sto perdendo troppo tempo e mi toccherà trascrivere tutto a mano!!!

Ciao e grazie lo stesso

[Roby_72]

Controlla le due righe carattere per carattere e noterai una differenza...

Roby

[Artgallery75]

Ok ho capito, ora provo!!!

[Artgallery75]

Non capisco, non va!!!!

Perchè?

Basta sto perdendo troppo tempo, il cliente non può aspettare.

Grazie lo stesso