Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

fabio Avila

[Resolvido] Carteirinha não mostra dados

Por , em ASP Clássico

Recommended Posts

fabio Avila    1

fabio Avila
Postado

Ola amigos do forum ,

 

Mais uma vez preciso do auxilio dos mestres , estou tendando rodar uma sistema para emissão de carteirinhas porem ao selecionar o nome ele não mostra nda .. nem da erro .. segue os arquivos :

 

 

Mostra os cadastro de funcionarios

 

<%

'##Informe os dados de conexão junto ao banco Microsoft SQL Server

host ="XX"

usuario="XX"

senha ="XX"

banco ="XX"

 

'##Instancia o objeto de conexão com o banco

SET conexaoDB = Server.CreateObject("ADODB.Connection")

 

'##Monta a string de conexão utilizando os dados informados anteriormente

stringConexao = "Provider=SQLOLEDB.1;SERVER="&host&";DATABASE="&banco&";UID="&usuario&";PWD="&senha&";"

 

'On Error Resume Next

 

'##Abre a conexão junto ao banco

conexaoDB.Open stringConexao

 

%>

 

<HTML><HEAD><TITLE></TITLE>

<META content="text/html; charset=utf-8" http-equiv=Content-Type>

<META name=GENERATOR content="Microsoft FrontPage 5.0"></HEAD>

<BODY bgColor=#efefef><LINK rel=stylesheet type=text/css

href="_%20Fgcom%20Admin%20Web_arquivos/estilos.css">

<TABLE border=0 cellSpacing=0 cellPadding=0 width=141 bgColor=#f2fff2

align=center>

<TBODY>

<TR>

<TD bgColor=#FFFFFF width=812>

<TABLE style="BORDER-COLLAPSE: collapse" border=0 cellPadding=2 width=625

height=1>

<TBODY>

<TR>

<TD bgColor=#efefef height=4 vAlign=center width=777

colSpan=2>

<img border="0" src="Cartei1.jpg" width="765" height="70"></TD></TR>

<TR>

<TD bgColor=#FFFFFF height=1 vAlign=center width=569>

<FORM method=post action=carteirinha.asp>

<DIV align=left><B><FONT style="FONT-SIZE: 8pt"

face="Trebuchet MS">  </FONT>

<font face="Trebuchet MS" style="font-size: 9pt" color="#015C5B">

<br>

   Selecione a Categoria  </font></B><font color="#015C5B">

<select class=select

id=fd_estado onChange=javascript:fn_MostraOutros() name=Campeonato style="font-size: 8 pt; font-family: Tahoma; color:#FFFFFF; font-weight:bold; background-color:#015C5B">

<option value="1">SUB7</option>

<option value="2">SUB9</option>

</select>

</font><SPAN

style="FONT-SIZE: 8pt"><FONT color=#015C5B

face="Trebuchet MS"> </FONT></SPAN><FONT color=#008000

face="Trebuchet MS"> 

<INPUT style="BACKGROUND-COLOR: #015C5B; COLOR: #FFFFFF; FONT-SIZE: 8pt; FONT-WEIGHT: bold; font-family:Arial" value=busca type=submit name=submit><SPAN

style="FONT-SIZE: 8pt"> </SPAN></FONT></DIV></FORM>

<P align=center> </P></TD>

<TD bgColor=#FFFFFF height=1 vAlign=middle width=204>

<P align=center><FONT style="FONT-SIZE: 8pt"

face="Century Gothic"><A title=Imprimir

href="http://takesports.com.br/a">

<script language=JavaScript1.2>

<!--

function DoPrinting(){

if (!window.print){

alert("Use o Netscape ou Internet Explorer \n nas vers es 4.0 ou superior!")

return

}

window.print()

}

//-->

</SCRIPT>

</A>

<%sql= "select * from tabela_users"

set rs = conexaoDB.execute(sql)

 

total=rs.recordcount%>

<INPUT onclick=javascript:DoPrinting() border=0 alt=Imprimir

src="_%20Fgcom%20Admin%20Web_arquivos/impr.jpg" type=image

name=. width="25" height="28"></FONT></P></TD></TR></TBODY></TABLE>

<P align=left><FONT style="FONT-SIZE: 8pt"

face="Century Gothic"><B>                                                                        <FONT

color=#6e9f4d> </FONT><FONT

color=#015C5B>               ( Foram

encontradas <% response.Write(total)%> ocorrências

)</FONT></B></FONT></P>

<DIV style="WIDTH: 502px; HEIGHT: 246px" align=center>

<TABLE style="BORDER-COLLAPSE: collapse" border=0 cellSpacing=0

borderColor=#111111 cellPadding=4 width=607 bgColor=#ffffff height="28">

<TBODY>

<TR>

<%

 

id = Trim(rstSearch.Fields("id"))

Response.Write "<TR style='cursor=hand;' id="& id&" onclick=""consultarClick('"&id&"')""; class='"&fundo&"' "

Response.Write " onmouseover=""this.className='inputMouse';"" "

Response.Write " onmouseout=""this.className='"&fundo&"';"">"

%>

<TH style="BORDER-BOTTOM: medium none; border-left-style:none; border-left-width:medium; border-right-style:none; border-right-width:medium; border-top-style:none; border-top-width:medium" bgColor=#FFFFFF width=39

align=left height="14"> </TH>

<TH style="BORDER-BOTTOM: medium none; border-left-style:none; border-left-width:medium" bgColor=#015C5B width=39

align=left height="14"><STRONG>

<FONT style="FONT-SIZE: 8pt" color=#efefef

face="Arial">Cod</FONT></STRONG></TH>

<TH style="BORDER-BOTTOM: medium none" bgColor=#015C5B width=494

align=left height="14"><strong>

<font face="Arial" style="font-size: 8pt" color="#EFEFEF">Nome do

Atleta</font></strong></TH>

<TH style="BORDER-BOTTOM: medium none" bgColor=#015C5B width=61

align=left height="14"><strong>

<font face="Arial" style="font-size: 8pt" color="#EFEFEF">Nasc</font></strong></TH>

<TH style="BORDER-BOTTOM: medium none" bgColor=#015C5B width=419

align=left height="14"><strong>

<font face="Arial" style="font-size: 8pt" color="#FFFFFF">Endereço</font></strong></TH>

<TH style="BORDER-BOTTOM: medium none" bgColor=#015C5B width=15

align=left height="14">

<div align="center"><font face="Arial" style="font-size: 8pt" color="#FFFFFF">Imprimir</font></div></TH>

</TR>

<% Do While not rs.EOF

 

' nome = rs("NOME")

%>

 

<TR style="CURSOR: hand" id=869

onmouseover="this.className='inputMouse';"

onmouseout="this.className='';" onclick="consultarClick('869')"

;>

<TD

style="BORDER-BOTTOM: medium none; BORDER-LEFT: medium none; BORDER-TOP: medium none; BORDER-RIGHT: medium none"

bgColor=#FFFFFF borderColor=#6e9f4d width=39 align=left height="14"> </TD>

<TD

style="BORDER-BOTTOM: 1px solid; BORDER-LEFT: medium none; BORDER-TOP: medium none; BORDER-RIGHT: medium none"

bgColor=#EBEBEB borderColor=#6e9f4d width=39 align=left height="14">

<FONT size=1

face=Arial><%response.write(rs("id"))%></FONT></TD>

<TD

style="BORDER-BOTTOM: 1px solid; BORDER-LEFT: medium none; BORDER-TOP: medium none; BORDER-RIGHT: medium none"

bgColor=#EBEBEB borderColor=#6e9f4d width=494 align=left height="14"><%response.write(rs("nasc"))%> </TD>

<TD

style="BORDER-BOTTOM: 1px solid; BORDER-LEFT: medium none; BORDER-TOP: medium none; BORDER-RIGHT: medium none"

bgColor=#EBEBEB borderColor=#6e9f4d width=61 align=left height="14">

<FONT size=1

face=Arial><%response.write(rs("nasc"))%></FONT></TD>

<TD

style="BORDER-BOTTOM: 1px solid; BORDER-LEFT: medium none; BORDER-TOP: medium none; BORDER-RIGHT: medium none"

bgColor=#EBEBEB borderColor=#6e9f4d width=419 align=left height="14">

<font face="Arial" size="1"><%response.write(rs("endereco"))%></font></TD>

<TD

style="BORDER-BOTTOM: 1px solid; BORDER-LEFT: medium none; BORDER-TOP: medium none; BORDER-RIGHT: medium none"

bgColor=#EBEBEB borderColor=#6e9f4d width=15 align=center height="14"> <font face="Arial" style="font-size: 8pt" color="#000000">

<a href="imprimir_cart.asp?acao=V&id=<%=id%>">Imprimir</a></font></TD>

</TR>

<% rs.MoveNext

Loop %></TBODY></TABLE>

<P align=left> 

<P align=left><B><FONT style="FONT-SIZE: 8pt" face="Century Gothic">Sua

busca foi processada em 5,53 segundos.</FONT><FONT style="FONT-SIZE: 8pt"

color=#6e9f4d face="Century Gothic"><BR></FONT></B></P></DIV></TD></TR></TBODY></TABLE>

<P> </P>

<script language="javascript">

 

function consultarClick(vr){

pagina = 'imprimir_cart.asp?acao=A&id='+vr;

location = pagina;

}

</script></BODY></HTML>

 

 

Imprime Carteirinha

 

%

'##Informe os dados de conexão junto ao banco Microsoft SQL Server

host ="XX"

usuario="XX"

senha ="XX"

banco ="XX"

 

'##Monta a string de conexão utilizando os dados informados anteriormente

stringConexao = "Provider=SQLOLEDB.1;SERVER="&host&";DATABASE="&banco&";UID="&usuario&";PWD="&senha&";"

 

'##Instancia o objeto de conexão com o banco

SET conexaoDB = Server.CreateObject("ADODB.Connection")

 

'On Error Resume Next

 

'##Abre a conexão junto ao banco

conexaoDB.Open stringConexao

 

acao = Request("acao")

id = Request("id")

 

if acao = "V" then

disabilita = " disabled=""disabled"" "

elseif acao = "A" then

disabilita = ""

end if

 

'Dados Alterar

id= Request("id")

 

if (acao = "A" or acao = "V") then

 

if acao = "A" then

acao = "alterar"

bt = "Alterar"

else

acao = "visualizar"

bt = "Alterar"

end if

 

sql= "select * from tabela_usuarios id="&id&""

 

set rs2 = conexaoDB.execute(sql)

 

'-------------------------------------------------

' Estes dados podem ser alterados

nome = rs2("nome")

nasc = rs2("nasc")

categoria = rs2("categoria")

serie = rs2("serie")

foto = rs2("foto")

id = rs2("id")

 

 

 

else

acao = "gravar"

bt = "Gravar"

end if

 

bt = Ucase(bt)

 

%>

 

 

 

 

 

<html>

<head>

<title>Untitled Document</title>

<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">

</head>

 

<body leftmargin="0" topmargin="0" onload="self.print();self.close();" style="font-family:Arial; font-size:9px; color:#006666 ">

<table width="765" height="231" border="0" cellpadding="0" cellspacing="0" style="background-image:url('Carteirinha.jpg'); background-repeat:no-repeat">

<tr>

<td valign="top"> <table width="100%" border="0" cellspacing="0" cellpadding="0">

<tr>

<td>  </td>

</tr>

<tr valign="bottom">

<td height="231" valign="top"><table width="100%" height="206" border="0" cellpadding="0" cellspacing="0">

<tr>

<td width="32%" valign="top">

<table width="100%" border="0" cellspacing="0" cellpadding="0" style="font-family:Arial; font-size:12px; color:#ff0000" height="203">

<tr>

<td height="83" colspan="3"> </td>

</tr>

<tr>

<td width="24%" height="25"> </td>

<td colspan="2" valign="bottom" height="25"><%=id%>

</td>

</tr>

<tr>

<td height="30"> </td>

<td height="30" colspan="2" valign="bottom"><%=nome%>

</td>

</tr>

<tr>

<td height="30"> </td>

<td width="11%" height="30"> </td>

<td width="65%" valign="bottom" height="30"><%=nasc%>

</td>

</tr>

<tr>

<td height="35"> </td>

<td height="35"> </td>

<td height="35" valign="bottom"><%=categoria%>

</td>

</tr>

</table></td>

<td width="15%" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0">

<tr>

<td height="44"> </td>

</tr>

<tr>

<td height="148"><div align="center">

<%=foto%> </div></td>

</tr>

<tr>

<td> </td>

</tr>

</table></td>

<td width="53%" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0" style="font-family:Arial; font-size:12px; color:#ff0000">

<tr>

<td height="165" colspan="6"> </td>

</tr>

<tr>

<td width="2%" height="23"> </td>

<td width="18%"> </td>

<td width="31%"><%=nome%></td>

<td width="29%"><%=serie%></td>

<td width="15%"> </td>

<td width="5%"> </td>

</tr>

<tr>

<td colspan="6"> </td>

</tr><input type="hidden" name="id" value="<%=id%>">

</table></td>

</tr>

</table></td>

</tr>

</table>

</td>

</tr>

</table>

</body>

</html>

 

 

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

dá um response.write na sua string SQL e na variavel nome para ver o que esta sendo passado.

Compartilhar este post

Link para o post
Compartilhar em outros sites

fabio Avila    1

fabio Avila
Postado

Havia um erro no link que não estava pegando pelo ID e sim pelo nome , agora da erro abaixo :

 

 

Microsoft VBScript runtime error '800a01a8'

 

Object required: ''

 

/sistemafgcom/imprimir_cart.asp, line 97

 

Abcs

Compartilhar este post

Link para o post
Compartilhar em outros sites

fabio Avila    1

fabio Avila
Postado

Resolvido meu problema , havia mais um erro na linha do link

 

<a href="imprimir_cart.asp?atleta=V&id=<%=id%>">

 

Substitui por

 

<a href="imprimir_cart2.asp?id=<%=id%>">

 

Agora ta buscando todos os dados ....

 

 

Só mais uma duvida como eu faço para por uma ação na combox apos eu selecionar ele mostrar somente os cadastro do horario selecionado .

 

Abs

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

use o evento OnChange no combobox, aconselho a usar AJAX, olha estes exemplos

 

exemplo 1

 

exemplo 2

 

exemplo 3

Compartilhar este post

Link para o post
Compartilhar em outros sites

fabio Avila    1

fabio Avila
Postado

xanburzum,

 

Achei o modelo 1 mais simples porém 2 dúvidas , a primeira no arquivo que carrega a categoria no meu caso eu coloco a tabela de categorias ou a tabela de funcionario com o campo Categorias ....... e a segunda no arquivo CARREGA.AJAX eu coloco o meu arquivo que exibe o resultado isso ?

 

obrigado

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

Belza amigo....

e sempre peço aos usuários para depois, se quiser contribuir, deixando seu code como ficou, para assim quem tiver a mesma dúvida , fica mais fácil.

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito