Avatar billede loudrup Nybegynder
27. april 2003 - 22:27 Der er 9 kommentarer og
1 løsning

modtage flere poster fra asp/database

Hvordan kan man få flash til at modtage flere poster af gangen fra en asp side. Det er sådan at jeg har lavet en database med en masse produkter inden for radio/tv. Det er så meningen at når en bruger ønsker at se samtlige billedprodukter så skal de loades ind i flash på en nedadgående række. Hvordan gør man det. Skal der skrives noget specielt på asp siden, sådan så flash ved at der er mere end en post eller hvad. Jeg vedhæfter min asp fil så man kan se hvordan denne er sat op:

<%@ LANGUAGE="VBSCRIPT" %>


<%
Dim oRS, Conn, MySQL, dato

    Set Conn = Server.CreateObject("ADODB.Connection")
    Set MyRS = Server.CreateObject("ADODB.RecordSet")
    MySQL = "Select * from produkttabel WHERE type2=1"
    set MyRS = Conn.Execute(MySQL)
    MyConnection = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../database_felsted_radio.mdb")
    Conn.Open MyConnection
         
<%while not MyRS.EOF
    'Er min lykke lavet rigtigt'
    Response.Write "producentID=" & oRS("producentID")
    Response.Write "produktbeskrivelse=" & oRS("produktbeskrivelse")
    Response.Write "produktpris=" & oRS("produktpris")
    Response.Write "produktbillede=" & oRS("produktbillede")
    Response.Write "typeID=" & oRS("typeID")
    MyRS.movenext
Wend
%>   
<%  MyRS.close
      Conn.Close
Set oRS = Nothing  'Hvad betyder de 3 næste sætninger'
Conn.Close
Set Conn = Nothing
%>

Jeg håber at der er nogen der kan hjælpe mig. Jeg skal også vide hvordan jeg sætter det op i flash MX
Avatar billede zuiq Nybegynder
27. april 2003 - 23:41 #1
Laver det ud fra din side:

<%@ LANGUAGE="VBSCRIPT" %>
<%
    Set conn = Server.CreateObject("ADODB.Connection")
    strConnection = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../database_felsted_radio.mdb"
    conn.Open strConnection
    strQuery = "select * from produkttabel"
    Set objRS = conn.Execute(strQuery)
       
    Response.Write "<table><tr><td>ProducentID</td><td>Beskrivelse</td><td>Pris</td><td>TypeID</td><td width=""30""></td><td>Billede</td></tr>"

While not objRS.EOF
    Response.Write "<tr>"
    Response.Write "<td>" & objRS("producentID") & "</td>"
    Response.Write "<td>" & objRS("produktbeskrivelse") & "</td>"
    Response.Write "<td>" & objRS("produktpris") & "</td>"
    Response.Write "<td>" & objRS("typeID") & "</td>"
    Response.Write "<td width=""30""></td>"
    Response.Write "<td><img src=""" & objRS("produktbillede") & """></td>"
    Response.Write "</tr>"
    objRS.movenext
Wend

    Response.Write "</table>"

Set objRS = Nothing  'Her rydder du op, og lukker forbindelsen til din database
conn.Close
Set Conn = Nothing
%>

Tip: Lær at lave simpel ASP (simplere end det her), før du laver database ting :)

Mvh.
Mads
Avatar billede zuiq Nybegynder
27. april 2003 - 23:43 #2
Glemte lige at lave HTML-tag osv. :)
Brug denne istedet:

<%@ LANGUAGE="VBSCRIPT" %>
<%
    Set conn = Server.CreateObject("ADODB.Connection")
    strConnection = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../database_felsted_radio.mdb"
    conn.Open strConnection
    strQuery = "select * from produkttabel"
    Set objRS = conn.Execute(strQuery)
       
    Response.Write "<html><head><title>Database-udtræk</title></head><body>"
    Response.Write "<table><tr><td>ProducentID</td><td>Beskrivelse</td><td>Pris</td><td>TypeID</td><td width=""30""></td><td>Billede</td></tr>"

While not objRS.EOF
    Response.Write "<tr>"
    Response.Write "<td>" & objRS("producentID") & "</td>"
    Response.Write "<td>" & objRS("produktbeskrivelse") & "</td>"
    Response.Write "<td>" & objRS("produktpris") & "</td>"
    Response.Write "<td>" & objRS("typeID") & "</td>"
    Response.Write "<td width=""30""></td>"
    Response.Write "<td><img src=""" & objRS("produktbillede") & """></td>"
    Response.Write "</tr>"
    objRS.movenext
Wend

    Response.Write "</table>"
    Response.Write "</body></html>"

Set objRS = Nothing  'Her rydder du op, og lukker forbindelsen til din database
conn.Close
Set Conn = Nothing
%>

Mvh.
Mads
Avatar billede loudrup Nybegynder
28. april 2003 - 09:33 #3
ok, det må jeg så prøve, men hvordan laver jeg mine felter i flash. Jeg ved godt at jeg laver dynamiske felter med de tilhørende feltnavne fra min asp side, men hvordan får jeg flash til at lave flere poster på en nedadgående række? Og hvordan får jeg de tilhørende billeder af produkterne ind i flash.
Avatar billede zuiq Nybegynder
28. april 2003 - 14:45 #4
Det er det mit script gør?
Avatar billede loudrup Nybegynder
28. april 2003 - 15:17 #5
Sørger det automatisk for at der laves det antal poster som er i min database?
Skal jeg så bare lave mine felter én gang med de tilhørende navne og så klarer Flash selv resten?
Hvordan skal min kode se ud på den knap der skal bruges til at hente oplysningerne?
Avatar billede loudrup Nybegynder
30. april 2003 - 22:15 #6
Jeg venter
Avatar billede zuiq Nybegynder
01. maj 2003 - 15:57 #7
Nåå! Du skulle bruge i Flash *g*, forstod heller ik hvad du mente med Flash :)
Kigger lige på det :)
Avatar billede zuiq Nybegynder
01. maj 2003 - 16:00 #8
Jeg kan ikke flash programmeringssprog, så det er ikke noget jeg kan løse.
Jeg kan godt læse dataerne ind i flash, men kan så ikke programmere Flash-delen. Sry :(

Mvh.
Mads
Avatar billede loudrup Nybegynder
01. maj 2003 - 17:27 #9
ok, du fortjener dog dine point. skriv dit svar og jeg giver dig dine point
Avatar billede zuiq Nybegynder
02. maj 2003 - 16:26 #10
<%@ LANGUAGE="VBSCRIPT" %>
<%
    Set conn = Server.CreateObject("ADODB.Connection")
    strConnection = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../database_felsted_radio.mdb"
    conn.Open strConnection
    strQuery = "select * from produkttabel"
    Set objRS = conn.Execute(strQuery)
       
    Response.Write "<html><head><title>Database-udtræk</title></head><body>"
    Response.Write "<table><tr><td>ProducentID</td><td>Beskrivelse</td><td>Pris</td><td>TypeID</td><td width=""30""></td><td>Billede</td></tr>"

While not objRS.EOF
    Response.Write "<tr>"
    Response.Write "<td>" & objRS("producentID") & "</td>"
    Response.Write "<td>" & objRS("produktbeskrivelse") & "</td>"
    Response.Write "<td>" & objRS("produktpris") & "</td>"
    Response.Write "<td>" & objRS("typeID") & "</td>"
    Response.Write "<td width=""30""></td>"
    Response.Write "<td><img src=""" & objRS("produktbillede") & """></td>"
    Response.Write "</tr>"
    objRS.movenext
Wend

    Response.Write "</table>"
    Response.Write "</body></html>"

Set objRS = Nothing  'Her rydder du op, og lukker forbindelsen til din database
conn.Close
Set Conn = Nothing
%>
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
IT-kurser om Microsoft 365, sikkerhed, personlig vækst, udvikling, digital markedsføring, grafisk design, SAP og forretningsanalyse.

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