ja...lige efter faktisk...poster lige hele koden
<%@ Language=VBScript %>
<!--#include file="includes/connection.asp"-->
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<script language=javascript>
function writeHiddens()
{
var index,val;
index=document.adrList.DriftstedName.selectedIndex;
val=document.adrList.DriftstedName.options[index].text;
indhold=findStr(val);
document.adrList.Driftsted.value=indhold;
index=document.adrList.DivisionName.selectedIndex;
val=document.adrList.DivisionName.options[index].text;
indhold=findStr(val);
document.adrList.Division.value=indhold;
index=document.adrList.DepartmentName.selectedIndex;
val=document.adrList.DepartmentName.options[index].text;
indhold=findStr(val);
document.adrList.Department.value=indhold;
}
function findStr(val)
{
var start=val.indexOf("(");
var slut=val.indexOf(")");
var delstreng=val.substring(start+1,slut)
return delstreng;
}
</script>
</HEAD>
<BODY>
<%
function sqlerr()
Response.Redirect("adrlist.asp?fejl=1")
end function
if Request.QueryString("fejl") = "1" then
Response.Write(Request.QueryString("fejl")&"<br><br>")
' Country_code=Request.QueryString("Country_code")
' Division=Request.QueryString("Division")
' Department=Request.QueryString("Department")
else
Country_code=Request.QueryString("Country_code")
if Country_code="" or Country_code="all" then
Country_code="%"
end if
Division=Request.QueryString("Division")
if Division="" or Division="all" then
Division="%"
end if
Department=Request.QueryString("Department")
if Department="" or Department="all" then
Department="%"
end if
end if
%>
<!--There was no rows corresponding to your selections in the database. Please change the input in the selectboxes.-->
<FORM name=adrList action="adrlist.asp" method=get onSubmit="writeHiddens();">
<table>
<tr><td>
Country Code:<select name=Country_code>
<option>all
<%
sql = "SELECT DISTINCT IndexCards.Landekode"&_
" FROM employees_dk.dbo.IndexCards"&_
" WHERE IndexCards.Division LIKE '"&Division&"'"&_
" AND IndexCards.Afdeling LIKE '"&Department&"'"&_
" ORDER BY IndexCards.Landekode ASC"
Set Result=Connection.Execute(sql)
if Result.EOF then
sqlerr()
end if
Result.Movefirst
while not Result.EOF
%>
<option<%if Result.fields(0)=Country_code then %> SELECTED <%end if%>> <%=Result.fields(0)%>
<%Result.Movenext
wend%>
</select>
</tr></td>
<tr><td>
Driftsted:<select name=DriftstedName>
<option>all
</select>
<input type=hidden value="" name=Driftsted>
</tr></td>
<tr><td>
Division:<select name=DivisionName>
<option>all
<%
sql = "SELECT DISTINCT IndexCards.Divisionsnavn,IndexCards.Division"&_
" FROM employees_dk.dbo.IndexCards"&_
" WHERE IndexCards.Landekode LIKE '"&Country_code&"'"&_
" AND IndexCards.Afdeling LIKE '"&Department&"'"&_
" ORDER BY IndexCards.Division ASC"
Set Result=Connection.Execute(sql)
if Result.EOF then
sqlerr()
end if
Result.Movefirst
while not Result.EOF
%><option<%if Result.fields(1)=Division then %> SELECTED <%end if%>><%=Result.fields(0)%>(<%=Result.fields(1)%>)
<%Result.Movenext
wend%>
</select>
<input type=hidden value="" name=Division>
</tr></td>
<tr><td>
Department:<select name=DepartmentName>
<option>all
<%
sql = "SELECT DISTINCT IndexCards.Afdelingsnavn,IndexCards.Afdeling"&_
" FROM employees_dk.dbo.IndexCards"&_
" WHERE IndexCards.Landekode LIKE '"&Country_code&"'"&_
" AND IndexCards.Division LIKE '"&Division&"'"&_
" ORDER BY IndexCards.Afdeling ASC"
Set Result=Connection.Execute(sql)
if Result.EOF then
sqlerr()
end if
Result.Movefirst
while not Result.EOF
%>
<option <%if Result.fields(1) = Department then %> SELECTED<%end if%>><%=Result.fields(0)%>(<%=Result.fields(1)%>)<%="**"&Result.fields(1)&" "&Department&"**"%></option>
<%Result.Movenext
wend%>
</select>
<input type=hidden value="" name=Department>
<input name="sub" type="submit" value="Submit">
</tr></td>
</table>
</form>
</BODY>
</HTML>
Ny bruger
Nybegynder
Opret
Preview
