Avatar billede plato Juniormester
01. december 2002 - 22:11 Der er 23 kommentarer og
1 løsning

ASP Hvordan gør jeg..

Jeg har prøvet at spørge før, blev til sidst henvist til en side hvor jeg kunne læse om det.. Men jeg kan ikke få det til at virke.

Nedenfor poster jeg en kode. Det er en ASP struktur med tilhørende database på film.
Jeg vil gerne at:

1: Jeg kan skrive hvor som helst "Der er så mange film i databasen" Det bedste ville være hvis jeg kunne gøre dette på forsiden. (default.asp) Som ligger i roden. Denne her asp side (trailers.asp - struktursiden) ligger i mappen "trailers"

2: Jeg kan lave en top 10 over de bedst stemte.

Nogen der kan hjælpe mig? Pleeeeeeeaaaase ;o)

<%

strConnect = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& Server.Mappath("trailer.mdb")
Set objConn = Server.CreateObject ("ADODB.Connection")
objConn.Open strConnect   

strSQL = "SELECT * FROM sider WHERE id LIKE '"  & Request.QueryString("id") & "'"
Set rs = objConn.Execute(strSQL)


If Not rs.EOF Then
    titel = rs("titel")
    pic = rs("pic")
    tlink = rs("tlink")
    omtale = rs("omtale")
    premiere = rs("premiere")
    skuespil = rs("skuespil")
    instruk = rs("instruk")
    studio = rs("studio")
    genre = rs("genre")
    tid = rs("tid")
    tilbage = rs("tilbage")
    tilbaget = rs("tilbaget")
    stemmer = rs("stemmer")
    totalStjerner = rs("totalStjerner")

    hplink = rs("hplink")
    hptekst = rs("hptekst")
   

Else
    Response.Write "<b>Der er noget galt med id'et. Kontakt webmaster på admin@trailersiden.dk</b><br><br>"
End If

%>


<html>
<head>
<title><%=titel%></title>
<link rel="stylesheet" type="text/css" href="../style.css">


</head>
<body bgcolor="#efefef" text="#000000" leftmargin="5" topmargin="0" bottommargin="0" marginwidth="0" marginheight="0" style="overflow:auto">
<span id="font">Trailers » Sektion A » <%=titel%></span>
<br>  <br>   

<center>
<table border="0" cellspacing="0" cellpadding="0" width="70%">
    <tr>
        <td width="80%" valign="top">
       
            <Table border="0" cellpadding="0" cellspacing="0">
                <tr>
                    <td class="menuc" width="140"><b>Premiere:</b></td>
                    <td class="menuc"><%=premiere%></td>
            </tr>
            </table>
            <br>
            <Table border="0" cellpadding="0" cellspacing="0">
                <tr>
                    <td valign="top" class="menuc" width="140"><b>Skuespillere:</b></td>
                    <td class="menuc"><%=skuespil%></td>
                </tr>
            </table>
            <br>
            <Table border="0" cellpadding="0" cellspacing="0">
                <tr>   
                    <td class="menuc" width="140"><b>Instruktør:</b></td>
                    <td class="menuc"><%=instruk%></td>
                </tr>
            </table>
            <br>
            <Table border="0" cellpadding="0" cellspacing="0">
                <tr>
                    <td class="menuc" width="140"><b>Studio:</b></td>
                    <td class="menuc"><%=studio%></td>
                </tr>
            </table>
            <br>
            <Table border="0" cellpadding="0" cellspacing="0">
                <tr>   
                    <td class="menuc" width="140"><b>Genre:</b></td>
                    <td class="menuc"><%=genre%></td>
                </tr>
            </table>
            <br>
            <Table border="0" cellpadding="0" cellspacing="0">
                <tr>   
                    <td class="menuc" width="140"><b>Spilletid:</b></td>
                    <td class="menuc"><%=tid%></td>
                </tr>
            </table>
            <br>
            <Table border="0" cellpadding="0" cellspacing="0">
                <tr>   
                    <td class="menuc" width="140"><b>Officiel HP:</b></td>
                    <td class="menuc"><a href="<%=hplink%>" target="_new"><%=hptekst%></a></td>
                </tr>
            </table>
            <br><br><br>
        <Table border="0" cellpadding="0" cellspacing="0">
                <tr>   
                    <td class="menuc" width="140"><a href="<%=tlink%>"><b>»</b> <u>Se trailer</U></a></td>
                    <td class="menuc">[<a href="mailto:support@trailersiden.dk">Dødt link</a>]</td>
                </tr>
            </table>
           
        </td>
   
        <td align="right"><img src="../pics/<%=pic%>" width="200" height="300" border="0"></td>
    </tr>   
    <tr>
        <td  colspan="2"><span id="font2"><br><hr color="#970000" size="1"><%=omtale%>
                           
        </td>
    </tr>
    <tr>
        <td  colspan="2"><span id="font2"><br><br>
        <% ' Vis antal stjerner
     
            if stemmer = 0 or stemmer = "" then
              billede = "s0"
            else
              snit = Round(totalStjerner / stemmer,3) * 2
              snit = round(snit) / 2
              snit = replace(snit, ".", "k")
              snit = replace(snit, ",", "k")
              billede = "s" & snit
            end if
           
            Response.Write "<img src=""" & billede & ".gif"">"
          %>
          <form action="trailers.asp?id=<%=Request.QueryString("id")%>" method="post">
            <input type="radio" name="karakter" value="1">1
            <input type="radio" name="karakter" value="2">2
            <input type="radio" name="karakter" value="3">3
            <input type="radio" name="karakter" value="4">4
            <input type="radio" name="karakter" value="5">5
            <input type="submit" name="Stem" value="Stem">
          </form>
        </td>
    </tr>
</table>
<br> 
                            <a href="<%=tilbage%>"><b><%=tilbaget%></b></a>

<br>
<a href="http://tracker.tradedoubler.com/click?p=3388&a=439636&g=29437" target="_blank"><img src="http://impdk.tradedoubler.com/imp/img/29437/439636" border=0></a>



</body>
</html>
<%
objConn.Close
%>
Avatar billede loukas Mester
01. december 2002 - 22:47 #1
Du kan lave 2 include filer:
topti.asp
antalfilm.asp

topti.asp:
strConnect = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& Server.Mappath("trailer.mdb")
Set objConn = Server.CreateObject ("ADODB.Connection")
objConn.Open strConnect   

strSQL = "Select top 30 * FROM sider"
Set rs = objConn.Execute(strSQL)

While Not rs.EOF
Response.Write rs("titel") & "<br>"
rs.movenext
loop

objconn.close
Avatar billede loukas Mester
01. december 2002 - 22:49 #2
Der hvor du vil have top10 hvist skriver du:
<!-- #include file="stien/topti.asp" -->
Avatar billede plato Juniormester
01. december 2002 - 22:54 #3
Hvordan ser antal så ud?.. Jeg kan ikke selv ASP..
Avatar billede loukas Mester
01. december 2002 - 22:55 #4
antalfilm.asp:
strConnect = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& Server.Mappath("trailer.mdb")
Set objConn = Server.CreateObject ("ADODB.Connection")
objConn.Open strConnect   

strSQL = "SELECT COUNT(id) AS Antal FROM sider"
Set rs = objConn.Execute(strSQL)

While Not rs.EOF
Response.Write "Der er" & rs("ANTAL")
rs.movenext
loop

objconn.close
Avatar billede loukas Mester
01. december 2002 - 22:57 #5
SAMME HISTORIE SOM MED TOPTI:
<!-- #include file="stien/antalfilm.asp" -->
Avatar billede plato Juniormester
01. december 2002 - 23:02 #6
Ehmm det virker ikke..
Avatar billede plato Juniormester
01. december 2002 - 23:05 #7
Prøver at kigge på http://www.trailersiden.dk
Avatar billede plato Juniormester
01. december 2002 - 23:06 #8
Forneden..
Avatar billede loukas Mester
01. december 2002 - 23:09 #9
ok ;-)
Du skal have
<%
koden
%>
Avatar billede loukas Mester
01. december 2002 - 23:10 #10
dvs i selve filen: topti.asp eller antalfilm.asp
Avatar billede plato Juniormester
01. december 2002 - 23:12 #11
Prøver <% og %>

Det er forøvrigt begge to..
Avatar billede loukas Mester
01. december 2002 - 23:13 #12
yes !!
Avatar billede plato Juniormester
01. december 2002 - 23:14 #13
Har gjort nøjagtig som du har skrevet.. Og med <% og %>.
Nu skriver den:
Microsoft VBScript compilation error '800a040e'

'loop' without 'do'

/test/topti.asp, line 12

loop
^

Har dog fjernet det igen.. Da jeg har bruger online.. *S*
Avatar billede plato Juniormester
01. december 2002 - 23:15 #14
Her er min topti.asp

<%
strConnect = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& Server.Mappath("trailer.mdb")
Set objConn = Server.CreateObject ("ADODB.Connection")
objConn.Open strConnect   

strSQL = "Select top 30 * FROM sider"
Set rs = objConn.Execute(strSQL)

While Not rs.EOF
Response.Write rs("titel") & "<br>"
rs.movenext
loop

objconn.close
%>
Avatar billede loukas Mester
01. december 2002 - 23:16 #15
Det ser rigtigt ud !!
Så skriver du:
<!-- #include file="stien/topti.asp" -->
på din forside..
Avatar billede loukas Mester
01. december 2002 - 23:17 #16
hov der står top 30 i stedet for 10    :-)
Avatar billede plato Juniormester
01. december 2002 - 23:18 #17
Jepper..Det er også det jeg gør.. Den kommer med fejlen:

Microsoft VBScript compilation error '800a040e'

'loop' without 'do'

/test/topti.asp, line 12

loop
^
Avatar billede plato Juniormester
01. december 2002 - 23:18 #18
Har det noget at sige?
Avatar billede plato Juniormester
01. december 2002 - 23:19 #19
Samme fejl..Selvom det er 10 ;o)
Avatar billede loukas Mester
01. december 2002 - 23:20 #20
ja sådan her:
<%
strConnect = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& Server.Mappath("trailer.mdb")
Set objConn = Server.CreateObject ("ADODB.Connection")
objConn.Open strConnect   

strSQL = "Select top 30 * FROM sider"
Set rs = objConn.Execute(strSQL)

Do While Not rs.EOF
Response.Write rs("titel") & "<br>"
rs.movenext
loop

objconn.close
%>
Avatar billede loukas Mester
01. december 2002 - 23:20 #21
så skulle det virke
Avatar billede plato Juniormester
01. december 2002 - 23:24 #22
Nu virker det...

Det er helt gak..

Selvom topti.asp ligger i samme bib som trailer.mdb, skulle den alligevel hedde

strConnect = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& Server.Mappath("test/trailer.mdb")

Er der fordi include ligger udenfor?
Avatar billede plato Juniormester
01. december 2002 - 23:24 #23
Tusind tak.. Men en meget mystisk biblioteks angivelse.. ;o)
Avatar billede loukas Mester
01. december 2002 - 23:43 #24
ok, selv tak
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