Hvorfor laver min update om på datoformatet?
Hver gang jeg opdaterer min post i min database, bliver der byttet om på dag og måned.Hvordan undgår jeg det???
Har to sider, her er lidt kode:
Side 1:
<form name="form1" action="CMS-ret-efterlysning2b.asp?id=<%=RSaktivitetskalender.Fields.Item("id").Value %>">
<table width="78%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td><div align="center" class="style27 style28">
<div align="left">Titel:
<input type="text" name="titel" value="<%=(RSaktivitetskalender.Fields.Item("titel").Value)%>" size="32">
<input name="id" type="hidden" id="id" value="<%=(RSaktivitetskalender.Fields.Item("id").Value)%>">
</div>
</div></td>
</tr>
<tr>
<td><hr size="1"></td>
</tr>
<tr>
<td height="15">Beskrivelse:<br>
<textarea name="indhold" cols="32" rows="5"><%=(RSaktivitetskalender.Fields.Item("indhold").Value)%></textarea></td>
</tr>
<tr>
<td height="15"><hr size="1"></td>
</tr>
<tr>
<td height="25"><div align="right">* Bemærk at dato<br>
grundet en fejl i <br>
systemet skal skrives således: <br>
Eks. <strong>4 nov 2005</strong> skrives <strong>11-04-2005</strong> </div></td>
</tr>
<tr>
<td height="25"><%=(RSaktivitetskalender.Fields.Item("titel").Value)%> starter: d.
<input name="FraDato" class="inputdato" id="FraDato" onblur="FraToTil();" value="<%=(RSaktivitetskalender.Fields.Item("FraDato").Value)%>" size="10" <%RSaktivitetskalender.Fields.Item("FraDato")%>value="">
<%=DatoSelect("FraDato","FraDato","TilDato")%><strong>
</strong>
kl.<strong>
<input type="text" name="tidspunkt" value="<%=(RSaktivitetskalender.Fields.Item("tidspunkt").Value)%>" size="6">
</strong></td>
</tr>
<tr>
<td height="25"> -og slutter igen: d.
<input name="TilDato" class="inputdato" id="TilDato" value="<%=(RSaktivitetskalender.Fields.Item("TilDato").Value)%>" size="10" <%if data then response.write(" value=""" & request.querystring("TilDato") & """") else %>value="<%=StrTilDato%>">
<%=DatoSelect("TilDato","FraDato","TilDato")%> kl.<strong>
<input name="sluttidspunkt" type="text" id="sluttidspunkt" value="<%=(RSaktivitetskalender.Fields.Item("tidspunkt").Value)%>" size="6">
</strong> <strong>
</strong></td>
</tr>
<tr>
<td height="25">Sted:
<input type="text" name="sted" value="<%=(RSaktivitetskalender.Fields.Item("sted").Value)%>" size="32"></td>
</tr>
<tr>
<td height="25">Arrangør:
<input type="text" name="arrangor" value="<%=(RSaktivitetskalender.Fields.Item("arrangor").Value)%>" size="32"></td>
</tr>
<tr>
<td height="25">Hjemmeside:
<input type="text" name="hjemmeside" value="<%=(RSaktivitetskalender.Fields.Item("hjemmeside").Value)%>" size="32"></td>
</tr>
<tr>
<td height="15"><hr size="1"></td>
</tr>
<tr>
<td height="25"><p>Priser: <br>
Barn:
<input type="text" name="barnpris" value="<%=(RSaktivitetskalender.Fields.Item("barnpris").Value)%>" size="4">
Max alder på børn:
<input name="alder" type="text" id="alder" value="<%=(RSaktivitetskalender.Fields.Item("alder").Value)%>" size="4">
<br>
Voksen:
<input type="text" name="voksenpris" value="<%=(RSaktivitetskalender.Fields.Item("voksenpris").Value)%>" size="4">
<br>
Pensionister:
<input type="text" name="pensionistpris" value="<%=(RSaktivitetskalender.Fields.Item("pensionistpris").Value)%>" size="4">
</p>
</td>
</tr>
<tr>
<td height="25">For mere info, kontakt: </td>
</tr>
<tr>
<td height="25">Kontaktperson:
<input type="text" name="kontaktperson" value="<%=(RSaktivitetskalender.Fields.Item("kontaktperson").Value)%>" size="32"></td>
</tr>
<tr>
<td height="25">Tlf: <strong>
<input type="text" name="telefon" value="<%=(RSaktivitetskalender.Fields.Item("telefon").Value)%>" size="32">
</strong></td>
</tr>
<tr>
<td height="25">e-mail:
<input type="text" name="email" value="<%=(RSaktivitetskalender.Fields.Item("email").Value)%>" size="32"></td>
</tr>
<tr>
<td height="25"><hr size="1"></td>
</tr>
<tr>
<td height="15"><div align="center">
<input type="button" name="Button" value="<< Fortryd">
<input type="submit" name="Submit" value="Godkend >>">
</div></td>
</tr>
</table>
Side 2:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<% session.LCID = 1030 'For DK dato format %>
<!--#include file="../../Connections/ballumby.asp" -->
<%
Dim RSaktivitetskalender__MMColParam
RSaktivitetskalender__MMColParam = "1"
If (Request.QueryString("id") <> "") Then
RSaktivitetskalender__MMColParam = Request.QueryString("id")
End If
%>
<%
Dim RSaktivitetskalender
Dim RSaktivitetskalender_numRows
Set RSaktivitetskalender = Server.CreateObject("ADODB.Recordset")
RSaktivitetskalender.ActiveConnection = MM_ballumby_STRING
RSaktivitetskalender.Source = "UPDATE aktivitetskalender Set titel = '" & request.querystring("titel") & "', indhold = '" & request.querystring("beskrivelse") & "',FraDato = '" & request.querystring("Fradato") & "',tidspunkt = '" & request.querystring("tidspunkt") & "',TilDato = '" & request.querystring("Tildato") & "',sluttidspunkt = '" & request.querystring("sluttidspunkt") & "',Sted = '" & request.querystring("Sted") & "',Arrangor = '" & request.querystring("Arrangor") & "',Hjemmeside = '" & request.querystring("Hjemmeside") & "',Barnpris = '" & request.querystring("Barnpris") & "',alder = '" & request.querystring("alder") & "',Voksenpris = '" & request.querystring("voksenpris") & "',pensionistpris = '" & request.querystring("pensionistpris") & "',kontaktperson = '" & request.querystring("kontaktperson") & "',telefon = '" & request.querystring("telefon") & "',email = '" & request.querystring("email") & "' WHERE id = " + Replace(RSaktivitetskalender__MMColParam, "'", "''") + ""
RSaktivitetskalender.CursorType = 0
RSaktivitetskalender.CursorLocation = 2
RSaktivitetskalender.LockType = 1
RSaktivitetskalender.Open()
RSaktivitetskalender_numRows = 0
response.Redirect("CMS-ret-aktivitet3.asp")
%>
Er der nogen der kan hjælpe???
