ASP og WAP

Den er gemt some "tone.asp" på www.XGP.dk...

jeg vil anbefale du kigger på den igemmen en online browser som den på fx tagtag.com, den kan da spare dig for wapudgifter. Kan ikke lige se probelmet i koden men et andet godt tip er at teste sin kode via en asp i en normal browser. Det plejer som reglt at virke for mig derefter har en gang brugt tre dage på at finde ud af jeg havde glemt en / i <br> ;) hvilke du vist også har nogle af :)

Donlup har ret. Du skal lave dine <br> om til <br />

Dertil har du lavet to <vml> tags. Et enkelt rækker. :-)

Download evt. Opera til test. Den viser gladeligt WML filer.

<% Response.ContentType = "text/vnd.wap.wml"%>
<?xml version="1.0" encoding="iso-8859-1"?>
<!doctype wml public "-//WAPFORUM//DTD WML 1.1//EN" "http://www.wapforum.org/DTD/wml_1.1.xml">
<wml>
<card id="menu" title="Menu'en på XGP:DK" newcontext="true">
    <p>
        <b>Menu</b><br/>
        <a href="#ringetoner">Ringetoner</a> (<%=Server.MapPath("/Wap/Billeder/")%>)<br/>
        <a href="#billeder">Billeder</a> (<%=Server.MapPath("/Wap/Ringetoner/")%>)
    </p>
</card>

<card id="ringetoner" title="Ringetoner på XGP:DK" newcontext="true">
    <p>
        <b>Ringetoner</b><br/>
<%
Dim objFSO
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")

Dim objFolder
Set objFolder = objFSO.GetFolder(Server.MapPath("/Wap/Ringetoner/"))

Response.Write "The files found in " & objFolder.Name & ":<br/>"

Dim objFile
    For Each objFile in objFolder.Files
      If Not Right(objFile.Name,3) = "asp" Then
        Response.write "<a href="
        Response.Write(objFile.Name)
        Response.write ">"
        Response.Write(objFile.Name & "<br/>")
        Response.write "</a>"
      End If
    Next

Set objFolder = Nothing
Set objFile = Nothing
Set objFSO = Nothing
%>
    </p>
</card>

<card id="billeder" title="Billeder på XGP:DK" newcontext="true">
    <p>
        <b>Billeder</b><br/>
<%
Dim objFSO2
Set objFSO2 = Server.CreateObject("Scripting.FileSystemObject")

Dim objFolder2
Set objFolder2 = objFSO2.GetFolder(Server.MapPath("/Wap/Billeder/"))

Response.Write "The files found in " & objFolder2.Name & ":<br/>"

Dim objFile2
    For Each objFile2 in objFolder2.Files
      If Not Right(objFile2.Name,3) = "asp" Then
        Response.write "<a href="
        Response.Write(objFile2.Name)
        Response.write ">"
        Response.Write(objFile2.Name & "<br/>")
        Response.write "</a>"
      End If
    Next

Set objFolder2 = Nothing
Set objFile2 = Nothing
Set objFSO2 = Nothing
%>
    </p>
</card>
</wml>

Sådan! Nu virker det i explorer, men ikke på mobilen. Nu siger den "Intet svar fra gateway!"... Hvad er nu det for noget?

Jeg mener din doctype skal skrives med stort...

<!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN" "http://www.wapforum.org/DTD/wml_1.1.xml">

I øvrigt er 200 point for sådan et spørgsmål nok lige i overkanten...

Jeg ved det er "ingenting" når man har brug for hjælp, men der er en del mennesker der tager point her på eksperten ret alvorligt (jeg er ikke en af dem) og kommer efter dig hvis du smider omkring med dem.

Smid selv et svar, og behold mindst halvdelen for dig selv. Del så ellers ud til dem der har lavet indlæg der har hjulpet dig.

Jeg vil ikke have en dag over 30 for det jeg har leveret.

For satan sbm! Nu virker det sq :)
Jeg ligger selv et svar, og så deler vi :)

Jeg er dig evigt taknemmelig!

Det var sq underligt! Nu er det gået ned :S Nu vil den downloade siden hvis jeg tjekker i browser!

WAP-Filer:
www.xgp.dk/index.wml <-- Virker ikke
www.xgp.dk/index.asp <-- Virker ikke

Andre:
www.xgp.dk/default.asp <-- Virker

Når du kalder filen for .wml ved serveren ikke at der er tale om en ASP side der skal eksekveres, og parser den istedet direkte til browseren.

De 2 x index filer ser sådan ud:

<% Response.ContentType = "text/vnd.wap.wml"%>
<?xml version="1.0" encoding="iso-8859-1"?>
<!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN" "http://www.wapforum.org/DTD/wml_1.1.xml">
<wml>
<card id="menu" title="Menu'en på XGP:DK" newcontext="true">
    <p>
        <b>Menu</b><br/>
        <a href="#ringetoner">Ringetoner</a> (<%=Server.MapPath("/Wap/Billeder/")%>)<br/>
        <a href="#billeder">Billeder</a> (<%=Server.MapPath("/Wap/Ringetoner/")%>)
    </p>
</card>

<card id="ringetoner" title="Ringetoner på XGP:DK" newcontext="true">
    <p>
        <b>Ringetoner</b><br/>
<%
Dim objFSO
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")

Dim objFolder
Set objFolder = objFSO.GetFolder(Server.MapPath("/Wap/Ringetoner/"))

Response.Write "The files found in " & objFolder.Name & ":<br/>"

Dim objFile
    For Each objFile in objFolder.Files
      If Not Right(objFile.Name,3) = "asp" Then
        Response.write "<a href="
        Response.Write(objFile.Name)
        Response.write ">"
        Response.Write(objFile.Name & "<br/>")
        Response.write "</a>"
      End If
    Next

Set objFolder = Nothing
Set objFile = Nothing
Set objFSO = Nothing
%>
    </p>
</card>

<card id="billeder" title="Billeder på XGP:DK" newcontext="true">
    <p>
        <b>Billeder</b><br/>
<%
Dim objFSO2
Set objFSO2 = Server.CreateObject("Scripting.FileSystemObject")

Dim objFolder2
Set objFolder2 = objFSO2.GetFolder(Server.MapPath("/Wap/Billeder/"))

Response.Write "The files found in " & objFolder2.Name & ":<br/>"

Dim objFile2
    For Each objFile2 in objFolder2.Files
      If Not Right(objFile2.Name,3) = "asp" Then
        Response.write "<a href="
        Response.Write(objFile2.Name)
        Response.write ">"
        Response.Write(objFile2.Name & "<br/>")
        Response.write "</a>"
      End If
    Next

Set objFolder2 = Nothing
Set objFile2 = Nothing
Set objFSO2 = Nothing
%>
    </p>
</card>
</wml>

Jamen det virkede da før.

Du mangler " rundt om dine links...

<a href=50cent - pimp.mid>50cent - pimp.mid<br/></a>

skal være
<a href="50cent - pimp.mid>50cent - pimp.mid<br/></a>

Og så ville jeg nok rykke <br/> om bagved </a>

Hvordan kan du se siderne? Min spørger bare om jeg vil downloade siden

Der er begge dine For Each løkker den er gal med.

For Each objFile2 in objFolder2.Files
      If Not Right(objFile2.Name,3) = "asp" Then
        Response.write "<a href="
        Response.Write(objFile2.Name)
        Response.write ">"
        Response.Write(objFile2.Name & "<br/>")
        Response.write "</a>"
      End If
    Next

Kan laves om til

  For Each objFile2 in objFolder2.Files
      If Not Right(objFile2.Name,3) = "asp" Then
%>
<a href="<%=objFile2.Name%>"><%=objFile2.Name%></a><br/>
<%
      End If
    Next

Hvis jeg henter index.asp ind i Opera vises siden med fejl, og vil sandsynligvis blive vist korrekt når først du har rettet fejlene

Download er vel også ok... Så kan du bare gemme den, og så åbne den downloadede fil med Notepad

If Not Right(objFile2.Name,3) = "asp" Then

??????

Skal det forstås at du har dine .mid filer liggende midt mellem .asp filer?
GRIMT GRIMT GRIMT GRIMT GRIMT GRIMT

Lad være med det. Læg dem i en seperat mappe.

Downloader lige opera :)

Bare rolig. Det var bare til tjek. Har slettet det:P

Nu skulle ASP'en virke!

Det ser ud til at virke. Men det er døde links du laver... Du skal huske at sætte stien ind foran i dine links. /Wap/Ringetoner/filnavn.mid

osv....

Det er gjort. Opdagede lige fejlen :)

<a href="<%=objFile2.Name%>"><%=objFile2.Name%>

kan så laves om til

<a href="/Wap/Ringetoner/<%=objFile2.Name%>"><%=objFile2.Name%>

Også det jeg har gjort ;)

Æv! Nu får jeg "Fil for stor til læsning" under "Ringetoner"

Hurtig løsning: Lav 2 (eller flere) mapper med ringetoner, og link til dem begge fra forsiden.

Evt.

Rock ringetoner
Pop ringetoner
Hiphop Ringetoner

Brug fantasien ;-)

Ellers skal man lave sådan at den laver flere sider... Altså med 10 på hver...

1
2
3
4
5
6
7
8
9
10
  Næste ->

Hvis du forstår

99 luftballons kan du vist ligeså godt fjerne... Der går jo en evighed før man overhovedet opdager at telefonen ringer....

Jep, jeg forstår udemærket. God fornøjelse. :-)

Takker :)

Uff, både W3c validation på http://validator.w3.org/check?uri=http%3A%2F%2Fwww.xgp.dk%2Ftone.asp, og forsøk på å åpne http://www.xgp.dk/tone.asp i XMLspy, gir 500 server error.

Og Opera melder fortsatt feil, det mangler gåsøyne rundt en href.