Newsgroup: it.comp.www.asp
Titolo: Lettura dati dal database

Salve ho creato il mio file di input per caricare dati nel mio database
tutto funziona a meraviglia, adesso nasce spontanea la necessitą di leggere
il contenuto del database ho creato in html la mia maschera per richiamare
la tabella ma non funziona con gli esempi che ho trovato in internet,  dopo
varie soluzioni e vista la mia inesperienza (ho iniziato a "osservare" da
qualche giorno gli script in asp) mi sono arreso e chiedo a Voi la
spiegazione o addirittura un file gią creato da potere utilizzare con delle
piccole modifiche.
Il mio database č un semplice database del tipo nome cognome etc, inserisco
lo script che ritenevo potesse funzionare :
%@ Language = "VBScript"%>
<!-- #include file="adovbs.inc" -->
<%
dim conn
dim rs
dim pippo
set conn = server.createobject("adodb.connection")
conn.open strconn
set rs = server.createobject("adodb.recordset")
rs.open "tblAdoAdd", conn, 2, 2
rs.addnew
'--------------------------------------------------dati utente
rs("Nome") = request("Nome")
rs("Cognome") = request("Cognome")
rs("Nascita") = request("Nascita")
rs("Data") = request("Data")
rs("Residenza") = request("Residenza")
rs("Indirizzo") = request("Indirizzo")
rs("CodFisc") = request("CodFisc")
rs("e-mail") = request("e-mail")
rs("User") = request("User")
'-------------------------------------------------
randomize timer
codice="235yj234uty32u4ugytewquyrewqoireto8reit877ret87er8t8reiryti23ui2u34i
y32i54t243u5t2uy878trew78te8r7t87er87tre87tr543it2u3ti254"
f=int(rnd(1)*8)+1
Password =mid(codice,f,8)
rs("Password") = Password
'-------------------------------------------------
rs.update
rs.movelast
pippo = rs("ID")
rs.close
set rs= nothing
set conn = nothing
ora =time
data= date
'-------------------------------------------------
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>Risultato della Registrazione</title>
</head>
<body leftmargin="0" topmargin="0">
.......
</form>
    </td>
                  </tr>
                </table>
              </div>
              <p align="center">&nbsp;&nbsp;&nbsp;
            </td>
            </tr>
            </table>
        </center>
  </table>
</body>
</html>
Inoltre desidererei che mi venisse indicato un indirizzo internet dove
prelevare qualche documentazione utile per iniziare.
Grazie
Maurizio

la tabella ma non funziona con gli esempi che ho trovato in internet,
<ZAP>
Sarebbe MOOOLTO utile se tu dicessi quale errore ti viene ritornato e
dove.
Vedi 
www.aspitalia.com
Davide

Scusatemi riposto la mia richiesta in quanto non sono riuscito a vederlo per
problemi tecnici con il server di edisons.
"... Si grazie per la risposta. Hai ragione, purtroppo non ho molta
esperienza di
programmazione.
Ho rivisto il mio file e la risposta č sempre un messaggio di errore:
Errore di compilazione di Microsoft VBScript errore "800a0408"
Carattere non valido
/Lista.asp, riga 130
' se non troviamo nulla utilizziamo il testo precedentemente memorizzato e
^
Lo script in html di input č:
<html>
....
<body>
<FORM ACTION ="Lista.asp" METHOD="Post" NAME="Form">
<select NAME="Campo" size="1">
<option selected value="Cognome">Cognome</option>
<option value="Nome">Nome </option>
<option value="Nascita">Luogo di nascita </option>
<option value="Data">Data di nascita </option>
<option value="Residenza">Residenza </option>
<option value="Indirizzo">Indirizzo </option>
<option value="CodFisc">Codice Fiscale </option>
<option value="e-mail">E-Mail </option>
</select>
 <select>
<option selected value="Esatto">Ricerca esatta</option>
<option value="Contenuto">Contenuto in </option>
  ,
</FORM>
</select>
<input type="text" size="40" name="Testo" maxlenght="50">
<input type="submit" name="Cerca" value="Cerca">
<input type="reset" name="Pulisci" value="Pulisci">.
<p>&nbsp;</p>
</body>
</html>
Mentre per il file asp di risposta se corretto ho scritto cosě:
<%@ Language = "VBScript"%>
<% x = Request.Form("Var") %>
<%
Dim dbConn
Dim rs
Dim TestoSql
Dim TestoOriginale
Dim TestoDaCercare
Dim TipoRicerca
%>
<%
TestoOriginale = Request.Form("Testo")
TestoDaCercare = Replace(TestoOriginale,"'","''")
%>
<%
TipoRicerca = Request.Form("Tipo")
CampoRicerca = Request.Form("Campo")
%>
<%
TestoSql = "SELECT * FROM elenco"
Set dbConn = Server.CreateObject("ADODB.Connection")
dbConn .Open("elenco")
%>
<%
If CampoRicerca = "Nome" Then
    If TipoRicerca = "Contenuto" Then
        TestoSql = TestoSql & " WHERE Nome LIKE '%" & TestoDaCercare & "%'"
    else
        TestoSql = TestoSql & " WHERE Nome LIKE '" & TestoDaCercare & "%'"
    End If
End If
%>
<%
If CampoRicerca = "Cognome" Then
    If TipoRicerca = "Contenuto" Then
        TestoSql = TestoSql & " WHERE Cognome LIKE '%" & TestoDaCercare &
"%'"
    else
        TestoSql = TestoSql & " WHERE Cognome LIKE '" & TestoDaCercare &
"%'"
    End If
End If
%>
<%
If CampoRicerca = "Nascita" Then
    If TipoRicerca = "Contenuto" Then
        TestoSql = TestoSql & " WHERE Nascita LIKE '%" & TestoDaCercare &
"%'"
    else
        TestoSql = TestoSql & " WHERE Nascita LIKE '" & TestoDaCercare &
"%'"
    End If
End If
%>
<%
If CampoRicerca = "Data" Then
    If TipoRicerca = "Contenuto" Then
        TestoSql = TestoSql & " WHERE Data LIKE '%" & TestoDaCercare & "%'"
    else
        TestoSql = TestoSql & " WHERE Data LIKE '" & TestoDaCercare & "%'"
    End If
End If
%><%
If CampoRicerca = "Residenza" Then
    If TipoRicerca = "Contenuto" Then
        TestoSql = TestoSql & " WHERE Residenza LIKE '%" & TestoDaCercare &
"%'"
    else
        TestoSql = TestoSql & " WHERE Residenza LIKE '" & TestoDaCercare &
"%'"
    End If
End If
%>
<%
If CampoRicerca = "Indirizzo" Then
    If TipoRicerca = "Contenuto" Then
        TestoSql = TestoSql & " WHERE Indirizzo LIKE '%" & TestoDaCercare &
"%'"
    else
        TestoSql = TestoSql & " WHERE Indirizzo LIKE '" & TestoDaCercare &
"%'"
    End If
End If
%>
<%
If CampoRicerca = "CodFisc" Then
    If TipoRicerca = "Contenuto" Then
        TestoSql = TestoSql & " WHERE CodFisc LIKE '%" & TestoDaCercare &
"%'"
    else
        TestoSql = TestoSql & " WHERE CodFisc LIKE '" & TestoDaCercare &
"%'"
    End If
End If
%>
<%
If CampoRicerca = "e-mail" Then
    If TipoRicerca = "Contenuto" Then
        TestoSql = TestoSql & " WHERE e-mail LIKE '%" & TestoDaCercare &
"%'"
    else
        TestoSql = TestoSql & " WHERE e-mail LIKE '" & TestoDaCercare & "%'"
    End If
End If
%>
<%
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open TestoSql, dbConn
%>
<%
If rs.BOF and rs.EOF Then
' se non troviamo nulla utilizziamo il testo precedentemente memorizzato e
' costruiamo il messaggio:
%>
<h2 align="center">Nessuna occorrenza per <%=TestoOriginale%>!</h2>
<%Else%>
<%If Not rs.BOF Then
' costruiamo l'intestazione della tabella di visualizzazione
%>
<h3>Trovati i seguenti nominativi:</h3>
<table BORDER="0" width="100%" cellpadding="3" >
<tr>
<th>Cognome </font></th>
<th>Nome </font></th>
<th>Luogo di nascita </font></th>
<th>Data di nascita</font></th>
<th>Residenza </font></th>
<th>Indirizzo </font></th>
<th>Codice Fiscale </font></th>
<th>E-mail </font></th>
</tr>
<%
Do While Not rs.EOF
%>
<%
Cognome=replace(rs("Cognome"),"'","\'")
Nome=replace(rs("Nome"),"'","\'")
Nascita=replace(rs("Nascita"),"'","\'")
Data=replace(rs("Data"),"'","\'")
Residenza=replace(rs("Residenza"),"'","\'")
Indirizzo=replace(rs("Indirizzo"),"'","\'")
CodFisc=replace(rs("CodFisc"),"'","\'")
e-mail=replace(rs("e-mail"),"'","\'")
%>
<tr>
<td>
<a
href="javascript:Cognome_onClick('<%=Cognome%>','<%=Nome%>','<%=Nascita%>','
<%=Data%>',<%=Residenza%>',
'<%=rs("Indirizzo")%>,'<%=rs("CodFisc")%>','<%=rs("e-mail")%>')"><%=rs("Cogn
ome")%></a> </td>
<td><%=rs("Nome")%> </td>
<td><%=rs("Nascita")%> </td>
<td><%=rs("Data")%> </td>
<td><%=rs("Residenza")%> </td>
<td><%=rs("Indirizzo")%> </td>
<td><%=rs("CodFisc")%> </td>
<td><%=rs("e-mail")%> </td>
</tr>
<% rs.MoveNext
Loop
%>
</table>
<%End If%>
<%End If%>
<%
rs.Close
dbConn .Close
%>
<FORM name="frmCampi" id="frmCampi" method="POST" action="Esploso.asp">
<INPUT TYPE="hidden" NAME="Cognome" ID="Cognome">
<INPUT TYPE="hidden" NAME="Nome" ID="Nome">
<INPUT TYPE="hidden" NAME="Luogo di nascita" ID="Nascita">
<INPUT TYPE="hidden" NAME="Data di nascita" ID="Data">
<INPUT TYPE="hidden" NAME="Residenza" ID="Residenza">
<INPUT TYPE="hidden" NAME="Indirizzo" ID="Indirizzo" >
<INPUT TYPE="hidden" NAME="Codice Fiscale" ID="CodFisc" >
<INPUT TYPE="hidden" NAME="E-mail" ID="e-mail">
</FORM>
<SCRIPT LANGUAGE="javascript">
function Cognome_onClick(Cognome,Nome,Luogo di nascita,Data di
nascita,Residenza,Indirizzo,CodFisc,e-mail ) {
document.frmCampi.Cognome.value=Cognome;
document.frmCampi.Nome.value=Nome;
document.frmCampi.Nascita.value=Nascita;
document.frmCampi.Data.value=Data;
document.frmCampi.Residenza.value=Residenza;
document.frmCampi.Indirizzo.value=Indirizzo;
document.frmCampi.CodFisc.value=CodFisc;
document.frmCampi.e-mail.value=e-mail;
document.frmCampi.submit();
return true;
}
</SCRIPT>
Dove sto sbagliando?
Grazie per la risposta.
Maurizio
..."

^
Ho verificato il tuo codice e sul mio sistema funziona correttamente,
a parte che mi manca il database... verifica bene se quello che hai
scritto corrisponde, eventualmente prova ad eliminare parte della
selezione dei campi (parte del gruppo If/Then) e vedi cosa succede...
Davide