Problemas menu select

[ricardo coelho designer 0]

Como vão pessoal, mais uma vez estou aqui... no codigo abaixo tenho um menu select... bom o problema é o seguinte:

- Quando visualizo e me mostra um o nome "corrida 2007 " até ai tudo bem... mas quando mando atualizar só cadastra corrida, ou seja, quando tem mais de 2 palavras ele só deixa uma.

 

Bom segue o código abaixo... Agradeço desde já a ajuda de vcs.

 

<td><% Evento = OBJRS("EVENTO")%><select size="1" name="evento" class="formulario"><%Sub AbreConexao()strCon = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=C:\Inetpub\wwwroot\AccessAdmin\sistemaEXTRANETPRATIKE\paginas\ADMGERAL\dados\pratike.mdb"Set Conexao = Server.CreateObject("ADODB.Connection")Conexao.Open strConEnd SubSub FechaConexao()Conexao.CloseSet Conexao = NothingEnd SubFunction FechaRs(NomeRs)End functionCall AbreConexao()Set Rs2 = Conexao.Execute("Select * From LISTANOMEEVENTO order by id")Do While Not Rs2.eofIf Evento = Rs2("evento") ThenResponse.Write "<option value=" & Rs2("evento") & " selected>" & Rs2("evento") & "</option>" & vbCrlfElseResponse.Write "<option value=" & Rs2("evento") & ">" & Rs2("evento") & "</option>" & vbCrlfEnd IfRs2.MovenextLoopFechaRs(Rs2)%></select></td>

[Ted k' 126]

onde está seu codigo de cadastramento?

[ricardo coelho designer 0]

Na verdade é uma pagina de atualização

 

Mas segue abaixo o codigo completo

 

<!--#include file="restrito-conexao.asp" --><!--#include file="restrito-cookie.asp" --><%Function EscreveFuncaoJavaScript ( Conexao )Response.Write "<script language=""JavaScript"">" & vb script:history.back(-1)">Volta</a></font></div><%else%><br><table width="500"><tr><td><form name="empresa" method="post" action="ENVIOPROJETO-atualizar-BD.asp?atualizar=<%= OBJRS("idenviodeprojeto")%>"><font face="Verdana, Arial" color="#0066CC" size="2">Nome do projeto:</font></td><td><% Evento = OBJRS("EVENTO")%><select size="1" name="evento"><%Sub AbreConexao()strCon = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=C:\Inetpub\wwwroot\AccessAdmin\sistemaEXTRANETPRATIKE\paginas\ADMGERAL\dados\pratike.mdb"Set Conexao = Server.CreateObject("ADODB.Connection")Conexao.Open strConEnd SubSub FechaConexao()Conexao.CloseSet Conexao = NothingEnd SubFunction FechaRs(NomeRs)End functionCall AbreConexao()Set Rs2 = Conexao.Execute("Select * From LISTANOMEEVENTO order by id")Do While Not Rs2.eofIf Evento = Rs2("evento") ThenResponse.Write "<option value=" & Rs2("evento") & " selected>" & Rs2("evento") & "</option>" & vb script:atualizacarros(this.form);" class="Formulario"><% While NOT Rs.EoF %><%If tipo = Rs("tipo") ThenResponse.Write "<option value=" & Rs("tipo") & " selected>" & Rs("tipo") & "</option>" & vbCrlfElseResponse.Write "<option value=" & Rs("tipo") & ">" & Rs("tipo") & "</option>" & vbCrlfEnd If%><% Rs.MoveNext %><% Wend %></select><br><Tr><td><% instituicao = OBJRS("instituicao")%><font face="Verdana, Arial" color="#0066CC" size="2">Instituição:</font></td><td><select name="instituicao"  class="Formulario"></select> <br><%Rs.CloseSet Rs = NothingConexao.CloseSet Conexao = Nothing%></td><Tr><td><font face="Verdana, Arial" color="#0066CC" size="2">Responsável por patrocínio:</font></td><td><input name="responsavelpatrocinio" type="text" size="50" maxlength="100" class="Formulario" value="<%= OBJRS("responsavelpatrocinio")%>"></td><Tr><td><font face="Verdana, Arial" color="#0066CC" size="2">Cargo:</font></td><td><input name="Cargo" type="text" size="50" maxlength="100" class="Formulario" value="<%= OBJRS("Cargo")%>"></td><Tr><td><font face="Verdana, Arial" color="#0066CC" size="2">E-mail:</font></td><td><input name="Email" type="text" size="50" maxlength="100" class="Formulario" value="<%= OBJRS("Email")%>"></td><Tr><td><font face="Verdana, Arial" color="#0066CC" size="2">Telefone:</font></td><td><input name="DDD" type="text" size="1" maxlength="2" class="Formulario" value="<%= OBJRS("DDD")%>" onkeypress="return txtBoxFormat(document.empresa, 'DDD', '99', event);"> <input name="Telefone" type="text" class="Formulario"  value="<%= OBJRS("Telefone")%>" id="Telefone" size="11" maxlength="9" onkeypress="return txtBoxFormat(document.empresa, 'Telefone', '9999-9999', event);"></td><Tr><td><font face="Verdana, Arial" color="#0066CC" size="2">Follow-up:</font></td><td><input name="followup" type="text" class="Formulario"  value="<%= OBJRS("followup")%>" id="followup" size="11" maxlength="9" onkeypress="return txtBoxFormat(document.empresa, 'followup', '99/9/99', event);"></td><Tr><td><font face="Verdana, Arial" color="#0066CC" size="2">Sinalizou enteresse:</font></td><td><%if objRS("interesse") = FALSE theninteresse = ""elseinteresse = "checked"end if%><input name="interesse" type="checkbox" id="interesse" value="interesse"<%=interesse%>></td><Tr><td><font face="Verdana, Arial" color="#0066CC" size="2">Histórico:</font></td><td><textarea name="historico" cols="60" rows="5" class="Formulario" id="historico" value="<%= OBJRS("historico")%>"><%=OBJRS("historico")%></textarea></td><Tr><td></td><td><input name="usuarioATUAL" type="hidden" id="usuarioATUAL" value="<%= request.cookies("access")("usuario")%>"><input name="idenviodeprojeto" type="hidden" id="idenviodeprojeto" value="<%= OBJRS("idenviodeprojeto")%>">														 <input name="Atualizar" type="submit" id="Atualizar" value="Atualizar" class="Formulario"><br></form></td></tr></table><%End if%> <%End if%></form><table width="450" ><tr bgcolor="#0066CC" align="center"><td><font face="Verdana, Arial" color="#FFFFFF" size="2"> Tipo:</font></td></tr>	  <%sub abre_conexaoset conexao = CreateObject("ADODB.Connection")Conexao.Open "DBQ=C:\Inetpub\wwwroot\AccessAdmin\sistemaEXTRANETPRATIKE\paginas\ADMGERAL\dados\pratike.mdb;Driver={Microsoft Access Driver (*.mdb)}"end subsub fecha_conexaoConexao.closeSet Conexao = nothingend subcall abre_conexaosql = "select * from ENVIOPROJETO order by idenviodeprojeto"set tab = conexao.execute(sql)%>	  <% while not tab.eof %>	  <%if backcolor = "#EAEAEA" thenbackcolor = "#F2F2F2"elsebackcolor = "#EAEAEA"end if%><form name="atualizar" method="post" action="ENVIOPROJETO-atualizar-form.asp"><tr style="background-color:<%=backcolor%>"><td align="right"><font face="Verdana, Arial" color="#0066CC" size="2"> <%= tab("INSTITUICAO")%>><font face="Verdana, Arial" color="#FF0000" size="2"><b><%data1 = date()data2 = tab("followup")fdata = DateDiff("d", data1, data2)response.write "" & fdata & " dias para o Follow-up"%>  <b>	</font> |<input name="idenviodeprojeto" type="hidden" id="idenviodeprojeto" value="<%= tab("idenviodeprojeto")%>"> <input name="atualizar" type="submit" id="atualizar" value="atualizar" class="Formulario"> | <a href="ENVIOPROJETO.asp?Excluir=<%= tab("INSTITUICAO")%>">Excluir</a> </form></div><%if request.querystring ("excluir") = tab("INSTITUICAO") then%><div align="center"> <br> Tem certeza que deseja excluir <font face="Verdana, Arial" color="#FF0000" size="2"> <b><%= tab("INSTITUICAO")%></b></font>? <br><br><a href="ENVIOPROJETO-atualizar-form-BD.asp?Excluir=<%= tab("idenviodeprojeto")%>">Sim</a> - <a href="ENVIOPROJETO.asp">Não</a> </div><%end if%><%tab.movenextwend%></font></td></tr></table><br></td></table></td></tr><tr><td class="menu"><!--#include file="menu.asp"--></td></tr><tr><td class="base"><img src="imagem/adm_inferior.jpg" width="750" height="161"></td></tr></table></td></tr></table></td></tr></table></body></html>

[explore 3]

não entendi sua duvida!

[Salgado 4]

O problema é que a Tag HTML do seu Option deve conter o deliminator em seu value (falta aspas ou aspas simples), a correção em um dos dados ficaria assim:

Response.Write "<option value=""" & Rs2("evento") & """ selected>" & Rs2("evento") & "</option>" & vbCrlf

Com isso a aspa irá aparecer no HTML final e o caractere espaço será preservado em seu Update.