Her er koden fra den CASE hvor fejlen op står i
<%
case "ret"
Session.LCID = 1030
Response.Buffer = "True"
ret = Request.QueryString("ret")
'if not isempty(ret) and isnumeric(ret) then
strSQL = "SELECT * FROM Koncerter WHERE Koncert_ID=" & ret
Set rs = myConn.Execute(strSQL)
'else
'response.write "ret er ikke numerisk!"
'response.end
'end if
Response.AddHeader "cache-control","private"
Response.AddHeader "pragma","no-cache"
Response.CacheControl = "no-cache"
Response.CacheControl = "private"
Response.Expires = -1
Response.ExpiresAbsolute = Now() -1
%><!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "
http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd"><html xmlns="
http://www.w3.org/1999/xhtml" xml:lang="en" lang="en">
<head>
<title>Ikast-Telt.dk</title>
<meta http-equiv="content-type" content="text/html; charset=iso-8859-1" />
<meta http-equiv="expires" content="-1" />
<meta http-equiv="pragma" content="no-cache" />
<meta name="author" content="Ikast-Telt.dk" />
<meta name="description" content="Ikast-Telt.dk" />
<meta name="keywords" content="Ikast-Telt.dk" />
<link href="kalender.css" rel="stylesheet" type="text/css" />
<script type="text/javascript">
<!--
function GoToURL()
{
window.location="admin.asp?page=ret&ret=<%=rs("Koncert_ID")%>";
}
//-->
</script>
</head>
<body>
<!-- INDHOLD START -->
<div id="indhold">
<br />
<br />
<br />
<br />
<!-- FORMULAR START -->
<table cellpadding="10" cellspacing="0" style="margin-left: auto; margin-right: auto; width: 350px">
<tr>
<td style="width: 100%" valign="top">
<!-- FORM NAME NØDVENDIGT FOR "DATE PICKER" -->
<form action="admin.asp?page=ret&Koncert_ID" method="post" name="koncert_formular">
<div>
<%
' -> DENNE FUNKTION KONVERTERER MS ACCESS DATABASE DATO FORMATET 'MM/DD/ÅÅÅÅ' TIL 'MM/DD/ÅÅ' FOR DATO SAMMENLIGNING.
Function exFormatDate(strDate, DateTemplate)
If not IsDate(strDate) Then
exFormatDate = strDate
Exit Function
End If
DateTemplate = replace(DateTemplate,"%mmmm",MonthName(DatePart("m",strDate),False),1,-1,0)
DateTemplate = replace(DateTemplate,"%mmm",MonthName(DatePart("m",strDate),True),1,-1,0)
DateTemplate = replace(DateTemplate,"%mm",right("0" & DatePart("m",strDate),2),1,-1,0)
DateTemplate = replace(DateTemplate,"%m",DatePart("m",strDate),1,-1,0)
DateTemplate = replace(DateTemplate,"%dddd",WeekDayName(DatePart("w",strDate,1),False),1,-1,0)
DateTemplate = replace(DateTemplate,"%ddd",WeekDayName(DatePart("w",strDate,1),True),1,-1,0)
DateTemplate = replace(DateTemplate,"%dd",right("0" & DatePart("d",strDate),2),1,-1,0)
DateTemplate = replace(DateTemplate,"%d",DatePart("d",strDate),1,-1,0)
DateTemplate = replace(DateTemplate,"%o",intToOrdinal(DatePart("d",strDate)),1,-1,0)
DateTemplate = replace(DateTemplate,"%yyyy",DatePart("yyyy",strDate),1,-1,0)
DateTemplate = replace(DateTemplate,"%yy",right(DatePart("yyyy",strDate),2),1,-1,0)
DateTemplate = replace(DateTemplate,"%y",cInt(right(DatePart("yyyy",strDate),2)),1,-1,0)
exFormatDate = DateTemplate
End Function
Function intToOrdinal(i)
sNum = cStr(i)
iNum = i mod 10
Select Case iNum
Case 1
sExt = "st"
Case 2
sExt = "nd"
Case 3
sExt = "rd"
Case Else
sExt = "th"
End Select
If i > 10 And i <20 Then sExt = "th"
sNum = sNum & sExt
intToOrdinal = sNum
End Function
Dim Koncert_Dato_Formular, Koncert_Dato_Database
Koncert_Dato_Formular = Request.Form("Koncert_Dato")
Koncert_Dato_Database = rs("Koncert_Dato")
Dim Koncert_Sted_Formular, Koncert_Sted_Database
Koncert_Sted_Formular = Request.Form("Koncert_Sted")
Koncert_Sted_Database = rs("Koncert_Sted")
' -> DETTE GODKENDER INDHOLDET FRA FORMULARFELTERNE.
ValidateForm = Request.Form("ValidateForm")
If ValidateForm = "Yes" Then
Koncert_Dato = Request.Form("Koncert_Dato")
Koncert_Sted = Trim(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Request.Form("Koncert_Sted"), "=", ""), "<", ""), ">", ""), """", """), "'", "´"), " ", " "), " ", " "))
If Koncert_Dato = "" Then
Error_Koncert_Dato = "Yes"
End If
If Koncert_Sted = "" Then
Error_Koncert_Sted = "Yes"
End If
End If
If ValidateForm = ""_
Or Error_Koncert_Dato = "Yes"_
Or Error_Koncert_Sted = "Yes"_
Then
%>
<span class="plain_text"><span class="bold">Koncert Dato</span> (mm/dd/åå) <span class="error"><%If Error_Koncert_Dato = "Yes" Then Response.Write "Hovsa! Prøv igen..." End If%></span>
<br /><input name="koncert_dato" onfocus="this.blur();" style="width: 100px" type="text" value="<%If Request.Form("koncert_formular") = "REDIGÉR" Then Response.Write exFormatDate(Koncert_Dato_Formular, "%mm/%dd/%yy") Else Response.Write exFormatDate(Koncert_Dato_Database, "%mm/%dd/%yy") End If%>" /><a href="java script:void(window.open('includes/date_picker_koncerter.html?koncert_dato', '', 'width=200,height=210,top=250,left=250'))"><img alt="Dato Vælger" height="16" src="../images//kalender.gif" style="border: 0px" title="Dato Vælger" width="16" /></a>
<br /></span>
<input type="hidden" name="Koncert_ID" value="<%=Koncert_ID%>" />
<br />
<span class="plain_text"><span class="bold">Koncert Sted</span> <span class="error"><%If Error_Koncert_Sted = "Yes" Then Response.Write "Hovsa! Prøv igen..." End If%></span>
<br /><input maxlength="255" name="koncert_sted" style="width: 260px" type="text" value="<%If Request.Form("koncert_formular") = "REDIGÉR" Then Response.Write Koncert_Sted_Formular Else Response.Write Koncert_Sted_Database End If%>" />
<br /></span>
<br />
<table>
<tr>
<td><input class="button" onmouseout="this.className='button'" onmouseover="this.className='buttonHover'" type="submit" value="REDIGÉR" /></td>
<td><input class="button" onclick="GoToURL();" onmouseout="this.className='button'" onmouseover="this.className='buttonHover'" type="reset" value="BEGYND FORFRA" /></td>
</tr>
</table>
<!-- BEMÆRK: KNAPPERNE ER PLACEREDE I EN TABEL FOR FULD UDNYTTELSE AF 'mouseover' EGENSKABERNE I OPERA 7 BROWSEREN -->
<input name="ValidateForm" type="hidden" value="Yes" />
</div>
</form>
</td>
</tr>
</table>
<!-- FORMULAR SLUT -->
</div>
<!-- INDHOLD SLUT -->
</body>
</html>
<%
Function Dansk_Dato(dato_paa_dansk)
Dansk_Dato = Year(dato_paa_dansk) & "/" & Month(dato_paa_dansk) & "/" & Day(dato_paa_dansk)
End Function
Else
' -> DETTE ER VARIABLERNE FRA FORMULARFELTERNE.
'Dim Koncert_Dato
'Dim Koncert_Sted
Koncert_ID = replace(Request.Form("Koncert_ID"),"'","''")
Koncert_Dato = Dansk_Dato(Request.Form("Koncert_Dato"))
Koncert_Sted = replace(Request.Form("Koncert_Sted"),"'","''")
Koncert_ID = Request.QueryString("Koncert_ID")
sql = "SELECT * FROM koncerter WHERE Koncert_ID ="&Koncert_ID
set rs = myConn.Execute(sql)
strSQL = "update koncerter set Koncert_Dato='"&Koncert_Dato&"', Koncert_Sted='"&Koncert_Sted&"' WHERE Koncert_ID="&Koncert_ID
myConn.Execute(strSQL)
rs.Close
Set rs = Nothing
myConn.Close
Set myConn = Nothing
Response.Redirect("default.htm")
End If
%>