Film side og online redigering!!
Jeg er ved at lave en biograf side hvor det skal være muligt for chef operatøren at redigere vagtplan online.Jeg bruger 3 tabeller i databasen og der er ikke noget problem i at hente dataen. Jeg får dog et problem når jeg skal opdatere informationerne.
Rediger siden starter sådan her:
<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath ("_database12/brugere.mdb")
Conn.Open DSN
Dim samletAntal
strSQL = "SELECT * FROM uge ORDER BY id"
Set rs = Conn.Execute(strSQL)
strSQL = "SELECT * FROM film ORDER BY id"
Set rs2 = Conn.Execute(strSQL)
strSQL = "SELECT * FROM operatoer ORDER BY id"
Set rs3 = Conn.Execute(strSQL)
%>
Og opdater siden ser ud som følger:
<%
fejl = false
id = Request.Form("id")
uge1 = Request.Form("uge1")
uge2 = Request.Form("uge2")
uge3 = Request.Form("uge3")
uge4 = Request.Form("uge4")
uge5 = Request.Form("uge5")
dato1 = Request.Form("dato1")
dato2 = Request.Form("dato2")
dato3 = Request.Form("dato3")
dato4 = Request.Form("dato4")
dato5 = Request.Form("dato5")
6a = Request.Form("6a")
6b = Request.Form("6b")
6c = Request.Form("6c")
6d = Request.Form("6d")
6e = Request.Form("6e")
7a = Request.Form("7a")
7b = Request.Form("7b")
7c = Request.Form("7c")
7d = Request.Form("7d")
7e = Request.Form("7e")
8a = Request.Form("8a")
8b = Request.Form("8b")
8c = Request.Form("8c")
8d = Request.Form("8d")
8e = Request.Form("8e")
if fejl = false then
beskrivelse = Replace(beskrivelse, "'", "''")
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath ("_database12/brugere.mdb")
Conn.Open DSN
strSQL = ("UPDATE uge SET uge1='" & uge1 & "', uge2='" & uge2 & "', uge3='" & uge3 & "', uge4='" & uge4 & "', uge5='" & uge5 & "', dato1='" & dato1 & "', dato2='" & dato2 & "', dato3='" & dato3 & "', dato4='" & dato4 & "', dato5='" & dato5 & "' WHERE id=" & id)
strSQL = ("UPDATE film SET 6a='" & 6a & "', 6b='" & 6b & "', 6c='" & 6c & "', 6d='" & 6d & "', 6e='" & 6e & "', 7a='" & 7a & "', 7b='" & 7b & "', 7c='" & 7c & "', 7d='" & 7d & "', 7e='" & 7e & "', 8a='" & 8a & "', 8b='" & 8b & "', 8c='" & 8c & "', 8d='" & 8d & "', 8e='" & 8e & "' WHERE id2=" & id)
Conn.Execute(strSQL)
Conn.Close
Set Conn = Nothing
response.redirect "vagtplan.asp"
end if
%>
Jeg håber i kan fortælle mig hvad jeg laver galt da jeg stadig er i lære processen:-)
