[Resolvido] WML (WAP)

[Mição 0]

Como acessar o banco de dados MySQL utilizando o WML?Agradeço quem puder ajudar-me.Mição

[tiagoborges.net 0]

Se puder usar ASP sakae:

 

ASP [/tr][tr]<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>

<%

Response.Expires = 0

Response.ContentType = "text/vnd.wap.wml"

%>

<?xml version="1.0" encoding="iso-8859-1"?>

<!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.3//EN" "http://www.wapforum.org/DTD/wml13.dtd" >

<wml>

<card id="home" title="WAP INCLUDES - CONTATOS">

<br/><b>:: Resultado da Ultima Enquete ::</b><br/><br/>

<!--#include file="funcoes/conex.asp"-->

<%

Set rs = Server.CreateObject("ADODB.Recordset")

rs.Open "SELECT * FROM tb_enquete",Conex,3,3

rs.movelast

response.Write("<hr><b>"& rs("question") &"</b><br/><br/>")

strTotal = rs("value01") + rs("value02") + rs("value03") + rs("value04") + rs("value05")

if strTotal = 0 then strTotal = 100

if rs("aswer01") <> empty then response.Write("- "& rs("aswer01") &": <b>"& rs("value01") &" - "& rs("value01") * 100 / strTotal &"%</b><br/>")

if rs("aswer02") <> empty then response.Write("- "& rs("aswer02") &": <b>"& rs("value02") &" - "& rs("value02") * 100 / strTotal &"%</b><br/>")

if rs("aswer03") <> empty then response.Write("- "& rs("aswer03") &": <b>"& rs("value03") &" - "& rs("value03") * 100 / strTotal &"%</b><br/>")

if rs("aswer04") <> empty then response.Write("- "& rs("aswer04") &": <b>"& rs("value04") &" - "& rs("value04") * 100 / strTotal &"%</b><br/>")

if rs("aswer05") <> empty then response.Write("- "& rs("aswer05") &": <b>"& rs("value05") &" - "& rs("value05") * 100 / strTotal &"%</b><br/>")

response.Write("<br/>Total de votos: <b>"& rs("value01") + rs("value02") + rs("value03") + rs("value04") + rs("value05") &"</b>")

Set rs = Nothing

%>

</card>

</wml>

[/tr]

 

Att,

[Mição 0]

Valeu!!!

 

Mição http://forum.imasters.com.br/public/style_emoticons/default/clap.gif