Php script, men i asp ?

prøv

  If instr(lcase(request(\"bogstav\")),Lcase(Left(rs(\"navn\"),1))) Then

det er jo lige dumt for så tjekker du ikke om du har nogle ringetoner, men det er en nem måde at gøre det på :)

erikjacobsen > det samme problem, viser ingen ringetoner.....

tpiil > du ku måske fortælle mig hvordan den tjekker om der er noget i databasen ??

lave det på en SQL

okay -> Det er simpelt og lave, men hvis du husker din tidligere kommentar er der INGEN hjælp til dig

bjarke > hvad snakker du om ??

tpiil > øh..det hjalp ik ret meget :o)

nææ for jeg hjælper skam dig heller ikke

okay -> Kan du huske igår da du svinede tpiil til ? = ingen hjælp til dig

prøv at skrive den kommetare her ?

http://www.eksperten.dk/spm/75746

Kommentar fra okay 
25/05 2001 17:12:04    tpIIl > høre her...tumpe...jeg har fået problemer med dit script...derfor er jeg igang med at lave en !!!

Og jeg regnede også med at du er enig med tdaugaard.... 

Kommentar fra tpiil 
25/05 2001 17:09:08    okay >> FOR DET FØRSTE MIT NAVN ER TPIIL MED 2 I\'ER FOR DET ANDET:
den kode jeg gav dig der virker fint hvis man kan finde ud af at bruge den... (det kan tumper jo ikke)
og det med spørgsmåls titlen er jeg med tdaugaard! 

Kommentar fra okay 
25/05 2001 17:12:04    tpIIl > høre her...tumpe...jeg har fået problemer med dit script...derfor er jeg igang med at lave en !!!

Og jeg regnede også med at du er enig med tdaugaard.... 

Kommentar fra tpiil 
25/05 2001 17:20:59    skrid nu bare med dig, du får intet ud af dette spørgsmål! 

bah, hvorfor er der ikke en ignore funktion på eksperten

bjarke > der kunne du ik svarer hva ??

okay -> Det har nok noget med at had kan opbygges over lang tid.

Bjarke-b > du er enig med tpiil fordi du er hans ven.... IK !!

Du ved selv at det var ham der begyndt med at sige (det kan tumper jo ikke)....men du vil bare giv mig skylden !!!

Bjarke > Hvis du ik gider at hjælpe, så lad være med at skrive

\"Det er simpelt og lave, men hvis du husker din tidligere kommentar er der INGEN hjælp til dig \"

Okay ?? tak

Prøv denne her; straight off my head så jeg aner ikke om den funker:

<%
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & server.MapPath(\"database.mdb\")
str_sql2 = \"SELECT * FROM jwringetoner\"
If Request(\"alfa\") > \"\" Then str_sql2 = str_sql2 & \" WHERE instr(\'\" & Request(\"alfa\") & \"\',left(tonenavn,1))>0\"
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%\"><font face=tahoma size=2> <% = rs(\"tonenavn\") %></font></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
%>

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

ja, okay .. jeg havde ikke lige taget forbehold for store/små bogstaver: prøv denne her:

<%
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & server.MapPath(\"database.mdb\")
str_sql2 = \"SELECT * FROM jwringetoner\"
If Request(\"alfa\") > \"\" Then str_sql2 = str_sql2 & \" WHERE instr(\'\" & LCase(Request(\"alfa\")) & \"\',lcase(left(tonenavn,1)))>0\"
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%\"><font face=tahoma size=2> <% = rs(\"tonenavn\") %></font></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
%>

VIRKER, Tak for hjælpen Tdaugaard :o)

Det var så lidt :-)

Hej mit navn er nåde er fra Liberia land rart at møde dig min kære jeg vil elske at vide mere om dig min e-mail er (graced_11dabah@yahoo.com)