Ir para conteúdo

POWERED BY:

Arquivado

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

cesarhtc

chave

Por , em ASP Clássico

Recommended Posts

cesarhtc    0

cesarhtc
Postado

Estou com um problema da 1ª para a 3ªpágina, não esta carregando a chave composta. Tenho outras paginas que funcionam direito só estas é que não.Valeu pela força :o 1ª pagina*******//********<FORM METHOD=POST ACTION="Resul_Pesq.asp" onsubmit="return valida(this)" ><BR><BR><font face= "verdana" size="1" color="#000080"><b>Local:</b></font><select size="1" style="font-family: verdana; color:blue; font-size=8pt; font:bold; ;"NAME="SG_UF" VALUE="" SIZE=2 MAXLENGTH=4><option>---</option><option value=Filial-RJ>Filial-RJ</option><option value=ESAL>ESAL</option><option value=ESAM>ESAM</option><option value=ESBA>ESBA</option><option value=ESCE>ESCE</option><option value=ESDF>ESDF</option><option value=ESES>ESES</option><option value=ESGO>ESGO</option><option value=ESMA>ESMA</option><option value=ESMG>ESMG</option><option value=ESMS>ESMS</option><option value=ESMT>ESMT</option><option value=ESPA>ESPA</option><option value=ESPB>ESPB</option><option value=ESPE>ESPE</option><option value=ESPI>ESPI</option><option value=ESPR>ESPR</option><option value=ESRJ>ESRJ</option><option value=ESRN>ESRN</option><option value=ESRS>ESRS</option><option value=ESSC>ESSC</option><option value=ESSE>ESSE</option><option value=ESSR>ESSP</option><option value=ESTO>ESTO</option></select><font face= "verdana" size="1" color="#000080"><b>Modalidade:</b></font><select size="1" style="font-family: verdana; color:blue; font-size=8pt; font:bold; ;" NAME="SG_MODALIDADE" VALUE="" SIZE=2 MAXLENGTH=2><option>---</option> <option value=CC>CC</option><option value=CV>CV</option><option value=DL>DL</option><option value=TP>TP</option><option value=PG>PG</option></select><font face= "verdana" size="1" color="#000080"><b>Nº:</b></font><INPUT TYPE=TEXT style="font-family: verdana; color:blue; font-size=8pt; font:bold; ;" NAME="NU_NL" VALUE="" SIZE=7 MAXLENGTH=7> <p><BR><BR><TABLE><TR><TD><INPUT TYPE=SUBMIT style="font-family:Trebuchet MS; color:800000; font-size:10pt; " VALUE="Procurar"><INPUT TYPE=RESET style="font-family:Trebuchet MS; color:800000; font-size:10pt"; " VALUE="Limpar"><p></TD></TR></TABLE></FORM> *******//********2ª página'Recupera do FORMPESQ_RESUL.asp o valor das variáveis passadaswUF = Request.form("SG_UF")wModal = Request.form("SG_Modalidade")wNL = Request.form("NU_NL")chave="?sg_uf=" & wuf & "&sg_modalidade=" & wmodal & "&nu_nl=" & wnl'response.write wuf & "<BR>" & wmodal & "<BR>" & wnl & "<BR>" ' Mostra a variável de conexãoConexao="Provider=SQLOLEDB; Data Source=10.2.9.125; Initial Catalog=Publicar; User ID=sa; Password=''"'response.end'Cria um objeto recordsetset rstMain = Server.CreateObject("ADODB.Recordset")'Monta a string SQL de checagem da existencia da LicitaçãostrSQL = "SELECT * FROM licita1 WHERE sg_uf='" & wuf & "' AND sg_modalidade='" & wmodal & "' AND nu_nl='" & wnl & "' "'Response.write strSQL' response.end'Cria um objeto recordsetset rstMain = Server.CreateObject("ADODB.Recordset")'Conecta ao BD pelo DSN e abre a consulta'Como resultado, o recordset conterá a tabela-respostarstMain.Open strSQL,conexaoif not rstMain.EOF then rstMain.Close %><!-- O rstmain.close passa para cima, pois é para fechar o banco antes de redirecionar --><%response.redirect "Inclu_ResultSQLnovo.asp?chave="& wuf & wmodal & wnlelse%><p align="center"><font face="Trebuchet MS" size="3" color="navy">A licitação "<%=wuf&"-"&wmodal&"-"&wnl%>" não existe.</B></font><%End if'Libera a memória (destrói o objeto recordset)Set rstMain=Nothing%>******//*****3ª página<%'Recupera do Resul_Pesq..asp o valor do Chave passadawuf=Request.querystring("sg_uf")wmodal=Request.querystring("sg_modalidade")wnl=Request.querystring("nu_nl")wchave=Request.querystring("chave")strSQL = "SELECT * FROM Licita1 WHERE ID_EDITAL='" & wchave & "' "'Response.write strSQL'Cria um objeto recordsetset rstMain = Server.CreateObject("ADODB.Recordset")' Mostra a variável de conexãoConexao="Provider=SQLOLEDB; Data Source=10.2.9.125; Initial Catalog=Publicar; User ID=sa; Password=''"'Conecta ao BD pelo DSN e abre a consulta'Como resultado, o recordset conterá a tabela-respostarstMain.Open strSQL ,conexaorstMain.CloseSET rstMain=Nothing%><FORM METHOD=POST ACTION="gravarResultado.asp" onsubmit="return valida(this)" ><table align= center border=0 bgcolor="#FFFF99" bordercolor="blue" cellpadding="3"><tr><td><font face= "Tahoma" size="2" color="#800000">UF: <font face= "tahoma" size="2" color="navy"><%=wuf%></font> <INPUT TYPE=HIDDEN NAME="SG_UF" VALUE="<%=wUF%>"> <font face= "tahoma" size="2" color="#800000">Modalidade: <font face="tahoma" size="2" color="navy"><%=wmodal%></font><INPUT TYPE=HIDDEN NAME="SG_MODALIDADE" VALUE="<%=wMODAL%>"> <font face= "tahoma" size="2" color="#800000">Nº:<font face="tahoma" size="2" color="navy"><%numero=wnlnumero="00" & numero 'põe zeros "à força" à esquerda do nº da Licitação numero = right(numero,7)parte1=left(numero,3)parte2=right(numero,4)numeroformatado=parte1 & "/" & parte2response.write numeroformatado%></font><INPUT TYPE=HIDDEN NAME="NU_NL" VALUE="<%=wNL%>"></td></tr></table><BR><BR><font face= "verdana" size="1" color="#000080"><b>Item:</b></font><INPUT TYPE=TEXT style="font-family: verdana; color:blue; font-size=8pt; font:bold; ;" NAME="NU_ITEM" VALUE="" SIZE=2 MAXLENGTH=2> <font face= "verdana" size="1" color="#000080"><b>Valor:</b></font><INPUT TYPE=TEXT style="font-family: verdana; color:blue; font-size=8pt; font:bold; ;" NAME="VL_VALOR" VALUE="" SIZE=12 MAXLENGTH=12> <font face= "verdana" size="1" color="#000080"><b>Fornecedor:</b></font><INPUT TYPE=TEXT style="font-family: verdana; color:blue; font-size=8pt; font:bold; ;" NAME="NM_FORNECEDOR" VALUE="" SIZE=50 MAXLENGTH=50> <p><table border=0><tr><td> <font face= "verdana" size="1" color="#000080"><b>Objeto:</b></font> </td><td align=justify><TEXTAREA COLS="60" ROWS="4" NAME="TE_Objeto" style="font-family: Verdana; color:navy; font-size=8pt;" VALUE=""></TEXTAREA><font face= "tahoma" size= "1" color="red"><B>Digitar até 100 caracteres</B></font></td> </tr></table><BR><font face= "verdana" size="1" color="#000080"><b>Publicar dia:</b></font><INPUT TYPE=TEXT style="font-family: verdana; color:blue; font-size=8pt; font:bold; ;"NAME="DT_Publicar" VALUE="" SIZE=11 MAXLENGTH=10 onblur="return ValidaData(this)"> <p><INPUT TYPE=HIDDEN NAME="TE_Entrada" VALUE="" SIZE=20 MAXLENGTH=20><p> </table><BR><table align="center" border=0 ><tr><td><INPUT TYPE=SUBMIT style="font-family:Trebuchet MS; color:800000; font-size:10pt; " VALUE="Incluir"><INPUT TYPE=RESET style="font-family:Trebuchet MS; color:800000; font-size:10pt"; " VALUE="Limpar"><p></td></tr></table></FORM>

Compartilhar este post

Link para o post
Compartilhar em outros sites

JucaMaster    0

JucaMaster
Postado

Especifique melhor a sua dúvida.....eu não consegui entender onde está o problema.....

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

Nao usa assim não

 

[tr][/tr][tr][/tr]
ASP <%

response.redirect "Inclu_ResultSQLnovo.asp?chave="& wuf & wmodal & wnl

%>

 

tenta usar assim

 

[tr][/tr][tr][/tr]
ASP <%

response.redirect "Inclu_ResultSQLnovo.asp?sg_uf="& wuf &"&sg_modalidade="& wmodal &"&nu_nl="& wnl

%>

 

e para de usar aquela composicao de chave porque senão não vai funcionar sua query na pagina 3, acho que é isso

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado
[tr][/tr][tr][/tr]
ASP strSQL = "SELECT * FROM Licita1 WHERE ID_EDITAL='" & wchave & "' "

 

este Id Edital é numerico??

Compartilhar este post

Link para o post
Compartilhar em outros sites

cesarhtc    0

cesarhtc
Postado

Pessoal, já resolvi.

O campo Id_edital é string.

 

Valeu pela força.

 

abraços http://forum.imasters.com.br/public/style_emoticons/default/joia.gif

 

na 2ª pagina aonde estava

 

ASP [/tr][tr]

<%

response.redirect "Inclu_ResultSQLnovo.asp?chave="& wuf & wmodal & wnl

%>

[/tr]

 

Passei para:

 

ASP [/tr][tr]

<%

response.redirect "Inclu_ResultSQLnovo.asp?"&chave

%>

[/tr]

 

E na 3ª pagina que estava:

 

ASP [/tr][tr]

<%

'Recupera do Resul_Pesq..asp o valor do Chave passada

wuf=Request.querystring("sg_uf")

wmodal=Request.querystring("sg_modalidade")

wnl=Request.querystring("nu_nl")

wchave=Request.querystring("chave")

 

strSQL = "SELECT * FROM Licita1 WHERE ID_EDITAL='" & wchave & "' "

'Response.write strSQL

 

[/tr]

 

 

Passei para:

 

ASP [/tr][tr]

<%

'Recupera do FormPesq_Resul.asp o valor do Chave passada

wuf=Request.querystring("sg_uf")

wmodal=Request.querystring("sg_modalidade")

wnl=Request.querystring("nu_nl")

wchave= wuf & wmodal & wnl

 

strSQL = "SELECT * FROM Licita1 WHERE ID_EDITAL='" & wchave & "' "

Response.write strSQL

%>

[/tr]

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

beleza cara, mas não é muito usual usar um id do tipo string

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