Søg
Avatar billede okay Nybegynder
25. maj 2001 - 18:03 Der er 17 kommentarer og
1 løsning

PHP script, men i ASP ?

hvordan laver jeg det i asp ???

http://www.eksperten.dk/spm/74961
Avatar billede well_r Nybegynder
25. maj 2001 - 18:14 #1
thi hi :o)
Avatar billede jonas_html.dk Nybegynder
25. maj 2001 - 18:21 #2
Hvis jeg har forstået dig rigtigt, så kan du gøre noget a la dette:

strAlpha = bogstavet der skal listes

Do

If Lcase(Left(Record(\"kolonne\"),1)) = strAlpha Then
Response.Write Record(\"kolonne\") & VbCrlf
End If

Record.Movenext
Loop While Not Record.eof

Mvh
Jonas (ASP tutorial: http://html.dk/tutorials/asp )
Avatar billede okay Nybegynder
25. maj 2001 - 18:34 #3
http://www.html.dk/tutorials/asp/lektion20.asp

Den eneste tutorial som jeg ik kunne forstå...håber i laver mere eks. :o)

Kan du måske fortælle mig hvor jeg skal indsætte det henne ?
Avatar billede jonas_html.dk Nybegynder
25. maj 2001 - 18:42 #4
Der kommer mere ;-) hvis du vil videre med ASP, så er www.activeserverpages.dk et rigtigt godt sted.
Avatar billede okay Nybegynder
25. maj 2001 - 18:46 #5
Den eneste sted som jeg har fået noget ud af, er HTML.DK :o)

Venter på mere eks og tutorils til asp :o)
Avatar billede jonas_html.dk Nybegynder
25. maj 2001 - 18:48 #6
OK, tak for de pæne ord - så må jeg jo hellere komme i gang med at skrive ;-)

God weekend
Jonas
Avatar billede okay Nybegynder
25. maj 2001 - 18:50 #7
jonas_html > tak i lige måde :o)

men hvor skulle jeg indsætte

strAlpha = bogstavet der skal listes

Do

If Lcase(Left(Record(\"kolonne\"),1)) = strAlpha Then
Response.Write Record(\"kolonne\") & VbCrlf
End If

Record.Movenext
Loop While Not Record.eof
Avatar billede okay Nybegynder
25. maj 2001 - 18:53 #8
min script:

<%
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & server.MapPath(\"database.mdb\")
str_sql2 = \"SELECT * FROM jwringetoner WHERE godkendt=\'Ja\' ORDER BY navn\"
Set rs = Conn.Execute (str_sql2)
%>
        <div align=\"center\">
          <%
if rs.EOF then
%>
          <span class=\"overskrift\">Ingen Ringetoner ! </span>
          <%
else
%>
          <table width=\"101%\" height=\"24\" cellspacing=\"2\">
            <tr bgcolor=\"#0099FF\">
              <td width=\"33%\"><font face=tahoma size=2 color=\"#FFFFFF\"><b>ToneNavn</b></font></td>
              <td width=\"18%\"><font face=tahoma size=2 color=\"#FFFFFF\"><b>Nokia</b></font></td>
              <td width=\"16%\"><font face=tahoma size=2 color=\"#FFFFFF\"><b>Ericsson</b></font></td>
              <td width=\"27%\"><font face=tahoma size=2 color=\"#FFFFFF\"><b>Siemens</b></font></td>
              <td width=\"6%\"><font face=tahoma size=2 color=\"#FFFFFF\"><b>Hits:</b></font></td>
            </tr>
            <%
Do Until rs.EOF
%>
            <tr>
              <td width=\"33%\"><a
            href=\'java script:se(\"<% = rs(\"id\") %>\",400,480)\' style=\"color: #000000\"><font face=tahoma size=2>
                <% = rs(\"tonenavn\") %>
                </font></a></td>
              <td width=\"18%\"><a href=\"melodi.asp?rid=<%= rs(\"id\") %>&sp=nokia\">nokia</a> </td>
              <td width=\"16%\"><a href=\"melodi.asp?rid=<%= rs(\"id\") %>&sp=ericsson\">ericsson</a></td>
              <td width=\"27%\"><a href=\"melodi.asp?rid=<%= rs(\"id\") %>&sp=siemens\">siemens</a></td>
              <td width=\"6%\"><% = rs(\"hits\") %></td>
            </tr>
            <%
rs.MoveNext
Loop
%>
Avatar billede jonas_html.dk Nybegynder
25. maj 2001 - 19:03 #9
Prøv denne ændrede kode - du kalder bare siden med det bogstav, som skal vises - f.eks. hvis din fil hedder vistoner.asp - og du gerne vil have listet dem der starter med a:

vistoner.asp?bogstav=a

Mvh
Jonas


<%
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & server.MapPath(\"database.mdb\")
str_sql2 = \"SELECT * FROM jwringetoner WHERE godkendt=\'Ja\' ORDER BY navn\"
Set rs = Conn.Execute (str_sql2)
%>
        <div align=\"center\">
          <%
if rs.EOF then
%>
          <span class=\"overskrift\">Ingen Ringetoner ! </span>
          <%
else
%>
          <table width=\"101%\" height=\"24\" cellspacing=\"2\">
            <tr bgcolor=\"#0099FF\">
              <td width=\"33%\"><font face=tahoma size=2 color=\"#FFFFFF\"><b>ToneNavn</b></font></td>
              <td width=\"18%\"><font face=tahoma size=2 color=\"#FFFFFF\"><b>Nokia</b></font></td>
              <td width=\"16%\"><font face=tahoma size=2 color=\"#FFFFFF\"><b>Ericsson</b></font></td>
              <td width=\"27%\"><font face=tahoma size=2 color=\"#FFFFFF\"><b>Siemens</b></font></td>
              <td width=\"6%\"><font face=tahoma size=2 color=\"#FFFFFF\"><b>Hits:</b></font></td>
            </tr>
            <%
Do Until rs.EOF
    If Lcase(Left(rs(\"navn\"),1)) = Lcase(Left(request(\"bogstav\"),1)) Then
%>
            <tr>
              <td width=\"33%\"><a
            href=\'java script:se(\"<% = rs(\"id\") %>\",400,480)\' style=\"color: #000000\"><font face=tahoma size=2>
                <% = rs(\"tonenavn\") %>
                </font></a></td>
              <td width=\"18%\"><a href=\"melodi.asp?rid=<%= rs(\"id\") %>&sp=nokia\">nokia</a> </td>
              <td width=\"16%\"><a href=\"melodi.asp?rid=<%= rs(\"id\") %>&sp=ericsson\">ericsson</a></td>
              <td width=\"27%\"><a href=\"melodi.asp?rid=<%= rs(\"id\") %>&sp=siemens\">siemens</a></td>
              <td width=\"6%\"><% = rs(\"hits\") %></td>
            </tr>
            <%
    End if
rs.MoveNext
Loop
%>
Avatar billede okay Nybegynder
25. maj 2001 - 19:05 #10
der er noget galt med din script

http://www.web-zone.dk/script/asp/jwringetoner/test.asp?bogstav=a
Avatar billede jonas_html.dk Nybegynder
25. maj 2001 - 19:12 #11
Det virker godt nok ikke som en fejl i scriptet.

Prøv lige at udkommentere de to linier, som jeg tilføjede - og se om det så kører. Når det er tilfældet slår du bare de to linier til igen.

Nedenfor er koden med de to linier udkommenteret:

Mvh
Jonas

<%
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & server.MapPath(\"database.mdb\")
str_sql2 = \"SELECT * FROM jwringetoner WHERE godkendt=\'Ja\' ORDER BY navn\"
Set rs = Conn.Execute (str_sql2)
%>
        <div align=\"center\">
          <%
if rs.EOF then
%>
          <span class=\"overskrift\">Ingen Ringetoner ! </span>
          <%
else
%>
          <table width=\"101%\" height=\"24\" cellspacing=\"2\">
            <tr bgcolor=\"#0099FF\">
              <td width=\"33%\"><font face=tahoma size=2 color=\"#FFFFFF\"><b>ToneNavn</b></font></td>
              <td width=\"18%\"><font face=tahoma size=2 color=\"#FFFFFF\"><b>Nokia</b></font></td>
              <td width=\"16%\"><font face=tahoma size=2 color=\"#FFFFFF\"><b>Ericsson</b></font></td>
              <td width=\"27%\"><font face=tahoma size=2 color=\"#FFFFFF\"><b>Siemens</b></font></td>
              <td width=\"6%\"><font face=tahoma size=2 color=\"#FFFFFF\"><b>Hits:</b></font></td>
            </tr>
            <%
Do Until rs.EOF
    \'If Lcase(Left(rs(\"navn\"),1)) = Lcase(Left(request(\"bogstav\"),1)) Then
%>
            <tr>
              <td width=\"33%\"><a
            href=\'java script:se(\"<% = rs(\"id\") %>\",400,480)\' style=\"color: #000000\"><font face=tahoma size=2>
                <% = rs(\"tonenavn\") %>
                </font></a></td>
              <td width=\"18%\"><a href=\"melodi.asp?rid=<%= rs(\"id\") %>&sp=nokia\">nokia</a> </td>
              <td width=\"16%\"><a href=\"melodi.asp?rid=<%= rs(\"id\") %>&sp=ericsson\">ericsson</a></td>
              <td width=\"27%\"><a href=\"melodi.asp?rid=<%= rs(\"id\") %>&sp=siemens\">siemens</a></td>
              <td width=\"6%\"><% = rs(\"hits\") %></td>
            </tr>
            <%
    \'End if
rs.MoveNext
Loop
%>
Avatar billede okay Nybegynder
25. maj 2001 - 19:18 #12
hvad mener du ???
Avatar billede okay Nybegynder
25. maj 2001 - 19:18 #13
det virkede hellere ik med det script..
Avatar billede okay Nybegynder
25. maj 2001 - 19:20 #14
nu forstår jeg :o) 2 sek
Avatar billede okay Nybegynder
25. maj 2001 - 19:22 #15
det virker hellere ik med min script :(
Avatar billede okay Nybegynder
25. maj 2001 - 19:25 #16
får denne meddelse nu :o)

Microsoft VBScript compilation error \'800a040e\'

\'loop\' without \'do\'

/script/asp/jwringetoner/tones.asp, line 121

Loop
^
Avatar billede okay Nybegynder
26. maj 2001 - 01:29 #17
ok nu får jeg ik denne meddelse...

http://web-zone.dk/script/asp/jwringetoner/ringetoner.asp?alfa=EFGH

men den viser alligevel ik nogen ringetoner som lægger idatabasen ;o)
Avatar billede okay Nybegynder
26. maj 2001 - 13:46 #18
http://www.eksperten.dk/spm/75934
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
Programmeringssprog kurser
Kurser inden for grundlæggende programmering
Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel Indlæg Oprettet Seneste aktivitet
ASP classic kopiere database fil på server Af bsn i ASP 0 I dag 10:20 -
Persits.Upload Af bsn i ASP 9 17/09/202611:37 21/09/202615:15
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP 10 25/06/202622:20 04/09/202602:30
Tjek alle checkbox i form Af bsn i ASP 4 18/05/202601:57 19/05/202613:33
Lost focus Af bsn i ASP 1 07/11/202415:34 01/01/202514:58
Se alle spørgsmål i kategorien Opret spørgsmål

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.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I dag 13:01 Måned og år på graf Af mort1 i Excel
I dag 12:28 2 diske Af dcedata1977 i Andet hardware
I dag 12:06 Ekstra til TV 2 : "Tilkøb" + "TV2 Ude" Af Ikke-ekspert i Fjernsyn & projektorer
I dag 10:20 ASP classic kopiere database fil på server Af bsn i ASP
I går 15:04 Kan Medie Player overspille en CD ? - Hvordan Af Ikke-ekspert i Musik & videoafspillere
White papers
Flere white papers »