Ciao a tutti, stò impazzendo per questo link
Questo è un link con lightbox
che dovrei andare ad inserire in questa select case:
codice:
dim nfile,ext
dim i,j,nomeico
i=0
nfile =Rs1.Fields("nome_file")
do
i=instr(i+1,nfile,".")
if i<>0 then j=i
loop while i<>0
ext=right(nfile,len(nfile)-j)
select case ucase(ext)
case "JPG"
nomeico="'archivi/" & request.querystring("table") & "/" & RS("Ragionesociale") & "/" & Rs1.fields("nome_file")&"'"
case "GIF"
nomeico="'archivi/" & request.querystring("table") & "/" & RS("Ragionesociale") & "/" & Rs1.fields("nome_file")&"'"
case "PNG"
nomeico="'archivi/" & request.querystring("table") & "/" & RS("Ragionesociale") & "/" & Rs1.fields("nome_file")&"'"
case "TIF"
nomeico="'archivi/" & request.querystring("table") & "/" & RS("Ragionesociale") & "/" & Rs1.fields("nome_file")&"'"
case "PDF"
nomeico="archivi/pdf.jpg"
case "XLS"
nomeico="archivi/excel.jpg"
case "DOC"
nomeico="archivi/word.jpg"
case else
nomeico="archivi/nofoto.png"
end select
else
nomeico="'img/mercatoamico.gif'"
end if
%> <img src=<%=nomeico%> alt="" name="Anteprima" width="120" height="120" style="border:4px solid #FF6600;">
<td width="9" rowspan="7">
<td height="28" colspan="3"><h3><%=RS("Ragionesociale")%></h3></td>
</tr>
<tr>
<%
dim azi
azi = RS("Ragionesociale")
%>
<td height="23" colspan="3"><h4>
<%
miaVar = idfoto
miaVar = Replace(miaVar, "&#8242;", chr(145))
miaVar = Replace(miaVar, "<br>", " ")
'Response.Write miaVar
%>
Comune di <%=RS("comune")%></h4></td>
</tr>
<tr>
<%
dim idlink
idlink=RS("id")
%>
<td width="891" height="18"><h4><%=RS("indirizzo")%>, <%=RS("cap")%></h4></td>
<td width="131" rowspan="4"><h4 align="right"><a href="lm3.asp?azienda=<%=RS("Ragionesociale")%>&id=<%=(idlink)%>">Cosa
producono </a></h4></td>
<td width="90" rowspan="4"><div align="right">[img]Img/icoprodotti.gif[/img]</div></td>
</tr>
<tr>
<td height="9"><h4>Tel: <%=RS("tel")%>- Fax: <%=RS("fax")%></h4></td>
</tr>
<tr>
<td height="5"><h4>Mail: "><%=RS("mail")%></h4></td>
</tr>
<tr>
<td height="5"><h4>Web: " target="_blank"><%=RS("web")%> </h4></td>
</tr>
<%
iRecordsShown = iRecordsShown + 1
RS.MoveNext
Loop
%>
</table>
<%
End If
%>
</p>
<%
Dim sc, cn, rs, contatore
sc = ""
sc = sc & "driver={Microsoft Access Driver (*.mdb)};dbq="
sc = sc & Server.MapPath("mdb-database/aziende.mdb")
Set cn = Server.CreateObject("ADODB.Connection")
Set rs2 = Server.CreateObject("ADODB.Recordset")
cn.Open sc
%>
<table border="0"><tr>
<%
contatore = 0
rs2.Open "SELECT * FROM upload WHERE azienda='" & idfoto &"' ORDER BY id ASC", cn, 1
While rs2.EOF = False
If contatore = 5 Then
contatore = 0
Response.Write "</tr><tr>"
End If
%>
<%
IF NOT ( Rs2.EOF AND Rs2.BOF ) THEN
dim nfile1,ext1
dim o,w,nomeico1
o=0
nfile1 =Rs2.Fields("nome_file")
do
o=instr(o+1,nfile1,".")
if o<>0 then w=o
loop while o<>0
ext1=right(nfile1,len(nfile1)-w)
select case ucase(ext1)
case "JPG"
'response.end
nomeico1="'archivi/" & request.querystring("table") & "/" & (azi) & "/" & Rs2.fields("nome_file")&"'"
case "GIF"
nomeico1="'archivi/" & request.querystring("table") & "/" & (azi) & "/" & Rs2.fields("nome_file")&"'"
case "PNG"
nomeico1="'archivi/" & request.querystring("table") & "/" & (azi) & "/" & Rs2.fields("nome_file")&"'"
case "TIF"
nomeico1="'archivi/" & request.querystring("table") & "/" & (azi) & "/" & Rs2.fields("nome_file")&"'"
case "PDF"
nomeico1="archivi/pdf.jpg"
case "XLS"
nomeico1="archivi/excel.jpg"
case "DOC"
nomeico1="archivi/word.jpg"
case else
nomeico1="archivi/nofoto.png"
end select
else
nomeico2="'img/mercatoamico.png'"
end if
Devo fare in modo però che lightbox non venga richiamato nel momento in cui i case sono file che non sono grafici ma pdf ecc. ecc.
E' possibile secondo voi trasformare una sezione di html in variabile e richiamarla a seconda della case select?