Min for side er Beregn.asp
<%' Åben databaseforbindelse %>
<!-- #include File=includes/connection.asp -->
<style type=text/css>
#nav ul {
display: block;
list-style: none outside;
padding: 0 0 0 10px;
margin: 0 0 0 10px;
font-family: Verdana;
font-size: 100%;
border-left:1px solid black;
}
#nav li {
padding: 0;
margin: 0 4px 0 0;
border-top: 1px solid #efefef;
border-right: 1px solid #efefef;
border-left: 1px solid #efefef;
border-bottom: 1px solid #000000;
background-color: #ffffff;
color: #000000;
font-weight: bold;
display: block;
float: left;
position: relative;
top: -1.3em;
}
#nav a:link,
#nav a:visited {
background-color: #ffffff;
color: #000000;
text-decoration: none;
padding-left: .5em;
padding-right: .5em;
}
#nav a:hover {
background-color: #000000;
color: #ffffff;
}
#navclear {
display: none;
}
html>body #navclear {
display: block;
clear: both;
}
/* Nu skal den aktive fane fremhæves ved
hjælp af body-markøren class-attribut */
body.1ndex #nav li#1_index a,
body.2index #nav li#2_index a,
body.3ndex #nav li#3_index a,
body.4index #nav li#4_index a,
body.5index #nav li#5_index a,
body.6index #nav li#6_index a,
body.7index #nav li#7_index a,
body.8index #nav li#8_index a,
body.9index #nav li#9_index a,
body.10index #nav li#10_index a,
body.11index #nav li#11_index a,
body.12index #nav li#12_index a,
body.13index #nav li#13_index a,
body.14index #nav li#14_index a,
body.15index #nav li#15_index a,
body.16index #nav li#16_index a,
body.17index #nav li#17_index a,
body.18index #nav li#18_index a,
body.19index #nav li#19_index a {
background-color: #ffffff;
color: #ffffff;
}
</style>
</head>
<%
faneblad = Request.QueryString("faneblad")
%>
<%
faneblad = Request.QueryString("FSag")
%>
<body class="marsindex">
<%' SQL forespørgsel
'DIM XSag
'XSag = Replace(Request.QueryString("FSag") )
'XSag = Request.QueryString("FSag")
strSQL = "SELECT * from tblProjektData WHERE Sag = "& Replace(Request.QueryString("FSag"),"'", "''")
Set rs = DataConn.Execute(strSQL)%>
<table border="0" width="100%" id="table2">
<tr>
<td rowspan="3" valign="top">
Sag:<br>
Martr.<br>
Ejer<br>
Adresse<br><br>
Post By</td>
<td rowspan="3" valign="top">
<form name="YourFormName" method="Get" action="KundeUpdate.asp">
<input type="text" name="sag" size="16" value="<%Response.Write rs("sag") %>"><br>
<input type="text" name="MatrNr" size="41" value="<%Response.Write rs("MatrNr") %>"><br>
<input type="text" name="Ejer" size="41" value="<%Response.Write rs("Ejer") %>"><br>
<input type="text" name="AdresseI" size="41" value="<%Response.Write rs("AdresseI") %>"><br>
<input type="text" name="AdresseII" size="41" value="<%Response.Write rs("AdresseII") %>"><br>
<input type="text" name="PostNr" size="41" value="<%Response.Write rs("PostNr") %> <%Response.Write rs("By_1") %>"><p><input type="submit" name="Submit" value="Submit Form"> <input type="reset" value="Reset" name="B2"></p>
</form>
</td>
<td>Vægge</td>
<td> </td>
</tr>
<tr>
<td>Varekartotek</td>
<td> </td>
</tr>
<tr>
<td>
<%' FINDER SAG
strSQL1 = "Select * from tblProjektData"
Set rs = DataConn.Execute(strSQL1)%>
<form action="tilbud.asp" method="get">
<select name="FSag">
<p>
<%Do%><option value="<%Response.Write rs("sag") %>">
<%Response.Write rs("sag") %> <%Response.Write rs("Ejer")%>
</option>
<%' Gå til næste Record i rs
rs.MoveNext
Loop While Not rs.EOF%>
</select><input type="submit" value="Submit" />
</form>
</td>
<td> </td>
</tr>
</table>
<div id="nav">
<ul>
<li id="1_index">
<span style="background-color: #ffffff">
<a href="tilbud.asp?faneblad=1&Fsag=<%Request.QueryString("FSag")%>">Total</a></span></li>
<li id="2_index2">
<a href="plutotab.html">Fundament</a></li>
<li id="3_index">
<a href="merkurtab.html">Ydervægge</a></li>
<li id="4_index">
<a href="venustab.html">Indervægge</a></li>
<li id="5_index">
<a href="jordentab.html">Tag</a></li>
<li id="6_index">
<a href="marstab.html">Køkken</a></li>
<li id="7_index">
<a href="jupitertab.html">Bryggers</a></li>
<li id="8_index">
<a href="saturntab.html">Toilet</a></li>
<li id="9_index">
<a href="uranustab.html">Gulv</a></li>
<li id="10_index">
<a href="neptuntab.html">Stue</a></li>
<li id="11_index">
<a href="plutotab.html">Værelser</a></li>
<li id="12_index">
<a href="plutotab.html">Maler</a></li>
<li id="13_index">
<a href="plutotab.html">Loft</a></li>
<li id="14_index">
<a href="plutotab.html">El</a></li>
<li id="15_index">
<a href="plutotab.html">Kloak</a></li>
<li id="16_index">
<a href="plutotab.html">VVS</a></li>
<li id="17_index">
<a href="plutotab.html">Administration</a></li>
<li id="18_index">
<a href="plutotab.html">Hems</a></li>
<li id="19_index">
<a href="plutotab.html">Extra</a></li>
</ul>
<span id="navclear"></span>
</div>
<%If faneblad = "1" then%>
<!--#include file="Total.asp"-->
<%End If%>
</body>
<%
' Luk databaseforbindelse
DataConn.Close
Set DataConn = Nothing
%>
Ny bruger
Nybegynder
Opret
Preview
