Hjælp til lille udvidelse af asp kalender
Jeg har en asp kalender, som viser begivenheder med tid/sted/adresse og detaljer i en liste. Desuden en "adm" del, hvor man kan slette og oprette begivenheder. Det er baseret på en MsSql database.Jeg vil gerne have den udvidet, så brugeren kan skrive afbud ind så de kommer til at stå i kalenderen.
Jeg havde forestillet mig, at man bare kunne lave et felt, der hedder "afbud" og så skrive sit navn ind i en form og at navnet så kom til at stå under "afbud". Man må også gerne kunne slette et afbud igen.
Alle brugerne har iøvrigt samme login, så det skal ikke gøres afhængig af loginnavnet.
Det er helt uoverskueligt for mig, da det er til en hjemmeside, som jeg ikke selv har lavet (jeg kan ikke ret meget asp), så enhver hjælp vil blive påskønnet overordentligt.
Her er sourcen til siden:
-----------------------------------------------------------
<br>
<%
If Session("adm") = "JA" Then
tekst = Request.Form("tekst")
tekst = Replace(tekst, "'", "''")
tekst = Replace(tekst, vbCrLf, "<br>")
dato = request.form("dato")
kl = request.form("kl")
arr = request.form("arr")
sted = request.form("sted")
adr = request.form("adr")
post = request.form("post")
if len(dato) > 0 then
' Databaseforbindelse - husk at angive sti til din database
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath(".../db/vocal.mdb")
Conn.Open DSN
strSQL = "Insert into Kalender (Dato, Klokkeslet, Arr, Sted, Adr, Postnr_by, Besked) values('" & dato
strSQL = strSQL & "', '" & kl & "', '" & arr & "', '" & sted & "', '" & adr & "', '" & post & "', '" & tekst & "')"
Conn.Execute(strSQL)
' Luk databaseforbindelse
Conn.Close
Set Conn = Nothing
End if
slet = request.form("slet")
if len(slet) > 0 then
' Databaseforbindelse - husk at angive sti til din database
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath(".../db/vocal.mdb")
Conn.Open DSN
strSQL = "Delete from Kalender where Id = " & slet
Conn.Execute(strSQL)
' Luk databaseforbindelse
Conn.Close
Set Conn = Nothing
End if
Response.Write "<form action='indexn.asp?art=kal' method='post' name='kalender' id='kalender'>"
Response.Write "<table width=""500"" border=""1"" align=""center"" cellpadding=""0"" cellspacing=""0"" bordercolor=""#ffffff"">"
Response.Write "<td bgcolor=""#cc0000"" class=""k"" width='100' height='20' valign='center' background-color='#800000'>Dato:<input type='text' name='dato' id='dato'></td>"
Response.Write "<td class=""k"" width='100' height='20' valign='center'>Kl:<input type='text' name='kl' id='kl'></td>"
Response.Write "<td class=""k"" width='200' height='20' valign='center'>Arrangement:<input type='text' name='arr' id='arr'></td>"
Response.Write "<td class=""k"" width='200' rowspan='2' valign='center'>Sted:<input type='text' name='sted' id='sted'><br>"
Response.Write "Adr:<input type='text' name='adr' id='adr'><br>Post/by:<input type='text' name='post' id='post'></td></tr><tr>"
Response.Write "<td class=""k"" width='400' height='40' colspan='3' valign='center'><textarea cols='40' rows='5' name='tekst'></textarea></td></tr>"
Response.Write "</table><input type='submit' name='Submit' value='Indsæt'></form><br>"
End if
'**************************************************************
Response.Write "<table width=""500"" border=""1"" align=""center"" cellpadding=""0"" cellspacing=""0"" bordercolor=""#800000"">"
Response.Write "<form action='indexn.asp?art=kal' method='post' name='slet' id='slet'>"
' Databaseforbindelse - husk at angive sti til din database
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("../db/vocal.mdb")
Conn.Open DSN
' SQL forespørgsel
strSQL = "Select * from Kalender Order By Dato, Klokkeslet"
' Udfør forespørgsel (rs indeholder nu resultatet)
Set rs = Conn.Execute(strSQL)
Do While Not rs.EOF
Response.Write "<tr bgcolor=""#800000"">"
If Session("adm") = "JA" Then
Response.Write "<td><input type='radio' name='slet' value='" & rs("Id") & "'></td>"
End if
Response.Write "<td class=""k"" width='125' height='15' valign='center'>" & FormatDateTime(Rs("Dato"), vbShortDate) & "</td>"
Response.Write "<td class=""k"" width='50' height='15' valign='center'>" & FormatDateTime(Rs("Klokkeslet"), vbShortTime) & "</td>"
Response.Write "<td class=""k"" width='150' height='15' valign='center'>" & Rs("Arr") & "</td>"
Response.Write "<td class=""k"" width='200' rowspan='2' valign='center'>" & Rs("Sted") &"<br>"
Response.Write Rs("Adr") & "<br>" & Rs("Postnr_by") & "</td></tr><tr>"
Response.Write "<td class=""k"" width='300' height='30' colspan='3' valign='center'>" & Rs("besked") & "</td>"
Response.Write "</tr>"
rs.MoveNext
Loop
' Luk databaseforbindelse
Conn.Close
Set Conn = Nothing
Response.write "</table><br>"
If Session("adm") = "JA" Then
Response.write "<input type='submit' name='Submit' value='Slet'><input type='reset' name='reset' value='Reset'></form>"
End If
%>
---------------------------------------------------
Mvh. Claus
