Ir para conteúdo

POWERED BY:

Arquivado

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

ODIR

de condicional if

Por , em ASP Clássico

Recommended Posts

ODIR    0

ODIR
Postado

estou com uma duvida como faco para inserir uma condicional if no form conforme demonstro logo abaixo

 

 

estou tentando desta maneira

 

<%if grupo = "" then %> value="<%objRS("autonum")%>" <%else%> value="<%objRS1("codgrupo")%>" <%end if%>

 

 

o codigo é assim (um trecho apenas)

 

<%'Response.Expires = 0On error resume NextDim objConn, codmot, stringSQL, stringSQL1, stringSQL2, stringSQL12, stringSQL3, stringSQL4, stringSQL5, data, stringSQL6, stringSQL7, stringSQL8, stringSQL9, stringSQL10, stringSQL11, strConnection, id, nome, telefone, email, comentario, fantasia, razao, cidade, est, bairro, cep, fone, celular, fax, cnpj, insc, site, endereco, cod, frete, transgrupo = Request.QueryString("codgrupo")forn = Request.QueryString("forn")prod = Request.QueryString("prod1")prod2 = Request.QueryString("prod2")prod3 = Request.QueryString("prod3")prod4 = Request.QueryString("prod4")prod5 = Request.QueryString("prod5")prod6 = Request.QueryString("prod6")prod7 = Request.QueryString("prod7")codmot = Request.QueryString("codmot")comis = Request.QueryString("comis")trans = Request.QueryString("trans")data = Request.QueryString("data")id = Request.QueryString("radio")'On error Resume Next' Conectando com o banco de dados contato.mdbSet objConn =  Server.CreateObject("ADODB.Connection")Set objRS =  Server.CreateObject("ADODB.Connection")objConn.Open "DBQ=" & "d:\web\localuser\arrozvivamaria\banco\contato.mdb" & ";Driver={Microsoft Access Driver (*.mdb)}"stringSQL = "SELECT * FROM gp WHERE autonum = "&grupoSet objRS = objConn.Execute(stringSQL)stringSQL1 = "SELECT * FROM cp WHERE autonum = "&idSet objRS1 = objConn.Execute(stringSQL1)stringSQL2 = "SELECT * FROM prod WHERE cod = "∏&""Set objRS2 = objConn.Execute(stringSQL2)stringSQL3 = "SELECT * FROM prod WHERE cod = "&prod2&""Set objRS3 = objConn.Execute(stringSQL3)stringSQL4 = "SELECT * FROM prod WHERE cod = "&prod3&""Set objRS4 = objConn.Execute(stringSQL4)stringSQL5 = "SELECT * FROM prod WHERE cod = "&prod4&""Set objRS5 = objConn.Execute(stringSQL5)stringSQL6 = "SELECT * FROM prod WHERE cod = "&prod5&""Set objRS6 = objConn.Execute(stringSQL6)stringSQL7 = "SELECT * FROM prod WHERE cod = "&prod6&""Set objRS7 = objConn.Execute(stringSQL7)stringSQL8 = "SELECT * FROM prod WHERE cod = "&prod7&""Set objRS8 = objConn.Execute(stringSQL8)stringSQL9 = "SELECT * FROM fr WHERE autonum = "&codmotSet objRS9 = objConn.Execute(stringSQL9)stringSQL10 = "SELECT * FROM fr WHERE autonum = "&comisSet objRS10 = objConn.Execute(stringSQL10)stringSQL11 = "SELECT * FROM fr WHERE autonum = "&transSet objRS11 = objConn.Execute(stringSQL11)stringSQL12 = "SELECT * FROM fr WHERE autonum = "&fornSet objRS12 = objConn.Execute(stringSQL12)'Deletando registro da tabela contato onde esta a id%><body><form method="post" action="insert_into.asp" name="form" onsubmit="return valida_campo(); calculaMoeda()">  <div align="center">	<center>	  <table border="0" width="890" bgcolor="F5F5F5">		<tr bgcolor="#FFFFFF"> 		  <td colspan="9" height="34"> 			<div align="center"><b>				<font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#000066">				Compras de Qualquer Genero</font></b></div>		  </td>		</tr> 		<tr>		  <td width="884" colspan="9"><font face="Verdana" size="2" color="#0000CC">Grupo:  </font> 			<input type="text" name="codgrupo" size="6" onFocus="nextfield ='grupo';" <%if grupo = "" then %> value="<%objRS("autonum")%>" <%else%> value="<%objRS1("codgrupo")%>" <%end if%>  style="font-family: Verdana; font-size: 8 pt;COLOR: 0000CC;"><input type="text" name="grupo" size="22" onFocus="nextfield ='data';" value="<%=objRS("nome")%>" style="font-family: Verdana; font-size: 8 pt;COLOR: 0000CC;"> 			<font face="Verdana" size="2" color="#0000CC">Data: </font>

Compartilhar este post

Link para o post
Compartilhar em outros sites

Felipe Fonseca    0

Felipe Fonseca
Postado

Tente usar Esse...

o erro parece que eh aki ..

 

Errado:

 

value="<%objRS("autonum")%>"

Correto:

 

value="<%=objRS("autonum")%>"
Portanto ....

 

<%if grupo = "" then %> value="<%=objRS("autonum")%>" <%else%> value="<%=objRS1("codgrupo")%>" <%end if%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

realmente so faltou o igual mesmo para que seja entendido como o response.write e apareça o valor no codigo html

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