25. januar 2004 - 23:17Der er
5 kommentarer og 1 løsning
gemme data fra form til database!
hej alle.
Jeg har en side hvor man igennem en masse listboks kan vælge noget. derefter vil jeg gerne have at de her ting skal kunne gemmes i en database igennem knap. en af mine venner har hjulpet lidt men det virker ikke nu, og han ude og rejse.
Function BookingCheck() if Request.Form("Tilfoej") = "" then BookingCheck = 1 Exit Function end if
i = -1 j = 0 Error = False
Redim Error_Array(1)
For Each FE In Request.Form if FE <> "Tilfoej" then TmpStr = Trim(Request.Form(FE)) if TmpStr = "" then j = j + 1 Error = True ReDim Preserve Error_Array(j) Error_Array(j-1) = FE end if end if Next
if not CheckDateTime("x_afrejse1,x_ankomst1") then Error = True end if
if Error then BookingCheck = 1 Exit Function end if
End Function
'startup code
if BookingCheck = 0 then OpretBooking end if
%>
Det er sådan at de ting man vælger ligger i en tabel og i den tabel er noget der hedder antal. og for hver oprettet billet skal der minuses fra antalet, men problemmet kommer da man kan oprette billeter til 10 mennesker på en billet(man vælger det i en listboks (der er 3 af dem))
Vi mangler noget kode og database beskrivelse. Får du en fejl eller er det en funktion du vil have tilføjet??? Hvis det er en fejlkode vil vi gerne have den også....
if session("login") = "" Then ' Response.redirect("login.asp") end if
Dim Error_Array() Dim j Dim Selected Dim ComboBox_Str Dim FirstRow Dim Arrival,Arrival1,Antal,Antal1,PrisVoksenSalg,PrisVoksenSalg1,PrisBarnSalg,PrisBarnSalg1,PrisInfantSalg,PrisInfantSalg1,terminal,Terminal1
Function OpretBooking()
Response.Write("Opret Booking...")
End Function
Sub ShowReturnValue(aFe) Response.Write(Request.Form(aFe)) End Sub
Sub ShowError(aFE) ReturnValue = "" For Each Ele In Error_Array if Ele = aFE then ReturnValue = "<font size='1' color='#FF0000'> *</font>" Exit For end if Next 'Response.Write(Ele) Response.Write(ReturnValue) end Sub
rsObj.Close Set rsObj = Nothing Set cmdObj = Nothing DataConn.Close Set DataConn = Nothing End Sub
Sub DisableCombobox(aFe) ComboBox_Str = "<select disabled='True' style='width:130px' name='" & aFe & "' onchange='document.forms[0].submit();' " &_ "id='" & aFe & "'><option selected='True'>Vælg</option></select>" Response.Write(ComboBox_Str) End Sub
Sub ShowFra(aFe) if aFe = "Afrejse" then FirstRow = True else FirstRow = False End if GetComboData aFe,"SELECT Distinct x_afrejse FROM flight ORDER BY x_afrejse ASC" End Sub
Sub ShowTil(aFe) if Selected then if FirstRow then Afrejse = Request.Form("Afrejse") else Afrejse = Request.Form("Afrejse1") End if Sql_Str = "SELECT Distinct x_ankomst FROM flight WHERE (x_afrejse='" &_ Afrejse & "') ORDER BY x_ankomst ASC" GetComboData aFe,Sql_Str else DisableCombobox(aFe) End if End Sub
Sub ShowFlight(aFe) if Selected then if FirstRow then Ankomst = Request.Form("Ankomst") Afrejse = Request.Form("Afrejse") else Ankomst = Request.Form("Ankomst1") Afrejse = Request.Form("Afrejse1") End if
Sql_Str = "SELECT Distinct x_flightnr,x_Destairlines FROM flight WHERE (x_afrejse='" &_ Afrejse & "') AND (x_ankomst='" & Ankomst &_ "') ORDER BY x_Destairlines ASC" GetComboData aFe,Sql_Str else DisableCombobox(aFe) End if End Sub
Sub ShowDato(aFe) if Selected then if FirstRow then Ankomst = Request.Form("Ankomst") Afrejse = Request.Form("Afrejse") Tmp_Array = Split(Request.Form("flightnr"),":") Flightnr = Trim(Tmp_Array(0)) else Ankomst = Request.Form("Ankomst1") Afrejse = Request.Form("Afrejse1") Tmp_Array = Split(Request.Form("flightnr1"),":") Flightnr = Trim(Tmp_Array(0)) End if Sql_Str = "SELECT Distinct x_afrejsedato FROM flight WHERE (x_afrejse='" &_ Afrejse & "') AND (x_ankomst='" & Ankomst &_ "') AND (x_flightnr='" & Flightnr & "') ORDER BY x_afrejsedato ASC" GetComboData aFe,Sql_Str else DisableCombobox(aFe) End if End Sub
Sub ShowDepart(aFe) if Selected then if FirstRow then Ankomst = Request.Form("Ankomst") Afrejse = Request.Form("Afrejse") Tmp_Array = Split(Request.Form("flightnr"),":") Flightnr = Trim(Tmp_Array(0)) Afrejsedato = Request.Form("afrejsedato") else Ankomst = Request.Form("Ankomst1") Afrejse = Request.Form("Afrejse1") Tmp_Array = Split(Request.Form("flightnr1"),":") Flightnr = Trim(Tmp_Array(0)) Afrejsedato = Request.Form("hjemrejsedato") End if Sql_Str = "SELECT x_depart FROM flight WHERE (x_afrejse='" &_ Afrejse & "') AND (x_ankomst='" & Ankomst &_ "') AND (x_flightnr='" & Flightnr & "') " &_ "AND (x_afrejsedato='" & Afrejsedato & "') ORDER BY x_depart ASC" GetComboData aFe,Sql_Str else DisableCombobox(aFe) End if End Sub
Sub ShowArrival(aFe) if Selected then if FirstRow then Afrejse = Request.Form("Afrejse") Tmp_Array = Split(Request.Form("flightnr"),":") Flightnr = Trim(Tmp_Array(0)) Afrejsedato = Request.Form("afrejsedato") Depart = Request.Form("depart") else Afrejse = Request.Form("Afrejse1") Tmp_Array = Split(Request.Form("flightnr1"),":") Flightnr = Trim(Tmp_Array(0)) Afrejsedato = Request.Form("hjemrejsedato") Depart = Request.Form("depart1") End if
Sql_Str = "SELECT x_arrival,x_antal,x_PrisVoksenSalg,x_PrisBarnSalg," &_ "x_PrisInfantSalg,x_terminal FROM flight WHERE (x_afrejse='" &_ Afrejse & "') AND (x_flightnr='" & Flightnr & "') " &_ "AND (x_afrejsedato='" & Afrejsedato & "') AND (" &_ "x_depart='" & Depart & "')"
rsObj.Close Set rsObj = Nothing Set cmdObj = Nothing DataConn.Close Set DataConn = Nothing End if End Sub
Sub ShowAntal if FirstRow then Response.Write("<p align='right'><font size='2' color='#000000'>" &_ Antal & "</font></p>") else Response.Write("<p align='right'><font size='2' color='#000000'>" &_ Antal1 & "</font></p>") End if End Sub
Sub ShowTerminal if FirstRow then Response.Write("<p align='right'><font size='2' color='#000000'>" &_ terminal & "</font></p>") else Response.Write("<p align='right'><font size='2' color='#000000'>" &_ terminal1 & "</font></p>") End if End Sub
Function CheckDateTime(aFe) ReturnValue = True Tmp_Array = split(aFe,",")
For Each Ae In Tmp_Array Tmp_Str = Trim(Request.Form(Ae))
if not IsDate(Tmp_Str) AND Tmp_Str <> "" then j = j + 1 ReturnValue = False ReDim Preserve Error_Array(j) Error_Array(j-1) = Ae end if Next CheckDateTime = ReturnValue End Function
Function BookingCheck() if Request.Form("Tilfoej") = "" then BookingCheck = 1 Exit Function end if
i = -1 j = 0 Error = False
Redim Error_Array(1)
For Each FE In Request.Form if FE <> "Tilfoej" then TmpStr = Trim(Request.Form(FE)) if TmpStr = "" then j = j + 1 Error = True ReDim Preserve Error_Array(j) Error_Array(j-1) = FE end if end if Next
if not CheckDateTime("x_afrejse1,x_ankomst1") then Error = True end if
if Error then BookingCheck = 1 Exit Function end if
og i databasen har jeg en felt der hedder , flight som jeg læser fra,(den virker) og når jeg trykker på knappen (submit)skal den skrive det valgte til en anden tabel som hedder "opretbookin" , men dog skal den samtidige minuse 1 fra antal som findes i flight tabelen.
booking tabellen ser sådan ud. navn afrejse ankomst depart arival osv...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.