udbygning af kalender system
Hej alle her i forumetjeg har et ASP kalender scipt som jeg virke ganske godt, men jeg ville gerne lave nogle ændringer på det.
Jeg ville gerne gøre det muligt at man skulle kunne booke en event over flere dage, altså her et eksempel : Det kunne nok laves med to datepicker hvor man først vægler start datoen og dernæst slut datoen.
Den nuværende løsning gør det muligt at vægler en bestemt dato fra en datepicker denne dato vil som blive markeret med rød i kalenderen problemmet er så at hvis som i dette her tilfælde ønsker at at telte skal udlejes i flere dage så skal man gennemgå det samme mange gange.
Håber dette giver mening på forhånd tak for hjælpen.
Her er koden hvor datoen bliver oprette i kalenderen.
<code>
<%
case "Opret Dato"
Session.LCID = 1030
Response.Buffer = "True"
' -> DETTE ER VARIABLERNE TIL DATABASEN.
Dim myConn
Dim strSQL
' -> DSNLess FORBINDELSE TIL DATABASEN.
Set myConn = Server.CreateObject("ADODB.Connection")
myConn.Open = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("../koncerter.mdb")
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>Koncert Kalender</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="Koncert Kalender" />
<meta name="description" content="Koncert Kalender" />
<meta name="keywords" content="Koncert Kalender" />
<script type="text/javascript">
<!--
function GoToURL()
{
window.location="amin.asp?page=Opret Dato";
}
//-->
</script>
</head>
</head>
<body>
<!-- INDHOLD START -->
<div id="indhold">
<!-- FORMULAR START -->
<table cellpadding="10" cellspacing="0" style="margin-left: 0px; margin-top:10px; width: 350px">
<tr>
<td style="width: 100%" valign="top">
<!-- FORM NAME NØDVENDIGT FOR "DATE PICKER" -->
<form action="admin.asp?page=Opret Dato" method="post" name="koncert_formular">
<div>
<%
' -> 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"> 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="<%=Koncert_Dato%>" />
<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>
<br />
<span class="plain_text"><span class="bold">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="<%=Koncert_Sted%>" />
<br /></span>
<br />
<table>
<tr>
<td><input class="button" onMouseOut="this.className='button'" onMouseOver="this.className='buttonHover'" type="submit" value="TILFØJ" /></td>
<td><input class="button" onClick="GoToURL();" onMouseOut="this.className='button'" onMouseOver="this.className='buttonHover'" type="reset" value="SLET" /></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 = Month(dato_paa_dansk) & "/" & Day(dato_paa_dansk) & "/" & Year(dato_paa_dansk)
End Function
Else
strSQL = "SELECT * FROM Koncerter"
Set rs = Server.CreateObject("ADODB.recordset")
rs.Open strSQL, myConn, 1, 3
' -> THESE ARE THE VARIABLES FROM THE FORM FIELDS.
Dim Koncert_Dato
Dim Koncert_Sted
rs.AddNew
rs("Koncert_Dato") = Dansk_Dato(Request.Form("Koncert_Dato"))
rs("Koncert_Sted") = Trim(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Request.Form("Koncert_Sted"), "=", ""), "<", ""), ">", ""), """", """), "'", "´"), " ", " "), " ", " "))
rs.Update
rs.Close
Set rs = Nothing
myConn.Close
Set myConn = Nothing
Response.Redirect("admin.asp")
End If
%>
</code>