Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
Boa tarde ,
Tenho uma página em asp que já possui uma conexão para o banco de dados em access, mas minha consulta usa tabelas vinculas em oracle. Posso fazer mais de uma conexão na página?
Não sei como colocar a nova conexão em oracle.
<%
Dim strURL
Dim cnnSearch
Dim rstSearch
Dim strDBPath
Dim strcargo
Dim strSQL
Dim strSearch
dim strcidade
Dim strsxo
inicio = Timer
'#Função que tira todos os acentos das palavras
function TiraAcento(StrAcento)
for i = 1 to len(StrAcento)
Letra = mid(StrAcento, i, 1)
Select Case Letra
Case "á","Á","à","À","ã","Ã","â","Â","â","ä","Ä"
Letra = "A"
Case "é","É","ê","Ê","Ë","ë","È","è"
Letra = "E"
Case "í","Í","ï","Ï","Ì","ì"
Letra = "I"
Case "ó","Ó","ô","Ô","õ","Õ","ö","Ö","ò","Ò"
Letra = "O"
Case "ú","Ú","Ù","ù","ú","û","ü","Ü","Û"
Letra = "U"
Case "ç","Ç"
Letra = "C"
Case "ñ"
Letra = "N"
End Select
texto = texto & Letra
next
TiraAcento = texto
end function
strURL = Request.ServerVariables("URL")
strcargo=request.QueryString("cargo")
strcidade=request.QueryString("cidade")
strsxo=request.QueryString("sx")
%><title>JUNIOR RS - ADMISSÃO DE PESSOAS</title>
<style type="text/css">
<!--
#Layer1 { position:absolute;
width:33px;
height:34px;
z-index:1;
left: 876px;
top: 69px;
}
.style1 {
color: #FF6600;
font-weight: bold;
font-size: 18px;
}
body {
background-color: #FFB13E;
}
.style4 {font-size: 18px; color: #666666;}
.style5 {
color: #FFFFFF;
font-weight: bold;
}
a:link {
text-decoration: none;
}
a:visited {
text-decoration: none;
}
a:hover {
text-decoration: none;
}
a:active {
text-decoration: none;
}
.style6 {color: #666666}
#Layer2 {
position:absolute;
width:144px;
height:20px;
z-index:1;
left: 711px;
top: 195px;
}
.style8 {
font-size: 12px;
font-family: Arial, Helvetica, sans-serif;
color: #FF6600;
}
.style10 {font-size: 10px; color: #FF9900; }
-->
</style>
<body background="figuras/imagemmeio.PNG" link="#FFFFFF" vlink="#FFFFFF" alink="#FFFFFF">
<!-- Bloqueia o botão direito para evitar cópia -->
<script language=JavaScript>
<!--
function click() {
if (event.button==2| event.button==3 | event.button==4) {
alert('Criado por Guilherme Odaguiri - XVHW')
}
}
document.onmousedown=click
// -->
</SCRIPT>
<!-- abre pop up " tipos de fornecedores" com o clique no link -->
<script language=JavaScript>
function abrir(URL) {
var width = 570;
var height = 320;
var left = 99;
var top = 99;
window.open(URL,'DP', 'width='+width+', height='+height+', top='+top+', left='+left+', scrollbars=yes, status=no, toolbar=no, location=no, directories=no, menubar=no, resizable=no, fullscreen=no');
}
</SCRIPT>
<table width="750" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
<!--DWLayoutTable-->
<tr>
<td width="852" height="512" align="center" valign="top" bgcolor="#FFFFFF"><table width="109%" height="280" border="0" cellpadding="2" cellspacing="2">
<!--DWLayoutTable-->
<tr>
<td width="751" height="275" align="center" valign="top" bgcolor="#FFFFFF"> <p align="left" class="style1"><img src="FIGURAS/topo_subpags.png" width="751" height="161" border="0" usemap="#FPMap0MapMapMap">
<map name="FPMap0MapMapMap" id="FPMap0MapMapMap">
<area shape="rect" coords="518, 255, 744, 305" href="../Consulta_cadastrados.asp" alt="Candidatos treinados" />
<area shape="rect" coords="518, 255, 744, 305" href="../Consulta_cadastrados.asp" alt="Candidatos treinados" />
<area alt="Página Inicial" href="juniorweb/default.asp" shape="rect" coords="0, 0, 306, 69">
</map>
</p>
<div class="style8" id="Layer2">* Campos Obrigatórios </div>
<p align="left" class="style4"><font size="2" face="Arial, Helvetica, sans-serif">Selecione o cargo para Consulta </font></p> <form action="<%= strURL %>" method="get">
<div align="center">
<p align="left">
Cargo:
<select name="cargo" id="cargo">
<option>Selecione o Cargo</option>
<option value="00001">MEIO OFICIAL ENCANADOR</option>
<option value="00002">MEIO OFICIAL CALDEIREIRO</option>
<option value="00003">MEIO OFICIAL LIXADOR</option>
<option value="00004">MEIO OFIC. MEC. MONTADOR</option>
<option value="00005">MEIO OFICIAL MECANICO</option>
<option value="00006">MEIO OFICIAL SOLDADOR</option>
<option value="00007">MEIO OFIC. MONT. ANDAIMES</option>
<option value="00008">PEDREIRO</option>
<option value="00009">CARPINTEIRO</option>
<option value="00010">ARMADOR</option>
<option value="00011">PINTOR</option>
<option value="00012">ISOLADOR</option>
<option value="00013">OFICIAL ENCANADOR</option>
<option value="00014">OFICIAL CALDEIREIRO</option>
<option value="00015">OFICIAL LIXADOR</option>
<option value="00016">OFICIAL MEC. MONTADOR</option>
<option value="00017">OFICIAL MECANICO</option>
<option value="00018">OFICIAL MONT. ANDAIMES</option>
<option value="00019">MEIO OFICIAL MOV. CARGAS</option>
<option value="00020">OFICIAL SOLDADOR</option>
<option value="00021">OFICIAL MOV. CARGAS</option>
<option value="00022">ELETRICISTA</option>
<option value="00023">INSTRUMENTISTA</option>
</select>
</p>
<p>
<input name="submit" type="submit" value="Pesquisar" />
<%
If strcargo <> "" Then
strDBPath = Server.MapPath("Banco_Cadastro.mdb")
Const adUseClient = 3
Set cnnSearch = Server.CreateObject("ADODB.Connection")
cnnSearch.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBPath & ";"
cnnSearch.CursorLocation = adUseClient
'strSQL = "SELECT " _
'& "* FROM tabela_treinandos "_
'& "WHERE Cod_carg LIKE '%" & TiraAcento(Replace(strcargo, "'", "''")) & "%' "_
'&"AND nm_Cid like '%" & strcidade & "%'"_
'&"AND Status_treinamento = -1 "_
'&" ORDER BY NOMCAN;"
strSQL = "SELECT tabela_treinandos.NUMCAN, tabela_treinandos.NOMCAN, tabela_treinandos.nm_Cid FROM tabela_treinandos LEFT JOIN cs_Treinados_Ativos ON tabela_treinandos.NUMCAN = cs_Treinados_Ativos.S9E96_R122CEX.NUMCAN WHERE (((cs_Treinados_Ativos.S9E96_R122CEX.NUMCAN) Is Null) AND ((tabela_treinandos.cod_carg) LIKE '%" & strcargo & "%'));"
'RESPONSE.WRITE (STRSQL)
Set rstSearch = cnnSearch.Execute(strSQL)
intContador = rstSearch.RecordCount
%>
</p>
</div>
</form></td>
</tr>
</table>
<p align="center"><font size="1" face="Verdana, Arial, Helvetica, sans-serif">[ Foram encontradas <b><%=intContador%></b> pessoas ] </font> </p>
<div align="center">
<form method="POST" action="so_form_visualizadetalhes_consulta.asp">
<table width="750" height="1" border="0" cellpadding="3" cellspacing="0" bgcolor="#FFFFFF">
<tr bordercolor="#000000" bgcolor="#003399">
<th width="71" bordercolor="#C0C0C0" bgcolor="#FFB13E">
<div align="center" class="style5"><font size="1" face="Tahoma">Nº Cad.</font> </div></th>
<th width="439" bordercolor="#C0C0C0" bgcolor="#FFB13E">
<div align="center"><font color="#FFFFFF"><strong><font size="1" face="Tahoma">Nome</font></strong></font></div></th>
<th width="112" bordercolor="#C0C0C0" bgcolor="#FFB13E">
<div align="center"><font color="#FFFFFF"><strong><font size="1" face="Tahoma">Turma Treinamento</font></strong></font></div></th>
<th width="214" bordercolor="#666666" bgcolor="#FFB13E">
<div align="center"> <font color="#FFFFFF"><strong><font size="1" face="Tahoma">Detalhes</font></strong></font></div></th>
</tr>
<%
Do While Not rstSearch.EOF
%>
<tr valign="middle" bordercolor="#000000" bgcolor="#E8E8E9">
<td height="40" bgcolor="#FFFFFF" style="border-left:1px solid #E8E8E8; border-top:1px solid #E8E8E8; border-bottom:1px solid #E8E8E8; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1; border-right-width:1; color:#666666">
<div align="left"><font color="#666666" size="1" face="Verdana, Arial, Helvetica, sans-serif"><%= rstSearch.Fields("NUMCAN").Value %></font></div></td>
<td bgcolor="#FFFFFF" style="border-left:1px solid #E8E8E8; border-top:1px solid #E8E8E8; border-bottom:1px solid #E8E8E8; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1; border-right-width:1; color:#666666"><div align="left"><font color="#666666" size="1" face="Verdana, Arial, Helvetica, sans-serif"><%= rstSearch.Fields("NOMCAN").Value %></font></div></td>
<td bgcolor="#FFFFFF" style="border-left:1px solid #E8E8E8; border-top:1px solid #E8E8E8; border-bottom:1px solid #E8E8E8; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1; border-right-width:1; color:#666666"><div align="center"><font color="#666666" size="1" face="Verdana, Arial, Helvetica, sans-serif"><%= rstSearch.Fields("turma").Value %></font></div></td>
<td bgcolor="#FFFFFF" style="border-left:1px solid #E8E8E8; border-top:1px solid #E8E8E8; border-bottom:1px solid #E8E8E8; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1; border-right-width:1"><div align="center"><font color="#333333">
<label></label>
<div align="center"><font face="Arial" color="#E8E8E8">
<a href="so_form_visualizadetalhes_consulta.asp?radio=<%=rstSearch.Fields(1).Value%>">
<font color="#000000" style="font-size: 8pt"><img src="FIGURAS/cadastro.PNG" width="28" height="24"> </font>
<font color="#666666" style="font-size: 8pt">Mais Detalhes </font></a></font></div>
</font></div></td>
</tr>
<%
rstSearch.MoveNext
Loop
%>
</table>
</form>
<font size="1" face="Verdana, Arial, Helvetica, sans-serif"><br>
<span class="style6"> Sua busca foi processada em
<%response.write FormatNumber( Timer - inicio, 2 )%>
segundos.</span></font><br>
<%
rstSearch.Close
Set rstSearch = Nothing
cnnSearch.Close
Set cnnSearch = Nothing
End If
%>
</div></td>
</tr>
</table>Carregando comentários...