Ir para conteúdo

POWERED BY:

Arquivado

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

pastoverdejante

Uma pequena mudança ASP

Por , em ASP Clássico

Recommended Posts

pastoverdejante    0

pastoverdejante
Postado

Gostaria de deixar selecionado na caixa de pesquisa aonde esta escrito "selecione estado" como Amazonas

e na caixa "cidade" gostaria deixar como Manaus

 

Eu me atrevi a fazer isso mas acabei não conseguindo sem afetar a funcionalidade.

Meu objetivo seria usar este script no estado e cidade selecionados acima.

 

Obrigado!

 

<%

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

Dim objEstadosEsq
Set objEstadosEsq = Conn.Execute("Select Cod, Estado from Estados order by Estado")

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

DIM objSecoesEsq
Set objSecoesEsq = Server.CreateObject("ADODB.Recordset")
objSecoesEsq.Open ("SELECT Cod, Secao FROM Secoes ORDER BY Secao"), Conn

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

Dim DestaqueFoto1
Dim DestaqueFoto1Desativar
Dim DestaqueFoto2
Dim DestaqueFoto2Desativar
Dim DestaqueFoto3
Dim DestaqueFoto3Desativar
Dim DestaqueFotoValor
Dim DestaqueFotoTotal

Set DestaqueFoto1 = Server.CreateObject("ADODB.Recordset")
	DestaqueFoto1.CursorType = 3
	DestaqueFoto1.Open("SELECT Cod, Foto1, BreveDescricao, NomeProduto FROM Anuncios WHERE CodLocal=3 AND Ativacao=1 AND Status=1 AND Foto1 <> '"&LocalFoto&"SemFoto.gif' AND DataDe <= #"&Month(Date) & "/" & Day(Date) & "/" & Year(Date) &"# AND DataAte >= #"&Month(Date) & "/" & Day(Date) & "/" & Year(Date) &"#"), Conn

		If not DestaqueFoto1.EOF Then
			DestaqueFotoTotal = DestaqueFoto1.RecordCount
			Randomize()
			DestaqueFotoValor = Int(Rnd * DestaqueFotoTotal)
			DestaqueFoto1.Move(DestaqueFotoValor)
		Else
			DestaqueFoto1Desativar = 1
			DestaqueFoto2Desativar = 1
			DestaqueFoto3Desativar = 1
		End If

If Not DestaqueFoto1Desativar = 1 Then
	Set DestaqueFoto2 = Server.CreateObject("ADODB.Recordset")
		DestaqueFoto2.CursorType = 3
		DestaqueFoto2.Open("SELECT Cod, Foto1, BreveDescricao, NomeProduto FROM Anuncios WHERE Cod <> "& DestaqueFoto1("Cod") &" AND CodLocal=3 AND Ativacao=1 AND Status=1 AND Foto1 <> '"&LocalFoto&"SemFoto.gif' AND DataDe <= #"&Month(Date) & "/" & Day(Date) & "/" & Year(Date) &"# AND DataAte >= #"&Month(Date) & "/" & Day(Date) & "/" & Year(Date) &"#"), Conn

			If not DestaqueFoto2.EOF Then
				DestaqueFotoTotal = DestaqueFoto2.RecordCount
				Randomize()
				DestaqueFotoValor = Int(Rnd * DestaqueFotoTotal)
				DestaqueFoto2.Move(DestaqueFotoValor)
			Else
				DestaqueFoto2Desativar = 1
				DestaqueFoto3Desativar = 1
			End If
End IF

If Not DestaqueFoto2Desativar = 1 Then
	Set DestaqueFoto3 = Server.CreateObject("ADODB.Recordset")
		DestaqueFoto3.CursorType = 3
		DestaqueFoto3.Open("SELECT Cod, Foto1, BreveDescricao, NomeProduto FROM Anuncios WHERE Cod <> "& DestaqueFoto1("Cod") &" AND Cod <> "& DestaqueFoto2("Cod") &" AND CodLocal=3 AND Ativacao=1 AND Status=1 AND Foto1 <> '"&LocalFoto&"SemFoto.gif' AND DataDe <= #"&Month(Date) & "/" & Day(Date) & "/" & Year(Date) &"# AND DataAte >= #"&Month(Date) & "/" & Day(Date) & "/" & Year(Date) &"#"), Conn

			If not DestaqueFoto3.EOF Then
				DestaqueFotoTotal = DestaqueFoto3.RecordCount
				Randomize()
				DestaqueFotoValor = Int(Rnd * DestaqueFotoTotal)
				DestaqueFoto3.Move(DestaqueFotoValor)
			Else
				DestaqueFoto3Desativar = 1
			End If
End IF

'------------------------------------------------------------------------------------------------------------------------------
Dim Destaque1
Dim Destaque1Desativar
Dim Destaque2
Dim Destaque2Desativar
Dim Destaque3
Dim Destaque3Desativar
Dim DestaqueValor
Dim DestaqueTotal
Dim SQLDestaque1
Dim SQLDestaque2
Dim SQLDestaque3

Set Destaque1 = Server.CreateObject("ADODB.Recordset")
	Destaque1.CursorType = 3

	SQLDestaque1 = "SELECT Cod, BreveDescricao, NomeProduto FROM Anuncios WHERE CodLocal=4 AND Ativacao=1 AND Status=1 AND DataDe <= #"&Month(Date) & "/" & Day(Date) & "/" & Year(Date) &"# AND DataAte >= #"&Month(Date) & "/" & Day(Date) & "/" & Year(Date) &"#"

	If Not DestaqueFoto1Desativar = 1 Then
		SQLDestaque1 = SQLDestaque1 & " AND Cod <> " & DestaqueFoto1("Cod")
	End If

	If Not DestaqueFoto2Desativar = 1 Then
		SQLDestaque1 = SQLDestaque1 & " AND Cod <> " & DestaqueFoto2("Cod")
	End If

	If Not DestaqueFoto3Desativar = 1 Then
		SQLDestaque1 = SQLDestaque1 & " AND Cod <> " & DestaqueFoto3("Cod")
	End If

	Destaque1.Open SQLDestaque1, Conn
		If not Destaque1.EOF Then
			DestaqueTotal = Destaque1.RecordCount
			Randomize()
			DestaqueValor = Int(Rnd * DestaqueTotal)
			Destaque1.Move(DestaqueValor)
		Else
			Destaque1Desativar = 1
			Destaque2Desativar = 1
			Destaque3Desativar = 1
		End If

If Not Destaque1Desativar = 1 Then
	Set Destaque2 = Server.CreateObject("ADODB.Recordset")
		Destaque2.CursorType = 3

		SQLDestaque2 = "SELECT Cod, BreveDescricao, NomeProduto FROM Anuncios WHERE CodLocal=4 AND Ativacao=1 AND Status=1 AND DataDe <= #"&Month(Date) & "/" & Day(Date) & "/" & Year(Date) &"# AND DataAte >= #"&Month(Date) & "/" & Day(Date) & "/" & Year(Date) &"# AND Cod <> " & Destaque1("Cod")

		If Not DestaqueFoto1Desativar = 1 Then
			SQLDestaque2 = SQLDestaque2 & " AND Cod <> " & DestaqueFoto1("Cod")
		End If

		If Not DestaqueFoto2Desativar = 1 Then
			SQLDestaque2 = SQLDestaque2 & " AND Cod <> " & DestaqueFoto2("Cod")
		End If

		If Not DestaqueFoto3Desativar = 1 Then
			SQLDestaque2 = SQLDestaque2 & " AND Cod <> " & DestaqueFoto3("Cod")
		End If

		Destaque2.Open SQLDestaque2, Conn
			If not Destaque2.EOF Then
				DestaqueTotal = Destaque2.RecordCount
				Randomize()
				DestaqueValor = Int(Rnd * DestaqueTotal)
				Destaque2.Move(DestaqueValor)
			Else
				Destaque2Desativar = 1
				Destaque3Desativar = 1
			End If
End IF

If Not Destaque2Desativar = 1 Then
	Set Destaque3 = Server.CreateObject("ADODB.Recordset")
		Destaque3.CursorType = 3

		SQLDestaque3 = "SELECT Cod, BreveDescricao, NomeProduto FROM Anuncios WHERE CodLocal=4 AND Ativacao=1 AND Status=1 AND DataDe <= #"&Month(Date) & "/" & Day(Date) & "/" & Year(Date) &"# AND DataAte >= #"&Month(Date) & "/" & Day(Date) & "/" & Year(Date) &"# AND Cod <> " & Destaque1("Cod") & " AND Cod <> " & Destaque2("Cod")

		If Not DestaqueFoto1Desativar = 1 Then
			SQLDestaque3 = SQLDestaque3 & " AND Cod <> " & DestaqueFoto1("Cod")
		End If

		If Not DestaqueFoto2Desativar = 1 Then
			SQLDestaque3 = SQLDestaque3 & " AND Cod <> " & DestaqueFoto2("Cod")
		End If

		If Not DestaqueFoto3Desativar = 1 Then
			SQLDestaque3 = SQLDestaque3 & " AND Cod <> " & DestaqueFoto3("Cod")
		End If

		Destaque3.Open SQLDestaque3, Conn
			If not Destaque3.EOF Then
				DestaqueTotal = Destaque3.RecordCount
				Randomize()
				DestaqueValor = Int(Rnd * DestaqueTotal)
				Destaque3.Move(DestaqueValor)
			Else
				Destaque3Desativar = 1
			End If
End IF

'------------------------------------------------------------------------------------------------------------------------------
%>

		<table width="135"  border="0" cellspacing="0" cellpadding="0">
		  <tr>
			<td height="13" background="Imagens/LinhaBarras.gif"><img src="Imagens/blank.gif" width="1" height="1"></td>
		 </tr>
		  <tr>
			<td>
			<table width="100%"  border="0" cellspacing="0" cellpadding="0">
			  <tr>
				<td><img src="Imagens/Pesquisa.gif" width="71" height="16"></td>
			  </tr>
			  <form action="Resultado.asp" method="get" name="Pesquisa">
			  <tr>

				<td height="25">

				<select name="Estado" class="ListBusca">
					<option selected>Selecione o estado</option>
					<% While Not objEstadosEsq.EOF %>
					<option value="<%=objEstadosEsq("Cod")%>"><%=objEstadosEsq("Estado")%></option>
					  <% objEstadosEsq.MOVENEXT : Wend %>
				</select>
				</td>
			  </tr>

			  <tr>
				<td height="25">
				  <input name="Cidade" type="text" class="TextBusca" onFocus="java script:this.value=''" value="Digite a cidade">
				</td>
			  </tr>
			  <tr>
				<td height="25"><select name="Secao" class="ListBusca">
				  <option selected>Escolha a Seção</option>
				  <% While Not objSecoesEsq.eof %>
					  <option value="<%=objSecoesEsq("Cod")%>"><%=objSecoesEsq("Secao")%></option>
				  <%
				  objSecoesEsq.movenext
				  Wend
				  %>

				</select></td>
			  </tr>
			  <tr>
				<td height="25"><input name="Palavra" type="text" class="TextBusca" value="O que deseja procurar?" onFocus="java script:this.value=''"></td>
			  </tr>
			  <tr>
				<td height="25" align="right"><input type="image" src="Imagens/BotPesquisar.gif" name="Enviar" value="Enviar"></td>
			  </tr>
			  </form>
			</table>
			</td>
		  </tr>
		  <tr>
			<td height="13" background="Imagens/LinhaBarras.gif"><img src="Imagens/blank.gif" width="1" height="1"></td>
		  </tr>
		  <tr>
			<td>
			<table width="100%" border="0" cellspacing="0" cellpadding="0">
			  <% If Not DestaqueFoto1Desativar = 1 Then %>
			  <tr>
				<td height="20" valign="top"><img src="Imagens/Destaques.gif" width="80" height="16"></td>
			  </tr>
			  <tr>
				<td align="center">
				<table width="120" border="0" cellspacing="0" cellpadding="0">
				  <tr>
					<td><a href="MaisAnuncio.asp?CodProduto=<%=DestaqueFoto1("Cod")%>"><img src="<%=LocalFoto&DestaqueFoto1("Foto1")%>" width="120" border="0"></a></td>
				  </tr>
				  <tr>
					<td class="TituloCinzaMedio"><%=DestaqueFoto1("NomeProduto")%></td>
				  </tr>
				  <tr>
					<td class="TextoCinzaMedio"><%=DestaqueFoto1("BreveDescricao")%></td>
				  </tr>
				  <tr>
					<td align="right" class="TextoAzulEscuro"><a href="MaisAnuncio.asp?CodProduto=<%=DestaqueFoto1("Cod")%>" class="TextoAzulEscuro">saiba mais</a> <img src="Imagens/SetaSaibaMais.gif" width="4" height="5" border="0"></td>
				  </tr>
				</table>
				</td>
			  </tr>
			  <tr>
				<td height="18" background="Imagens/LinhaDestaques.gif"><img src="Imagens/blank.gif" width="1" height="1"></td>
			  </tr>
			  <%
				DestaqueFoto1.Close
				Set DestaqueFoto1 = Nothing
			  End If
			  If Not DestaqueFoto2Desativar = 1 Then
			  %>
			  <tr>
				<td align="center">
				<table width="120" border="0" cellspacing="0" cellpadding="0">
				  <tr>
					<td><a href="MaisAnuncio.asp?CodProduto=<%=DestaqueFoto2("Cod")%>"><img src="<%=LocalFoto&DestaqueFoto2("Foto1")%>" width="120" border="0"></a></td>
				  </tr>
				  <tr>
					<td class="TituloCinzaMedio"><%=DestaqueFoto2("NomeProduto")%></td>
				  </tr>
				  <tr>
					<td class="TextoCinzaMedio"><%=DestaqueFoto2("BreveDescricao")%></td>
				  </tr>
				  <tr>
					<td align="right" class="TextoAzulEscuro"><a href="MaisAnuncio.asp?CodProduto=<%=DestaqueFoto2("Cod")%>" class="TextoAzulEscuro">saiba mais</a> <img src="Imagens/SetaSaibaMais.gif" width="4" height="5" border="0"></td>
				  </tr>
				</table>
				</td>
			  </tr>
			  <tr>
				<td height="18" background="Imagens/LinhaDestaques.gif"><img src="Imagens/blank.gif" width="1" height="1"></td>
			  </tr>
			  <%
				DestaqueFoto2.Close
				Set DestaqueFoto2 = Nothing
			  End If
			  If Not DestaqueFoto3Desativar = 1 Then
			  %>
			  <tr>
				<td align="center">
				<table width="120" border="0" cellspacing="0" cellpadding="0">
				  <tr>
					<td><a href="MaisAnuncio.asp?CodProduto=<%=DestaqueFoto3("Cod")%>"><img src="<%=LocalFoto&DestaqueFoto3("Foto1")%>" width="120" border="0"></a></td>
				  </tr>
				  <tr>
					<td class="TituloCinzaMedio"><%=DestaqueFoto3("NomeProduto")%></td>
				  </tr>
				  <tr>
					<td class="TextoCinzaMedio"><%=DestaqueFoto3("BreveDescricao")%></td>
				  </tr>
				  <tr>
					<td align="right" class="TextoAzulEscuro"><a href="MaisAnuncio.asp?CodProduto=<%=DestaqueFoto3("Cod")%>" class="TextoAzulEscuro">saiba mais</a> <img src="Imagens/SetaSaibaMais.gif" width="4" height="5" border="0"></td>
				  </tr>
				</table>
				</td>
			  </tr>
			  <tr>
				<td height="18" background="Imagens/LinhaDestaques.gif"><img src="Imagens/blank.gif" width="1" height="1"></td>
			  </tr>
			  <%
				DestaqueFoto3.Close
				Set DestaqueFoto3 = Nothing
			  End If
			  If Not Destaque1Desativar = 1 Then
			  %>
			  <tr>
				<td height="18" align="center">
				<table width="120" border="0" cellspacing="0" cellpadding="0">
				  <tr>
					<td class="TituloCinzaEscuro"><a href="MaisAnuncio.asp?CodProduto=<%=Destaque1("Cod")%>" class="TituloCinzaEscuro"><%=Destaque1("NomeProduto")%></a></td>
				  </tr>
				  <tr>
					<td class="TextoCinzaEscuro"><%=Destaque1("BreveDescricao")%>...</td>
				  </tr>
				</table>
				</td>
			  </tr>
			  <tr>
				<td height="15" background="Imagens/LinhaDestaques.gif"><img src="Imagens/blank.gif" width="1" height="1"></td>
			  </tr>
			  <%
				Destaque1.Close
				Set Destaque1 = Nothing
			  End If
			  If Not Destaque2Desativar = 1 Then
			  %>
			  <tr>
				<td height="18" align="center">
				<table width="120" border="0" cellspacing="0" cellpadding="0">
				  <tr>
					<td class="TituloCinzaEscuro"><a href="MaisAnuncio.asp?CodProduto=<%=Destaque2("Cod")%>" class="TituloCinzaEscuro"><%=Destaque2("NomeProduto")%></a></td>
				  </tr>
				  <tr>
					<td class="TextoCinzaEscuro"><%=Destaque2("BreveDescricao")%>...</td>
				  </tr>
				</table>
				</td>
			  </tr>
			  <tr>
				<td height="15" background="Imagens/LinhaDestaques.gif"><img src="Imagens/blank.gif" width="1" height="1"></td>
			  </tr>
			  <%
				Destaque2.Close
				Set Destaque2 = Nothing
			  End If
			  If Not Destaque3Desativar = 1 Then
			  %>
			  <tr>
				<td height="18" align="center">
				<table width="120" border="0" cellspacing="0" cellpadding="0">
				  <tr>

					<td class="TituloCinzaEscuro"><a href="MaisAnuncio.asp?CodProduto=<%=Destaque3("Cod")%>" class="TituloCinzaEscuro"><%=Destaque3("NomeProduto")%></a></td>
				  </tr>
				  <tr>
					<td class="TextoCinzaEscuro"><%=Destaque3("BreveDescricao")%>...</td>
				  </tr>
				</table>
				</td>
			  </tr>
			  <tr>
				<td height="13" background="Imagens/LinhaBarras.gif"> </td>
			  </tr>
			  <% 
				Destaque3.Close
				Set Destaque3 = Nothing
				End If %>
			  <tr>
				<td height="20"><img src="Imagens/Newsletter.gif" width="91" height="16"></td>
			  </tr>
			  <tr>
				<td height="10" align="center">
				<table width="100%"  border="0" cellspacing="0" cellpadding="0">
				  <form action="Cadastro.asp" method="post" name="Cadastro">
					<tr>
					  <td class="TextoCinzaEscuro">Coloque seu e-mail para receber novidades ou excluí-lo de nossa lista.</td>
					</tr>
					<tr>
					  <td>
					  <table width="100%"  border="0" cellspacing="0" cellpadding="0">
						  <tr>
							<td width="14%"><input name="Acao" type="radio" value="1" checked></td>
							<td width="36%" class="TextoCinzaMedio">Cadastrar</td>
							<td width="14%"><input name="Acao" type="radio" value="2"></td>
							<td width="36%" class="TextoCinzaMedio">Remover</td>
						  </tr>
					  </table>
					  </td>
					</tr>
					<tr>
					  <td><input name="Email" type="text" class="Form13319"></td>
					</tr>
					<tr>
					  <td height="24" valign="bottom" align="right">
						<input name="imageField2" type="image" src="Imagens/Ok.gif" width="38" height="16" border="0">
					  </td>
					</tr>
				  </form>
				</table></td>
			  </tr>
			</table>
			</td>
		  </tr>
		</table>
<%
' finaliza/destroi os objetos
objEstadosEsq.Close
Set objEstadosEsq = Nothing
objSecoesEsq.Close
Set objSecoesEsq = Nothing
%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

jrcardozo    4

jrcardozo
Postado 

<%

codEstado = XXX

%>

<select name="Estado" class="ListBusca">

<option selected>Selecione o estado</option>

<% While Not objEstadosEsq.EOF %>

<%if codEstado = cstr(objEstadosEsq("cod")) then%>

<option value="<%=objEstadosEsq("Cod")%>" selected="selected"><%=objEstadosEsq("Estado")%></option>

<%else%>

<option value="<%=objEstadosEsq("Cod")%>"><%=objEstadosEsq("Estado")%></option>

<%end if%>

<% objEstadosEsq.MOVENEXT : Wend %>

</select>

onde está 'codEstado = XXX' você deve colocar no lugar do XXX o código que se refere a amazonas, faça a mesma lógica para selecionar a cidade

Compartilhar este post

Link para o post
Compartilhar em outros sites

pastoverdejante    0

pastoverdejante
Postado 

<%
codEstado = XXX
%>
			   <select name="Estado" class="ListBusca">
					<option selected>Selecione o estado</option>
					<% While Not objEstadosEsq.EOF %>
<%if codEstado = cstr(objEstadosEsq("cod")) then%>
					<option value="<%=objEstadosEsq("Cod")%>" selected="selected"><%=objEstadosEsq("Estado")%></option>
<%else%>
					<option value="<%=objEstadosEsq("Cod")%>"><%=objEstadosEsq("Estado")%></option>
<%end if%>
					  <% objEstadosEsq.MOVENEXT : Wend %>
				</select>
onde está 'codEstado = XXX' você deve colocar no lugar do XXX o código que se refere a amazonas, faça a mesma lógica para selecionar a cidade

 

Eu fiz essa alteração e não funcionou :(

O que pode ter dado de errado?

 

Obrigado

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

é gerado algum erro ?

Compartilhar este post

Link para o post
Compartilhar em outros sites

hargon    64

hargon
Postado

Confira o navegador para exibir o erro desmarcando a opção "Mostrar mensagem de erro http amigáveis", e posta o erro completo.

Compartilhar este post

Link para o post
Compartilhar em outros sites

pastoverdejante    0

pastoverdejante
Postado

Confira o navegador para exibir o erro desmarcando a opção "Mostrar mensagem de erro http amigáveis", e posta o erro completo.

 

amigo eu fiz isto mas não apareceu o tipo de erro

estou usando uma hospedagem na uol

aparece somente o erro 500

 

após o teste reverti para o original

 

eu queria apenas deixar como selecionado

estado para amazonas

cidade para manaus

 

mas sem afetar a funcionalidade ou seja deixar as caixas de seleção funcionando normalmente caso eu precise usar em outro estado ou cidade

 

obrigado!

Compartilhar este post

Link para o post
Compartilhar em outros sites

hargon    64

hargon
Postado

Teria como disponibilizar o link?

Compartilhar este post

Link para o post
Compartilhar em outros sites

hargon    64

hargon
Postado

Posta o link aqui, assim outros membros poderão ajudar a resolver sua dúvida.

Compartilhar este post

Link para o post
Compartilhar em outros sites

pastoverdejante    0

pastoverdejante
Postado

Posta o link aqui, assim outros membros poderão ajudar a resolver sua dúvida.

 

Neste código eu gostaria de deixar aparecendo no site somente o nome de Amazonas que seria o código 3 do DB.

Ao invés de "Selecione o estado" que aparece abaixo, passar para Amazonas de modo que os demais não sejam mais vistos ou seja deixar "trancado" em Amazonas

 

 

<select name="Estado" class="ListBusca">

<option selected>Selecione o estado</option>

<% While Not objEstadosEsq.EOF %>

<option value="<%=objEstadosEsq("Cod")%>"><%=objEstadosEsq("Estado")%></option>

<% objEstadosEsq.MOVENEXT : Wend %>

</select>

 

 

 

E na cidade, código abaixo, deixar selecionado para a cidade de Manaus

 

<input name="Cidade" type="text" class="TextBusca" onFocus="java script:this.value=''" value="Digite a cidade">

 

 

 

obg!

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