I forum Ricerca FAQ
Fai una domanda
Ultimo messaggio
martenz
martenz
il 17 maggio 2006 alle 21:58
24 messaggi dal 20 gennaio 2005
Ho un problemone....

ho un campo (bdati) dove l'amministratore scrive una o più province.

l'utente registrato può vedere solo le province che l'amministratore inserisce.

uso :

prima capisco chi è che si è loggato tramite il suo ID....

<% Dim Id
ID=Request.Querystring("ID")
Set rs = Server.CreateObject("ADODB.Recordset")
SQL = "SELECT * From login where Id= "&ID&" "
RS.Open SQL, MyConn %>

poi a secondo di quello che è scritto nel campo bdati devo far vedere o no il link

<%
if bdati = "bologna" then
response.write "<br><b><a href=""bdati/01_Bologna.doc"">01 Bologna</a>"
end if
if bdati = "modena" then
response.write "<a href=""bdati/01_Modena.doc"">01 Modena</a>"
end if
%>

in questo modo però funziona solo se scrivo una provincia.
se ne scrivo 2, staccate con uno spazio o con una virgola o scritte tutte attaccate non riesco a capire come fare.

una cosa di questo tipo esiste???
<% if bdati like "%bologna%" then %>
che mi cerca nel campo una parola tra tante ???

grazie in anticipo
RispondiQuoting
marcone1973
marcone1973
il 17 maggio 2006 alle 22:39
19 messaggi dal 23 settembre 2005
Esiste la funzione InStr che ti dice in che posizione si trova una stringa dentro un'altra.

es:

dim stringa_da_cercare

stringa_da_cercare = "bologna"

if InStr(bdati, stringa_da_cercare) > 0 then
Response.Write("quello che vuoi")
end if
...

Questo funziona per la tua esigenza ma dovresti ripetere il controllo if per ogni provincia, il che diventerebbe un po' pesante e poco gestibile.
Io suggerirei di usare un array di appoggio:

dim intCount, arrProvincie

arrProvincie = Array("bologna", "modena", "reggio emilia", "ferrara") 'Qui puoi aggiungerne quante vuoi

for intCount = 0 to UBound(arrProvincie, 1) 'Un ciclo per ogni provincia

if InStr(LCase(bdati), LCase(arrProvincia(intCount))) > 0 then 'LCase per porre tutte minuscolo
Response.Write("<br /><strong>" & arrProvincia(intCount)) 'Usa HTML valido
end if

next


ciao
RispondiQuoting
martenz
martenz
il 17 maggio 2006 alle 23:22
24 messaggi dal 20 gennaio 2005
Sei un mito....funziona alla perfezione...
Grazie 100000 !!!!
RispondiQuoting
marcone1973
marcone1973
il 17 maggio 2006 alle 23:41
19 messaggi dal 23 settembre 2005
Figurati.

Ma dimmi hai usato la versione "Pesante" o quella con l'array?
RispondiQuoting
martenz
martenz
il 18 maggio 2006 alle 20:30
24 messaggi dal 20 gennaio 2005
Quella Pesante...
Proverò anche quella con array


Ciao
RispondiQuoting

Torna al forum | Feed RSS

ASPItalia.com non è responsabile per il contenuto dei messaggi presenti su questo servizio, non avendo nessun controllo sui messaggi postati nei propri forum, che rappresentano l'espressione del pensiero degli autori.