Avatar billede neoo Nybegynder
24. marts 2004 - 15:50 Der er 10 kommentarer og
1 løsning

mysql i asp

hej.

jeg har en sql forspørelse jeg gerne vil have ekseveret i en asp side og skal vises i en tabel.

jeg har følgende kode men den virker ikke :(


<!--#include file="../include/db.asp"-->





<%
Response.expires = 0
Response.expiresabsolute = Now() - 1
Response.addHeader "pragma", "no-cache"
Response.addHeader "cache-control", "private"
Response.CacheControl = "no-cache"
%>

<%

' Open Connection to the database
set conn = Server.CreateObject("ADODB.Connection")
conn.Open xDb_Conn_Str

sql = "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 "
sql = sql & " FROM (booking INNER JOIN rejse ON booking.booking_id = rejse.booking_id) INNER JOIN udskrift ON booking.booking_id = udskrift.booking_id "
sql = sql & " WHERE (((rejse.rejse_type)='afrejse')) "
sql = sql & " GROUP BY rejse.booking_id, rejse.rejse_airlines, rejse.rejse_til;"


response.write sql

set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn, 1, 2
totalRecs = rs.RecordCount






' Close recordset and connection
rs.Close
Set rs = Nothing
conn.Close
Set conn = Nothing %>




hvad skal jeg skrive hvis jeg gerne vil have det udskrevet i en tabel.
Avatar billede fennec Nybegynder
24. marts 2004 - 15:53 #1
hvilken fejl får du???
Avatar billede neoo Nybegynder
24. marts 2004 - 15:56 #2
den melder ikke nogen fejl, men visser dette :

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;
Avatar billede neoo Nybegynder
24. marts 2004 - 15:56 #3
den eksevere slette ikke koden
Avatar billede kriskrisk Nybegynder
24. marts 2004 - 16:04 #4
Med response.write sql beder du den jo om at skrive din sql-sætning, og det er det du får.

med response.write rs("tabelnavn") får du den til at skrive fra tabellen
Avatar billede kriskrisk Nybegynder
24. marts 2004 - 16:06 #5
Det skal selvfølgelig stå efter:

set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn, 1, 2
totalRecs = rs.RecordCount

som jeg går ud fra eksekverer din sql
Avatar billede fennec Nybegynder
24. marts 2004 - 16:07 #6
Min fejl. jeg misforstod lige ?'et :o)
Indsæt efter totalRecs = rs.RecordCount:
%>
<table>
<%
do while not rs.eof %>
<tr>
  <td><%= rs("booking_id") %></td>
  <td><%= rs("rejse_airlines") %></td>
  <td><%= rs("rejse_til") %></td>
  ... osv ....
</tr>
<%  rs.MoveNext
loop
%></table><%
Avatar billede neoo Nybegynder
24. marts 2004 - 16:34 #7
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.


<!--#include file="../include/db.asp"-->




<%
Response.expires = 0
Response.expiresabsolute = Now() - 1
Response.addHeader "pragma", "no-cache"
Response.addHeader "cache-control", "private"
Response.CacheControl = "no-cache"
%>


<%
displayRecs = 20
recRange = 10
%>

<%
' 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

%>


<%
' Load Default Order
DefaultOrder = ""
DefaultOrderType = ""

' 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   

'response.write strsql

set rs = Server.CreateObject("ADODB.Recordset")
rs.Open strsql, conn, 1, 2
totalRecs = rs.RecordCount

' 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
%>





   
        <body bgcolor="#F6F6F7">





   
        <FORM ACTION="bookingoversigt.asp">

       
    <p>

       
    </tr>
</table>
    </p>
<p>
    <table border="0" cellspacing="0" cellpadding="10" width="698" id="table3"><tr>
        <td width="368">
<p align="center">


    <font face="Verdana" size="1"><INPUT TYPE="Text" NAME="psearch" SIZE=15><INPUT TYPE="Submit" NAME="Submit" VALUE="VIS"></font><font face="Verdana" size="1" color="#336699">&nbsp;
    </font><a href="bookingoversigt.asp?cmd=reset"><font size="1" face="Verdana" color="#336699">Vis
          Alle</td><td>


    <p align="center">


    &nbsp;</td><td width="201">


    <p align="right"><b>
<font face="Agency FB" size="4" color="#7AADE1">Booking</font><font face="Agency FB" size="4" color="#990000">oversigt</font></b></td></tr></table>

    <form>
<div align="center">
<table border="0" align="center" cellspacing="1" cellpadding="5" bgcolor="#CCCCCC" width="572">
    <tr bgcolor="#0099CC">
        <td bgcolor="#DEDEE4" width="18">
        <a href="bookingoversigt.asp?order=<%= Server.URLEncode("Id") %>">
        <font size="1" color="#3C4255" face="Verdana">Id</font></a><font color="#3C4255">
        </font> </td>
        <td bgcolor="#DEDEE4" width="66">
        <a href="bookingoversigt.asp?order=<%= Server.URLEncode("dato") %>">
        <font size="1" color="#3C4255" face="Verdana">Dato&nbsp;</font></a></td>
        <td bgcolor="#DEDEE4" width="117">
        <a href="bookingoversigt.asp?order=<%= Server.URLEncode("navn") %>">
        <font size="1" color="#3C4255" face="Verdana">kunde navn&nbsp;(*)</font></a><font color="#3C4255">
        </font>
        </td>
        <td bgcolor="#DEDEE4" width="71">
        <a href="bookingoversigt.asp?order=<%= Server.URLEncode("TotalSalg") %>">
        <font size="1" color="#3C4255" face="Verdana">Afrejse dato</font></a><font color="#3C4255">
        </font>
        </td>
        <td bgcolor="#DEDEE4" width="54">
        <a href="bookingoversigt.asp?order=<%= Server.URLEncode("Profit") %>">
        <font face="Verdana" size="1" color="#3C4255">Salgspris&nbsp;</font></a><font color="#3C4255">
        </font>
        </td>
        <td bgcolor="#DEDEE4" width="27">
        <a href="bookingoversigt.asp?order=<%= Server.URLEncode("Betbetingelser") %>">
        <font face="Verdana" size="1" color="#3C4255">Type</font></a><font color="#3C4255">
        </font> </td>
        <td bgcolor="#DEDEE4" width="57">
        <a href="bookingoversigt.asp?order=<%= Server.URLEncode("Depositium") %>">
        <font size="1" color="#3C4255" face="Verdana">Restbeløb</font></a><font color="#3C4255">
        </font> </td>
        <td bgcolor="#DEDEE4" width="16">&nbsp;</td>
        <td bordercolor="#7B9EBD" bgcolor="#DEDEE4">&nbsp;</td>
        <td bgcolor="#DEDEE4" width="17">&nbsp;</td>
    </tr>


<%
'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
%>

<%

x_booking_id = rs("booking_id")
x_Kunde_navn = rs("Kunde_navn")
x_afrejse_fra = rs("afrejse_fra")
x_booking_total_pris = rs("booking_total_pris")
x_booking_rest_beoloeb = rs("booking_rest_beoloeb")
x_booking_betallings_type = rs("booking_betallings_type")
x_afrejse_dato= rs ("afrejse_dato")

%>


    <tr bgcolor="<%= bgcolor %>">
        <td width="18"><font face="Verdana" size="1">
<% response.write x_booking_id %>&nbsp;</font></td>
        <td width="66"><font face="Verdana" size="1">
<% response.write x_afrejse_dato %>
        <td width="117"><font face="Verdana" size="1">
<% response.write x_Kunde_navn %>&nbsp;</font></td>
        <td width="71"><font face="Verdana" size="1">
<% response.write x_afrejse_fra %>&nbsp;</font></td>
        <td width="54"><font face="Verdana" size="1">
<% response.write x_booking_total_pris %>&nbsp;</font></td>
        <td width="27"><font face="Verdana" size="1">
<% response.write x_Booking_betallings_type %>&nbsp;</font></td>
        <td width="57"><font face="Verdana" size="1">
<% response.write x_booking_rest_beoloeb%>&nbsp;</font></td>
        <td width="16">
        <a href="<% If not isnull(rs("booking_id")) Then response.write "opretbookinglook.asp?key=" & Server.URLEncode(rs("booking_id")) Else response.write "java script:alert('Invalid Record! Key is null.');" %>">
        <font face="Verdana" size="1">
        <img src="../images/view.gif" alt="View" width="16" height="16" border="0"></font></font></td>
        <td>
        <a href="<% If not isnull(rs("booking_id")) Then response.write "OpretBookingedit.asp?key=" & Server.URLEncode(rs("booking_id")) Else response.write "java script:alert('Invalid Record! Key is null.');" %>">
        <font face="Verdana" size="1">
        <img src="../images/edit.gif" alt="Edit" width="16" height="16" border="0"></font></a></td>
        <td width="17">
        <a href="<% If not isnull(rs("booking_id")) Then response.write "OpretBookingdelete.asp?key=" & Server.URLEncode(rs("booking_id")) Else response.write "java script:alert('Invalid Record! Key is null.');" %>">
        <font face="Verdana" size="1">
        <img src="../images/delete.gif" alt="Delete" width="16" height="16" border="0"></font></a></td>
    </tr>


<%
    end if

    rs.MoveNext
Loop
%>

</table>

</div>

<p>&nbsp;</p>
<p>&nbsp;</p>
<p>&nbsp;</p>

<p>&nbsp;</p>

<table border="0" cellspacing="0" cellpadding="10" width="718" id="table1"><tr><td>
<%
if totalRecs > 0 then

    PrevStart = startRec - displayRecs
    If PrevStart < 1 Then PrevStart = 1
    NextStart = startRec + displayRecs
    If NextStart > totalRecs Then NextStart = startRec
    LastStart = ((totalRecs-1)\displayRecs)*displayRecs+1
    %>

    <table border="0" cellspacing="0" cellpadding="0" id="table2"><tr><td><font face="Verdana" size="1">
        Side</font>&nbsp;</td>
<!--first page button-->
    <% If clng(startRec)=1 Then %>
    <td><img src="../images/firstdisab.gif" alt="First" width="20" height="15" border="0"></td>
    <% Else %>
    <td><a href="bookingoversigt.asp?start=1"><img src="../images/first.gif" alt="First" width="20" height="15" border="0"></a></td>
    <% End If %>
<!--previous page button-->
    <% If clng(PrevStart) = clng(startRec) Then %>
    <td><img src="../images/prevdisab.gif" alt="Previous" width="20" height="15" border="0"></td>
    <% Else %>
    <td><a href="bookingoversigt.asp?start=<%=PrevStart%>"><img src="../images/prev.gif" alt="Previous" width="20" height="15" border="0"></a></td>
    <% End If %>
<!--current page number-->
    <td><input type="text" name="pageno" value="<%=(startRec-1)\displayRecs+1%>" size="4" style="font-size: 9pt;"></td>
<!--next page button-->
    <% If clng(NextStart) = clng(startRec) Then %>
    <td><img src="../images/nextdisab.gif" alt="Next" width="20" height="15" border="0"></td>
    <% Else %>
    <td><a href="bookingoversigt.asp?start=<%=NextStart%>"><img src="../images/next.gif" alt="Next" width="20" height="15" border="0"></a></td>
    <% End If %>
<!--last page button-->
    <% If clng(LastStart) = clng(startRec) Then %>
    <td><img src="../images/lastdisab.gif" alt="Last" width="20" height="15" border="0"></td>
    <% Else %>
    <td><a href="bookingoversigt.asp?start=<%=LastStart%>"><img src="../images/last.gif" alt="Last" width="20" height="15" border="0"></a></td>
    <% End If %>
    <td><a href="OpretBooking.asp"><img src="../images/addnew.gif" alt="Add new" width="20" height="15" border="0"></a></td>
    <td>&nbsp;<font face="Verdana" size="1">af </font><font size="-1"> <%=(totalRecs-1)\displayRecs+1%></font></td>
      </tr></table>   
    <% If stopRec > recCount Then stopRec = recCount %>
<font face="Verdana" size="1">Oplysning <%= startRec %>  til <%= stopRec %> af <%= totalRecs %>
</font>

<% Else %>

<p><font face="Verdana" size="1">Ingen oplysning&nbsp; fundet!</font></p>
<p>&nbsp;</p>

<% End If %>
</td></tr></table>
<p>&nbsp;</p>

</td>
    </tr></table>
</form>


<%
' Close recordset and connection
rs.Close
Set rs = Nothing
conn.Close
Set conn = Nothing %>
Avatar billede neoo Nybegynder
24. marts 2004 - 16:47 #8
jeg har eks.

her definere jeg nogle ting :

<%

x_booking_id = rs("booking_id")
x_Kunde_navn = rs("Kunde_navn")
x_afrejse_fra = rs("afrejse_fra")
x_booking_total_pris = rs("booking_total_pris")
x_booking_rest_beoloeb = rs("booking_rest_beoloeb")
x_booking_betallings_type = rs("booking_betallings_type")
x_afrejse_dato= rs ("afrejse_dato")

%>

men udskriver dem senere


ved at skrive response.write

hvordan kan jeg gøre det samme med dit forslag
Avatar billede kriskrisk Nybegynder
24. marts 2004 - 23:44 #9
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.
Avatar billede neoo Nybegynder
25. marts 2004 - 02:56 #10
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
Avatar billede fennec Nybegynder
25. marts 2004 - 08:07 #11
for du kun et resultat eller kan der være flere????
Avatar billede Ny bruger Nybegynder

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.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester