JavaScript ou VBScript + ASP + SQL Server 2000

acfelipesilva · Agosto 21, 2007

Olá Gente,

Estou com um problema no meu formulário, nele é mostardo como resultado de uma consulta, vários campos referentes a advogado, porém gostaria de implementar uma funcionalidade para o usuário, que quando ele passasse o mouse em cima no nº do advogado, aparecesse o nome do advogado...

PERGUNTA: Isso é possível? Caso seja, como posso fazer isso?

Vou postar o código para vocês darem uma olhada...

Grato por qualquer tipo de ajuda...

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%><%Session.LCID = 1046%><%Response.Expires=0Response.Buffer = TRUEResponse.Clearlogin = session("login")If login = ""  or isnull(login) Then	server.Transfer("Error404.asp")	End Ifset objCmm = CreateObject("ADODB.Connection")objCmm.Open  Application("strConn")'sqlADV = "select top 3 at_usuar_logname, at_NOME  from sapj2000..vw_advogados_terc where ai_nivel in (0,1) order by at_nome"sqlADV = "select at_usuar_logname, at_NOME  from sapj2000..vw_advogados_terc where ai_nivel in (0,1) and At_usuar_logname is not null and At_usuar_logname <> ''  order by at_nome"set objCmm  = CreateObject("ADODB.Connection")set advogados   = server.CreateObject("ADODB.Recordset")objCmm.Open  Application("strConn")SET advogados = objCmm.Execute(sqlADV)If request("Gravar") = "Gravar" Then dim chave1 	prazo = request("prazo")	ano = cstr(year(prazo))	mes = mid(prazo,4,2)	dia = mid(prazo,1,2)			prazo = ano + "-" + mes + "-" + dia		   			anoAtual = cstr(year(date()))	mesAtual = mid(cstr(100 + month(date())),2,2)	diaAtual = mid(cstr(100 + day(date())),2,2)			Hoje = anoAtual + "-" + mesAtual + "-" + diaAtual		  	If request("Arquivo") = "1" Then		destino = 0	Else		destino = Request("Destino")	End If					chave1 = Request("Chave1")	ano = cstr(year(chave1))	mes = mid(chave1,4,2)	dia = mid(chave1,1,2)	 	   	chave1 = ano + "-" + mes + "-" + dia	chave2 = Request("Chave2")	chave3 = Request("Chave3")			atualiza = "Set nocount on Update tbresenha set dtmRes_Prz = '" + prazo + "' , numRes_EncAdv = " + cstr(destino) + ", dtmRes_datEnc = '" + Hoje + "', chrRes_StaVis = 'N'"	atualiza = atualiza + " Where numRes_NumProc = " + chave2 + " and numRes_NumVar = " + chave3 	atualiza = atualiza + " and dtmRes_DatRes = '" + Chave1 + "'"		set rs = objCmm.Execute(Atualiza) If chave2 <> "" Then  Response.Write("<script language='JavaScript'>alert('" &  "Gravação feita com sucesso" & "');</script>") End If		 End Ifsql = "select numRes_NumProc, numRes_NumVar, Convert(char(10), dtmRes_DatRes,103) as 'dtmRes_DatRes', "sql = sql + "Convert(char(10), dtmRes_DatEnc,103) as 'dtmRes_DatEnc', vchRes_MatJur, vchRes_Anexo, chrRes_StaVis, numRes_EncAdv, "sql = sql + " Convert(char(10), dtmRes_Prz,103) as 'dtmRes_Prz', numRes_Aviso, vchRes_UsuCod, "sql = sql + "Convert(char(10), dtmRes_DatAtu,103) as 'dtmRes_DatAtu',  Convert(char(10), dtmRes_DatVis,103) as 'dtmRes_DatVis', "sql = sql + "datediff(day,getdate(),dtmRes_Prz) as 'Diferenca' from tbresenha where ResDestinacao = 'CAGER' "set sqlC = server.CreateObject("ADODB.Recordset")SET sqlC = objCmm.Execute (sql)Set objScap1 = Server.CreateObject("SCAP1.clsSisLock")objScap1.UsuarioLogin = Session("Login") wResultAtual = objScap1.Mensagem	If wResultAtual <> vbNullString  Then  Response.Status = "401 Acesso Negado" Response.Write wResultAtual Response.EndEnd if %><html><head><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" /><!-- #include file="ValidaData.Inc" --><title>cager</title><link rel="stylesheet" type="text/css" href="estilos/css.css"></head><script language="javascript">function consultarADV(codigodoadv){  if (document.getElementById("mensagem_layer").style.visibility == 'visible')  	document.getElementById("mensagem_layer").style.visibility = 'hidden';  else					document.getElementById("mensagem_layer").style.visibility = 'visible'; document.resenhacager.chave4.value = codigodoadv    chave4=codigodoadv}</script><script language="JavaScript"> function txtBoxFormat(objForm, strField, sMask, evtKeyPress) {	 var i, nCount, sValue, fldLen, mskLen,bolMask, sCod, nTecla;	 if(document.all) { // Internet Explorer	   nTecla = evtKeyPress.keyCode; }	 else if(document.layers) { // Nestcape	   nTecla = evtKeyPress.which;	 }	 sValue = objForm[strField].value;	 sValue = sValue.toString().replace( "-", "" );	 sValue = sValue.toString().replace( "-", "" );	 sValue = sValue.toString().replace( ".", "" );	 sValue = sValue.toString().replace( ".", "" );	 sValue = sValue.toString().replace( "/", "" );	 sValue = sValue.toString().replace( "/", "" );	 sValue = sValue.toString().replace( "(", "" );	 sValue = sValue.toString().replace( "(", "" );	 sValue = sValue.toString().replace( ")", "" );	 sValue = sValue.toString().replace( ")", "" );	 sValue = sValue.toString().replace( " ", "" );	 sValue = sValue.toString().replace( " ", "" );	 fldLen = sValue.length;	 mskLen = sMask.length;	 i = 0;	 nCount = 0;	 sCod = "";	 mskLen = fldLen;	 while (i <= mskLen) {	   bolMask = ((sMask.charAt(i) == "-") || (sMask.charAt(i) == ".") || (sMask.charAt(i) == "/"))	   bolMask = bolMask || ((sMask.charAt(i) == "(") || (sMask.charAt(i) == ")") || (sMask.charAt(i) == " "))	   if (bolMask) {		 sCod += sMask.charAt(i);		 mskLen++; }	   else {		 sCod += sValue.charAt(nCount);		 nCount++;	   }	   i++;	 }	 objForm[strField].value = sCod;	 if (nTecla != 8) { // backspace	   if (sMask.charAt(i-1) == "9") { // apenas números...		 return ((nTecla > 47) && (nTecla < 58)); } // números de 0 a 9	   else { // qualquer caracter...		 return true;	   } }	 else {	   return true;	 }   }</script><script language="VBScript">	Function VerConteudo(KeyCod)	  If KeyCod <> vbKeyBack Then	  If Not (KeyCod >= 48 And KeyCod <= 57) Then 	   window.event.keyCode = 0   End If		 End If	End Function 		Function checado()		If document.resenhacager.arquivo.checked = true Then			document.resenhacager.destino.disabled = true			document.resenhacager.prazo.focus()						document.resenhacager.arquivo.value = "1"		Else			document.resenhacager.destino.disabled = false			document.resenhacager.arquivo.value = "0"			document.resenhacager.destino.focus()		End If	End Function   		Function HabilitaBotao()	  If document.resenhacager.prazo.value = "" Then   Msgbox("Informe o prazo")   document.resenhacager.prazo.focus   Exit Function  Else   If document.resenhacager.arquivo.checked = true Then	If document.resenhacager.Chave1.value = "" and document.resenhacager.chave2.value = "" and document.resenhacager.chave3.value = ""  Then	 Msgbox("Selecione o registro ")	 Exit Function	End If   Else	If document.resenhacager.destino.value = "0"  and document.resenhacager.arquivo.checked = false Then	 Msgbox("Selecione um destino ou arquivo")	 document.resenhacager.destino.focus	 Exit Function	Else	 If document.resenhacager.Chave1.value = "" and document.resenhacager.chave2.value = "" and document.resenhacager.chave3.value = ""  Then	  Msgbox("Selecione o registro ")	  Exit Function	 End If	End If   End If  End If  document.resenhacager.submit	End Function		Function selecionar(chave)		document.resenhacager.Gravar.disabled = false	  		tam = 1		tamanho = len(chave)		while tam <= tamanho			If mid(chave,tam,1) = "@" Then	chave1 = mid(chave,1,tam-1)				 pos = tam				 tam = tamanho + 1			End If			tam = tam + 1 		WEnd		  document.resenhacager.chave1.value = right("00" & day(chave1) ,2 ) & "/" &   right("00" & MONTH(chave1) ,2 )  &"/" & YEAR(chave1) 		NovaChave = mid(chave,pos+1,tamanho)		tam = 1		tamanho = len(NovaChave)		while tam <= tamanho   If mid(NovaChave,tam,1) = "@" Then	pos = tam				document.resenhacager.chave2.value = left(NovaChave,pos-1)				Tam = Tamanho + 1			End If			tam = tam + 1 		WEnd		NovaChave = mid(novachave,pos+1,tamanho)		document.resenhacager.chave3.value = left(novachave,len(novachave))	End Function</script><body leftmargin="0" topmargin="6"><form  id="resenhacager"   name="resenhacager"  action="rescager.asp"	method="get"><table width="600" align="center" border="0"> <tr>  <td class="textoscenter" background="images/bg_titc.jpg" style="background-repeat:no-repeat; background-position:center" >  CAGER  </td> </tr></table><br /><table width="600"  class="borda" align="center" border="0">	<tr>	 <td ><font class="textoss">Destino:</font></td>   		<td align="left">		  <select name="destino" id="destino">			<option selected value="0">Selecione um Nome</option>		   <%while not Advogados.EOF			  if codadv <> "0" Then			 if trim(Advogados("at_usuar_logname")) = trim(at_usuar_logname) Then%>					  <option selected value="<%=Advogados("at_usuar_logname")%>"><%=sqlC("at_NOME")%></option><%				   else%>					  <option value="<%=Advogados("at_usuar_logname")%>"><%=Advogados("at_NOME")%></option><%				   end if				else%>					<option value="<%=Advogados("at_usuar_logname")%>"><%=Advogados("at_NOME")%></option>								  <%end if			  Advogados.moveNext		   wend%>			  </select>		  </td>		  <td width="2%"><input style=" border:none;" type="checkbox" name="arquivo" value="1" id="arquivo" onClick="BLOCKED SCRIPTchecado()" /><font class="textoss">Arquivo</font>		  </td>		  	</tr>	<tr>	 <td ><font class="textoss">Prazo:</font></td>	 <td align="left"><input name="prazo" type="text" class="textoss" id="prazo" size="10" maxlength="10" onKeyPress="return txtBoxFormat(document.resenhacager, 'prazo', '99/99/9999', event)" onBlur="BLOCKED SCRIPTValida_data(prazo,prazo,'Anterior','','','')"></td>	</tr> </table><br /><div class="links"  style="position:relative; width:620; height:200;scrollbar-3d-light-color:#ffcc33;scrollbar-arrow-color:#000000;scrollbar-base-color:#333333;scrollbar-dark-shadow-color:#333333;scrollbar-face-color:#C4C4C3;scrollbar-highlight-color:#eeeeee;scrollbar-shadow-color:#ffffff; overflow:auto"><table width="600"  class="borda" align="center" border="0"> <tr>  <td width="2%"><font class="textoss"> </font></td>  <td ><font class="textoss">Matéria</font></td>  <td ><font class="textoss">Dt. Ent</font></td>    <td ><font class="textoss">Processo No</font></td>	     <td ><font class="textoss">Vara No</font></td>    <td ><font class="textoss">Arquivo - Resenha</font></td>    <td ><font class="textoss">Destino</font></td>    <td ><font class="textoss">Data Env. Adv.</font></td>    <td ><font class="textoss">Vis. p/ Adv.</font></td>    <td ><font class="textoss">Dat. Acesso</font></td>    <td ><font class="textoss">Prazo</font></td>   </tr> <%  Contador = 0 IF not sqlC.EOF then	 CorAtu = "#FFFFFF"	 while not sqlC.EOF 		 If contador = 0 then			contador = 1 %>		 <tr bgcolor="#C2E9A9">		 <%else 			contador = 0 %>		 <tr bgcolor="#ffffff">		 <%End if %>			 <%			 chave = cstr(sqlC("dtmRes_DatRes")) + "@" + + cstr(sqlC("numRes_NumProc")) + "@" +cstr(sqlC("numRes_NumVar"))			 %>			 <td width="2%"><input style=" border:none;" id="Selecionado" name="Selecionado" type="radio" value="<%=chave%>" name="list" onclick="BLOCKED SCRIPTselecionar('<%=chave%>')"</td>		  <td ><font class="textosc" value="<%=sqlC("vchRes_MatJur")%>"><%=sqlC("vchRes_MatJur")%></font></td>		  <td ><font class="textosc" value="<%=sqlC("dtmRes_DatRes")%>"><%=sqlC("dtmRes_DatRes")%></font></td>		  <td ><font class="textosc" value="<%=sqlC("numRes_NumProc")%>"><%=sqlC("numRes_NumProc")%></font></td>	   		  <td ><font class="textosc" value="<%=sqlC("numRes_NumVar")%>"><%=sqlC("numRes_NumVar")%></font></td>  		  <td ><font class="textosc" style='cursor:hand' onclick="BLOCKED SCRIPTwindow.open('arquivos/<%=sqlC("vchRes_Anexo")%>')" value="<%=sqlC("vchRes_Anexo")%>"><%=sqlC("vchRes_Anexo")%></font></td>		  <td ><font class="textosc" value="<%=sqlC("numRes_EncAdv")%>"><%=sqlC("numRes_EncAdv")%></font></td>		  <%If sqlC("dtmRes_DatEnc") = "01/01/1753" Then %>			  <td ><font class="textosc" value="<%=sqlC("dtmRes_DatEnc")%>"></font></td>		  <%else %>			  <td ><font class="textosc" value="<%=sqlC("dtmRes_DatEnc")%>"><%=sqlC("dtmRes_DatEnc")%></font></td>		  <%End If %>		  <%If sqlC("chrRes_StaVis") = "N"  Then %> 			  <td align=center><font class="textosc" value="N")>NÃO</font></td>  		  <%Else			  If sqlC("chrRes_StaVis") = "S"  Then%>				  <td align=center><font class="textosc" value="S")>SIM</font></td>  			  <%Else%>				  <td align=center><font class="textosc" value="S")> </font></td>	  			  <%End If %>		  <%End If %>			  <%If sqlC("dtmRes_DatVis") = "01/01/1753" Then %>			  <td ><font class="textosc" value="<%=sqlC("dtmRes_DatVis")%>"></font></td>		  <%Else %>			  <td ><font class="textosc" value="<%=sqlC("dtmRes_DatVis")%>"><%=sqlC("dtmRes_DatVis")%></font></td>		  <%End If %>		  <%If sqlC("dtmRes_Prz") = "01/01/1753" Then %>			  <td ><font class="textosr"  value="<%=sqlC("dtmRes_Prz")%>"></font></td>		  <%Else 			  If sqlC("diferenca") <= 2 Then %>									  <td class="textosr"><font  value="<%=sqlC("dtmRes_Prz")%>"><%=sqlC("dtmRes_Prz")%></font></td>  			  <%else %>					  <td class="textosc"><font value="<%=sqlC("dtmRes_Prz")%>"><%=sqlC("dtmRes_Prz")%></font></td>  			  <%End if %>		  <%End If %>	  		 </tr> 	 <%sqlC.moveNext	 wEnd		 Else%>	  	 <tr bgcolor="#C2E9A9">	 <td colspan=11	align=center>		  <font face="Arial, Helvetica, sans-serif" size="1" color="#000000" >Nenhuma informação foi localizada.</font></td>		 </tr>	<%end if %></table></div>  <br /><div id="mensagem_layer" style="cursor: pointer; position:absolute; width:500px; height:80px; z-index:1; visibility: hidden; overflow: hidden; left: 80px; top: 360px; background-color: #F0F9FF; layer-background-color: #F0F8FF; border: 1px none #000000;" onClick="consultarADV(document.resenhacager.chave4.value)"><table width="100%" border="1" cellspacing="0" bordercolorlight="#FFFFFF" bordercolordark="#6495ED"><tr>	  <td align="center"><input type="hidden" name="chave4"  class="textoss" id="chave4" size="20" maxlength="30"/>  <font size="1" face="Verdana"><b>  O Advogado selecionado foi:<br>  <%	'listaADV = "select at_NOME  from sapj2000..vw_advogados_terc where at_usuar_logname = '6990'"	'set objCmm  = CreateObject("ADODB.Connection")	'set listaC  = server.CreateObject("ADODB.Recordset")	'objCmm.Open  Application("strConn")	'SET listagem = objCmm.Execute (listaADV)	'response.Write(listagem("at_nome")) 	'Response.Write ("<br>")  %>  <u>fechar</u><br></font>  </td>  </tr></table></div><table width="600" align="center"> <tr>  <td colspan="10" align="center">	  <input class="bt" onMouseOut="BLOCKED SCRIPTthis.className='bt'" style="width:65"  value="Gravar"	name="Gravar" onClick="BLOCKED SCRIPTHabilitaBotao()" <%=objScap1.RestObj (54)%>>    <input class="bt" onMouseOut="BLOCKED SCRIPTthis.className='bt'" onMouseOver="BLOCKED SCRIPTthis.className='bthover'" style="width:65" type="button" value="Retornar"  name="Retornar" onClick="self.location='inicial.asp'" <%=objScap1.RestObj (55)%>>   </td> </tr></table>   <td align="left"><input type="hidden" name="chave1" class="textoss" id="Chave1" size="20" maxlength="30"></td>   <td align="left"><input type="hidden" name="chave2" class="textoss" id="chave2" size="20" maxlength="30"></td>   <td align="left"><input type="hidden" name="chave3" class="textoss" id="chave3" size="20" maxlength="30"></td></form></body></html><%objCmm.closeset objCmm = Nothing%>

jrcardozo · Agosto 21, 2007

Código extenso...affffÉ possivel com ajax, javascript,css,dhtml...qualquer uma das opções necessitaria do asp em conjunto, porém a solução você vai encontrar no forum especifico de javascript ou webstandards, depois é só juntar com asp pra montar dinamicamente

acfelipesilva · Agosto 21, 2007

Código extenso...affffÉ possivel com ajax, javascript,css,dhtml...qualquer uma das opções necessitaria do asp em conjunto, porém a solução você vai encontrar no forum especifico de javascript ou webstandards, depois é só juntar com asp pra montar dinamicamente

Ok, valeu Johathan!!!

Entrar

Arquivado

JavaScript ou VBScript + ASP + SQL Server 2000

Recommended Posts

acfelipesilva 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

jrcardozo 4

Compartilhar este post

Link para o post

Compartilhar em outros sites

acfelipesilva 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

comando like (Mysql) no php

Alguém com pratica em subir site em codeigniter4 na Hostinger? Não consigo acessar o bd. Erro de Autenticação. O mesmo site funciona normal em outro servidor web.

mostrar quanto tempo foi postado um conteudo

Este projeto é apoiado pelas empresas

Fóruns

Tempo Real

Informação importante