Dato omkonvertering
Hyggehejsa. ;)Jeg har lidt probs med et nyhedssystem jeg har lavet. Der er noget galt med datoerne. Sikkert fordi de skal konverteres om. Er der en smart mand der kan gøre det i denne kode??
`````````````````````````````````````````````````
<%
Response.Buffer=true
%>
<html>
<head>
<title>DWP</title>
<script language="javascript">
function MM_openBrWindow(theURL,winName,features) { //v2.0
window.open(theURL,winName,features);
}
</script>
<link rel="stylesheet" href="../CSS/admin.css" type="text/css">
</head>
<body>
<!--#include file="../include/DBopen.asp" -->
<%
dim id
dim action
id = request.querystring("id")
action = request.querystring("action")
select case action
case 1
ID = Request.QueryString("Id")
Query="SELECT * FROM tblNews WHERE Id = " & Id
Set Res = DBConn.Execute(Query)
%>
<form action="news_action.asp?id=<%=id%>&action=2" method="POST" name="ret">
<span class="overskrifter">UPDATE NEWS</span><br>
<br>
<table width="500" border="0" cellspacing="0" cellpadding="0" class="input">
<tr>
<td colspan="3" bgcolor="#006699" valign="top"> </td>
<td rowspan="10" width="10"></td>
</tr>
<tr>
<td bgcolor="#efefef" valign="top" width="18"> </td>
<td width="124" bgcolor="#efefef" valign="top">Header</td>
<td width="446" bgcolor="#efefef" valign="top">
<input name="overskrift" value="<%=Res("headerTxt") %>" type="Text" size="50" class="input" >
</td>
</tr>
<tr>
<td bgcolor="#efefef" valign="top" width="18"> </td>
<td width="124" bgcolor="#efefef" valign="top">Body text</td>
<td width="446" bgcolor="#efefef" valign="top">
<textarea name="nyhedstekst" cols="49" rows="7" class="input"><%=Res("bodyTxt") %></textarea>
</td>
</tr>
<tr>
<td bgcolor="#efefef" valign="top" width="18"> </td>
<td bgcolor="#efefef" valign="top">Footer</td>
<td bgcolor="#efefef" valign="top">
<input name="overskrift2" value="<%=Res("footerTxt") %>" type="Text" size="50" class="input" >
</td>
</tr>
<tr>
<td bgcolor="#efefef" valign="top" width="18"> </td>
<td width="124" bgcolor="#efefef" valign="top">Name</td>
<td width="446" bgcolor="#efefef" valign="top">
<input name="navn" value="<%=Res("name") %>" type="Text" size="50" class="input" >
</td>
</tr>
<tr>
<td bgcolor="#efefef" valign="top" width="18"> </td>
<td width="124" bgcolor="#efefef" valign="top">Image url</td>
<td width="446" bgcolor="#efefef" valign="top">
<input name="billedeurl" value="<%=Res("imageUrl") %>" type="Text" size="50" class="input" >
</td>
</tr>
<tr>
<td bgcolor="#efefef" valign="top" width="18" rowspan="3"> </td>
<td width="124" bgcolor="#efefef" valign="top">Date Up</td>
<td width="446" bgcolor="#efefef" valign="top">
<input name="datoop" value="<%=Res("dateUp") %>" type="Text" size="50" class="input" >
</td>
</tr>
<tr>
<td width="124" bgcolor="#efefef" valign="top">Date down</td>
<td width="446" bgcolor="#efefef" valign="top">
<input name="datoned" value="<%=Res("dateDn") %>" type="Text" size="50" class="input" >
</td>
</tr>
<tr>
<td width="124" bgcolor="#efefef" valign="top"> </td>
<td width="446" bgcolor="#efefef" valign="top"> </td>
</tr>
<tr>
<td bgcolor="#efefef" valign="top" width="18"> </td>
<td width="124" bgcolor="#efefef" valign="top">Image upload</td>
<td width="446" bgcolor="#efefef" valign="top"><a href="#" onClick="MM_openBrWindow('uploadgfx.asp','kl','scrollbars=yes,width=400,height=200')" class="txtlinks">Choose
image</a><br>
</td>
</tr>
<tr>
<td width="18" height="26"> </td>
<td width="124" height="26"> </td>
<td width="446" height="26">
<div align="right"><br>
<a href="java script:history.go(-1)" target="_self" class="txtlinks"><<
BACK</a> </div>
</td>
<td width="10" height="26"></td>
</tr>
</table>
<font color="#000000">
<input type="submit" value="Save" name="submit" class="submitknap">
</font></FORM>
<br>
<%
case 2
rettxt = Replace(request.form("nyhedstekst"),"'","`")
query = "update tblNews set headerTxt='"&request.form("overskrift")&"',footerTxt='"&request.form("overskrift2")&"',name='"&request.form("navn")&"',imageUrl='"&request.form("billedeurl")&"',dateUp='"&request.form("datoop")&"',dateDn='"&request.form("datoop")&"',bodyTxt='"&rettxt&"' WHERE ID=" & id
DBConn.execute(Query)
Response.redirect("newslist.asp")
case 3
query = "delete from tblNews where ID = " & id
DBConn.Execute(query)
Response.redirect("newslist.asp")
case 4
%>
<form action="news_action.asp?action=5" method="POST" name="opret">
<span class="overskrifter">ADD NEWS</span><br>
<br>
<table width="500" border="0" cellspacing="0" cellpadding="0" class="input">
<tr>
<td colspan="3" bgcolor="#006699" valign="top"> </td>
<td rowspan="10" width="10"></td>
</tr>
<tr>
<td bgcolor="#efefef" valign="top" width="18"> </td>
<td width="124" bgcolor="#efefef" valign="top" class="input">Header</td>
<td width="446" bgcolor="#efefef" valign="top"> <span class="input">
<input name="overskrift_in" type="Text" size="50" class="input" >
</span></td>
</tr>
<tr>
<td bgcolor="#efefef" valign="top" width="18"> </td>
<td width="124" bgcolor="#efefef" valign="top">News text</td>
<td width="446" bgcolor="#efefef" valign="top"> <span class="input">
<textarea name="nyhedstekst_in" cols="49" rows="7" class="input"></textarea>
</span></td>
</tr>
<tr>
<td bgcolor="#efefef" valign="top" width="18"> </td>
<td bgcolor="#efefef" valign="top" class="input">Footer</td>
<td bgcolor="#efefef" valign="top"> <span class="input">
<input name="overskrift2_in" type="Text" size="50" class="input" >
</span></td>
</tr>
<tr>
<td bgcolor="#efefef" valign="top" width="18"> </td>
<td width="124" bgcolor="#efefef" valign="top" class="input">Name</td>
<td width="446" bgcolor="#efefef" valign="top"> <span class="input">
<input name="navn_in" type="Text" size="50" class="input" >
</span></td>
</tr>
<tr>
<td bgcolor="#efefef" valign="top" width="18"> </td>
<td width="124" bgcolor="#efefef" valign="top" class="input">Image url</td>
<td width="446" bgcolor="#efefef" valign="top"> <span class="input">
<input name="billedeurl_in" type="Text" size="50" class="input" >
</span></td>
</tr>
<tr>
<td bgcolor="#efefef" valign="top" width="18" rowspan="3"> </td>
<td width="124" bgcolor="#efefef" valign="top" class="input">Date Up</td>
<td width="446" bgcolor="#efefef" valign="top"> <span class="input">
<input name="datoop_in" type="Text" size="50" class="input" value="<%=date%>" >
</span></td>
</tr>
<tr>
<td width="124" bgcolor="#efefef" valign="top" class="input">Date Down</td>
<td width="446" bgcolor="#efefef" valign="top"> <span class="input">
<input name="datoned_in" type="Text" size="50" class="input" >
</span></td>
</tr>
<tr>
<td width="124" bgcolor="#efefef" valign="top"> </td>
<td width="446" bgcolor="#efefef" valign="top"> </td>
</tr>
<tr>
<td bgcolor="#efefef" valign="top" width="18"> </td>
<td width="124" bgcolor="#efefef" valign="top" class="input">Image upload</td>
<td width="446" bgcolor="#efefef" valign="top" class="input"><a href="#" onClick="MM_openBrWindow('uploadgfx.asp','kl','scrollbars=yes,width=400,height=200')" class="txtlinks">Choose
image</a><br>
</td>
</tr>
<tr>
<td width="18" height="26"> </td>
<td width="124" height="26"> </td>
<td width="446" height="26" class="input">
<div align="right"><br>
<a href="java script:history.go(-1)" target="_self" class="txtlinks"><<
TILBAGE</a> </div>
</td>
<td width="10" height="26"></td>
</tr>
</table>
<p><font color="#000000" class="bodytxt">
<input type="submit" value="Submit" name="submit" class="submitknap">
</font> </p>
</FORM>
<br>
<%
case 5
query = "insert into tblNews (headerTxt,footerTxt,bodyTxt,name,imageUrl,dateUp,dateDn) values ('"&request.form("overskrift_in")&"','"&request.form("overskrift2_in")&"','"&request.form("nyhedstekst_in")&"','"&request.form("navn_in")&"','"&request.form("billedeurl_in")&"','"&request.form("datoop_in")&"','"&request.form("datoned_in")&"')"
DBConn.execute(Query)
Response.redirect("newslist.asp")
'case else
'Response.write("Denne side kan ikke bruges denne måde")
end select
%>
<!--#include file="../include/DBclose.asp" -->
</body>
</html>
