% @Language=VBScript %>
<% Server.ScriptTimeout = 3600 %>
<% Response.buffer=true %>
<% Response.Expires = -1 %>
<!--#include file="xxx.asp" -->
<!--#include file="xxx.asp" -->
<!--#include file="xxx.asp"-->
<html>
<head>
<script language="javascript">
{
document.write('<link rel="stylesheet" href="styles.css">');
}
</script>
<style type="text/css">
body {
scrollbar-face-color:5DA91D;
}
</style>
<style>
BODY {
overflow-x: hidden
}
</style>
<title></title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<%
id = request("id")
stat = ""
stat = request("status")
if len(stat) > 0 then
salgdd = Trim(request.form("salgdd"))
my_conn.execute "update goal set salgdd='"&salgdd&"' where id = '"&id&"'"
response.redirect ("apoteks_goal_ok.asp")
end if
If Trim(id) <> "" And IsNumeric(id) Then
salgdd = "SELECT salgdd FROM goal WHERE id =" & id
Set rs = my_conn.execute(salgdd)
VarTilForm = rs("salgdd")
End If
%>
</head>
<body topmargin="0" leftmargin="0" bgcolor="#EDFBF1">
<table border="0" cellpadding="0" cellspacing="0" width="598">
<tr>
<td>
<p>
<div class="overskrift"><a class="overskrift" href="forside.asp" target="_self">Forside</a>
> Ret apoteks målsætning</div>
</td>
</tr>
</table>
<br>
<table border="0" cellpadding="0" cellspacing="0" width="598">
<tr>
<td><br><font size="2">Du er ved at ændre oplysninger for
<% SQLstmt = "SELECT * FROM goal ORDER by apoteksnavn"
'response.write SQLstmt
Set rs = my_conn.Execute(SQLstmt) %><br>
???? Her skal der sættes noget ind ???
<%
</font>
<form method="post" action="apoteks_goal_ret.asp?id=<%=id%>&status=save" name="SaveForm" ID=Form1>
<p>
<font size="2"><b>Nicorette salg år til dato 2003:</b></font><br>
<input type=text name=salgdd size=40 id=Text1 maxlength=100 value="<%=VarTilForm%>">
(kr.)</p>
<input
type="image" src="grafik/tilmeld.gif" name="Submit">
</form>
</td>
</tr>
</table>
<%
my_conn.Close
Set my_conn = nothing
Set SQLstmt = nothing
%>
</body>
</html>
