Hej jag behöver lite hjälp med ett ASP program för biljettbokningen.





Håller på att skriva ett ASP-program för platsbokning vid ett idrottseveneman.
Har en Access db med samtliga platser inlagda med sektion, rad och platsnummer,

De som bokar biljett får ange vilken sektion de vill sitta samt antal biljetter av olika typer, vuxen, ungdom, barn.
Programmet ska leta efter lediga platser samt boka så många platser de har beställt.

Problemet med mitt program är att det bokar samtliga lediga platser på vald sektion.
Vad gör jag för fel???

Hälningar

Hans Lövström


Dim sektion, rad, plats, fnamn, enamn, adress, postnr, telefon, email, nyckel, signatur, ip, stat, id, ind, datum, slump, dagen, tot_s, idl, kommentar
Dim cnt, orgnr, irak, sokdag, sek, ledig, raknare, prellbokad, IDx, L100, L80, L0, S100, S80, S0
Dim idt
Dim Conn, sSQL, RS
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("smfiler/Medlem.mdb")
idt = Request.QueryString("id") & ""

L100 = Request.Form("L100")
L80 = Request.Form("L80")
L0 = Request.Form("L0")
S100 = Request.Form("S100")
S80 = Request.Form("S80")
S0 = Request.Form("S0")

lordag = "L"
sondag = "S"
ledig = "L"
prellbokad = "P"

Ltot = L100 + L80+ L0
Stot = S100 + S80 + S0
sek = session("sektion")
fnamn = session("fnamn")
enamn = session("enamn")
postadr =session("postadr")
postnr = session("postnr")
adress = session ("adress")
telefon = session("telefon")
email = session("email")
vx = session ("vx")
if vx = 0 Then
ip= Request.ServerVariables("REMOTE_ADDR")
Else
vx = 1
session ("vx")= vx
End If
datum=Now
signatur = left(fnamn, 2) & left (enamn, 2) & Mid(datum,19,1) & Mid(datum,18,1) & Mid (datum,16,1) & Mid(datum,15,1)
session("signatur") = signatur
irak = 1
Do while irak <= 6

If irak = 1 then
sokdag = lordag
antal_platser = L100
pris = 100
End If

If irak = 2 then
sokdag = lordag
antal_platser = L80
pris = 80
End If

If irak = 3 then
sokdag = lordag
antal_platser = L0
pris = 0
End If

If irak = 4 then
sokdag = sondag
antal_platser = S100
pris = 100
End If

If irak = 5 then
sokdag = sondag
antal_platser = S80
pris = 80
End If

If irak = 6 then
sokdag = sondag
antal_platser = S0
pris = 0
End If

raknare = 1
Do While raknare <= antal_platser
sSQL = "SELECT * FROM arena WHERE sektion = '" & sek &"' AND
dag = '" & sokdag &"' AND stat = '" & ledig &"' ORDER BY id
ASC"
Set RS = Server.CreateObject("ADODB.Recordset")
Set RS = Conn.Execute(sSQL)
IDx = RS("ID1")
sSQL = "UPDATE arena SET " & _
"stat='" & prellbokad & "', " & _
"fnamn='" & fnamn & "', " & _
"enamn='" & enamn & "', " & _
"adress='" & postadr & "', " & _
"postnr='" & postnr & "', " & _
"ort='" & adress & "', " & _
"telefon='" & telefon & "', " & _
"email='" & email & "', " & _
"ip='" & ip & "', " & _
"datum='" & datum & "', " & _
"signatur='" & signatur & "', " & _
"kommentar='" antal_platser & "' "
sSQL = sSQL & "WHERE ID1=" & IDx & ""
Server.CreateObject("ADODB.Recordset")
Conn.Execute(sSQL)
raknare = raknare +1
RS.MoveNext
Loop
RS.Close
irak = irak +1
Loop
Set RS = Nothing
Conn.Close
Set Conn = Nothing







%>