Como trocar o valor TRUE/FALSE

[spriggan 0]

é o seguinte no BD (acess) eu tenho alguns chkboxs VALORES (Y,N)CLASSIFICACAO LOJA5LOJA6LOJA7LOJA8quando faço a pesquisa sai assim: classificacao true ou falsee loja5 true ou loja5 falsegostaria que aparecesse classificacao: urgenteloja5 destino confirmado ou loja5 -----------

[rsegovia 0]

da um replace...replace(loja5,"Y","destino confirmado")eu nao sei como ele traz do teu banco, se é Y, True, 1, Verdadeiro..etc, mas usa um replace q resolve

[spriggan 0]

da um replace...replace(loja5,"Y","destino confirmado")eu nao sei como ele traz do teu banco, se é Y, True, 1, Verdadeiro..etc, mas usa um replace q resolve

você pode me dar um exemplo de como usar o replace?

[E.o.F 0]

Como ta a pesquisa que você ta fazendo?você pode fazer um if simples,if v=true then mensagem = "Classificação: Urgente...elsemensagem = "----"end ifsendo q esse "v" seria o que retorna da sua consulta, o registro.Ai você manda imprimir essa variavel mensagem

[spriggan 0]

Segue o codigo da página.

<%@LANGUAGE="VBSCRIPT"%><!--#include file="Connections/dsn_protocolos.asp" --><%Dim protocolo_geradoDim protocolo_gerado_numRowsSet protocolo_gerado = Server.CreateObject("ADODB.Recordset")protocolo_gerado.ActiveConnection = MM_dsn_protocolos_STRINGprotocolo_gerado.Source = "SELECT * FROM protocolo ORDER BY numero DESC"protocolo_gerado.CursorType = 0protocolo_gerado.CursorLocation = 2protocolo_gerado.LockType = 1protocolo_gerado.Open()protocolo_gerado_numRows = 0%><%' *** Recordset Stats, Move To Record, and Go To Record: declare stats variablesDim protocolo_gerado_totalDim protocolo_gerado_firstDim protocolo_gerado_last' set the record countprotocolo_gerado_total = protocolo_gerado.RecordCount' set the number of rows displayed on this pageIf (protocolo_gerado_numRows < 0) Then protocolo_gerado_numRows = protocolo_gerado_totalElseif (protocolo_gerado_numRows = 0) Then protocolo_gerado_numRows = 1End If' set the first and last displayed recordprotocolo_gerado_first = 1protocolo_gerado_last = protocolo_gerado_first + protocolo_gerado_numRows - 1' if we have the correct record count, check the other statsIf (protocolo_gerado_total <> -1) Then If (protocolo_gerado_first > protocolo_gerado_total) Then protocolo_gerado_first = protocolo_gerado_total End If If (protocolo_gerado_last > protocolo_gerado_total) Then protocolo_gerado_last = protocolo_gerado_total End If If (protocolo_gerado_numRows > protocolo_gerado_total) Then protocolo_gerado_numRows = protocolo_gerado_total End IfEnd If%><%' *** Recordset Stats: if we don't know the record count, manually count themIf (protocolo_gerado_total = -1) Then ' count the total records by iterating through the recordset protocolo_gerado_total=0 While (Not protocolo_gerado.EOF) protocolo_gerado_total = protocolo_gerado_total + 1 protocolo_gerado.MoveNext Wend ' reset the cursor to the beginning If (protocolo_gerado.CursorType > 0) Then protocolo_gerado.MoveFirst Else protocolo_gerado.Requery End If ' set the number of rows displayed on this page If (protocolo_gerado_numRows < 0 Or protocolo_gerado_numRows > protocolo_gerado_total) Then protocolo_gerado_numRows = protocolo_gerado_total End If ' set the first and last displayed record protocolo_gerado_first = 1 protocolo_gerado_last = protocolo_gerado_first + protocolo_gerado_numRows - 1 If (protocolo_gerado_first > protocolo_gerado_total) Then protocolo_gerado_first = protocolo_gerado_total End If If (protocolo_gerado_last > protocolo_gerado_total) Then protocolo_gerado_last = protocolo_gerado_total End IfEnd If%><%Dim MM_paramName %><%' *** Move To Record and Go To Record: declare variablesDim MM_rsDim MM_rsCountDim MM_sizeDim MM_uniqueColDim MM_offsetDim MM_atTotalDim MM_paramIsDefinedDim MM_paramDim MM_indexSet MM_rs = protocolo_geradoMM_rsCount = protocolo_gerado_totalMM_size = protocolo_gerado_numRowsMM_uniqueCol = ""MM_paramName = ""MM_offset = 0MM_atTotal = falseMM_paramIsDefined = falseIf (MM_paramName <> "") Then MM_paramIsDefined = (Request.QueryString(MM_paramName) <> "")End If%><%' *** Move To Record: handle 'index' or 'offset' parameterif (Not MM_paramIsDefined And MM_rsCount <> 0) then ' use index parameter if defined, otherwise use offset parameter MM_param = Request.QueryString("index") If (MM_param = "") Then MM_param = Request.QueryString("offset") End If If (MM_param <> "") Then MM_offset = Int(MM_param) End If ' if we have a record count, check if we are past the end of the recordset If (MM_rsCount <> -1) Then If (MM_offset >= MM_rsCount Or MM_offset = -1) Then ' past end or move last If ((MM_rsCount Mod MM_size) > 0) Then ' last page not a full repeat region MM_offset = MM_rsCount - (MM_rsCount Mod MM_size) Else MM_offset = MM_rsCount - MM_size End If End If End If ' move the cursor to the selected record MM_index = 0 While ((Not MM_rs.EOF) And (MM_index < MM_offset Or MM_offset = -1)) MM_rs.MoveNext MM_index = MM_index + 1 Wend If (MM_rs.EOF) Then MM_offset = MM_index ' set MM_offset to the last possible record End IfEnd If%><%' *** Move To Record: if we dont know the record count, check the display rangeIf (MM_rsCount = -1) Then ' walk to the end of the display range for this page MM_index = MM_offset While (Not MM_rs.EOF And (MM_size < 0 Or MM_index < MM_offset + MM_size)) MM_rs.MoveNext MM_index = MM_index + 1 Wend ' if we walked off the end of the recordset, set MM_rsCount and MM_size If (MM_rs.EOF) Then MM_rsCount = MM_index If (MM_size < 0 Or MM_size > MM_rsCount) Then MM_size = MM_rsCount End If End If ' if we walked off the end, set the offset based on page size If (MM_rs.EOF And Not MM_paramIsDefined) Then If (MM_offset > MM_rsCount - MM_size Or MM_offset = -1) Then If ((MM_rsCount Mod MM_size) > 0) Then MM_offset = MM_rsCount - (MM_rsCount Mod MM_size) Else MM_offset = MM_rsCount - MM_size End If End If End If ' reset the cursor to the beginning If (MM_rs.CursorType > 0) Then MM_rs.MoveFirst Else MM_rs.Requery End If ' move the cursor to the selected record MM_index = 0 While (Not MM_rs.EOF And MM_index < MM_offset) MM_rs.MoveNext MM_index = MM_index + 1 WendEnd If%><%' *** Move To Record: update recordset stats' set the first and last displayed recordprotocolo_gerado_first = MM_offset + 1protocolo_gerado_last = MM_offset + MM_sizeIf (MM_rsCount <> -1) Then If (protocolo_gerado_first > MM_rsCount) Then protocolo_gerado_first = MM_rsCount End If If (protocolo_gerado_last > MM_rsCount) Then protocolo_gerado_last = MM_rsCount End IfEnd If' set the boolean used by hide region to check if we are on the last recordMM_atTotal = (MM_rsCount <> -1 And MM_offset + MM_size >= MM_rsCount)%><%' *** Go To Record and Move To Record: create strings for maintaining URL and Form parametersDim MM_keepNoneDim MM_keepURLDim MM_keepFormDim MM_keepBothDim MM_removeListDim MM_itemDim MM_nextItem' create the list of parameters which should not be maintainedMM_removeList = "&index="If (MM_paramName <> "") Then MM_removeList = MM_removeList & "&" & MM_paramName & "="End IfMM_keepURL=""MM_keepForm=""MM_keepBoth=""MM_keepNone=""' add the URL parameters to the MM_keepURL stringFor Each MM_item In Request.QueryString MM_nextItem = "&" & MM_item & "=" If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then MM_keepURL = MM_keepURL & MM_nextItem & Server.URLencode(Request.QueryString(MM_item)) End IfNext' add the Form variables to the MM_keepForm stringFor Each MM_item In Request.Form MM_nextItem = "&" & MM_item & "=" If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then MM_keepForm = MM_keepForm & MM_nextItem & Server.URLencode(Request.Form(MM_item)) End IfNext' create the Form + URL string and remove the intial '&' from each of the stringsMM_keepBoth = MM_keepURL & MM_keepFormIf (MM_keepBoth <> "") Then MM_keepBoth = Right(MM_keepBoth, Len(MM_keepBoth) - 1)End IfIf (MM_keepURL <> "") Then MM_keepURL = Right(MM_keepURL, Len(MM_keepURL) - 1)End IfIf (MM_keepForm <> "") Then MM_keepForm = Right(MM_keepForm, Len(MM_keepForm) - 1)End If' a utility function used for adding additional parameters to these stringsFunction MM_joinChar(firstItem) If (firstItem <> "") Then MM_joinChar = "&" Else MM_joinChar = "" End IfEnd Function%><%' *** Move To Record: set the strings for the first, last, next, and previous linksDim MM_keepMoveDim MM_moveParamDim MM_moveFirstDim MM_moveLastDim MM_moveNextDim MM_movePrevDim MM_urlStrDim MM_paramListDim MM_paramIndexDim MM_nextParamMM_keepMove = MM_keepBothMM_moveParam = "index"' if the page has a repeated region, remove 'offset' from the maintained parametersIf (MM_size > 1) Then MM_moveParam = "offset" If (MM_keepMove <> "") Then MM_paramList = Split(MM_keepMove, "&") MM_keepMove = "" For MM_paramIndex = 0 To UBound(MM_paramList) MM_nextParam = Left(MM_paramList(MM_paramIndex), InStr(MM_paramList(MM_paramIndex),"=") - 1) If (StrComp(MM_nextParam,MM_moveParam,1) <> 0) Then MM_keepMove = MM_keepMove & "&" & MM_paramList(MM_paramIndex) End If Next If (MM_keepMove <> "") Then MM_keepMove = Right(MM_keepMove, Len(MM_keepMove) - 1) End If End IfEnd If' set the strings for the move to linksIf (MM_keepMove <> "") Then MM_keepMove = Server.HTMLEncode(MM_keepMove) & "&"End IfMM_urlStr = Request.ServerVariables("URL") & "?" & MM_keepMove & MM_moveParam & "="MM_moveFirst = MM_urlStr & "0"MM_moveLast = MM_urlStr & "-1"MM_moveNext = MM_urlStr & CStr(MM_offset + MM_size)If (MM_offset - MM_size < 0) Then MM_movePrev = MM_urlStr & "0"Else MM_movePrev = MM_urlStr & CStr(MM_offset - MM_size)End If%><style type="text/css"><!--.style2 {font-size: 10px}.style3 { font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 12px;}.style4 { font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 10px;}--></style><table width="640" border="1" cellspacing="0" cellpadding="0"> <tr> <td colspan="3"><div align="center">PROTOCOLO</div></td> </tr> <tr> <td colspan="3"><span class="style2"> * Este protocolo foi gerado através de um sistema de banco de dados onde sempre hávera uma cópia no banco de dados da empresa com as informações contidas aqui. <br /> * Após sua execução o responsável deverá devolve-lo devidadente assinado. </span></td> </tr> <tr> <td width="178" align="right" valign="top" bordercolor="#000000">Protocolo numero: </td> <td width="230" align="left" valign="top" bordercolor="#000000"><%=(protocolo_gerado.Fields.Item("numero").Value)%></td> <td width="232" align="left" valign="top" bordercolor="#000000">Data: <%=(protocolo_gerado.Fields.Item("data").Value)%></td> </tr> <tr> <td align="right" valign="top" bordercolor="#000000"> </td> <td colspan="2" align="left" valign="top" bordercolor="#000000"> </td> </tr> <tr> <td align="right" valign="top" bordercolor="#000000">Remetente:</td> <td colspan="2" align="left" valign="top" bordercolor="#000000"><%=(protocolo_gerado.Fields.Item("remetente").Value)%></td> </tr> <tr> <td align="right" valign="top" bordercolor="#000000"> </td> <td colspan="2" align="left" valign="top" bordercolor="#000000"> </td> </tr> <tr> <td align="right" valign="top" bordercolor="#000000">Local para coleta do material:: </td> <td colspan="2" align="left" valign="top" bordercolor="#000000"><%=(protocolo_gerado.Fields.Item("coleta").Value)%></td> </tr> <tr> <td align="right" valign="top" bordercolor="#000000"> </td> <td colspan="2" align="left" valign="top" bordercolor="#000000"> </td> </tr> <tr> <td align="right" valign="top" bordercolor="#000000">Classificação : </td> <td colspan="2" align="left" valign="top" bordercolor="#000000">Este protocolo é <%=(protocolo_gerado.Fields.Item("classificacao").Value)%> </td> </tr> <tr> <td align="right" valign="top" bordercolor="#000000"> </td> <td colspan="2" align="left" valign="top" bordercolor="#000000"> </td> </tr> <tr> <td align="right" valign="top" bordercolor="#000000"> </td> <td colspan="2" align="left" valign="top" bordercolor="#000000"> </td> </tr> <tr> <td align="right" valign="top" bordercolor="#000000">Descrição do material: </td> <td colspan="2" align="left" valign="top" bordercolor="#000000"><%=(protocolo_gerado.Fields.Item("descricao").Value)%></td> </tr> <tr> <td align="right" valign="top" bordercolor="#000000"> </td> <td colspan="2" align="left" valign="top" bordercolor="#000000"> </td> </tr> <tr> <td align="right" valign="top" bordercolor="#000000"> </td> <td colspan="2" align="left" valign="top" bordercolor="#000000"><div align="justify">| </div></td> </tr> <tr> <td align="right" valign="top" bordercolor="#000000">Destino extra: </td> <td colspan="2" align="left" valign="top" bordercolor="#000000"><%=(protocolo_gerado.Fields.Item("destino").Value)%></td> </tr> <tr> <td align="right" valign="top" bordercolor="#000000"> </td> <td colspan="2" align="left" valign="top" bordercolor="#000000"> </td> </tr> <tr> <td align="right" valign="top" bordercolor="#000000"> </td> <td colspan="2" align="left" valign="top" bordercolor="#000000"><div align="center">Assinatura Responsável (loja):</div></td> </tr> <tr> <td align="right" valign="top" bordercolor="#000000">Loja 5 <%=(protocolo_gerado.Fields.Item("loja5").Value)%></td> <td colspan="2" align="left" valign="top" bordercolor="#000000"> </td> </tr> <tr> <td align="right" valign="top" bordercolor="#000000">Loja 6 <%=(protocolo_gerado.Fields.Item("loja6").Value)%></td> <td colspan="2" align="left" valign="top" bordercolor="#000000"> </td> </tr> <tr> <td align="right" valign="top" bordercolor="#000000">Loja 7 <%=(protocolo_gerado.Fields.Item("loja7").Value)%></td> <td colspan="2" align="left" valign="top" bordercolor="#000000"> </td> </tr> <tr> <td align="right" valign="top" bordercolor="#000000">Loja 8 <%=(protocolo_gerado.Fields.Item("loja8").Value)%></td> <td colspan="2" align="left" valign="top" bordercolor="#000000"> </td> </tr> <tr> <td align="right" valign="top" bordercolor="#000000">Loja 9 <%=(protocolo_gerado.Fields.Item("lojaq9").Value)%></td> <td colspan="2" align="left" valign="top" bordercolor="#000000"> </td> </tr> <tr> <td align="right" valign="top" bordercolor="#000000">Loja 10 <%=(protocolo_gerado.Fields.Item("loja10").Value)%></td> <td colspan="2" align="left" valign="top" bordercolor="#000000"> </td> </tr> <tr> <td align="right" valign="top" bordercolor="#000000">Loja 13 <%=(protocolo_gerado.Fields.Item("loja13").Value)%></td> <td colspan="2" align="left" valign="top" bordercolor="#000000"> </td> </tr> <tr> <td align="right" valign="top" bordercolor="#000000">Loja 14 <%=(protocolo_gerado.Fields.Item("loja14").Value)%></td> <td colspan="2" align="left" valign="top" bordercolor="#000000"> </td> </tr> <tr> <td align="right" valign="top" bordercolor="#000000">Loja 15 <%=(protocolo_gerado.Fields.Item("loja15").Value)%></td> <td colspan="2" align="left" valign="top" bordercolor="#000000"> </td> </tr> <tr> <td colspan="3" align="right" valign="top"><div align="left">Legenda:<span class="style3"><br />Se na classificação for igual a <strong>TRUE</strong> o protocolo é <strong>URGENTE</strong><br />Se na classificiação for igual a <strong>FALSE</strong> o protocolo é <strong>NORMAL</strong> <br /> Se nas lojas estiver <strong>"Loja5 TRUE"</strong> você deve <strong>"IR"</strong> até aquela loja<br />Se nas lojas estiver <strong>"Loja5 FALSE"</strong> você <strong>"NÃO PRECISA IR"</strong> até aquela loja.</span> <br /><br /></div></td> </tr> <tr> <td colspan="3" align="right" valign="top"><div align="center"> <iframe id="calendario_index" name="iframe00" src="http://estoque/protocolo/barras.asp" width="640" height="50" scrolling="No"></iframe> </div></td> </tr> <tr> <td colspan="3" align="right" valign="top"><span class="style4"><img src="img/linha.gif" alt="corte aqui." width="591" height="22" /></span></td> </tr> <tr> <td colspan="3" align="right" valign="top"><div align="center" class="style4">Navegando entre os protocolos<br /> <A HREF="<%=MM_moveLast%>">PRIMEIRO</A> | <A HREF="<%=MM_moveNext%>">ANTERIOR</A> | <A HREF="<%=MM_movePrev%>">PROXIMO</A> | <A HREF="<%=MM_moveFirst%>">ULTIMO</A><br /> Protocolos mostrados: <%=(protocolo_gerado_first)%> de <%=(protocolo_gerado_last)%>de um total de <%=(protocolo_gerado_total)%> protocolos registrados. <br /> |Clique <a href="index2.asp">aqui</a> para voltar a pagina inicial | Clique <a href="criar.asp">aqui</a> para voltar a gerar um protocolo | </div></td> </tr> <tr> <td align="right" valign="top"> </td> <td colspan="2"> </td> </tr></table><%protocolo_gerado.Close()Set protocolo_gerado = Nothing%>

[AMON-HÁ 0]

Taí... só consertei a classificaçãp do protocolo...

mas pra consertar a msg das lojas tb é a mesma lógica...

<%@LANGUAGE="VBSCRIPT"%><!--#include file="Connections/dsn_protocolos.asp" --><%Dim protocolo_geradoDim protocolo_gerado_numRowsSet protocolo_gerado = Server.CreateObject("ADODB.Recordset")protocolo_gerado.ActiveConnection = MM_dsn_protocolos_STRINGprotocolo_gerado.Source = "SELECT * FROM protocolo ORDER BY numero DESC"protocolo_gerado.CursorType = 0protocolo_gerado.CursorLocation = 2protocolo_gerado.LockType = 1protocolo_gerado.Open()protocolo_gerado_numRows = 0%><%' *** Recordset Stats, Move To Record, and Go To Record: declare stats variablesDim protocolo_gerado_totalDim protocolo_gerado_firstDim protocolo_gerado_last' set the record countprotocolo_gerado_total = protocolo_gerado.RecordCount' set the number of rows displayed on this pageIf (protocolo_gerado_numRows < 0) Thenprotocolo_gerado_numRows = protocolo_gerado_totalElseif (protocolo_gerado_numRows = 0) Thenprotocolo_gerado_numRows = 1End If' set the first and last displayed recordprotocolo_gerado_first = 1protocolo_gerado_last = protocolo_gerado_first + protocolo_gerado_numRows - 1' if we have the correct record count, check the other statsIf (protocolo_gerado_total <> -1) ThenIf (protocolo_gerado_first > protocolo_gerado_total) Thenprotocolo_gerado_first = protocolo_gerado_totalEnd IfIf (protocolo_gerado_last > protocolo_gerado_total) Thenprotocolo_gerado_last = protocolo_gerado_totalEnd IfIf (protocolo_gerado_numRows > protocolo_gerado_total) Thenprotocolo_gerado_numRows = protocolo_gerado_totalEnd IfEnd If%><%' *** Recordset Stats: if we don't know the record count, manually count themIf (protocolo_gerado_total = -1) Then' count the total records by iterating through the recordsetprotocolo_gerado_total=0While (Not protocolo_gerado.EOF)protocolo_gerado_total = protocolo_gerado_total + 1protocolo_gerado.MoveNextWend' reset the cursor to the beginningIf (protocolo_gerado.CursorType > 0) Thenprotocolo_gerado.MoveFirstElseprotocolo_gerado.RequeryEnd If' set the number of rows displayed on this pageIf (protocolo_gerado_numRows < 0 Or protocolo_gerado_numRows > protocolo_gerado_total) Thenprotocolo_gerado_numRows = protocolo_gerado_totalEnd If' set the first and last displayed recordprotocolo_gerado_first = 1protocolo_gerado_last = protocolo_gerado_first + protocolo_gerado_numRows - 1If (protocolo_gerado_first > protocolo_gerado_total) Thenprotocolo_gerado_first = protocolo_gerado_totalEnd IfIf (protocolo_gerado_last > protocolo_gerado_total) Thenprotocolo_gerado_last = protocolo_gerado_totalEnd IfEnd If%><%Dim MM_paramName %><%' *** Move To Record and Go To Record: declare variablesDim MM_rsDim MM_rsCountDim MM_sizeDim MM_uniqueColDim MM_offsetDim MM_atTotalDim MM_paramIsDefinedDim MM_paramDim MM_indexSet MM_rs = protocolo_geradoMM_rsCount = protocolo_gerado_totalMM_size = protocolo_gerado_numRowsMM_uniqueCol = ""MM_paramName = ""MM_offset = 0MM_atTotal = falseMM_paramIsDefined = falseIf (MM_paramName <> "") ThenMM_paramIsDefined = (Request.QueryString(MM_paramName) <> "")End If%><%' *** Move To Record: handle 'index' or 'offset' parameterif (Not MM_paramIsDefined And MM_rsCount <> 0) then' use index parameter if defined, otherwise use offset parameterMM_param = Request.QueryString("index")If (MM_param = "") ThenMM_param = Request.QueryString("offset")End IfIf (MM_param <> "") ThenMM_offset = Int(MM_param)End If' if we have a record count, check if we are past the end of the recordsetIf (MM_rsCount <> -1) ThenIf (MM_offset >= MM_rsCount Or MM_offset = -1) Then ' past end or move lastIf ((MM_rsCount Mod MM_size) > 0) Then ' last page not a full repeat regionMM_offset = MM_rsCount - (MM_rsCount Mod MM_size)ElseMM_offset = MM_rsCount - MM_sizeEnd IfEnd IfEnd If' move the cursor to the selected recordMM_index = 0While ((Not MM_rs.EOF) And (MM_index < MM_offset Or MM_offset = -1))MM_rs.MoveNextMM_index = MM_index + 1WendIf (MM_rs.EOF) Then MM_offset = MM_index ' set MM_offset to the last possible recordEnd IfEnd If%><%' *** Move To Record: if we dont know the record count, check the display rangeIf (MM_rsCount = -1) Then' walk to the end of the display range for this pageMM_index = MM_offsetWhile (Not MM_rs.EOF And (MM_size < 0 Or MM_index < MM_offset + MM_size))MM_rs.MoveNextMM_index = MM_index + 1Wend' if we walked off the end of the recordset, set MM_rsCount and MM_sizeIf (MM_rs.EOF) ThenMM_rsCount = MM_indexIf (MM_size < 0 Or MM_size > MM_rsCount) ThenMM_size = MM_rsCountEnd IfEnd If' if we walked off the end, set the offset based on page sizeIf (MM_rs.EOF And Not MM_paramIsDefined) ThenIf (MM_offset > MM_rsCount - MM_size Or MM_offset = -1) ThenIf ((MM_rsCount Mod MM_size) > 0) ThenMM_offset = MM_rsCount - (MM_rsCount Mod MM_size)ElseMM_offset = MM_rsCount - MM_sizeEnd IfEnd IfEnd If' reset the cursor to the beginningIf (MM_rs.CursorType > 0) ThenMM_rs.MoveFirstElseMM_rs.RequeryEnd If' move the cursor to the selected recordMM_index = 0While (Not MM_rs.EOF And MM_index < MM_offset)MM_rs.MoveNextMM_index = MM_index + 1WendEnd If%><%' *** Move To Record: update recordset stats' set the first and last displayed recordprotocolo_gerado_first = MM_offset + 1protocolo_gerado_last = MM_offset + MM_sizeIf (MM_rsCount <> -1) ThenIf (protocolo_gerado_first > MM_rsCount) Thenprotocolo_gerado_first = MM_rsCountEnd IfIf (protocolo_gerado_last > MM_rsCount) Thenprotocolo_gerado_last = MM_rsCountEnd IfEnd If' set the boolean used by hide region to check if we are on the last recordMM_atTotal = (MM_rsCount <> -1 And MM_offset + MM_size >= MM_rsCount)%><%' *** Go To Record and Move To Record: create strings for maintaining URL and Form parametersDim MM_keepNoneDim MM_keepURLDim MM_keepFormDim MM_keepBothDim MM_removeListDim MM_itemDim MM_nextItem' create the list of parameters which should not be maintainedMM_removeList = "&index="If (MM_paramName <> "") ThenMM_removeList = MM_removeList & "&" & MM_paramName & "="End IfMM_keepURL=""MM_keepForm=""MM_keepBoth=""MM_keepNone=""' add the URL parameters to the MM_keepURL stringFor Each MM_item In Request.QueryStringMM_nextItem = "&" & MM_item & "="If (InStr(1,MM_removeList,MM_nextItem,1) = 0) ThenMM_keepURL = MM_keepURL & MM_nextItem & Server.URLencode(Request.QueryString(MM_item))End IfNext' add the Form variables to the MM_keepForm stringFor Each MM_item In Request.FormMM_nextItem = "&" & MM_item & "="If (InStr(1,MM_removeList,MM_nextItem,1) = 0) ThenMM_keepForm = MM_keepForm & MM_nextItem & Server.URLencode(Request.Form(MM_item))End IfNext' create the Form + URL string and remove the intial '&' from each of the stringsMM_keepBoth = MM_keepURL & MM_keepFormIf (MM_keepBoth <> "") Then MM_keepBoth = Right(MM_keepBoth, Len(MM_keepBoth) - 1)End IfIf (MM_keepURL <> "") ThenMM_keepURL = Right(MM_keepURL, Len(MM_keepURL) - 1)End IfIf (MM_keepForm <> "") ThenMM_keepForm = Right(MM_keepForm, Len(MM_keepForm) - 1)End If' a utility function used for adding additional parameters to these stringsFunction MM_joinChar(firstItem)If (firstItem <> "") ThenMM_joinChar = "&"ElseMM_joinChar = ""End IfEnd Function%><%' *** Move To Record: set the strings for the first, last, next, and previous linksDim MM_keepMoveDim MM_moveParamDim MM_moveFirstDim MM_moveLastDim MM_moveNextDim MM_movePrevDim MM_urlStrDim MM_paramListDim MM_paramIndexDim MM_nextParamMM_keepMove = MM_keepBothMM_moveParam = "index"' if the page has a repeated region, remove 'offset' from the maintained parametersIf (MM_size > 1) ThenMM_moveParam = "offset"If (MM_keepMove <> "") ThenMM_paramList = Split(MM_keepMove, "&")MM_keepMove = ""For MM_paramIndex = 0 To UBound(MM_paramList)MM_nextParam = Left(MM_paramList(MM_paramIndex), InStr(MM_paramList(MM_paramIndex),"=") - 1)If (StrComp(MM_nextParam,MM_moveParam,1) <> 0) ThenMM_keepMove = MM_keepMove & "&" & MM_paramList(MM_paramIndex)End IfNextIf (MM_keepMove <> "") ThenMM_keepMove = Right(MM_keepMove, Len(MM_keepMove) - 1)End IfEnd IfEnd If' set the strings for the move to linksIf (MM_keepMove <> "") Then MM_keepMove = Server.HTMLEncode(MM_keepMove) & "&"End IfMM_urlStr = Request.ServerVariables("URL") & "?" & MM_keepMove & MM_moveParam & "="MM_moveFirst = MM_urlStr & "0"MM_moveLast = MM_urlStr & "-1"MM_moveNext = MM_urlStr & CStr(MM_offset + MM_size)If (MM_offset - MM_size < 0) ThenMM_movePrev = MM_urlStr & "0"ElseMM_movePrev = MM_urlStr & CStr(MM_offset - MM_size)End If%><style type="text/css"><!--.style2 {font-size: 10px}.style3 {font-family: Verdana, Arial, Helvetica, sans-serif;font-size: 12px;}.style4 {font-family: Verdana, Arial, Helvetica, sans-serif;font-size: 10px;}--></style><table width="640" border="1" cellspacing="0" cellpadding="0"><tr><td colspan="3"><div align="center">PROTOCOLO</div></td></tr><tr><td colspan="3"><span class="style2"> * Este protocolo foi gerado através de um sistema de banco de dados onde sempre hávera uma cópia no banco de dados da empresa com as informações contidas aqui. <br />* Após sua execução o responsável deverá devolve-lo devidadente assinado. </span></td></tr><tr><td width="178" align="right" valign="top" bordercolor="#000000">Protocolo numero: </td><td width="230" align="left" valign="top" bordercolor="#000000"><%=(protocolo_gerado.Fields.Item("numero").Value)%> </td><td width="232" align="left" valign="top" bordercolor="#000000">Data: <%=(protocolo_gerado.Fields.Item("data").Value)%></td></tr><tr><td align="right" valign="top" bordercolor="#000000"> </td><td colspan="2" align="left" valign="top" bordercolor="#000000"> </td></tr><tr><td align="right" valign="top" bordercolor="#000000">Remetente:</td><td colspan="2" align="left" valign="top" bordercolor="#000000"><%=(protocolo_gerado.Fields.Item("remetente").Value)%> </td></tr><tr><td align="right" valign="top" bordercolor="#000000"> </td><td colspan="2" align="left" valign="top" bordercolor="#000000"> </td></tr><tr><td align="right" valign="top" bordercolor="#000000">Local para coleta do material:: </td><td colspan="2" align="left" valign="top" bordercolor="#000000"><%=(protocolo_gerado.Fields.Item("coleta").Value)%> </td></tr><tr><td align="right" valign="top" bordercolor="#000000"> </td><td colspan="2" align="left" valign="top" bordercolor="#000000"> </td></tr><%Dim strMsgIf protocolo_gerado.Fields.Item("classificacao").Value) = TRUE Then	strMsg = "URGENTE"Else	strMsg = "NORMAL"End If%><tr><td align="right" valign="top" bordercolor="#000000">Classificação : </td><td colspan="2" align="left" valign="top" bordercolor="#000000">Este protocolo é <%=strMsg%> </td></tr><tr><td align="right" valign="top" bordercolor="#000000"> </td><td colspan="2" align="left" valign="top" bordercolor="#000000"> </td></tr><tr><td align="right" valign="top" bordercolor="#000000"> </td><td colspan="2" align="left" valign="top" bordercolor="#000000"> </td></tr><tr><td align="right" valign="top" bordercolor="#000000">Descrição do material: </td><td colspan="2" align="left" valign="top" bordercolor="#000000"><%=(protocolo_gerado.Fields.Item("descricao").Value)%> </td></tr><tr><td align="right" valign="top" bordercolor="#000000"> </td><td colspan="2" align="left" valign="top" bordercolor="#000000"> </td></tr><tr><td align="right" valign="top" bordercolor="#000000"> </td><td colspan="2" align="left" valign="top" bordercolor="#000000"><div align="justify">| </div></td></tr><tr><td align="right" valign="top" bordercolor="#000000">Destino extra: </td><td colspan="2" align="left" valign="top" bordercolor="#000000"><%=(protocolo_gerado.Fields.Item("destino").Value)%> </td></tr><tr><td align="right" valign="top" bordercolor="#000000"> </td><td colspan="2" align="left" valign="top" bordercolor="#000000"> </td></tr><tr><td align="right" valign="top" bordercolor="#000000"> </td><td colspan="2" align="left" valign="top" bordercolor="#000000"><div align="center">Assinatura Responsável (loja):</div></td></tr><tr><td align="right" valign="top" bordercolor="#000000">Loja 5 <%=(protocolo_gerado.Fields.Item("loja5").Value)%></td><td colspan="2" align="left" valign="top" bordercolor="#000000"> </td></tr><tr><td align="right" valign="top" bordercolor="#000000">Loja 6 <%=(protocolo_gerado.Fields.Item("loja6").Value)%></td><td colspan="2" align="left" valign="top" bordercolor="#000000"> </td></tr><tr><td align="right" valign="top" bordercolor="#000000">Loja 7 <%=(protocolo_gerado.Fields.Item("loja7").Value)%></td><td colspan="2" align="left" valign="top" bordercolor="#000000"> </td></tr><tr><td align="right" valign="top" bordercolor="#000000">Loja 8 <%=(protocolo_gerado.Fields.Item("loja8").Value)%></td><td colspan="2" align="left" valign="top" bordercolor="#000000"> </td></tr><tr><td align="right" valign="top" bordercolor="#000000">Loja 9 <%=(protocolo_gerado.Fields.Item("lojaq9").Value)%></td><td colspan="2" align="left" valign="top" bordercolor="#000000"> </td></tr><tr><td align="right" valign="top" bordercolor="#000000">Loja 10 <%=(protocolo_gerado.Fields.Item("loja10").Value)%></td><td colspan="2" align="left" valign="top" bordercolor="#000000"> </td></tr><tr><td align="right" valign="top" bordercolor="#000000">Loja 13 <%=(protocolo_gerado.Fields.Item("loja13").Value)%></td><td colspan="2" align="left" valign="top" bordercolor="#000000"> </td></tr><tr><td align="right" valign="top" bordercolor="#000000">Loja 14 <%=(protocolo_gerado.Fields.Item("loja14").Value)%></td><td colspan="2" align="left" valign="top" bordercolor="#000000"> </td></tr><tr><td align="right" valign="top" bordercolor="#000000">Loja 15 <%=(protocolo_gerado.Fields.Item("loja15").Value)%></td><td colspan="2" align="left" valign="top" bordercolor="#000000"> </td></tr><tr><td colspan="3" align="right" valign="top"><div align="left">Legenda:<span class="style3"><br />Se na classificação for igual a <strong>TRUE</strong> o protocolo é <strong>URGENTE</strong><br />Se na classificiação for igual a <strong>FALSE</strong> o protocolo é <strong>NORMAL</strong> <br />Se nas lojas estiver <strong>"Loja5 TRUE"</strong> você deve <strong>"IR"</strong> até aquela loja<br />Se nas lojas estiver <strong>"Loja5 FALSE"</strong> você <strong>"NÃO PRECISA IR"</strong> até aquela loja.</span> <br /><br /></div></td></tr><tr><td colspan="3" align="right" valign="top"><div align="center"><iframe id="calendario_index" name="iframe00" src="http://estoque/protocolo/barras.asp" width="640" height="50" scrolling="No"></iframe></div></td></tr><tr><td colspan="3" align="right" valign="top"><span class="style4"><img src="img/linha.gif" alt="corte aqui." width="591" height="22" /></span></td></tr><tr><td colspan="3" align="right" valign="top"><div align="center" class="style4">Navegando entre os protocolos<br /><A HREF="<%=MM_moveLast%>">PRIMEIRO</A> | <A HREF="<%=MM_moveNext%>">ANTERIOR</A> | <A HREF="<%=MM_movePrev%>">PROXIMO</A> | <A HREF="<%=MM_moveFirst%>">ULTIMO</A><br />Protocolos mostrados: <%=(protocolo_gerado_first)%> de <%=(protocolo_gerado_last)%>de um total de <%=(protocolo_gerado_total)%> protocolos registrados. <br />|Clique <a href="index2.asp">aqui</a> para voltar a pagina inicial | Clique <a href="criar.asp">aqui</a> para voltar a gerar um protocolo | </div></td></tr><tr><td align="right" valign="top"> </td><td colspan="2"> </td></tr></table><%protocolo_gerado.Close()Set protocolo_gerado = Nothing%>

 

espero ter ajudado http://forum.imasters.com.br/public/style_emoticons/default/bye1.gif

[spriggan 0]

Esta dando erro, O codigo:

<%Dim strMsgIf protocolo_gerado.Fields.Item("classificacao").Value) = TRUE Then strMsg = "URGENTE"Else strMsg = "NORMAL"End If%>

O navegador:

Tipo de erro:Erro de compilação do Microsoft VBScript (0x800A03F9)'Then' esperado/protocolo/ler.asp, line 378, column 54If protocolo_gerado.Fields.Item("classificacao").Value) = TRUE Then

Onde esta o erro?

[AMON-HÁ 0]

hehehe... foi mal.... :P

tem um parentese a mais...

 

coloca esse no lugar...

<%Dim strMsgIf (protocolo_gerado.Fields.Item("classificacao").Value) = TRUE ThenstrMsg = "URGENTE"ElsestrMsg = "NORMAL"End If%>

ou esse

<%Dim strMsgIf protocolo_gerado.Fields.Item("classificacao").Value = TRUE ThenstrMsg = "URGENTE"ElsestrMsg = "NORMAL"End If%>

[spriggan 0]

Vlw resolveu o problema.... obrigado.!!!