opdatere ikke
hvorfor opdateres broadcast ikke i databasen? Den giver ingen fejl, men er altid false?<%
' Initialisering af databaseconnection
Set oConn = Server.CreateObject("ADODB.connection")
oConn.ConnectionString = "DRIVER={Microsoft Access Driver (*.mdb)};" & _
"DBQ=d:\www\blalba.mdb"
oConn.Open
post = CBool( Request.ServerVariables("content_length")>0 )
if not post then
id = Request.QueryString("id")
sql = "SELECT * FROM aktiviteter Where id=" & id
Set oRS = oConn.Execute (sql)
if not oRS.EOF then
aktivitet = oRS("Aktivitet")
theType = oRS("Type")
kort = oRS("kort_beskrivelse")
lang = oRS("lang_beskrivelse")
datofra = oRS("Datofra")
datotil = oRS("Datotil")
sted = oRS("sted")
Arrangor = oRS("Arrangør")
CH1 = oRS("CH1")
CH2 = oRS("CH2")
CH3 = oRS("CH3")
CH4 = oRS("CH4")
CH5 = oRS("CH5")
CH6 = oRS("CH6")
CH7 = oRS("CH7")
CH8 = oRS("CH8")
CH9 = oRS("CH9")
CH10 = oRS("CH10")
broadcast = oRS("broadcast")
end if
function tilDanskFormat (dato)
dim dag, maaned, aar, newDate
newDate = DatePart("d", dato) & "/" & DatePart("m", dato) & "/" & DatePart("yyyy", dato)
tilDanskFormat = newDate
end function
function tilEngelskFormat (dato)
dim dag, maaned, aar, newDate
dag = left(dato,instr(dato,"/")-1)
maaned = mid (dato, instr(dato,"/")+1,InStrRev(dato,"/")-instr(dato,"/")-1)
aar = mid (dato, InStrRev(dato,"/")+1)
newDate = CDate(DateSerial( aar, maaned, dag))
tilEngelskFormat = newDate
end function
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<!-- #include file="../stylesheet.asp" -->
</head>
<BODY>
<% 'Response.Write (tilEngelskFormat(dato))%>
<% 'Response.Write (broadcast)%>
<Form action=rediger_aktivitet.asp method=post>
<P>Dato fra (dd/mm/aaaa)<BR><input type=text name=Datofra size=35 value="<%=datofra%>">
- Klar for tilmelding: <input type="checkbox" name="broadcast" value="" <%If broadcast = "True" Then Response.Write("checked") : Response.Write("")%>></P>
<P>Dato til (dd/mm/aaaa) (Skal ikke udfyldes)<BR><input type=text name=Datotil size=35 value="<%=datotil%>"></P>
<P>Type<BR>
<select name=type>
<option value=møde>Møde
<option value=konference<%if Request.QueryString("type")="konference" or theType="konference" then%> selected<%end if%>>Konference
</select>
<P>Aktivitet<BR><input type=text name=Aktivitet size=35 value="<%=Aktivitet%>"></P>
<P>Sted<BR><input type=text name=Sted size=35 value="<%=Sted%>"></P>
<P>Arrangør<BR><textarea name=Arrangør rows=5 cols=50><%=Arrangor%></textarea></P>
<P>Kort beskrivelse<BR><textarea name=kort_beskrivelse rows=5 cols=50><%=Kort%></textarea></P>
<P>Lang beskrivelse<BR><textarea name=lang_beskrivelse rows=15 cols=50><%=Lang%></textarea></P>
Valgmuligheder<i> (Hvis der ikke står noget i boksene, vises de ikke på
tilmeldingssiden!)</i><br>
<input type="text" name="CH1" size="20" value="<%=CH1%>"><br>
<input type="text" name="CH2" size="20" value="<%=CH2%>"><br>
<input type="text" name="CH3" size="20" value="<%=CH3%>"><br>
<input type="text" name="CH4" size="20" value="<%=CH4%>"><br>
<input type="text" name="CH5" size="20" value="<%=CH5%>"><br>
<input type="text" name="CH6" size="20" value="<%=CH6%>"><br>
<input type="text" name="CH7" size="20" value="<%=CH7%>"><br>
<input type="text" name="CH8" size="20" value="<%=CH8%>"><br>
<input type="text" name="CH9" size="20" value="<%=CH9%>"><br>
<input type="text" name="CH10" size="20" value="<%=CH10%>"><br>
<P><INPUT name=submit1 type=submit value=Opdater> <INPUT name=Slet type=submit></P>
<input type=hidden name=id value="<%= id %>">
</form>
</BODY></HTML>
<%
else
if Request.Form("Slet")<> "" then
oConn.Execute("DELETE from aktiviteter Where id=" & Request.Form("id"))
if Request.Form("Type") = "konference" then
Response.Redirect("vis_aktivitet.asp?vis=konference")
else
Response.Redirect("vis_aktivitet.asp")
end if
end if
sql = "SELECT * FROM aktiviteter Where id=" & Request.Form("id")
'response.Write(sql)
Set oRS = Server.CreateObject("ADODB.recordset")
oRS.Open sql, oConn, 2, 2
if oRS.EOF then oRS.AddNew
oRS("Aktivitet") = Request.Form("Aktivitet")
oRS("Sted") = Request.Form("Sted")
oRS("Type") = Request.Form("Type")
oRS("kort_beskrivelse") = Request.Form("kort_beskrivelse")
oRS("arrangør") = Request.Form("arrangør")
oRS("lang_beskrivelse") = Request.Form("lang_beskrivelse")
oRS("Datofra") = Request.Form("Datofra")
if Request.Form("Datotil")<>"" then
oRS("Datotil") = Request.Form("Datotil")
else
oRS("Datotil") = NULL
end if
oRS("CH1") = Request.Form("CH1")
oRS("CH2") = Request.Form("CH2")
oRS("CH3") = Request.Form("CH3")
oRS("CH4") = Request.Form("CH4")
oRS("CH5") = Request.Form("CH5")
oRS("CH6") = Request.Form("CH6")
oRS("CH7") = Request.Form("CH7")
oRS("CH8") = Request.Form("CH8")
oRS("CH9") = Request.Form("CH9")
oRS("CH10") = Request.Form("CH10")
If Request.Form("broadcast") = "True" Then
oRS("broadcast") = True
Else
oRS("broadcast") = False
End If
oRS.Update
if Request.Form("Type") = "konference" then
Response.Redirect("vis_aktivitet.asp?vis=konference")
else
Response.Redirect("vis_aktivitet.asp")
end if
end if
%>
