Ir para conteúdo
Fórum Script Brasil

[ GuTo ]

Membros
 Perfil  Explorar Conteúdo

  • Total de itens

    955

  • Registro em

  • Última visita

 Tipo de Conteúdo 

Tudo que [ GuTo ] postou

  1. [ GuTo ]

    Ajuda - Perfil

    pergunta respondeu ao [ GuTo ] de [ GuTo ] em ASP

    JÁ QUE NINGUÉM ME RESPONDE, TUDO BEMMMM MAS ENTÃO QUE ENVIE OU INDIQUE UM SCRIPT PRONTO, QUE TENHA EM ALGUM LUGAR PRA DOWNLOAD... QUE SEJA DE VER DETALHES DE UM ID.
  2. [ GuTo ]

    Condição

    pergunta respondeu ao [ GuTo ] de [ GuTo ] em ASP

    Valeu hara e pgmador. Funcionou direitinho!
  3. [ GuTo ]

    Condição

    uma questão postou [ GuTo ] ASP

    <%if RS.Fields.icq = "" then%>Sem Status <%else%> <img src="http://web.icq.com/whitepages/online?icq=<%=RS("icq").Value %>&img=5" width="16" height="14" border="0" alt="Status de <%=RS("nicknome").Value %>"><%end if%> Queria que verifica-se o campo icq da tabela, e se for igual a "" (nada), que retorne como resposta: Sem Status. Do contrário, retorna uma imagem com o status do icq do cara! O meu problema tá na parte em vermelho. Não sei se teria que criar uma váriavel... e se tem, não estou sabendo como criar direito. Fiz algo assim <%dim icq icq= RS.Fields.icq %> Aguardo ajuda. ICQ: 322840175
  4. [ GuTo ]

    Asp & Access

    uma questão postou [ GuTo ] ASP

    Ae rapaziada! Quero fazer uma coisa que pra mim, aparentemente, parece-me ser simples, mas não sei como realizá-la! - Queria fazer uma coisa em ASP que ao cara se cadastrar, fosse pego a data e hora completa do servidor. Ex. (25/05/2003 04:45:00). Não sei como criar esta função em ASP que capture estes dados no momento em que se cadastra. Ah, uma dúvida que surgiu agora, se o meu servidor for de outro país, tipo brinkster, vai pegar o horário dos EUA? Sei lá! Se isso não for possivel então, só poderia pegar a data e hora DO USUÁRIO (do pc do cara mesmo), mas se a data e/ou hora dele estiver errada?! - E no banco de dados, em Access, que campos teria de colocar? De que tipo de dados? Um pro dia, mês e ano E um pra hora, minuto e segundos? E quanto ao tipo de dados de cada um? Seriam TODOS texto ou data/hora ou algum outro? Se for só um campo, chamaria ele de "expedicao", e dae os dados seriam do tipo texto? Espero ter sido claro. Aguardo ansiosamente a ajuda de vocês! ICQ: 322840175 E-mail & MSN: superjavascripts@hotmail.com
  5. [ GuTo ]

    Asp & Access

    uma questão postou [ GuTo ] Access

    Ae rapaziada! Quero fazer uma coisa que pra mim, aparentemente, parece-me ser simples, mas não sei como realizá-la! - Queria fazer uma coisa em ASP que ao cara se cadastrar, fosse pego a data e hora completa do servidor. Ex. (25/05/2003 04:45:00). Não sei como criar esta função em ASP que capture estes dados no momento em que se cadastra. Ah, uma dúvida que surgiu agora, se o meu servidor for de outro país, tipo brinkster, vai pegar o horário dos EUA? Sei lá! Se isso não for possivel então, só poderia pegar a data e hora DO USUÁRIO (do pc do cara mesmo), mas se a data e/ou hora dele estiver errada?! - E no banco de dados, em Access, que campos teria de colocar? De que tipo de dados? Um pro dia, mês e ano E um pra hora, minuto e segundos? E quanto ao tipo de dados de cada um? Seriam TODOS texto ou data/hora ou algum outro? Se for só um campo, chamaria ele de "expedicao", e dae os dados seriam do tipo texto? Espero ter sido claro. Aguardo ansiosamente a ajuda de vocês! ICQ: 322840175 E-mail & MSN: superjavascripts@hotmail.com
  6. [ GuTo ]

    Autonumeração

    pergunta respondeu ao [ GuTo ] de [ GuTo ] em ASP

    putz, não consegui fazer isso... achu q não entendi direito.. se puder ajudar... :( :P
  7. [ GuTo ]

    Ajuda - Perfil

    pergunta respondeu ao [ GuTo ] de [ GuTo ] em ASP

    Ae galera Desisto... eu já tentei de tudo! Se alguém poder ajeitar este código pra mim eu ficaria eternamente grato! Obrigado!
  8. [ GuTo ]

    Ajuda - Perfil

    pergunta respondeu ao [ GuTo ] de [ GuTo ] em ASP

    Que merda, aonde tá o erro... não aparece nada na página, nem o nome do erro... <% Dim id id = Request("id") If UCase(Request.QueryString("id")) = ""& id &"" Dim Connection, sql, rs Set Connection = Server.CreateObject("ADODB.Connection") Connection.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db\cadastros.mdb") sql = "select * from tblCad where ID="& id & " and Adicionado=1" Set rs = Connection.Execute(sql) %><html> <head> <title>Chat Canoas</title> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> <link href="http://www.chatcanoas.kit.net/styles.css" rel="stylesheet" type="text/css"> <link href="http://www.chatcanoas.kit.net/favicon.ico" rel="shortcut icon"> </head> <body topmargin="0"> <iframe src="http://www.chatcanoas.kit.net/voto.htm" name="voto" width="0" height="0" align="center" frameborder="0" border="0" marginheight="0" marginwidth="0" scrolling="no"></iframe> <p align="center" class="titulo"><font class="cor<%If Sexo = 1 then Response.Write("3") else Response.Write("4")%>">PERFIL</font></p> <% sql = "SELECT * FROM tblCad WHERE ID=" & id & " " Set rs = Connection.Execute(sql) If Not rs.EOF Then %> <!-- MEMBRO INÍCIO --> <table align="center" border="0" cellspacing="0" cellpadding="0" width="90%"> <tr valign="top"> <td align="right"><img src="http://www.chatcanoas.kit.net/ag2.gif" width="12" height="12"></td> <td background="http://www.chatcanoas.kit.net/lateral_pt1.gif"><img height=1 src="" width=1 border=0></td> <td align="left"><img src="http://www.chatcanoas.kit.net/ag1.gif" width="12" height="12"></td> </tr> <tr> <td background="http://www.chatcanoas.kit.net/lateral_pt3.gif" width="12" height="1">&nbsp;</td> <td><!-- MEMBRO INÍCIO --> <table align="center" border="0" cellspacing="1" cellpadding="2" width="100%"> <tr valign="top"><td width="50" align="right"><b>Apelido</b></td> <td width="1">:</td> <td><%=RS("nicknome").Value %></td> <td align="center" width="50%"><b>Descrição</b></td></tr> <tr valign="top"><td width="50" align="right"><b>Idade</b></td> <td width="1">:</td> <td><%=RS("idade").Value %></td> <td align="left" width="50%" rowspan="3"><%=RS("descricao").Value %></td></tr> <tr valign="top"><td width="50" align="right"><b>ICQ#</b></td> <td width="1">:</td> <td><%=RS("icq").Value %></td></tr> <tr valign="top"><td width="50" align="right"><b>Email</b></td> <td width="1">:</td> <td><%=RS("email").Value %></a></td></tr> <tr valign="top"><td align="center" colspan="4">OPÇÕES &raquo;&raquo; <a href="mailto:<%=RS("email").Value %>"><img src="http://www.chatcanoas.kit.net/icons/mail.gif" border="0" width="15" height="11" alt="Envie um e-mail para <%=RS("nicknome").Value %>"></a> <img src="http://web.icq.com/whitepages/online?icq=<%=RS("icq").Value %>&img=5" width="16" height="14" border="0" alt="Status de <%=RS("nicknome").Value %>"> <a href="http://web.icq.com/whitepages/add_me/1,,,00.icq?uin=<%=RS("icq").Value %>&action=add"><img src="http://www.chatcanoas.kit.net/icons/addme.gif" width="16" height="13" border="0" alt="Adicione <%=RS("nicknome").Value %> à sua lista de contatos"></a>&nbsp;<a href="http://web.icq.com/whitepages/message_me/1,,,00.icq?uin=<%=RS("icq").Value %>&action=message"><img src="http://www.chatcanoas.kit.net/icons/msgme.gif" width="16" height="14" border="0" alt="Envie uma mensagem para <%=RS("nicknome").Value %>"></a> <%if RS("TemFoto").Value then %> <img src="http://www.chatcanoas.kit.net/icons/foto.gif" width="16" height="15" alt="<%=RS("nicknome").Value %> tem foto aqui no site"><%end if %></td></tr> </table> <!-- MEMBRO FIM --></td> <td background="http://www.chatcanoas.kit.net/lateral_pt2.gif" width="12" height="1">&nbsp;</td> </tr> <tr valign="bottom"> <td align="right"><img src="http://www.chatcanoas.kit.net/ag4.gif" width="12" height="12"></td> <td background="http://www.chatcanoas.kit.net/lateral_pt4.gif"><img height=1 src="" width=1 border=0></td> <td align="left"><img src="http://www.chatcanoas.kit.net/ag3.gif" width="12" height="12"></td> </tr> </table><!-- MEMBRO FIM --> <% End If %> <script language=JavaScript src="http://www.webcount.com.br/webcount.asp?siteid=375"></script> <% Connection.Close Set rs = Nothing Set Connection = Nothing %></body> </html>
  9. [ GuTo ]

    Autonumeração

    pergunta respondeu ao [ GuTo ] de [ GuTo ] em ASP

    Ae resopi muito obrigado mesmo! mas tu saberia fazer pra q nossa página continuasse esse contagem? tipo, 11, depois 12, e etc... se puder responder tudo bem, se não der, tudo bem também... um abraço e muito obrigado!
  10. [ GuTo ]

    Ajuda - Perfil

    pergunta respondeu ao [ GuTo ] de [ GuTo ] em ASP

    pô galera, me ajudem ae!!!
  11. [ GuTo ]

    Autonumeração

    pergunta respondeu ao [ GuTo ] de [ GuTo ] em ASP

    o código ASP tá em colorido... ali é q está o erro vejam no link q eu dei... tá repetindo todos os dados de cada membro 10 vezes... na célula da esquerda deveria aparecer 1, depois na seguinte 2, na seguinte 3, e assim por diante... é uma autonumeração, tipo como se fosse a ordem de resultados encontrado s nakela página... tá dando pra entender?!
  12. [ GuTo ]

    Autonumeração

    pergunta respondeu ao [ GuTo ] de [ GuTo ] em ASP

    Ae resopi <% Option Explicit Dim Sexo, Comeca, Intervalo, i Sexo = 0 Comeca = 1 Intervalo = 10 If UCase(Request.QueryString("s")) = "H" then Sexo = 1 If Request.QueryString("start") <> "" then Comeca = CInt(Request.QueryString("start")) If Request.QueryString("show") <> "" then Intervalo = CInt(Request.QueryString("show")) Dim Connection, SQLquery, RS, Total Set Connection = Server.CreateObject("ADODB.Connection") Connection.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db\cadastros.mdb") SQLquery = "SELECT count(*) AS total FROM tblCad WHERE MascFem=" & Sexo & " and Adicionado=1" Set RS = Connection.Execute(SQLquery) Total = RS("total").Value %><html> <head> <title>Chat Canoas</title> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> <link href="http://www.chatcanoas.kit.net/styles.css" rel="stylesheet" type="text/css"> <link href="http://www.chatcanoas.kit.net/favicon.ico" rel="shortcut icon"> </head> <body topmargin="0"> <p align="center" class="titulo">MEMBROS<br> <%If Sexo = 1 then %><font class="cor3">Garotos</font> <%Else %><font class="cor4">Garotas</font><%End If %> - <font class="cor1"><b>Página <%=Round((Comeca+Intervalo-1)/Intervalo) %> de <%=Round((Total+Intervalo-1)/Intervalo)%></b></font></p> <table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td class="subtitulo">Confira o perfil e tudo mais <% if Sexo = 1 then response.write("dos garotos") else response.write("das garotas") %>. </td> <td class="cor1">Mostrando de: <b><%=Comeca %> a <% If (Comeca+Intervalo-1 < Total) then Response.Write(Comeca+Intervalo-1) else Response.Write(Total) end if %></b></td> </tr> </table> <br> <table align="center" border="0" cellspacing="0" cellpadding="0" width="100%"> <tr valign="top"> <td align="right"><img src="http://www.chatcanoas.kit.net/ag2.gif" width="12" height="12"></td> <td background="http://www.chatcanoas.kit.net/lateral_pt1.gif"><img height=1 src="" width=1 border=0></td> <td align="left"><img src="http://www.chatcanoas.kit.net/ag1.gif" width="12" height="12"></td> </tr> <tr> <td background="http://www.chatcanoas.kit.net/lateral_pt3.gif" width="12" height="1">&nbsp;</td> <td><!-- TABELA INÍCIO --> <table border="0" align="center" cellpadding="2" cellspacing="1" width="100%"> <tr valign="top" class="bg1"> <td align="center" width="5%">#</td> <td align="center" width="20%">Apelido</td> <td align="center" width="10%">Sexo</td> <td align="center" width="10%">ICQ#</td> <td align="center" width="10%">Email</td> <td align="center" width="10%">Status</td> </tr><% SQLquery = "SELECT * FROM tblCad WHERE Adicionado=1 AND MascFem=" & Sexo & " ORDER BY ID" Set RS = Connection.Execute(SQLquery) if Total > 0 then RS.Move(Comeca - 1) For i = 1 to Intervalo If Not RS.EOF Then %><!-- INÍCIO DOS DADOS DO MEMBROS --> <%dim numero numero = 0 do until numero = Intervalo 'esse aqui vai listar até o número igual da váriavel Intervalo (a principio é 10) numero = numero + 1%><tr valign="top" class="bg2"> <td align="center"><%=numero%></td> <td align="center"><a href="perfil.asp?id=<%=RS("ID").Value %>"><%=RS("nicknome").Value %></a></td> <td align="center"><%if Sexo = 1 then Response.Write("H") else Response.Write("M")%></td> <td align="center"><%=RS("icq").Value %></td> <td align="center"><a href="mailto:<%=RS("email").Value %>"><img src="http://www.chatcanoas.kit.net/icons/mail.gif" border="0" width="15" height="11" alt="Envie um e-mail para <%=RS("nicknome").Value %>"></a></td> <td align="center"><img src="http://web.icq.com/whitepages/online?icq=<%=RS("icq").Value %>&img=5" width="16" height="14" border="0" alt="Status de <%=RS("nicknome").Value %>"></a></td> </tr> <%loop%> <!-- FIM DOS DADOS DO MEMBROS --><% RS.MoveNext End If Next %> </table> <!-- TABELA FIM --></td> <td background="http://www.chatcanoas.kit.net/lateral_pt2.gif" width="12" height="1">&nbsp;</td> </tr> <tr valign="bottom"> <td align="right"><img src="http://www.chatcanoas.kit.net/ag4.gif" width="12" height="12"></td> <td background="http://www.chatcanoas.kit.net/lateral_pt4.gif"><img height=1 src="" width=1 border=0></td> <td align="left"><img src="http://www.chatcanoas.kit.net/ag3.gif" width="12" height="12"></td> </tr> </table> <br> <table align="center" border="0" cellpadding="2" cellspacing="1" width="80%"> <tr> <td align="center"> <% if (Comeca - Intervalo) > 0 and (Comeca - Intervalo) < Total then %><a href="lista.asp?s=<% if Sexo = 1 then Response.Write("H") else Response.Write("M") Response.Write("&start=" & (Comeca - Intervalo) & "&show=" & Intervalo) %>" title="Anterior"><img src="http://www.chatcanoas.kit.net/icons/seta_left.gif" border="0" width="10" height="09"></a><% else %><img src="http://www.chatcanoas.kit.net/icons/seta_left.gif" border="0" width="10" height="09"><% end if %> |</td> <% for i = 0 to ((Total+Intervalo-1)/Intervalo) %> <td align="center" width="2%"><a href="lista.asp?s=<% if Sexo = 1 then Response.Write("H") else Response.Write("M") Response.Write("&start=" & ((i * Intervalo) + 1) & "&show=" & Intervalo) %>"><img src="http://www.chatcanoas.kit.net/icons/<% if i <= 8 then Response.Write("0" & i+1) else Response.Write(i+1) %>.gif" border="0" width="12" height="5"></a></td> <% next %> <td align="center"> | <% if (Comeca + Intervalo) <= Total and (Comeca + Intervalo) > 0 then %><a href="lista.asp?s=<% if Sexo = 1 then Response.Write("H") else Response.Write("M") Response.Write("&start=" & (Comeca + Intervalo) & "&show=" & Intervalo) %>" title="Próxima"><img src="http://www.chatcanoas.kit.net/icons/seta_right.gif" border="0" width="10" height="09"></a><% else %><img src="http://www.chatcanoas.kit.net/icons/seta_right.gif" border="0" width="10" height="09"><% end if %></td> </tr> </table> <script language=JavaScript src="http://www.webcount.com.br/webcount.asp?siteid=375"></script> <% Connection.Close Set RS = Nothing Set Connection = Nothing %> </body> </html> o código tá ae, agora confira a página... http://www27.brinkster.com/chatcanoas/lista.asp e veja o erro... e ME AJUDE... eu á tentei muita coisa, mas não consigo... :angry: :angry: :angry:
  13. [ GuTo ]

    Autonumeração

    uma questão postou [ GuTo ] ASP

    Ae gurizada, vortei!olha só que merda... eu coloquei este código na célula ó, eu que fiz. <%dim numero numero = 1 %> <%numero = numero + 1%> <%=numero%> Só que ele não dá um next nem nada, ou seja, exibe sempre o resultado 2 em todas as células. HELP-ME! PLEASE! é barbada mas não consigo acertar esta merda! http://www27.brinkster.com/chatcanoas/lista.asp
  14. [ GuTo ]

    Ajuda - Perfil

    pergunta respondeu ao [ GuTo ] de [ GuTo ] em ASP

    Ae cara, keria uma ajuda, mas tudo bem... eu estou tentanto aprender tudinho... mas assim, no select ali, eu keria selecionar um ID expecifico, de um membro que já tenha sido aceito pelo site. no caso, Adicionado=1 é um membro aceito. no caso de Adicionado=0, é um membro aguardando confirmação de cadastro. certo brow! agora, eu não consigo fazer o select de um membro só pelo ID, não sei aonde pode estar o meu erro. queria que alguém que entedesse melhor do assunto, arrumasse pra mim e deixasse funcionando. com certeza eu vou ver no que errei e irei aprender, e serei grato, valeu! Abraço
  15. [ GuTo ]

    Ajuda - Perfil

    pergunta respondeu ao [ GuTo ] de [ GuTo ] em ASP

    Confiram ae... não sei o q poderia estar errado! <% Dim id id = Request("id") If UCase(Request.QueryString("id")) = ""& id &"" Dim Connection, sql, rs Set Connection = Server.CreateObject("ADODB.Connection") Connection.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db\cadastros.mdb") sql = "select count(*) from membros like ID=" & id & " and Adicionado=1" ' where ID like '%"& id &"%' Set rs = Connection.Execute(sql) %><html> <head> <title>Chat Canoas</title> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> <link href="http://www.chatcanoas.kit.net/styles.css" rel="stylesheet" type="text/css"> <link href="http://www.chatcanoas.kit.net/favicon.ico" rel="shortcut icon"> </head> <body topmargin="0"> <iframe src="http://www.chatcanoas.kit.net/voto.htm" name="voto" width="0" height="0" align="center" frameborder="0" border="0" marginheight="0" marginwidth="0" scrolling="no"></iframe> <p align="center" class="titulo"><font class="cor<%If Sexo = 1 then Response.Write("3") else Response.Write("4")%>">PERFIL</font></p> <% sql = "SELECT * FROM tblCad WHERE id=" & id & " " Set rs = Connection.Execute(sql) If Not rs.EOF Then %> <!-- MEMBRO INÍCIO --> <table align="center" border="0" cellspacing="0" cellpadding="0" width="90%"> <tr valign="top"> <td align="right"><img src="http://www.chatcanoas.kit.net/ag2.gif" width="12" height="12"></td> <td background="http://www.chatcanoas.kit.net/lateral_pt1.gif"><img height=1 src="" width=1 border=0></td> <td align="left"><img src="http://www.chatcanoas.kit.net/ag1.gif" width="12" height="12"></td> </tr> <tr> <td background="http://www.chatcanoas.kit.net/lateral_pt3.gif" width="12" height="1">&nbsp;</td> <td><!-- MEMBRO INÍCIO --> <table align="center" border="0" cellspacing="1" cellpadding="2" width="100%"> <tr valign="top"><td width="50" align="right"><b>Apelido</b></td> <td width="1">:</td> <td><%=RS("nicknome").Value %></td> <td align="center" width="50%"><b>Descrição</b></td></tr> <tr valign="top"><td width="50" align="right"><b>Idade</b></td> <td width="1">:</td> <td><%=RS("idade").Value %></td> <td align="left" width="50%" rowspan="3"><%=RS("descricao").Value %></td></tr> <tr valign="top"><td width="50" align="right"><b>ICQ#</b></td> <td width="1">:</td> <td><%=RS("icq").Value %></td></tr> <tr valign="top"><td width="50" align="right"><b>Email</b></td> <td width="1">:</td> <td><%=RS("email").Value %></a></td></tr> <tr valign="top"><td align="center" colspan="4">OPÇÕES &raquo;&raquo; <a href="mailto:<%=RS("email").Value %>"><img src="http://www.chatcanoas.kit.net/icons/mail.gif" border="0" width="15" height="11" alt="Envie um e-mail para <%=RS("nicknome").Value %>"></a> <img src="http://web.icq.com/whitepages/online?icq=<%=RS("icq").Value %>&img=5" width="16" height="14" border="0" alt="Status de <%=RS("nicknome").Value %>"> <a href="http://web.icq.com/whitepages/add_me/1,,,00.icq?uin=<%=RS("icq").Value %>&action=add"><img src="http://www.chatcanoas.kit.net/icons/addme.gif" width="16" height="13" border="0" alt="Adicione <%=RS("nicknome").Value %> à sua lista de contatos"></a>&nbsp;<a href="http://web.icq.com/whitepages/message_me/1,,,00.icq?uin=<%=RS("icq").Value %>&action=message"><img src="http://www.chatcanoas.kit.net/icons/msgme.gif" width="16" height="14" border="0" alt="Envie uma mensagem para <%=RS("nicknome").Value %>"></a> <%if RS("TemFoto").Value then %> <img src="http://www.chatcanoas.kit.net/icons/foto.gif" width="16" height="15" alt="<%=RS("nicknome").Value %> tem foto aqui no site"><%end if %></td></tr> </table> <!-- MEMBRO FIM --></td> <td background="http://www.chatcanoas.kit.net/lateral_pt2.gif" width="12" height="1">&nbsp;</td> </tr> <tr valign="bottom"> <td align="right"><img src="http://www.chatcanoas.kit.net/ag4.gif" width="12" height="12"></td> <td background="http://www.chatcanoas.kit.net/lateral_pt4.gif"><img height=1 src="" width=1 border=0></td> <td align="left"><img src="http://www.chatcanoas.kit.net/ag3.gif" width="12" height="12"></td> </tr> </table><!-- MEMBRO FIM --> <% End If %> <script language=JavaScript src="http://www.webcount.com.br/webcount.asp?siteid=375"></script> <% Connection.Close Set rs = Nothing Set Connection = Nothing %> </body> </html> Por favor, ajudem-me... ninguém dá um helpzinho só... <_<
  16. [ GuTo ]

    Ajuda - Perfil

    uma questão postou [ GuTo ] ASP

    O seguinte... Gostaria de fazer uma página que exibisse apenas dados de UM membro só cadastrado. Só sei exibr todos membros. Seria algo usando querystring, acho. Onde ficasse uma URL do igual a isso: perfil.asp?id=1 onde 1 poderia ser qualquer outro número de ID. Tenho este código que fiz, mas não está correto. <% Dim id id = Request.ServerVariables("PATH_INFO") If UCase(Request.QueryString("id")) = "%"& Request.ServerVariables("id") &"%" Dim Connection, sql, rs Set Connection = Server.CreateObject("ADODB.Connection") Connection.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db\geral.mdb") sql = "select count(*) from membros where id=" & id & " and aceito=1" ' não aceito igual a zero/false Set rs = Connection.Execute(sql) %><html> <head> <title>Chat Canoas</title> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> <link href="http://www.chatcanoas.kit.net/styles.css" rel="stylesheet" type="text/css"> <link href="http://www.chatcanoas.kit.net/favicon.ico" rel="shortcut icon"> </head> <body topmargin="0"> <iframe src="http://www.chatcanoas.kit.net/voto.htm" name="voto" width="0" height="0" align="center" frameborder="0" border="0" marginheight="0" marginwidth="0" scrolling="no"></iframe> <p align="center" class="titulo"><font class="cor<%If Sexo = 1 then Response.Write(3) else Response.Write(4) %>">PERFIL</font></p> <% sql = "SELECT * FROM tblCad WHERE id=" & id & " " Set rs = Connection.Execute(sql) If Not rs.BOF Then %> <!-- MEMBRO INÍCIO --> <table align="center" border="0" cellspacing="1" cellpadding="2" width="100%"> <tr valign="top"><td width="50" align="right"><b>Nome</b></td> <td width="1">:</td> <td><%=rs("nome").Value %><%if rs("foto").Value then %> <img src="http://www.chatcanoas.kit.net/icons/foto.gif" width="16" height="15" alt="<%=rs("nome").Value %> tem foto aqui no site"><%end if %></td> <td align="center" width="50%"><b>Detalhes</b></td></tr> <tr valign="top"><td width="50" align="right"><b>Idade</b></td> <td>:</td> <td><%=rs("nascimento").Value %></td> <td align="left" width="50%" rowspan="3"><%=rs("detalhes").Value %></td></tr> <tr valign="top"><td width="50" align="right"><b>ICQ#</b></td> <td>:</td> <td><a href="http://web.icq.com/whitepages/add_me/1,,,00.icq?uin=<%=rs("icq").Value %>&action=add"><img src="http://web.icq.com/whitepages/online?icq=<%=rs("icq").Value %>&img=5" width="16" height="14" border="0" alt="Adicione <%=rs("nome").Value %> à sua lista de contatos"></a>&nbsp;<a href="http://web.icq.com/whitepages/message_me/1,,,00.icq?uin=<%=rs("icq").Value %>&action=message"><img src="http://www.chatcanoas.kit.net/icons/msgme.gif" width="16" height="14" border="0" alt="Mande uma mensagem para <%=rs("nome").Value %>"></a> <%=rs("icq").Value %></td></tr> <tr valign="top"><td width="50" align="right"><b>Email</b></td> <td>:</td> <td><a href="mailto:<%=rs("email").Value %>"><img src="http://www.chatcanoas.kit.net/icons/mail.gif" border="0" width="15" height="11" alt="Mande um e-mail para <%=rs("nome").Value %>"> <%=rs("email").Value %></a></td></tr> </table> <!-- MEMBRO FIM --> <% End If %> <% Connection.Close Set rs = Nothing Set Connection = Nothing %> </body> </html> Desde já agredeço à todos. :D
  17. [ GuTo ]

    Ajuda

    pergunta respondeu ao [ GuTo ] de [ GuTo ] em ASP

    Ae gurizada, vortei!olha só que merda... eu coloquei este código na célula ó, eu que fiz. <%dim numero numero = 1 %> <%numero = numero + 1%> <%=numero%> Só que ele não dá um next nem nada, ou seja, exibe sempre o resultado 2 em todas as células. HELP-ME! PLEASE!
  18. [ GuTo ]
    Caro jissa, mais uma vez, obrigado pela sua ajuda. Se você não tivesse feito isso eu iria ficar a vida inteira pensando que o problema/erro foi meu no asp. É bom sempre poder contar com alguém. ----------------------------- Caro Rock, é a 1ª vez, acho eu, que nos falamos aqui no fórum. É um prazer em conhece-lo. Muito obrigado por indicar-me o site do domaindlx. Vou dar uma passadinha por lá, com certeza! ----------------------------- Agora uma pequena dúvida, o que é ou pra que serve CDONS ??? :D Desde já agradeço
  19. [ GuTo ]
    AE jissa INDIQUE.ASP <% dim useraction useraction = request("action") select case useraction case "login" seunome = request.form("seunome") seuemail = request.form("seuemail") nomeamigo = request.form("nomeamigo") emailamigo = request.form("emailamigo") Set objCDO = Server.CreateObject("CDONTS.NewMail") htmlemail = htmlemail & "<font face=Verdana size=2><strong><font size=2>" htmlemail = htmlemail & "<p><font face=Verdana color=#000000>Olá </font><i><font " htmlemail = htmlemail & "face=Verdana color=#FF0000>" & nomeamigo & "</font></i><font face=Verdana color=#666666>!<br>" htmlemail = htmlemail & "<br>" htmlemail = htmlemail & "O seu amigo " & seunome & " entrou no site da ChatCanoas e pensou que você iria gostar de visitar o site também!</font></font></strong></font></p>" htmlemail = htmlemail & "<br>" htmlemail = htmlemail & "<p><strong><font size=2 color=#666666><font face=Verdana>O site da ChatCanoas, é um portal onde você encontra uma seção para Webmaster, com vários exemplos de DHTML, Java Script, CSS, etc. Além da seção Webmaster, você também encontra no nosso portal, uma seção de Apostilas, com tudo oque você precisa para entrar no mundo da informática e muito mais. Na ChatCanoas, você também irá encontrar uma seção de Dowloads com os melhores programas, é muito fácil de encontrar o programa que você quer, basta você fazer uma busca e pronto!</font><br><br>" htmlemail = htmlemail & "<font face=Verdana>Atenciosamente,<br>" htmlemail = htmlemail & "</font></font><i><font face=Verdana size=2 color=#666666>&nbsp;ChatCanoas" htmlemail = htmlemail & "- O seu Portal de Informática<br>" htmlemail = htmlemail & "&nbsp;</font><a href=http://www.chatcanoas.kit.net><font face=Verdana size=2 color=#666666>www.chatcanoas.kit.net</font></a></i></strong></p>" objCDO.To = emailamigo objCDO.From = seunome objCDO.Subject = "V I S I T E ! ! !" objCDO.Body = htmlemail objCDO.MailFormat = 0 objCDO.Bodyformat = 0 objCDO.Send response.redirect "obrigado.asp" end select %> <html> <head> <title>Chat Canoas</title> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> <link href="http://www.chatcanoas.kit.net/styles.css" rel="stylesheet" type="text/css"> <link href="http://www.chatcanoas.kit.net/favicon.ico" rel="shortcut icon"> </head> <body topmargin="0"> <p align="center"><a href="http://www.chatcanoas.kit.net/index.htm" title="Retorna a Home Page"><img src="http://www.chatcanoas.kit.net/logo.gif" border="0" width="91" height="78"></a> <p align="center">Gostou do nosso site? Então convide um(a) amigo(a) para conhecê-lo!</p> <form name="theform" action="indique.asp?action=login" method="post"> <table align="center" class="bg2" width="388"> <tr><td width="111">Seu Nome:</td><td width="263"><input type="text" name="seunome" size="35"></td></tr> <tr><td width="111">Seu E-mail:</td><td width="263"><input type="text" name="seuemail" size="35" maxlength=60></td></tr> <tr><td width="111">Nome do Amigo:</td><td width="263"><input type="text" name="nomeamigo" size="35" maxlength=30></td></tr> <tr><td width="111">E-mail do Amigo:</td><td width="263"><input type="text" name="emailamigo" size="35" maxlength=60></td></tr> </table> <p align="center"><input class="botao" type="submit" value="Enviar"></p> </form> <script src="http://www.chatcanoas.kit.net/scripts/propaganda.js"></script> </body> </html> OBRIGADO.ASP <html> <head> <title>Chat Canoas</title> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> <link href="http://www.chatcanoas.kit.net/styles.css" rel="stylesheet" type="text/css"> <link href="http://www.chatcanoas.kit.net/favicon.ico" rel="shortcut icon"> </head> <body topmargin="0"> <p align="center"><a href="http://www.chatcanoas.kit.net/index.htm" title="Retorna a Home Page"><img src="http://www.chatcanoas.kit.net/logo.gif" border="0" width="91" height="78"></a> <p align="center"><font face="Verdana" size="4"><b> <script language="JavaScript"> // Texto var message="Indicação concluída com sucesso" // Cor do texto apagado var neonbasecolor="#666666" // Cor do texto aceso var neontextcolor="#FF0000" // Velocidade do efeito var flashspeed=100 //in milliseconds ///No need to edit below this line///// var n=0 if (document.all){ document.write('<font color="'+neonbasecolor+'">') for (m=0;m<message.length;m++) document.write('<font id="neonlight">'+message.charAt(m)+'</font>') document.write('</font>') //cache reference to neonlight array var tempref=document.all.neonlight } else document.write(message) function neon(){ //Change all letters to base color if (n==0){ for (m=0;m<message.length;m++) tempref[m].style.color=neonbasecolor } //cycle through and change individual letters to neon color tempref[n].style.color=neontextcolor if (n<tempref.length-1) n++ else{ n=0 clearInterval(flashing) setTimeout("beginneon()",1500) return } } function beginneon(){ if (document.all) flashing=setInterval("neon()",flashspeed) } beginneon() </script> </b></font><br> Obrigado por recomendar nosso site.</p> <script src="http://www.chatcanoas.kit.net/scripts/propaganda.js"></script> </body> </html>
  20. [ GuTo ]

    Ajuda

    uma questão postou [ GuTo ] ASP

    o meo... olha http://www27.brinkster.com/chatcanoas/most...tart=11&show=10 quero criar uma auto-numeração na célula da esquerda, mas não sei como e criar uma página onde exibiria o perfil de um membro apenas... (posicione o mouse sobre o nick da pessoa e verás) preciso da ajuda então pra fazer esta auto-numeração de resultados e queria q alguém me ajuda a criar uma página nde exibisse o perfil de qlqr membro do site onde a url ficaria assim perfil.asp?id=10 ah, e nas células onde aparecem os status dos icq's, ´somente exibir a img do status se existir algum dado do icq... se não existir, escrever nada e não mostrar img... essa é uma coisa q é fácil, mas não consegui fazer... aguardo ajuda. serei eternamente grato. um abraço!
  21. [ GuTo ]
    ok DIRAOL fiz isso agora mesmo e não deu teste no servidor da 7host teste no servidor do brinkster quero ajuda, pois o jissa mostra um exemplo igual, código asp igual e funciona... o meu não... isso não seria devido a meu servidor ser FREE???
  22. [ GuTo ]
    ae jissa fiz exatamente o q você disse, alterei somente akelas coisas criei uma página obrigado também, só q .htm não deu certo copiei igual ao seu então também não deu obs.: site hospedado no brinkster. tentei também na 7host, não deu. espero q me ajude não entendo porque não funcionou, se cheguei a ver seu exemplo funcionando. confira o tópcio parecido com este seu que eu postei minha dúvida
  23. [ GuTo ]

    Avaliem Pra Mim

    um tópico no fórum respondeu [ GuTo ] em Avaliações de Trabalhos

    ...
  24. [ GuTo ]

    Ajuda

    pergunta respondeu ao [ GuTo ] de [ GuTo ] em ASP

    Olá Meu ASP está pronto, mas não tá funcionando... quero uma ajudinha... Dêem uma olhada no puro HTML que seria exibido na página. a estrutura está pronta. indiquei ao final das palavras de links e/ou textos com um "X" aonde seria colocado um ASP pra exibir qualquer informação do membro cadastrado (Record.Set). lista.htm E a seguir o código ASP que eu fiz... tenho noção de como seria, mas não consigo fazer um que funcione e não sei direito ainda linguagem ASP. seria mais ou menos assim (eu acho)... <html><body> <h1>Lista de membros</h1> <% Dim sexo, inicia, exibir, i sexo = 0 'sexo igual a zero é mulher, igual a um é homem incia = 1 'incia a contagem de membros exibir = 10 ' exibe 10 membros por página UCase(Request.QueryString("exibir")) = "'%Request.Form(exibir)%'" & _ UCase(Request.QueryString("pag")) = "NÃO SEI O QUE VAI AQUI" & _ UCase(Request.QueryString("sexo")) = "'%Request.Form(sexo)%'" & _ UCase(Request.QueryString("campo")) = "'%Request.Form(campo)%'" & _ UCase(Request.QueryString("ordem")) = "'%Request.Form(ordem)%'" & _ If Request.QueryString("incia") <> "" then inicia = CInt(Request.QueryString("iniciar")) If Request.QueryString("exibir") <> "" then exibir = CInt(Request.QueryString("exibir")) Set Connection = Server.CreateObject("ADODB.Connection") Connection.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db\cadastros.mdb") sql = "SELECT * from tblCad where Adicionado=1" Set rs = Connection.Execute(sql) 'Adicionado= zero ou um 'membros que estão aguardando autorização, igual a zero 'membros aceitos igual a um total = RS("total").Value %> <% sql = "SELECT * from tblCad where Adicionado=1" Set rs = Connection.Execute(sql) if total > 0 then RS.Move(inicia - 1) For i = 1 to exibir If Not RS.EOF Then %> <!-- AQUI APARECERÃO AS INFORMAÇÕES DOS MEMBROS --> <%RS.MoveNext Loop%> <table align="center" border="0" cellpadding="2" cellspacing="1" width="80%"> <tr> <td align="center"> <% if (inicia - exibir) > 0 and (inicia - exibir) < total then %><a href="lista.asp?s=<% if sexo = 1 then Response.Write("H") else Response.Write("M") Response.Write("&inicia=" & (inicia - exibir) & "&exibir=" & exibir) %>" title="Anterior"><img src="diversosarquivos/mirror02/icons/seta_left.gif" border="0" width="10" height="09"></a><% else %><img src="diversosarquivos/mirror02/icons/seta_left.gif" border="0" width="10" height="09"><% end if %> |</td> <% for i = 0 to (total / exibir) %> <td align="center" width="2%"><a href="lista.asp?s=<% if sexo = 1 then Response.Write("H") else Response.Write("M") Response.Write("&inicia=" & ((i * exibir) + 1) & "&exibir=" & exibir) %>"><img src="diversosarquivos/mirror02/icons/<% if i < 10 then Response.Write("0" & i+1) else Response.Write(i+1) %>.gif" border="0" width="12" height="5"></a></td> <% next %> <td align="center"> | <% if (inicia + exibir) <= total and (inicia + exibir) > 0 then %><a href="lista.asp?s=<% if sexo = 1 then Response.Write("H") else Response.Write("M") Response.Write("&inicia=" & (inicia + exibir) & "&exibir=" & exibir) %>" title="Próxima"><img src="diversosarquivos/mirror02/icons/seta_right.gif" border="0" width="10" height="09"></a><% else %><img src="diversosarquivos/mirror02/icons/seta_right.gif" border="0" width="10" height="09"><% end if %></td> </tr> </table> </body></html> Vejam tudinhu ae e me ajudem... plisssss Abraços
  25. [ GuTo ]
    function confere(){ if (document.form.email.value.indexOf('@', 0) == -1 || document.form.email.value.indexOf('.', 0) == -1){ alert("E-mail invalido!"); document.form.email.focus() comparem os campos em vermelho qual é a diferença entre estes dois códigos? a diferença de funcao, algo muda akela ,0 function confere(){ if (document.form.email.value.indexOf("@") == -1 || document.form.email.value.indexOf(".") == -1){ alert("E-mail invalido!"); document.form.email.focus() Abraços
×
×
  • Criar Novo...