Hei har et lite problem vistnok ennå kan du se på det? Skal jeg lukke dette spm og opprette et nytt?
Test dette!
optionex.js:
var NS4 = (document.layers)?true:false;
var IE4 = (document.all)?true:false;
function _struct(child,childcaption,parent){
this.child = child;
this.childcaption = childcaption;
this.parent = parent;
}
function _addobject(child,childcaption,parent){
var obj = new _struct();
obj.child = child;
obj.childcaption = childcaption;
obj.parent = parent;
return(obj);
}
function insertEntry(child,childcaption,parent){
if(child.length > 0 ){
for(var i=0;i<this.length;i++)
if(this.items[i].child == child)
return;
this.items[this.length++] = _addobject(child,childcaption,parent);
}
}
function OptionCollection(){
this.length=0;
this.items = new Object();
this.Add=insertEntry
}
function clearSelect(oSelect){
var iCount=0;
if(!oSelect) return;
iCount = oSelect.options.length;
for(var i=0;i<iCount;i++){
if(IE4)
oSelect.options.remove(0);
else if(NS4)
oSelect.options[0]=null;
}
}
function addOptions(oSelect,olist,parent){
var elOption;
var idxSelect=0;
//check arguments.
if((!olist) || (!oSelect))return;
if(parent.length <= 0) return;
//now looop through all the list items only entering relevant options.
clearSelect(oSelect);
//add a blank list
elBlankOption = new Option();
elBlankOption.text = "";
if(NS4) oSelect.options[0] = elBlankOption
else if(IE4) oSelect.options.add(elBlankOption,0)
elBlankOption.value = "";
for(var i=0;i<olist.length;i++){
//only the child entries of the parent
if(olist.items[i].parent == parent){
elOption = new Option();
//now IE and NS have a different way to handle object creation.
if(NS4){
elOption.value = olist.items[i].child
elOption.text = olist.items[i].childcaption
oSelect.options[idxSelect] = elOption
}else if(IE4){
elOption.value = olist.items[i].child
elOption.text = olist.items[i].childcaption
oSelect.options.add(elOption,idxSelect)
}
idxSelect++;
delete(elOption);
}
}
}
function clearOptions(szSelect,szForm){
if(szSelect.length <= 0 || szForm.length <=0)
alert("error:clearOption must pass arguments");
if(IE4)
clearSelect(document.all.item(szSelect));
else if(NS4)
clearSelect(eval('document.' + szForm + '.' + szSelect));
}
function listAllOptions(szSelect,szForm,olist){
var elOption;
var idxSelect=0;
var oSelect = new Object();
//check arguments.
if(!olist)return;
if(IE4)
oSelect = document.all.item(szSelect);
else if(NS4)
oSelect = eval('document.' + szForm + '.' + szSelect);
if(!oSelect)return;
//now looop through all the list items entering all
clearSelect(oSelect);
for(var i=0;i<olist.length;i++){
elOption = new Option();
//now IE and NS have a different way to handle object creation.
if(NS4){
elOption.value = olist.items[i].child
elOption.text = olist.items[i].childcaption
oSelect.options[idxSelect] = elOption
}else if(IE4){
elOption.value = olist.items[i].child
elOption.text = olist.items[i].childcaption
oSelect.options.add(elOption,idxSelect)
}
idxSelect++;
delete(elOption);
}
}
function UpdateSelect(szSelect,szForm,szParent,olist){
if(IE4)
addOptions(document.all.item(szSelect),olist,szParent);
else if(NS4)
addOptions(eval('document.' + szForm + '.' + szSelect),olist,szParent);
}
asp fil:
<html>
<head>
<title>Opprettelse av visitkort for <%=strKunde%></title>
<link REV="made" href="mailto:morten@idesign.no">
<meta name="Abstract" content="Idesign AS - profesjonelle internettløsninger og publiseringsverktøy">
<meta HTTP-EQUIV="Content-Type" content="text/html; charset=iso-8859-1">
<meta name="Author" content="Idesign AS - Morten Marius Cyrèn">
<meta name="Copyright" content="Idesign AS - Morten Marius Cyrèn">
<meta name="Publisher" content="Idesign AS - Morten Marius Cyrèn">
<META NAME="ROBOTS" CONTENT="NOINDEX, NOFOLLOW">
<LINK rel="stylesheet" type="text/css" href="../css/stylesheet.css">
<!--#include file ="../include/script.asp"-->
<SCRIPT language=Javascript src="script/optionex.js"></SCRIPT>
<SCRIPT language=Javascript>
var oAvdeling = new OptionCollection();
oAvdeling.Add('tom|tom','Ingen under avdelinger','Rektor');
oAvdeling.Add('tom|tom','Ingen under avdelinger','Prorektor');
oAvdeling.Add('tom|tom','Ingen under avdelinger','Administrerende direktør');
oAvdeling.Add('tom|tom','Ingen under avdelinger','Sekretariatet');
oAvdeling.Add('tom|tom','Ingen under avdelinger','Informasjonsavdelingen');
oAvdeling.Add('tom|tom','Ingen under avdelinger','Økonomi- og personalavdelingen');
oAvdeling.Add('tom|tom','Ingen under avdelinger','IT-avdelingen');
oAvdeling.Add('tom|tom','Ingen under avdelinger','Studie- og forskningsadministrativ avdeling');
oAvdeling.Add('tom|tom','Ingen under avdelinger','Teknisk avdeling');
oAvdeling.Add('tom|tom','Ingen under avdelinger','Biblioteket');
oAvdeling.Add('Administrasjon|Administration','Administrasjon','Institutt for basalfag og akvamedisin');
oAvdeling.Add('Seksjon for akvamedisin og ernæring|Section for Aquatic Medicine and Nutrition','Seksjon for akvamedisin og ernæring','Institutt for basalfag og akvamedisin');
oAvdeling.Add('Seksjon for biokjemi og fysiologi|Section for Biochemistry and Physiology','Seksjon for biokjemi og fysiologi','Institutt for basalfag og akvamedisin');
oAvdeling.Add('Seksjon for genetikk|Section for Genetics','Seksjon for genetikk','Institutt for basalfag og akvamedisin');
oAvdeling.Add('Seksjon for anatomi og patologi|Section for Anatomy and Patology','Seksjon for anatomi og patologi','Institutt for basalfag og akvamedisin');
oAvdeling.Add('Sentrallaboratoriet|Central Laboratory','Sentrallaboratoriet','Institutt for basalfag og akvamedisin');
oAvdeling.Add('Administrasjon|Administration','Administrasjon','Institutt for mattrygghet og infeksjonsbiologi');
oAvdeling.Add('Seksjon for farmakologi og toksikologi|Section for Pharmacology and Toxicology','Seksjon for farmakologi og toksikologi','Institutt for mattrygghet og infeksjonsbiologi');
oAvdeling.Add('Seksjon for mikrobiologi, immunologi og parasittologi|Section for Microbiology, Immunology and Parasittology','Seksjon for mikrobiologi, immunologi og parasittologi','Institutt for mattrygghet og infeksjonsbiologi');
oAvdeling.Add('Seksjon for arktisk veterinærmedisin|Section for Arctic Veterinary Medicine','Seksjon for arktisk veterinærmedisin','Institutt for mattrygghet og infeksjonsbiologi');
oAvdeling.Add('Seksjon for mattrygghet|Section for Food Safety','Seksjon for mattrygghet','Institutt for mattrygghet og infeksjonsbiologi');
oAvdeling.Add('Administrasjon|Administration','Administrasjon','Institutt for produksjonsdyrmedisin');
oAvdeling.Add('Stasjonærklinisk seksjon|Section for Stationary Clinic','Stasjonærklinisk seksjon','Institutt for produksjonsdyrmedisin');
oAvdeling.Add('Seksjon for besetningstjenester|Section for Herd Health and Field Service','Seksjon for besetningstjenester','Institutt for produksjonsdyrmedisin');
oAvdeling.Add('Seksjon for småfeforskning|Section for Small Ruminant Diseases','Seksjon for småfeforskning','Institutt for produksjonsdyrmedisin');
oAvdeling.Add('Teknikerteam|Support staff','Teknikerteam','Institutt for produksjonsdyrmedisin');
oAvdeling.Add('Administrasjon|Administration','Administrasjon','Institutt for sports- og familiedyrmedisin');
oAvdeling.Add('Seksjon for smådyrsykdommer|Section for Small Animal Clinical Sciences','Seksjon for smådyrsykdommer','Institutt for sports- og familiedyrmedisin');
oAvdeling.Add('Seksjon for hestesjukdommer|Section for Equine Medicine','Seksjon for hestesjukdommer','Institutt for sports- og familiedyrmedisin');
oAvdeling.Add('Seksjon for radiologi|Section for Radiology','Seksjon for radiologi','Institutt for sports- og familiedyrmedisin');
oAvdeling.Add('Teknikerteam|Support staff','Teknikerteam','Institutt for sports- og familiedyrmedisin');
oAvdeling.Add('tom|tom','Ingen under avdelinger','Forsøksdyravdelingen');
</SCRIPT>
</head>
<body background="../images/background/background.gif">
<center>
<table border="0" cellpadding="0" cellspacing="0" width="95%" height="95%" >
<tr>
<td align="center" valign="top">
<br>
<table border="0" cellpadding="2" cellspacing="0" width="640">
<tr>
<td class="xptextheaderbig" bgcolor="003399">
[ Opprettelse av visitkort for <%=strKunde%> - Steg 1 av 2 ]
</td>
</tr>
<tr>
<td class="xptext" bgcolor="#EEEEEE"><font color="#000000"> <script type="text/javascript">document.write(date + ". " + lmonth + " " + year); </script></font></td>
</tr>
</table>
<br>
<form method="get" action="createcard.asp?Action=create" name="SaveFormCard" ID="SaveFormCard">
<INPUT type="hidden" id="txtIP" name="txtIP" value="<%=Request.ServerVariables("REMOTE_ADDR")%>">
<table width="640" border="0" cellspacing="1" cellpadding="2" bgcolor="999999">
<tr height="16">
<td class="xptextheader" colspan="2"> <b>Legg inn brukerdata <font color="#ff0000"><%=Session("MSG")%></b></font></td>
</tr>
<tr bgcolor="#EEEEEE" height="16">
<td class="xptextrap" width="120"> Institutt:</td>
<td class="xptextrap"width="520">
<select name="txtInstNO" onchange="s=this.selectedIndex;v=this.value.split('|');this.options[s].value=v[0];this.form.txtInstENG.value=v[1];UpdateSelect('txtDepartmentNO','SaveFormCard',this.options[this.selectedIndex].value,oAvdeling);" class="formtxtfield" style="WIDTH: 322px;">
<option value="|">Velg institutt/funksjon</option>
<option value="Rektor|Rector">Rektor</option>
<option value="Prorektor|Prorector">Prorektor</option>
<option value="Administrerende direktør|Director General">Administrerende direktør</option>
<option value="Sekretariatet|Administration Office">Sekretariatet</option>
<option value="Informasjonsavdelingen|Communications Department">Informasjonsavdelingen</option>
<option value="Økonomi- og personalavdelingen|Department of Finances and Human Resources">Økonomi- og personalavdelingen</option>
<option value="IT-avdelingen|IT Department">IT-avdelingen</option>
<option value="Studie- og forskningsadministrativ avdeling|Department of Academic Affairs and Research Administration">Studie- og forskningsadministrativ avdeling</option>
<option value="Teknisk avdeling|Technical Department">Teknisk avdeling</option>
<option value="Biblioteket|Library">Biblioteket</option>
<option value="Institutt for basalfag og akvamedisin|Department of Basic Sciences and Aquatic Medicine">Institutt for basalfag og akvamedisin</option>
<option value="Institutt for mattrygghet og infeksjonsbiologi|Department of Food Safety and Infection Biology">Institutt for mattrygghet og infeksjonsbiologi</option>
<option value="Institutt for produksjonsdyrmedisin|Department of Production Animal Clinical Sciences">Institutt for produksjonsdyrmedisin</option>
<option value="Institutt for sports- og familiedyrmedisin|Department of Companion Animal Clinical Sciences">Institutt for sports- og familiedyrmedisin</option>
<option value="Forsøksdyravdelingen|Laboratory Animal Unit">Forsøksdyravdelingen</option>
</select>
<input id="txtInstENG" name="txtInstENG" value="" class="formtxtfield" disabled>
</td>
</tr>
<tr bgcolor="#FFFFFF" height="16">
<td class="xptextrap"> Avdeling:</td>
<td class="xptextrap">
<select name="txtDepartmentNO" onchange="s=this.selectedIndex;v=this.value.split('|');this.options[s].value=v[0];this.form.txtDepartmentENG.value=v[1];UpdateSelect('carcolors','SaveFormCard',this.options[this.selectedIndex].value);" class="formtxtfield" style="WIDTH: 322px;">
<option value="">Velg Avdeling</option>
<option value=""></option>
<option value=""></option>
<option value=""></option>
</select>
<input id="txtDepartmentENG" name="txtDepartmentENG" value="" class="formtxtfield" disabled>
</td>
</tr>
<tr bgcolor="#EEEEEE" height="16">
<td class="xptextrap"> Stilling (Norsk):</td>
<td class="xptextrap"> <INPUT type="text" ID="txtTitleNO" NAME="txtTitleNO" value="<%=Session("TitleNO")%>" size="51" maxlength="50" class="formtxtfield"></td>
</tr>
<tr bgcolor="#FFFFFF" height="16">
<td class="xptextrap"> Stilling (Engelsk):</td>
<td class="xptextrap"> <INPUT type="text" ID="txtTitleENG" NAME="txtTitleENG" value="<%=Session("TitleENG")%>" size="51" maxlength="50" class="formtxtfield"></td>
</tr>
<tr bgcolor="#EEEEEE" height="16">
<td class="xptextrap" width="120"> Fullt navn:</td>
<td class="xptextrap"width="520"> <INPUT type="text" ID="txtFullname" NAME="txtFullname" value="<%=Session("FullName")%>" size="51" maxlength="50" class="formtxtfield"></td>
</tr>
<tr bgcolor="#FFFFFF" height="16">
<td class="xptextrap"> E-post:</td>
<td class="xptextrap"> <INPUT type="text" ID="txtMail" NAME="txtMail" value="<%=Session("Mail")%>" size="51" maxlength="50" class="formtxtfield"></td>
</tr>
<tr bgcolor="#EEEEEE" height="16">
<td class="xptextrap"> Adresse:</td>
<td class="xptextrap"> <INPUT type="text" ID="txtAdress" NAME="txtAdress" value="<%=Session("Adress")%>" size="51" maxlength="50" class="formtxtfield"></td>
</tr>
<tr bgcolor="#FFFFFF" height="16">
<td class="xptextrap"> Postboks (Nummer):</td>
<td class="xptextrap"> <INPUT type="text" ID="txtPostBox" NAME="txtPostBox" value="<%=Session("PostBox")%>" size="51" maxlength="5" class="formtxtfield"></td>
</tr>
<tr bgcolor="#EEEEEE" height="16">
<td class="xptextrap"> Postnr:</td>
<td class="xptextrap">
<table width="520" border="0" cellspacing="0" cellpadding="0">
<tr>
<td class="xptextrap" width="60">
<INPUT type="text" ID="txtPostNo" NAME="txtPostNo" value="<%=Session("PostNo")%>" size="5" maxlength="4" class="formtxtfield">
</td>
<td class="xptextrap" width="32">Sted:</td>
<td class="xptextrap" width="428"> <INPUT type="text" ID="txtPlace" NAME="txtPlace" value="<%=Session("Place")%>" size="36" maxlength="40" class="formtxtfield"></td>
</tr>
</table>
</td>
</tr>
<tr bgcolor="#FFFFFF" height="16">
<td class="xptextrap"> Telefon:</td>
<td class="xptextrap"> <INPUT type="text" ID="txtPhone" NAME="txtPhone" value="<%=Session("Phone")%>" size="51" maxlength="8" class="formtxtfield"></td>
</tr>
<tr bgcolor="#EEEEEE" height="16">
<td class="xptextrap"> Dir. Telefon:</td>
<td class="xptextrap"> <INPUT type="text" ID="txtDirPhone" NAME="txtDirPhone" value="<%=Session("DirPhone")%>" size="51" maxlength="8" class="formtxtfield"></td>
</tr>
<tr bgcolor="#FFFFFF" height="16">
<td class="xptextrap"> Faks:</td>
<td class="xptextrap"> <INPUT type="text" ID="txtFax" NAME="txtFax" value="<%=Session("Fax")%>" size="51" maxlength="8" class="formtxtfield"></td>
</tr>
<tr bgcolor="#EEEEEE" height="16">
<td class="xptextrap"> Mobil:</td>
<td class="xptextrap"> <INPUT type="text" ID="txtMobile" NAME="txtMobile" value="<%=Session("Mobile")%>" size="51" maxlength="8" class="formtxtfield"></td>
</tr>
<tr height="16">
<td class="xptextrap" colspan="2" align="right" bgcolor="#CCCCCC"><INPUT type="submit" value="Lagre" ID="Button1" NAME="Button1" class="formknapper"> </td>
</tr>
</table>
<table width="640" border="0" cellspacing="1" cellpadding="2">
<tr height="16">
<td class="xptextrap" align="right"><a href="
http://www.idesign.no" class="idesign" target="_BLANK">Utviklet av IDESIGN AS</a></td>
<tr>
</table>
</form>
</td>
</tr>
</table>
</center>
</body>
</html>