Probemino, ma più che altro una curiosità,
estraggo da un db una serie di nomi, la pagina che risulta mi mostra i dati uno di seguito all'altro intervallati da un carattere, ad esempio un trattino.
Vorrei fare in modo che il primo dato visualizzato sia formattato in maniera diversa da quelli che seguono (bold, colore, o altro)
Si può fare in maniera non troppo compessa?
Grazie per l'aiuto
Ciao accozzaglia,
conti i record e con una if formatti a piacimento solo il primo... posta il codice che lo modifichiamo
eccolo, è u pò lunghetto perchè il codice deve estrarre un nome dal db e metterlo in cima ai record visualizzati, e poi mostrarne altri.
In realtà io volevo mostrare l'intero DB con il nome inserito nella textbox del form evidenziato in mezzo agli altri, ma non ci sono riuscito.
Ti posto il codice, se non ti va di scorrerlo tutto, mi accontento di un esempio
<html>
<head>
<title>Connessione db firme</title>
</head>
<body>
<%
Dim varNome
varNome=request.querystring("txtNome")
Dim varCognome
varCognome=request.querystring("txtCognome")
Dim cn_controllo
Set cn_controllo = Server.CreateObject("ADODB.Connection")
cn_controllo.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&Server.MapPath("firme2.mdb")
Dim sql_controllo
sql_controllo= "SELECT nome, cognome FROM firme2 WHERE nome = '"&varNome&"' AND cognome = '"&varCognome&"'"
Dim rs
Set rs = cn_controllo.Execute(sql_controllo)
Dim trovato
if varNome = "" then
Response.Write("Inserire il Nome da cercare")
elseif varCognome = "" then
Response.Write("Inserire il Cognome da cercare")
elseif rs.eof then
trovato = false
rs.Close
cn_controllo.Close
Set rs = Nothing
Set cn_controllo = Nothing
Response.Write("La tua firma non c'é")
else
trovato = true
%>
<font size="2" face="Verdana, Arial, Helvetica, sans-serif" color="#CC0033">
Il Futuro che c'è, la raccolta firme
<%
Response.Write ("La tua firma c'è")
%>
</font>
<%
Dim cn
Set cn = Server.CreateObject("ADODB.Connection")
cn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&Server.MapPath("firme2.mdb")
Dim sql
sql= "SELECT nome, cognome FROM firme2 WHERE nome = '"&varNome&"' AND cognome = '"&varCognome&"' UNION ALL SELECT nome, cognome FROM firme2"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open SQL, cn, 3, 3
do while not rs.eof
%>
<font size="1" face="Verdana, Arial, Helvetica, sans-serif">
<%
=rs.fields("nome")%><%=rs.fields("cognome")%><font color="#CC0033">•</font>
<%
rs.move 40
loop
rs.close
cn.close
Set rs = nothing
Set cn = nothing
%>
<%
end if
%>
</body>
</html>
Grazie della collaborazione
esempio
codice:bolPrimo=true do while not rs.eof if bolPrimo then Response.Write "<font color=red>" & rs("campo") & "</font> - " bolPrimo=false else Response.Write rs("campo") & " - " end if rs.MoveNext loop
grazie,
ci provo
Perdonami ma non ho ben chiara una cosao forse più di una.
Se bolPrimo indica la variabile ricavata dalla textbox, in questo caso sarà sempre vera perchè la text box sarà sicuramente compilata, se invece non è una variabile che cos'è, indica il primo record del recordset?
Ciao, potresti fare anche cosi:
codice:if not rs.eof then Response.Write "<font color=red>" & rs("campo") & "</font> - " rs.MoveNext end if do while not rs.eof Response.Write rs("campo") & " - " rs.MoveNext loop
Jupy
bolPrimo indica semplicemente che stai trattando il *primo* record del recordset (mai nome di variabile fu piu' azzeccato!).Originariamente inviato da accozzaglia
Perdonami ma non ho ben chiara una cosao forse più di una.
Se bolPrimo indica la variabile ricavata dalla textbox, in questo caso sarà sempre vera perchè la text box sarà sicuramente compilata, se invece non è una variabile che cos'è, indica il primo record del recordset?
Permessi di invio
Rispondi quotando