Ciao a tutti
Vi spiego, devo linkare un singolo record di ogni tabella per aprire una pagina con i dettagli della persona
Il problema e' che non riesco a linkare un solo nome per volta perche' mi vengono evidenziati tutti i nomi presenti in quella tabella.
Il problema sta sicuramente nell'id che non mi riesce passare in ogni record.
Cosa ho fatto, in questo , ho creato 5 funzioni che richiamano 5 differenti query di selezione, per mettere le persone nella giusta area e con il giusto livello.
Ora che sono tutti ordinati correttamente devo poter linkare il loro nome per ottenere i loro dettagli in un altro file.
ecco il codice di questa pagina:
<%@LANGUAGE = VbScript%>
<%
dim strCode
strCode="innovatel"
dim intVolta
intVolta="0"
dim conn
Set Conn=Server.CreateObject("ADODB.Connection")
strConn="driver={Microsoft Access Driver (*.mdb)}; "
strConn=strConn & " DBQ=" & Server.MapPath("mdb/database.mdb")
strConn=strConn & ";pwd=" & strCode
strConn= "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("mdb/database.mdb")
conn.Open strConn
function estrainome(vin)
sql = "SELECT * FROM QueryArea1"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn ,3,3
do while not(rs.eof)
response.write rs.fields("Name") &"
"
rs.movenext
loop
rs.close
set rs=nothing
end function
function estraiposition(vin)
sql = "SELECT * FROM QueryArea1"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn ,3,3
do while not(rs.eof)
response.write rs.fields("Position")&"
"
rs.movenext
loop
rs.close
set rs=nothing
end function
function estrainome2(vin)
sql = "SELECT * FROM QueryArea2"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn ,3,3
do while not(rs.eof)
response.write rs.fields("Name") &"
"
rs.movenext
loop
rs.close
set rs=nothing
end function
function estraiposition2(vin)
sql = "SELECT * FROM QueryArea2"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn ,3,3
do while not(rs.eof)
response.write rs.fields("Position")&"
"
rs.movenext
loop
rs.close
set rs=nothing
end function
function estrainome3(vin)
sql = "SELECT * FROM QueryArea3"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn ,3,3
do while not(rs.eof)
response.write rs.fields("Name") &"
"
rs.movenext
loop
rs.close
set rs=nothing
end function
function estraiposition3(vin)
sql = "SELECT * FROM QueryArea3"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn ,3,3
do while not(rs.eof)
response.write rs.fields("Position")&"
"
rs.movenext
loop
rs.close
set rs=nothing
end function
function estrainome4(vin)
sql = "SELECT * FROM QueryArea4"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn ,3,3
do while not(rs.eof)
response.write rs.fields("Name") &"
"
rs.movenext
loop
rs.close
set rs=nothing
end function
function estraiposition4(vin)
sql = "SELECT * FROM QueryArea4"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn ,3,3
do while not(rs.eof)
response.write rs.fields("Position")&"
"
rs.movenext
loop
rs.close
set rs=nothing
end function
function estrainome5(vin)
sql = "SELECT * FROM QueryArea5"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn ,3,3
do while not(rs.eof)
response.write rs.fields("Name") &"
"
rs.movenext
loop
rs.close
set rs=nothing
end function
function estraiposition5(vin)
sql = "SELECT * FROM QueryArea5"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn ,3,3
do while not(rs.eof)
response.write rs.fields("Position")&"
"
rs.movenext
loop
rs.close
set rs=nothing
end function
%>
<script type="text/javascript">
function apri(url) {
newin = window.open(url,'title','scrollbars=auto,resizable =yes, width=400,height=400,status=no,location=no,toolbar =no');
}
</script>
<html>
<head>
<script language="JavaScript1.2">
<!--hide
var isnMonth = new
Array("Genuary","Febbrary","March","April","May"," Giugne","July","Agust","September","october","Nove mber","Dicember");
var isnDay = new
Array("Sunday","Monday","Tuesday","Wendsday","Thur sday","Friday","Saturday","Sunday");
today = new Date () ;
Year=today.getYear();
Date=today.getDate();
if (document.all)
document.title="Hi. Today \is: "+isnDay[today.getDay()]+", "+Date+" "+isnMonth[today.getMonth()]+" "+Year+""
//--hide-->
</script>
<title>Organization Chart</title>
<style type="text/css">
td, p, input, textarea { font-size: 10 px; font-family: Verdana; }
a { color: #000080; text-decoration: None; }
a:hover { color: #800000; text-decoration: Underline; }
.style1 {font-size: 8px}
.style2 {font-size: 10px; color:red}
</style>
</head>
<body>
<table width="779">
<tr>
<td colspan="2" rowspan="2" valign="top">
<table align="center" width="150" cellpadding="1" cellspacing="0" style="border: Solid 1px #000000;">
<tr bgcolor="#FF0000">
<td colspan="4"><font color="#000000">Directors</font></td>
</tr>
<tr bgcolor="#CCCCCC">
<td width="60" align="left">
Name
</td>
<td width="90" align="left">Position</td>
</tr>
<tr>
<td width="60" align="left"><span class="style2"><%estrainome(1)%></ span></td>
<td width="90" align="left"><span class="style2"><%estraiposition(1)%></span></td>
</tr>
</table></td>
<td height="22" colspan="5" valign="top">[img]images/barra.gif[/img]</td>
</tr>
<tr>
<td width="148" height="64" rowspan="1" valign="top">
<table align="center" width="150" cellpadding="1" cellspacing="0" style="border: Solid 1px #000000;">
<tr bgcolor="#FF0000">
<td colspan="4"><font color="#000000">Administration</font></td>
</tr>
<tr bgcolor="#CCCCCC">
<td width="60" align="left">
Name
</td>
<td width="90" align="left">Position</td>
</tr>
<tr>
<td width="60" align="left"><span class="style2"><%estrainome2(1)%></span></td>
<td width="90" align="left"><span class="style2"><%estraiposition2(1)%></span></td>
</tr>
</table></td>
<td width="148" rowspan="2" valign="top">
<table align="center" width="150" cellpadding="1" cellspacing="0" style="border: Solid 1px #000000;">
<tr bgcolor="#FF0000">
<td colspan="4"><font color="#000000">Sales</font></td>
</tr>
<tr bgcolor="#CCCCCC">
<td width="60" align="left">
Name
</td>
<td width="90" align="left">Position</td>
</tr>
<tr>
<td width="60" align="left"><span class="style2"><%estrainome3(1)%></span></td>
<td width="90" align="left"><span class="style2"><%estraiposition3(1)%></span></td>
</tr>
</table></td>
<td width="148" rowspan="3" valign="top"> <table align="center" width="150" cellpadding="1" cellspacing="0" style="border: Solid 1px #000000;">
<tr bgcolor="#FF0000">
<td colspan="4"><font color="#000000">Service</font></td>
</tr>
<tr bgcolor="#CCCCCC">
<td width="60" align="left">
Name
</td>
<td width="90" align="left">Position</td>
</tr>
<tr>
<td width="60" align="left"><span class="style2"><%estrainome5(1)%></span></td>
<td width="90" align="left"><span class="style2"><%estraiposition5(1)%></span></td>
</tr>
</table></td>
<td width="148" rowspan="3" valign="top">
<table align="center" width="150" cellpadding="1" cellspacing="0" style="border: Solid 1px #000000;">
<tr bgcolor="#FF0000">
<td colspan="4"><font color="#000000">Customer Service</font></td>
</tr>
<tr bgcolor="#CCCCCC">
<td width="60" align="left">
Name
</td>
<td width="90" align="left">Position</td>
</tr>
<tr>
<td width="60" align="left"><span class="style2"><%estrainome4(1)%></span></td>
<td width="90" align="left"><span class="style2"><%estraiposition4(1)%></span></td>
</tr>
</table></td>
<td width="1"></td>
</tr>
<tr>
<td width="115" rowspan="3" valign="top">[img]images/espressologo100.gif[/img]</td>
<td width="27" height="19"></td>
<td></td>
<td></td>
</tr>
<tr>
<td height="42"></td>
<td></td>
<td></td>
<td></td>
</tr>
<tr>
<td height="4"></td>
<td></td>
<td></td>
<td></td>
<td></td>
<td></td>
</tr>
<tr>
<td height="38"></td>
<td></td>
<td></td>
<td></td>
<td></td>
<td></td>
<td></td>
</tr>
</table>
</body>
</html>
<%
conn.Close
set conn = Nothing
%>
Grazie per l'attenzione, ciao
Rispondi quotando