Ir para conteúdo

POWERED BY:

Arquivado

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

lloopp

problema!!!!

Por , em ASP Clássico

Recommended Posts

lloopp    0

lloopp
Postado

então é o seguinte... tenho um formulário:

 

<html>

<HEAD>

<TITLE>APAGAR INFORMAÇÃO</TITLE>

<style type="text/css">

<!--

body {

background-color: #009999;

}

.style1 {

font-family: "Arial Narrow";

font-size: 20px;

color: #006666;

}

.style2 {font-family: "Arial Narrow"}

.style4 {font-family: "Arial Narrow"; font-size: 14px; }

-->

</style>

</HEAD>

<body>

<%

'Instanciamos e abrimos nosso objeto conexao

Set Conn = Server.CreateObject("ADODB.Connection")

Conn.Open "DSN=gaiebd"

 

'Criamos a sentença SQL e a executamos

sSQL="Select * From principal"

set RS = conn.execute(sSQL)

%>

<div align="center">

<p class="style1"> Dados da Avaria:</p>

<form name="form1" method="post" action="avarias2.asp">

<table width="735" border="0">

<tr>

<td width="154"><div align="right"><span class="style2">Utilizador:*</span></div></td>

<td width="571">

<select name="utilizador">

<option></option>

<%

'Geramos o menu desdobravel

Do While not RS.eof%>

<option value=<%=RS("utilizador")%>><%=RS("utilizador")%>

<%RS.movenext

Loop

Conn.Close

%>

</select>

</td>

</tr>

<tr>

<td><div align="right"><span class="style2">Escola:*</span></div></td>

<td>

<%

'Instanciamos e abrimos nosso objeto conexao

Set Conn = Server.CreateObject("ADODB.Connection")

Conn.Open "DSN=gaiebd"

 

'Criamos a sentença SQL e a executamos

sSQL="Select * From principal"

set RS = conn.execute(sSQL)

%>

<select name="escola">

<option></option>

<%

'Geramos o menu desdobravel

Do While not RS.eof%>

<option value=<%=RS("NomedaEscola")%>><%=RS("NomedaEscola")%>

<%RS.movenext

Loop

Conn.Close

%></select>

</td>

</tr>

<tr>

<td><div align="right"><span class="style2">Avaria:*</span></div></td>

<td><textarea name="avaria" cols="80" rows="10" id="avaria"></textarea>

</td>

</tr>

<tr>

<td><div align="right" class="style2">Data:*</div></td>

<td><input name="data" type="text" id="data" size="25">

<span class="style4">(Exemplo: 01-01-2005) </span></td>

</tr>

<tr>

<td><div align="right"><span class="style2">Comunicado:</span></div></td>

<td><input name="comunicado" type="text" id="comunicado" size="84"></td>

</tr>

</table>

<p align="center">

<input type="submit" name="Submit" value="Enviar Dados">

</p>

</form>

<p class="style2"><a href="login2.html">Ver as avarias (administradores apenas)</a></p>

<p><span class="style2">* Preenchimento obrigatório </span> </p>

</div>

</body>

</html>

 

depois grava no BD:

 

<HTML>

<HEAD>

<TITLE>Inserir Nova Noticia</TITLE>

<style type="text/css">

<!--

.style1 {

font-family: "Arial Narrow";

font-size: 20px;

color: #006666;

}

body {

background-color: #009999;

}

-->

</style>

<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">

</HEAD>

<BODY>

 

<%

'Recolhemos os valores do formulário

utilizador=Request.Form("utilizador")

escola=Request.Form("escola")

avaria=Request.Form("avaria")

data=Request.Form("data")

comunicado=Request.Form("comunicado")

 

'Instanciamos e abrimos nosso objeto conexão

Set Conn = Server.CreateObject("ADODB.Connection")

Conn.Open "DSN=avarias"

 

'validação

if Request.Form("utilizador") = "" or Request.Form("escola") = "" or Request.Form("avaria") = "" or Request.Form("data") = "" then

 

response.Redirect("avarias1.asp")

 

else

 

'Agora criamos a sentença SQL

sSQL="Insert Into avarias (utilizador,escola,avaria,data,comunicado) values ('" & utilizador & "' , '" & escola & "', '" & avaria & "', '" & data & "', '" & comunicado & "')"

 

 

'Executamos a ordem

set RS = Conn.Execute(sSQL)

'validação

%>

<h1><div align="center" class="style1">Avaria inserida com sucesso</div>

<%

end if

%>

 

 

</h1>

<div align="center"><a href="avarias1.asp">Visualizar Formulário de Avarias</a></div>

 

<%

'Fechamos o sistema de conexão

Conn.Close

%>

 

</BODY>

</HTML>

 

está tudo a funcionar, tudo menos o campo escola que só guarda a primeira palavra... depois nao grava mais nada.... qual será o problema???

O que será quando grava apenas a primeira palavra do form escola?

O utilizador e a escola saiem de uma listbox...

 

se alguem puder ajudar... http://forum.imasters.com.br/public/style_emoticons/default/blush.gif

Compartilhar este post

Link para o post
Compartilhar em outros sites

Luizgrs    0

Luizgrs
Postado

Nessa parte:

ASP

[*]<%

 

[*]'Geramos o menu desdobravel

 

[*]Do While not RS.eof%>

 

[*]<option value=<%=RS("NomedaEscola")%>><%=RS("NomedaEscola")%>

 

[*]<%RS.movenext

 

[*]Loop

 

[*]Conn.Close

 

[*]%>

 

Coloca assim:

ASP

[*]<%

 

[*]'Geramos o menu desdobravel

 

[*]Do While not RS.eof%>

 

[*]<option value="<%=RS("NomedaEscola")%>"><%=RS("NomedaEscola")%>

 

[*]<%RS.movenext

 

[*]Loop

 

[*]Conn.Close

 

[*]%>

Pois como o value tava sem aspas só era considerado a primeira palavra pois os espaços tb servem para separar as propriedades das tags.

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