Nu fik jeg lige rettet denne kode inden du skrev forklaringen, så prøv lige denne af, men jeg kigger på din beskrivelse:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%Dim ID,opslag
Session.LCID = 1030
ordrenr = Request.QueryString("id")
Set Connection = Server.CreateObject("ADODB.Connection")
Connection.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="&Server.MapPath("../database.mdb")
if request.querystring("knap") <> "Ret" then
SQLstringK="SELECT * FROM kunde WHERE ordrenr=" & ordrenr
SET opslag=Connection.Execute(SQLstringK)
else
SQLstringK = "UPDATE kunde SET " & _
"firmanavn='"&Request.Form("firmanavn")&"'," & _
"cvrnummer='"&Request.Form("cvrnummer")&"'," & _
"adresse='"&Request.Form("adresse")&"'," & _
"postnr='"&Request.Form("postnr")&"'," & _
"byen='"&Request.Form("byen")&"'," & _
"tlf='"&Request.Form("tlf")&"'," & _
"mobil='"&Request.Form("mobil")&"'," & _
"fax='"&Request.Form("fax")&"'," & _
"email='"&Request.Form("email")&"'," & _
"hjemmeside='"&Request.Form("hjemmeside")&"'," & _
"beskrivelse='"&Request.Form("beskrivelse")&"'," & _
"kontaktperson='"&Request.Form("kontaktperson")&"'," & _
"ean='"&Request.Form("ean")&"'," & _
"branche='"&Request.Form("branche")&"'," & _
"omrode='"&Request.Form("omrode")&"'," & _
"storrelse="&Request.Form("storrelse")&"," & _
"placering="&Request.Form("placering")&"," & _
"datoet=#"& DateAdd("M", -1, Request.Form("datoet")) &"#," & _
"datoto=#"&DateAdd("M", -1, Request.Form("datoto"))&"#," & _
"status='"&Request.Form("status")&"'," & _
"kommentare='"&Request.Form("kommentare")&"'," & _
"pris="&Request.Form("pris")&"," & _
"betalingsdato=#"&Request.Form("betalingsdato")&"#," & _
"rykker="&Request.Form("rykker")&"," & _
"pakkenavn='"&Request.Form("pakke")&"' " & _
"WHERE ordrenr=" & Request.Form("ordrenr")
response.write(SQLstringK)
connection.Execute(SQLstringK)
connection.Close
Set connection = Nothing
response.end
end if
%>
<!--#include file=tjek.asp-->
<html>
<head>
<title>Administration</title>
<style type="text/css">
.Submitknap {
background-color : #e9e9e9;
border : 1px solid;
border-bottom : 1px solid Gray;
border-top : 1px solid Silver;
border-left : 1px solid Silver;
border-right : 1px solid Gray;
font-size: 13px;
font-weight: plain;
}
</style>
<style>
a:link {text-decoration: none}
a:active {text-decoration: none}
a:visited {text-decoration: none}
a:hover {color: #2E6C92; text-decoration: none}
.box {color: #193A4D; border: 1px solid #D0D5D9; background-color: #F3F4F5; font-family:Verdana; font-size:8pt}
td {font-family: Tahoma; font-size: 8pt}
body {font-family: Tahoma; font-size: 8pt; scrollbar-face-color: #F3F4F5;scrollbar-shadow-color: #ADB6BC; scrollbar-highlight-color: #ADB6BC; scrollbar-3dlight-color: #F3F4F5; scrollbar-darkshadow-color: #F3F4F5; scrollbar-track-color: #FFFFFF; scrollbar-arrow-color: #ADB6BC}
.link { text-decoration: none}
</style>
</head>
<body bgcolor="#000000" text="#FFFFFF" link="#0066FF" vlink="#0066FF" alink="#0066FF">
<p align="center"><b><font face="Georgia, Times New Roman, Times, serif" size="4">Ret oplysninger </font></b>
<p align="center"><br>
<table cellspacing="0" cellpadding="0" border="1" bgcolor="#FFFFFF" width="957" align="center">
<tr valign="top" align="center" bgcolor="#eef6fb">
<td class="downloads" bgcolor="#000000" height="3"> <br>
<%if not opslag.eof then%>
<form method="POST" action="grimside/admins/<%=request.servervariables("SCRIPT_NAME")%>">
<font face=tahoma size=2> </font>
<table width="928" border="0" cellspacing="1" cellpadding="3" class="bottom" align="center" bgcolor="#f7f7f7">
<tr bgcolor="#CCCCCC">
<td width="920" bgcolor="#000000"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><b>Firma
<br>
<input type="text" name="firmanavn" class="bottom" maxlength="50" value="<%=OPSLAG("firmanavn")%>">
</b></font></td>
</tr>
<tr bgcolor="#CCCCCC">
<td width="920" bgcolor="#000000">
<p><b><font size="1" face="Verdana, Arial, Helvetica, sans-serif">CVR
nummer <br>
<input type="text" name="cvrnummer" class="bottom" maxlength="50" value="<%=OPSLAG("cvrnummer")%>">
</font></b></p>
</td>
</tr>
<tr bgcolor="#CCCCCC">
<td width="920" bgcolor="#000000"><b><font size="1" face="Verdana, Arial, Helvetica, sans-serif">Adresse<span class="rot"><span class="rot"><font color="#FF0000">
</font></span><br>
<input type="text" name="adresse" class="bottom" maxlength="1000" value="<%=OPSLAG("adresse")%>">
</span></font></b></td>
</tr>
<tr bgcolor="#CCCCCC">
<td width="920" bgcolor="#000000"><b><font size="1" face="Verdana, Arial, Helvetica, sans-serif">Post
nummer <span class="rot"><br>
<input type="text" name="postnr" class="bottom" maxlength="1000" value="<%=OPSLAG("postnr")%>">
</span></font></b></td>
</tr>
<tr bgcolor="#CCCCCC">
<td width="920" bgcolor="#000000"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><b>By<span class="rot"><br>
<input type="text" name="byen" class="bottom" maxlength="1000" value="<%=OPSLAG("byen")%>">
</span></b></font></td>
</tr>
<tr bgcolor="#CCCCCC">
<td width="920" bgcolor="#000000"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><b>Telefon
nummer <span class="rot"><br>
<input type="text" name="tlf" class="bottom" maxlength="1000" value="<%=OPSLAG("tlf")%>">
</span></b></font></td>
</tr>
<tr bgcolor="#CCCCCC">
<td width="920" bgcolor="#000000"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><b>Mobil
nummer <span class="rot"><br>
<input type="text" name="mobil" class="bottom" maxlength="1000" value="<%=OPSLAG("mobil")%>">
</span></b></font></td>
</tr>
<tr bgcolor="#CCCCCC">
<td width="920" bgcolor="#000000"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><b>Fax<span class="rot"><br>
<input type="text" name="fax" class="bottom" maxlength="1000" value="<%=OPSLAG("fax")%>">
</span></b></font></td>
</tr>
<tr bgcolor="#CCCCCC">
<td width="920" bgcolor="#000000"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><b>E-mail
<br>
<input type="text" name="email" class="bottom" maxlength="1000" value="<%=OPSLAG("email")%>">
</b></font></td>
</tr>
<tr bgcolor="#CCCCCC">
<td width="920" bgcolor="#000000"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><b>Hjemmeside<br>
<input type="text" name="hjemmeside" class="bottom" maxlength="1000" value="<%=OPSLAG("hjemmeside")%>">
</b></font></td>
</tr>
<tr bgcolor="#CCCCCC">
<td width="920" bgcolor="#000000"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><b>Beskrivelse
<br>
<textarea name="beskrivelse" class="bottom" cols="70" rows="10" ID="Textarea1"><%=OPSLAG("beskrivelse")%></textarea>
</b></font></td>
</tr>
<tr bgcolor="#CCCCCC">
<td width="920" bgcolor="#000000"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><b>Kontakt
person <br>
<input type="text" name="kontaktperson" class="bottom" maxlength="1000" value="<%=OPSLAG("kontaktperson")%>">
</b></font></td>
</tr>
<tr bgcolor="#CCCCCC">
<td width="920" bgcolor="#000000"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><b>EAN
<br>
<input type="text" name="ean" class="bottom" maxlength="1000" value="<%=OPSLAG("ean")%>">
</b></font></td>
</tr>
<tr bgcolor="#CCCCCC">
<td width="920" bgcolor="#000000"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><b>Branche<br>
<input type="text" name="branche" class="bottom" maxlength="1000" value="<%=OPSLAG("branche")%>">
</b></font></td>
</tr>
<tr bgcolor="#CCCCCC">
<td width="920" bgcolor="#000000"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><b>Område<br>
<input type="text" name="omrode" class="bottom" maxlength="1000" value="<%=OPSLAG("omrode")%>">
</b></font></td>
</tr>
<tr bgcolor="#CCCCCC">
<td width="920" bgcolor="#FFFFFF">
<div align="center"><font color="#FFFFFF"><b></b></font></div>
</td>
</tr>
<tr bgcolor="#CCCCCC">
<td width="920" bgcolor="#000000"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><b>Skiftstørrelse<br>
<input type="text" name="storrelse" class="bottom" maxlength="1000" value="<%=OPSLAG("storrelse")%>">
</b></font></td>
</tr>
<tr bgcolor="#CCCCCC">
<td width="920" bgcolor="#000000"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><b>Placering</b>
<br>
<input type="text" name="placering" class="bottom" maxlength="1000" value="<%=OPSLAG("placering")%>">
</font></td>
</tr>
<tr bgcolor="#CCCCCC">
<td width="920" bgcolor="#000000"><font size="1" face="Verdana, Arial, Helvetica, sans-serif">
<b>Pris</b><br>
<%
dim nypris
if OPSLAG("moms") = 5 then
nypris = (OPSLAG("pris") * 0.25) + OPSLAG("pris")
else
nypris = OPSLAG("pris")
end if
%>
<input type="text" name="pris" class="bottom" maxlength="1000" value="<%= response.write(nypris) %>" size="20">
<b> Kr <br>
Denne kunne skal
<%
if OPSLAG("moms") = 5 then
else
response.write("IKKE")
end if
%>
</b></font> <b>betale moms! </b></td>
</tr>
<tr bgcolor="#CCCCCC">
<td width="920" bgcolor="#000000"><font size="1" face="Verdana, Arial, Helvetica, sans-serif">
<b> <br>
<% if OPSLAG("status") <> "Betalt" AND betalingsdato < date() AND betalingsdato <> #2000-10-10# then %>
Betalingsfrist <font color="#FF0000">IKKE overholdt</font>!<br>
<input type="text" name="betalingsdato" class="bottom" maxlength="1000" value="<%=OPSLAG("betalingsdato")%>">
<%else%>
<input type="text" name="betalingsdato" class="bottom" maxlength="1000" value="<%=OPSLAG("betalingsdato")%>">
<%end if %>
</b> </font></td>
</tr>
<tr bgcolor="#CCCCCC">
<td width="920" bgcolor="#000000"><b><font size="1" face="Verdana, Arial, Helvetica, sans-serif">Faktura
status<br>
<select name="status" style="border-style:groove;">
<option value="Mangler" <%If OPSLAG("status") = "Mangler" Then Response.write("Selected")%>>Mangler</option>
<option value="Modtaget" <%If OPSLAG("status") = "Modtaget" Then Response.write("Selected")%>>Modtaget</option>
<option value="Betalt" <%If OPSLAG("status") = "Betalt" Then Response.write("Selected")%>>Betalt</option>
</select>
</font></b></td>
</tr>
<tr bgcolor="#CCCCCC">
<td width="920" bgcolor="#000000"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><b>Rykkere<br>
<input type="text" name="rykker" class="bottom" maxlength="1000" value="<%=OPSLAG("rykker")%>" ID="Text20">
</b></font></td>
</tr>
<tr bgcolor="#CCCCCC">
<td width="920" bgcolor="#000000"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><b>Pakkeløsning<br>
<input type="text" name="pakke" class="bottom" maxlength="1000" value="<%=OPSLAG("pakkenavn")%>">
</b></font></td>
</tr>
<tr bgcolor="#CCCCCC">
<td width="920" bgcolor="#000000"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><br>
<b>Fra </b>- Hvis der rettes skal dato formatet overholdes! DD-MM-YYYY
<br>
<b>
<input type="text" name="datoet" class="bottom" maxlength="1000" value=" <%=response.write(DKDato(DateAdd("M", 1, OPSLAG("datoet")),"#1"))%>">
</b><br>
<b>Til </b>- Hvis der rettes skal dato formatet overholdes! DD-MM-YYYY
<br>
</font><font size="1" face="Verdana, Arial, Helvetica, sans-serif">
<b>
<input type="text" name="datoto" class="bottom" maxlength="1000" value=" <%=response.write(DKDato(DateAdd("M", 1, OPSLAG("datoto")),"#1"))%>">
</b></font></td>
</tr>
<tr bgcolor="#CCCCCC">
<td width="920" bgcolor="#000000"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><b>Kommentare<br>
<textarea name="kommentare" class="bottom" cols="70" rows="10"><%=OPSLAG("kommentare")%></textarea>
</b></font></td>
</tr>
</table>
<input type="hidden" name="ordrenr" value="<%=opslag("ordrenr")%>">
<input type="hidden" name="id" value="<%=opslag("id")%>">
<p>
<input type="submit" value="Ret" name="knap">
</p>
</form>
<%end if%>
<br>
</td>
</tr>
</table>
<p> </p>
<%
Connection.Close
Set Connection = Nothing
%>
</body>
</html>
<script language="VBScript" runat="Server">
Function DKDato(nDato, nFormat)
If isDate(nDato) = False Then
DKDato = nDato
Exit Function
End If
Dim arrMinth
Dim arrDays
arrMonth = "januar,februar,marts,april,maj,juni,juli,august,september,oktober,november,december"
arrMonth = Split(arrMonth,",")
datDay = PutZero(Day(nDato))
datMonth = PutZero(Month(nDato))
datYear = Year(nDato)
datHour = PutZero(Hour(nDato))
datMin = PutZero(Minute(nDato))
datSec = PutZero(Second(nDato))
Select Case nFormat
Case "#1"
DKDato = datDay&"-"&datMonth&"-"&Mid(datYear,3,2)
Case "#2"
DKDato = datDay&"-"&datMonth&"-"&Mid(datYear,3,2)&" "&datHour&":"&datMin
Case "#3"
DKDato = datDay&"-"&datMonth&"-"&Mid(datYear,3,2)&" "&datHour&":"&datMin&":"&datSec
Case "#4"
DKDato = datDay&"-"&datMonth&"-"&datYear
Case "#5"
DKDato = datDay&"-"&datMonth&"-"&datYear&" "&datHour&":"&datMin
Case "#6"
DKDato = datDay&"-"&datMonth&"-"&datYear&" "&datHour&":"&datMin&":"&datSec
Case "#7"
DKDato = datDay&". "&arrMonth(datMonth-1)&" "&datYear
Case "#8"
DKDato = datDay&". "&arrMonth(datMonth-1)&" "&datYear&" kl. "&datHour&":"&datMin
Case "#9"
DKDato = datDay&". "&arrMonth(datMonth-1)&" "&datYear&" kl. "&datHour&":"&datMin&":"&datSec
Case Else
DKDato = nDato
End Select
End Function
Function PutZero(value)
If Len(value) = 1 Then value="0"&value
PutZero = value
End Function
</script>
