SELECT rejse.booking_id, rejse.rejse_airlines, rejse.rejse_til, Sum(booking.booking_total_pris) AS `Sum Of booking_total_pris`, Sum(booking.booking_koebs_pris) AS `Sum Of booking_koebs_pris`, Sum(udskrift.udskrifts_nr) AS SumOfudskrifts_nr FROM (booking INNER JOIN rejse ON booking.booking_id = rejse.booking_id) INNER JOIN udskrift ON booking.booking_id = udskrift.booking_id WHERE (((rejse.rejse_type)='afrejse')) GROUP BY rejse.booking_id, rejse.rejse_airlines, rejse.rejse_til;
det virker sådan at den udskriver det på skærmen, men jeg har en bestemt side som dette (bare ekspemper) : (og den skal skrive de enkelte ting ved response. write.
<% ' Get table name tablename = "[bookingoversigt]" dbwhere = "" a_search = "" b_search = "" %>
<% ' Get search criteria for basic search pSearch = Request.QueryString("psearch") If pSearch <> "" Then pSearch = replace(pSearch,"'","''") pSearch = replace(pSearch,"[","[[]") b_search = b_search & "[id] LIKE '%" & pSearch & "%' OR " b_search = b_search & "[navn] LIKE '%" & pSearch & "%' OR " b_search = b_search & "[Deltager] LIKE '%" & pSearch & "%' OR " b_search = b_search & "[afrejse] LIKE '%" & pSearch & "%' OR " b_search = b_search & "[ankomst] LIKE '%" & pSearch & "%' OR " b_search = b_search & "[flightnr] LIKE '%" & pSearch & "%' OR " b_search = b_search & "[Billetnummer] LIKE '%" & pSearch & "%' OR " b_search = b_search & "[Afrejsedato] LIKE '%" & pSearch & "%' OR " b_search = b_search & "[Telefon] LIKE '%" & pSearch & "%' OR "
End If If len(b_search) > 4 Then b_search = mid(b_search,1,len(b_search)-4) b_search = "(" & b_search & ")" End If %>
<% 'Build search criteria If a_search <> "" Then dbwhere = dbwhere & a_search 'advance search ElseIf b_search <> "" Then dbwhere = dbwhere & b_search 'basic search End If
'Save search criteria If dbwhere <> "" Then Session("tablename") = tablename Session("dbwhere") = dbwhere 'reset start record counter startRec = 1 Session("OpretBooking_REC") = startRec Else If tablename = Session("tablename") Then dbwhere = Session("dbwhere") Else 'reset search criteria dbwhere = "" Session("dbwhere") = dbwhere End If End If
'Get clear search cmd If Request.QueryString("cmd").Count > 0 then cmd=Request.QueryString("cmd") If ucase(cmd) = "RESET" Then 'reset search criteria dbwhere = "" Session("dbwhere") = dbwhere End If End If
' Check for an Order parameter OrderBy = "" If Request.QueryString("order").Count > 0 Then OrderBy = Request.QueryString("order") ' Check if an ASC/DESC toggle is required If Session("OpretBooking_OB") = OrderBy Then If Session("OpretBooking_OT") = "ASC" Then Session("OpretBooking_OT") = "DESC" Else Session("OpretBooking_OT") = "ASC" End if Else Session("OpretBooking_OT") = "ASC" End If Session("OpretBooking_OB") = OrderBy Session("OpretBooking_REC") = 1 Else OrderBy = Session("OpretBooking_OB") if OrderBy = "" then OrderBy = DefaultOrder Session("OpretBooking_OB") = OrderBy Session("OpretBooking_OT") = DefaultOrderType End If End If
' Open Connection to the database set conn = Server.CreateObject("ADODB.Connection") conn.Open xDb_Conn_Str
' Build Query strsql = "select * from [bookingoversigt]"
If dbwhere <> "" Then strsql = strsql & " WHERE " & dbwhere End If
if OrderBy <> "" then strsql = strsql & " ORDER BY [" & OrderBy & "] " & Session("OpretBooking_OT") end if
' Check for a START or PAGENO parameter If Request.QueryString("start").Count > 0 Then startRec = Request.QueryString("start") Session("OpretBooking_REC") = startRec ElseIf Request.QueryString("pageno").Count > 0 Then pageno = Request.QueryString("pageno") if isnumeric(pageno) then startRec = (pageno-1)*displayRecs+1 if startRec <= 0 then startRec = 1 elseif startRec >= ((totalRecs-1)\displayRecs)*displayRecs+1 then startRec = ((totalRecs-1)\displayRecs)*displayRecs+1 end if Session("OpretBooking_REC") = startRec Else startRec = Session("OpretBooking_REC") if not isnumeric(startRec) or startRec = "" then 'reset start record counter startRec = 1 Session("OpretBooking_REC") = startRec End If End If Else startRec = Session("OpretBooking_REC") if not isnumeric(startRec) or startRec = "" then 'reset start record counter startRec = 1 Session("OpretBooking_REC") = startRec End If End If %>
<% 'Avoid starting record > total records if clng(startRec) > clng(totalRecs) then startRec = totalRecs end if 'Set the last record to display stopRec = startRec + displayRecs - 1
'Move to first record directly for performance reason recCount = startRec - 1 if not rs.eof then rs.movefirst rs.move startRec - 1 end if
recActual = 0 Do While (NOT rs.EOF) AND (recCount < stopRec) recCount = recCount + 1 If Clng(recCount) >= Clng(startRec) Then recActual = recActual + 1 %>
<% 'set row color bgcolor="#FFFFFF" %>
<% ' Display alternate color for rows If recCount mod 2 <> 0 Then bgcolor="#F5F5F5" End If %>
Prøv at beskrive i ord, hvad du vil. Fra start til slut. Så er det lettere at hjælpe dig. Det der copy/paste er svært at få noget ud af, når man ikke ved, hvad formålet egentlig er.
det forslag du kom med viste resultatet af sql forspørelsen ud på skærmen.
men jeg vil hellere have at den skulle smide de enkelte udskrifts typer i nogle variabler som jeg senere kan udskrive ved at skrive feks. response.write booking_id
for du kun et resultat eller kan der være flere????
Synes godt om
Ny brugerNybegynder
Din løsning...
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.