Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
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/csshref="_%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=selectid=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">](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>Não lembro como se faz isso .. response.write<%=nome%> ?
<% response.write sua_query_sql %>
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
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
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
xanburzum
Agora funcionou legal usou o exemplo 1 mesmo ficou perfeito .. mais uma vez obrigado !!
abcs
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.
dá um response.write na sua string SQL e na variavel nome para ver o que esta sendo passado.