Hov koden er her:
<html>
<head>
<title>Sagsoprettelse</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<script language="Javascript1.2">
function nextForm(objectValue) {
objectValue.document.Sagsoprettelse.submit();
}
function previousForm() {
history.go(-1);
}
</script>
</head>
<body bgcolor="#FFFFFF">
<font size="-1"><%
if request.form("radiobutton") = "Sagsnummer" then
Response.Write("Her")
%> </font>
<form name="Sagsoprettelse" method="post" action="Sagsoprettelse4.asp?Hovednummer=1&Reg=0">
<table width="383" border="0" cellspacing="2" cellpadding="2">
<tr>
<td colspan="2">Sagsoprettelse (Trin 2 af 5)</td>
</tr>
<tr>
<td> </td>
</tr>
<tr>
<td>
Vælg sagsgruppe
</td>
<td>
<select name="select">
<!-- <option value="001">TYD</option> -->
<!-- <option value="002">Konkurrencer</option> -->
<option value="003">5 års eftersyn egne sager</option>
<option value="004">5 års eftersyn byggeskedafonden</option>
<!-- <option value="009">Akkvisitioner</option> -->
<option value="100">Boliger</option>
<option value="200">Byggeherrerådgivning</option>
<option value="300">Butikscenter, detailhandel</option>
<option value="400">Design, grafik, farver, indretning</option>
<option value="500">Erhverv</option>
<option value="600">Landskab, planlægning</option>
<option value="700">Undervisning, institutioner</option>
<option value="800">Sygehuse</option>
<option value="900">Renovering, restaurering</option>
<option value="300">Centre</option>
</select>
</td>
</tr>
<tr>
<td>
</td>
<td>
<div align="right">
<!--
<input type="submit" name="Submit" value="Næste">
-->
<a href="java script: previousForm();">Tilbage</a>
<a href="java script: nextForm(this);">Næste</a>
</div>
</td>
</tr>
</table>
</form>
<p> </p>
<p><font size="-1">
<%
elseif request.form("radiobutton") = "Undernummer" then
%> </font>
<!-- <form method="post" action="Sagsoprettelse3A.asp"> -->
<form name="Sagsoprettelse" method="post" action="Sagsoprettelse4.asp?Hovednummer=0&Reg=0">
<table width="388" border="0" cellspacing="2" cellpadding="2">
<tr>
<td>Sagsoprettelse (Trin 2 af x)</td>
</tr>
<tr>
<td> </td>
</tr>
<tr>
<td>Vælg sagsnummer <%
response.write(" <select name='select'>")
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DSN=XALDSN; UID=xal_supervisor; PWD=xal_supervisor_psw"
'sqlStr = "SELECT sag, navn FROM xal_supervisor.SAGKART WHERE sag LIKE '02.%' order by sag"
sqlStr = "SELECT sag, navn FROM xal_supervisor.SAGKART order by sag"
'Response.write(sqlStr)
Set ResultSet = Conn.Execute(sqlStr)
do while not Resultset.EOF
response.write("<option value='" & Resultset(0) & "'>" & Resultset(0) & " " & Resultset(1) & "</option>")
Resultset.movenext
loop
response.write("</select>")
%> </td>
</tr>
<tr>
<td>
<div align="right">
<!--
<input type="submit" name="Submit" value="Næste">
-->
<a href="java script: previousForm();">Tilbage</a>
<a href="java script: nextForm(this);">Næste</a>
</div>
</td>
</tr>
</table>
</form>
<font size="-1">
<%
elseif request.form("radiobutton") = "Registrer" then
%>
<!-- Registrer eksisterende sag -->
<form name="Sagsoprettelse" method="post" action="Sagsoprettelse4a.asp?Hovednummer=0&Reg=1">
<table width="388" border="0" cellspacing="2" cellpadding="2">
<tr>
<td>Sagsoprettelse (Trin 2 af x)</td>
</tr>
<tr>
<td> </td>
</tr>
<tr>
<td>Vælg sagsnummer <%
response.write(" <select name='select'>")
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DSN=XALDSN; UID=xal_supervisor; PWD=xal_supervisor_psw"
sqlString = "select sag, navn from xal_supervisor.sagkart where dataset = 'DAT' And " & _
"sag not in (select sagsnummer as sag from rm_sagkart)order by sag"
'Response.Write(sqlString)
Set ResultSet = Conn.Execute(sqlString)
do while not Resultset.EOF
response.write("<option value='" & Resultset("sag") & "'>" & Resultset("sag") & " " & Resultset("navn") & "</option>")
Resultset.movenext
loop
response.write("</select>")
%> </td>
</tr>
<tr>
<td>
<div align="right">
<!--
<input type="submit" name="Submit" value="Næste">
-->
<a href="java script: previousForm();">Tilbage</a>
<a href="java script: nextForm(this);">Næste</a>
</div>
</td>
</tr>
</table>
</form>
<%
else 'request.form("radiobutton") = "Manuelt" then
%>
<!-- Registrer eksisterende sag -->
<form name="Sagsoprettelse" method="post" action="Sagsoprettelse4a.asp?Hovednummer=1&Reg=0">
<table width="388" border="0" cellspacing="2" cellpadding="2">
<tr>
<td colspan="2">Sagsoprettelse (Trin 2 af x)</td>
</tr>
<tr>
<td> </td>
</tr>
<tr>
<td align="right">
Sagsnummer
</td>
<td>
<input type="text" name="nummer">
</td>
</tr>
<tr>
<td align="right">
Sagsnavn
</td>
<td>
<input type="text" size="40" name="navn">
</td>
</tr>
<tr>
<td colspan="2">
<div align="right">
<!--
<input type="submit" name="Submit" value="Næste">
-->
<a href="java script: previousForm();">Tilbage</a>
<a href="java script: nextForm(this);">Næste</a>
</div>
</td>
</tr>
</table>
</form>
<%
end if
%> </font>
</body>
</html>
Ny bruger
Nybegynder
Opret
Preview
