Ir para conteúdo
Fórum Script Brasil

claytonprog

Membros
  • Total de itens

    128
  • Registro em

  • Última visita

Tudo que claytonprog postou

  1. Salve Galera! Preciso colocar descrição nas fotos do album do meu site. vejam o codigo que eu estou usando: '/////COMECA AS FOTOS Else Response.Write "<font size=2><B>"& cat &" > "& album & "</font></b><BR><BR>" Set rsFotos = Conexao.Execute("SELECT * FROM fotos WHERE idalbum="&idalbum&"") If rsFotos.EOF Then Response.Write "Nenhuma foto encontrada!" Else Response.Write "<div align=""center""><table border=0 cellpadding=15 cellspacing=0 width=""80%"">" contar = 0 Do while not rsFotos.eof If contar = 1 Then Response.Write "<tr>" End If If contar <> 1 Then Response.Write "<TR>" End If imagem=rsFotos("imagem") descricao=rsFotos("descricao") If RsFotos.eof then exit do Response.Write "<td><a target=""_blank"" href="""&imagem&"""<img width=""60"" height=""60"" border=0 src="""&imagem&"""></a></td>" contar = contar +1 rsFotos.MoveNext If RsFotos.eof then exit do imagem=rsFotos("imagem") descricao=rsFotos("descricao") Response.Write "<td><a target=""_blank"" href="""&imagem&"""><img width=""60"" height=""60"" border=0 src="""&imagem&"""></a></td>" contar = contar + 1 rsFotos.MoveNext If RsFotos.eof then exit do imagem=rsFotos("imagem") descricao=rsFotos("descricao") Response.Write "<td><a target=""_blank"" href="""&imagem&"""><img width=""60"" height=""60"" border=0 src="""&imagem&"""></a></td>" contar = contar + 1 rsFotos.MoveNext If RsFotos.eof then exit do imagem=rsFotos("imagem") Response.Write "<td><a target=""_blank"" href="""&imagem&"""><img width=""60"" height=""60"" border=0 src="""&imagem&"""></a></td>" contar = contar + 1 rsFotos.MoveNext If RsFotos.eof then exit do imagem=rsFotos("imagem") Response.Write "<td><a target=""_blank"" href="""&imagem&"""><img width=""60"" height=""60"" border=0 src="""&imagem&"""></a></td>" contar = contar + 1 rsFotos.MoveNext Loop Response.Write "</tr></table></div>" End if End If End If %> quando a foto aparce na janela pop-pup ela tem que aparcer a descrição da foto.
  2. claytonprog

    Erro Em Código

    Pessoal! Estou começando em asp agora, estou tentando montar um BOLETIM ON-LINE. estou com problema neste codigo: <!--#include file="config.inc" --> <% strlogin = request("login") strsenha = request("senha") if Session("brquiz") <> "logado" then Response.Redirect("login.asp") else Response.Write("<center><pre>Boletim On-Line!</pre></center>") end if %> <p align="center"> <center> <font size="2" face="Tahoma"> <font color="#FF6600">Matricula: <%=Session("username")%> <br> strCon = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath(bdados) Set conn = Server.CreateObject("ADODB.Connection") conn.open strCon sql = "Select * From Notas Where codigo_aluno_ID = '" & Request.Form("login") & "' Set rs = Server.CreateObject("ADODB.Recordset") %=rs("Nota1")%> %> ao rodá-lo aparece isso: Boletim On-Line! Matricula: 4115 strCon = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath(bdados) Set conn = Server.CreateObject("ADODB.Connection") conn.open strCon sql = "Select * From Notas Where codigo_aluno_ID = '" & Request.Form("login") & "' Set rs = Server.CreateObject("ADODB.Recordset") %=rs("Nota1")%> %> Help!Help!
  3. claytonprog

    Boletim De Notas!

    Pessoal! Estou precisando fazer o seguinte: tenho um form de LOGIN onde o aluno vai digitar a matricula e senha. daí preciso pegar a matricula e fazer uma consulta numa tabela chamada NOTAS. verifico a matricula e trago as notas referentes deste aluno.
×
×
  • Criar Novo...