codice:
<%@ Language=VBScript %>
<%' Check to see if there is any input
' if not display the form for input
u_input=request.form("u_input")
%>
<html>
<title>Script di selezione multipla record Policlinico</title>
<body bgcolor="#C0C0C0"<%if u_input = "" then%> onload="filtra(document.forms[0].u_input,'');"<%end if%>>
<%' Check to see if there is any input
' if not display the form for input
u_input=request.form("u_input")
if u_input = "" then %>
<form action="<%= request.servervariables("script_name")%>" method="post" target="_blank">
[img]Denominazione_Ambulatorio.jpg[/img]
<FORM>
<script language="Javascript">
<!--
function doSelectChange(el,dest) {
dest.value = el.options[el.selectedIndex].text
}
function LookupItem(el,dest) {
var curValue = el.value.toLowerCase()
var found = false
var index = dest.selectedIndex
var numOptions = dest.options.length
var pos = 0
// Repeat until found or end of list is reached
while ((!found) && (pos < numOptions)) {
// Do comparisons in lowercase
found = (dest.options[pos].text.toLowerCase().indexOf(curValue)==0)
// found = (dest.options[pos].text.toLowerCase().search(curValue)!=-1)
if (found)
index = pos
pos++
}
if (found) //Updated listbox
dest.selectedIndex = index
}
var arr = new Array()
arr[arr.length]=new Array('Accesso vascolare in dialisi - Chirurgia','Chirurgia accesso vascolare in dialisi');
arr[arr.length]=new Array('Adattabilità al buio - Studio della','Studio della adattabilità al buio');
arr[arr.length]=new Array('Aggregabilità piastrinica','Aggregabilità piastrinica');
arr[arr.length]=new Array('Agiografia con fluorescina o agioscopia oculare','Agiografia con fluorescina o agioscopia oculare');
arr[arr.length]=new Array('Agiografia digitale al verde di indocianina','Agiografia digitale al verde di indocianina');
arr[arr.length]=new Array('Agoaspirato 1','Agoaspirato 1');
arr[arr.length]=new Array('Agoaspirato 2','Agoaspirato 2');
arr[arr.length]=new Array('AISTOM (Centro)','Centro AISTOM');
arr[arr.length]=new Array('Alzheimer - Centro valutazione','Centro valutazione Alzheimer');
arr[arr.length]=new Array('Alzheimer e Parkinson (centro)','Centro Alzheimer e Parkinson');
arr[arr.length]=new Array('Alzheimer e Demenza','Demenza e Alzheimer');
arr[arr.length]=new Array('Allergologia professionale','Allergologia professionale');
arr[arr.length]=new Array('Allergologia clinica con diagnosi di laboratorio','Allergologia clinica con diagnosi di laboratorio');
arr[arr.length]=new Array('Allergologia - Visita di','Visita di Allergologia');
arr[arr.length]=new Array('Analisi di laboratorio specialistici','Analisi di laboratorio specialistici');
arr[arr.length]=new Array('Analisi (solo per ricoverati 24H su 24)','Analisi (solo per ricoverati 24H su 24)');
arr[arr.length]=new Array('Analisi (l 80% riservato ai pazienti interni, il 20% agli interni)','Analisi (l 80% riservato ai pazienti interni, il 20% agli interni)');
arr[arr.length]=new Array('Andrologia - Ambulatorio','Ambulatorio andrologia');
arr[arr.length]=new Array('Andrologia','Andrologia');
arr[arr.length]=new Array('Anestesiologica - Visite per','Visita Anestesiologica');
arr[arr.length]=new Array('Anestesiologica pre-operativa - Valutazione','Valutazione anestesiologica pre-operativa');
arr[arr.length]=new Array('Angiologia - Visita di','Visita di angiologia');
arr[arr.length]=new Array('Endoscopia - Chirurgia gen. ind. toracico','Endoscopia - Chirurgia gen. ind. toracico');
arr[arr.length]=new Array('Endoscopia - Chirurgia gen. dei trapianti e dell\'uremico','Endoscopia - Chirurgia gen. dei trapianti e dell\'uremico');
arr[arr.length]=new Array('Endoscopia - Chirurgia gen. ind. oncologico','Endoscopia - Chirurgia gen. ind. oncologico');
arr[arr.length]=new Array('Ecografia - Medicina interna e geriatria','Ecografia - Medicina interna e geriatria');
arr[arr.length]=new Array('Ecografia - Ostetricia e ginecologia','Ecografia - Ostetricia e ginecologia');
function filtra(lb,tt){
tt=tt.toLowerCase()
for(i=lb.options.length-1;i>=0;i--)
lb.options[i]=null
for(i=0;i<arr.length;i++)
if(tt=='' || (tt!='' && arr[i][0].toLowerCase().indexOf(tt))>=0){
lb.options[lb.options.length] = new Option(arr[i][0],arr[i][1])
}
}
// -->
</script>
<TABLE height="155"><TR><TD height="25">
<input type="text" name="LOOKUP" size="20" ONKEYUP="filtra(this.form.u_input,this.value)">
</TD><TD height="25"></TR><TR><TD height="122">
<select size="6" name="u_input" multiple ONCHANGE="doSelectChange(this,this.form.LOOKUP)">
</select><input type="submit" value="OK">
</TABLE>
</form>
<%' When there is input display the data
else
' Name of the Access db
accessdb="the_knowledge"
' Connection to the db
cn="DRIVER={Microsoft Access Driver (*.mdb)};"
cn=cn & "DBQ=" & server.mappath(accessdb)
' Create a server record set object
set rs = server.createobject("ADODB.Recordset")
' Create an sql statement that will select all the table elements
' A single selection will simply query for that year
' Multiple selections will be passed
' already comma delimited. Which is fine for numerics
' However for text queries uncomment the two lines below
' beginging with u_input and uncomment the sql query for alpha
' For text queries u_input will need to be comma delimited and in single quotes
' We replace the commas with ',' and change the sql to include single quotes around u_input
' u_input="Detroit,Pittsburgh"
' u_input=replace(u_input,",","','")
' The sql statement is written to the browser
' to demonstrate this.
'sql = "select * from t_knowledge where Applies_to in("& u_input &")" 'sql for numerics
' sql = "select * from Policlinico where Descrizione in('"& u_input &"')" 'sql for alpha
sql = "SELECT Policlinico.Descrizione, Policlinico.UO, Policlinico.Dipartimento, Policlinico.Medico_Responsabile, Ambulatorio.Ubicazione, Ambulatorio.Telefono, Ambulatorio.Giorno, Ambulatorio.Orario, Ambulatorio.Mod_Prenotazione FROM Policlinico INNER JOIN Ambulatorio ON Ambulatorio.Descrizione = Policlinico.Descrizione where Policlinico.Descrizione in('"& u_input &"')"
' Execute the sql
rs.Open sql, cn
%>
<table border=3 align=center>
<% ' Write out all the elements requested in the
' sql statement as table headers
for each element in rs.fields%>
<th><%= element.name %></th>
<% next
' End table headers %>
</tr>
<tr>
<% ' Write out all the values in the record
do while not rs.eof
for each element in rs.fields %>
<td align=right><%= rs(element.name) %></td>
<%
next
' end of record %>
</tr>
<% ' Move to the next record
rs.movenext
' Loop to the beginning
loop%>
</table>
<% end if 'End check for user input %>
</body>
Sciao 
Rispondi quotando
