Ja jeg takker nute mange gange for hjælpen og viser her det endelige resultat af samarbejdet
<script language="JavaScript" type="text/javascript">
<!--
var g_strCompany = null;
var g_strInsurance = null;
var g_strHandyMan = null;
function makeArray( p_strInformation, p_intIndex )
{
g_arrInfoArray[ p_intIndex ] = p_strInformation.split( "#|#" );
}
function showCompany( p_intIndex, p_strDivID )
{
showTable( p_intIndex, g_strCompany, p_strDivID );
}
function showHandyMan( p_intIndex, p_strDivID )
{
showTable( p_intIndex, g_strHandyMan, p_strDivID );
}
function showInsurance( p_intIndex, p_strDivID )
{
showTable( p_intIndex, g_strInsurance, p_strDivID );
}
function showTable( p_intIndex, p_arrInfo, p_strDivID )
{
var strResult = "";
var strInfo = "";
var arrInfo = p_arrInfo.split( "#|#" );
if( p_intIndex > 0 )
{
strInfo = arrInfo[ p_intIndex - 1 ]
if( strInfo != "" )
{
strResult = "<table>";
arrInfo = strInfo.split("¤");
for( i = 0; i < arrInfo.length; i++ )
{
strResult += "<tr><td height=\"18\"><font size=\"1\" face=\"Verdana, Arial, Helvetica, sans-serif\">" + arrInfo[i] + "</font></td></tr>";
}
strResult += "</table>";
}
}
var objInfoDiv = document.getElementById( p_strDivID );
if( objInfoDiv )
{
objInfoDiv.innerHTML = strResult;
}
}
//-->
</script>
<%
Sql = "Select * From tblkunder order by firmanavn asc"
Set Rs = database.Execute(Sql)
%>
<select name="forsikringstagerid" id="forsikringstagerid" onchange="showCompany( this.selectedIndex, 'divCompInfo' );">
<option>Vælg et navn........................................</option>
<%
Dim strAllCompanies : strAllCompanies = ""
Dim strCompany
Dim intCounter : intCounter = 1
Dim intSelected : intSelected = 0
Dim strID : strID = Request.QueryString("IDKunde")
Dim strSelected
Do While Not Rs.Eof
strSelected = ""
if( strID = rs("id") ) then
strSelected = " selected=""selected"""
intSelected = intCounter
else
intCounter = intCounter + 1
end if
%>
<option value="<%= rs("id")%>"<%= strSelected %>><%= rs("firmanavn") %></option>
<%
Sql2 = "Select * From tblpostnumre where postnr='" & rs("postnr") & "'"
Set Rs2 = database.Execute(Sql2)
strCompany = rs("kontaktperson") & "¤" & rs("adresse1") & "¤" & rs("adresse2") & "¤" & rs("postnr") & " " & rs2("by") & "¤" & rs("tlf") & "¤" & rs("telefax") & "¤" & rs("mobil") & "¤" & rs("email") & "#|#"
strAllCompanies = strAllCompanies & strCompany
Rs.MoveNext
Loop
%>
</select>
<div id="divCompInfo"></div>
<script language="JavaScript" type="text/javascript">
<!--
g_strCompany = '<%= strAllCompanies %>';
<%
if( intSelected > 0 ) then
%>
showCompany( <%= intSelected %>, 'divCompInfo' );
<%
end if
%>
//-->
</script>
