sammenlign data fra udtræk fra databasen
Er der nogen der kan se hvor for jeg ikke ændre værdien i min variabel 'booksum' som skulle indholde værdien i mit array = arrRecords(1,i) Som igen er et udtræk fra min database record rs("strBooking")Det hele gælder om at hvis rs("strBooking") indeholder værdien 1, og hvis session("rb_value") = 2 skal der kun skrives til DB ellers ikke.
hvis rs("strBooking") indeholder værdien 2, og hvis session("rb_value") = 1 skal der kun skrives til DB ellers ikke.
hvis rs("strBooking") indeholder værdien 1 eller 2, og hvis session("rb_value") = 3 skal der ikke skrives til DB.
Håber det er til at forstå!
Venligst
Gizom:>
'-----------Kode--------------
'tjek for manglende indtastning
sub Tjekker 'hvis en af session er tomme eller forkert sendes tilbage med fejlkode i session(Tjek1,2,3,4 og 5)
if left(Session("Bookingday"),1) = "-" or Session("strNavn") = "" or Session("strAdresse") = "" or Session("strTelefon") = "" or Session("rb_value") = "" then
response.redirect "bookingform.asp"
else
'open db
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath ("data/kalender.mdb")
Conn.Open DSN
strSQL = "SELECT strDato,strBooking From tbl_kalender"
Set rs = Conn.Execute(strSQL)
'Tjek om værdien af rs(strBooking) = 1 , 2 , 3
NyDato = session("BookingDay")
'lægger records ind i Array
if not rs.eof then
arrRecords = rs.getrows()
end if
booksum=0
'\ tjekker indholdet af array'et
if isarray(arrRecords) then
for i=0 to ubound(arrRecords,2)'
if Day(arrRecords(0,i)) = NyDato then
booksum=booksum + arrRecords(1,i)
end if
response.write "Booksum : " & booksum & "<br>"
select case Cint(booksum) 'hvis booksum er:
'"0" skal der skrive til DB
'"1" så skal der kun skrives hvis session("rb_value") = 2
'"2" så skal der kun skrives hvis session("rb_value") = 1
'"3" så skal der ikke skrive til DB hvis session("rb_value") = 3
case 0 'hvis der ikke er nogle aftaler
strAftaler ="0"
strStatus ="Ingen"
case 1 'formiddag optaget
strAftaler ="1"
strStatus ="formiddag optaget"
case 2 'eftermiddag optaget
strAftaler ="2"
strStatus ="eftermiddag optaget"
case else ' hvis dagen er optaget
strAftaler ="3"
strStatus ="dagen er optaget"
end select
response.write "strStatus : " & strStatus & "<br>"
response.write "strAftaler : " & strAftaler & "<br>"& "<br>"
if strAftaler = "3" then
'der skal ikke skrives til db sendes "overbookning.asp"
'response.redirect "overbooking.asp"
end if
if strAftaler = "2" and session("rb_value") = 1 then
'strSQL = "Insert into tbl_kalender(strDato, strNavn, strAdresse, strTelefon, strBooking) VALUES ('"&Session("Bookingday")&"','"&Session("strNavn")&"','"&Session("strAdresse")&"','"&Session("strTelefon")&"','"&Session("rb_value")&"')"
'Set rs = Conn.Execute(strSQL)
'response.redirect "okbooking.asp"
end if
if strAftaler = "1" and session("rb_value") = 2 then
'strSQL = "Insert into tbl_kalender(strDato, strNavn, strAdresse, strTelefon, strBooking) VALUES ('"&Session("Bookingday")&"','"&Session("strNavn")&"','"&Session("strAdresse")&"','"&Session("strTelefon")&"','"&Session("rb_value")&"')"
'Set rs = Conn.Execute(strSQL)
'response.redirect "okbooking.asp"
end if
'skriver til DB
'strSQL = "Insert into tbl_kalender(strDato, strNavn, strAdresse, strTelefon, strBooking) VALUES ('"&Session("Bookingday")&"','"&Session("strNavn")&"','"&Session("strAdresse")&"','"&Session("strTelefon")&"','"&Session("rb_value")&"')"
'Set rs = Conn.Execute(strSQL)
next
else
'Luk database
Conn.Close
Set Conn = Nothing
response.redirect "booking.asp"
end if
end if
end sub
