Help
Posted 22 April 2006 - 02:52 AM
É um sistema para um site de acupuntura chinesa, então você escolhe uma área da orelha na primeira lista, aí na segunda lista é habilitado os pontos referentes aquela área, que por sua vez os campos "definicao", "localizacao", "funcao" e "diagnostico" do ponto correspondente. O problema está no seguinte, eu quero poder alterar alguma informação em um certo ponto, mas ele está dando erro.
link do meu sistema: link do sistema
aqui abaixo está o erro:
Microsoft JET Database Engine error '80040e10'
No value given for one or more required parameters.
/projeto/formulario-atualiza.asp, line 64
VOU REPRESENTAR A LINHA 64 COM ******
CODE
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<html>
<head>
<% Sub inserir
definicao = request.Form("definicao")
localizacao = request.Form("localizacao")
funcao = request.Form("funcao")
diagnostico = request.Form("diagnostico")
atualiza = "Insert into orelha (definicao,localizacao,funcao,diagnostico) values ('"&definicao&"', '"&localizacao&"','"&funcao&"','"&diagnostico&"')"
con.execute(atualiza)
msg = "Cliente cadastrado com sucesso!"
response.Write("<script language = 'javascript'>")
response.Write("alert('" & msg &"');")
response.Write("</script>")
end sub
%>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body>
<%
caminho = Server.MapPath("banco.mdb")
data_source = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & caminho
Set Con = server.createobject("adodb.connection")
con.cursorlocation = 3
con.Open data_source
id=request("id")
nome=request("nome")
ponto = request("ponto")
sql = "select * from pontos"
set rs = con.execute(sql)
%>
<form method="get" name="form1">
<strong><font size="1" face="Verdana, Arial, Helvetica, sans-serif">Ponto:</font></strong>
<p>
<select name="id" onchange="window.navigate('formulario-atualiza.asp?id='+form1.id.value)">
<option value="SELECIONE" selected>Selecione a Área</option>
<% while not rs.eof %>
<option value="<%=rs("id")%>">
<%=rs("id")%> </option>
<%
rs.movenext
wend %>
</select>
<%
if id = "" then
%>
<p><strong><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><br>
Nome:</font></strong></p>
<select name="nome" id="nome">
<option value="SELECIONE" selected>Selecione o Ponto</option>
</select> <% else
sqlcid = "select nome from orelha where ponto = "&id&""
*******set rs1 = con.execute(sqlcid)
%>
<p><strong><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><br>
Nome:<br>
</font></strong>
<select name="nome" onchange="window.navigate('formulario-atualiza.asp?nome='+form1.nome.value)">
<option value="Selecione o Ponto" selected>Selecione o Ponto</option>
<% while not rs1.eof%>
<option value="<%=rs1("nome")%>"><%=rs1("nome")%></option>
<% rs1.movenext
wend%>
<% end if %>
</select>
<%
if nome = "" then
%>
<p><font size="1" face="verdana"><strong>Definição:</strong></font>
<p>
<input name="definicao" type="text" id="definicao">
<p><font size="1" face="verdana"><strong>Localização:</strong></font>
<p>
<textarea name="localizacao" cols="50" rows="10" id="localizacao"></textarea>
<p><font size="1" face="verdana"><strong>Função:</strong></font>
<p> <font face="verdana"> <font size="1">
<textarea name="funcao" cols="50" rows="10" id="funcao"></textarea>
</font></font>
<p><strong><font size="1" face="verdana">Diagnóstico:</font></strong>
<p>
<textarea name="diagnostico" cols="50" rows="10" id="diagnostico"></textarea>
<% else
consulta="select definicao from orelha where nome='"&nome&"'"
set def = con.execute(consulta)
consulta2="select localizacao from orelha where nome='"&nome&"'"
set loc = con.execute(consulta2)
consulta3="select funcao from orelha where nome='"&nome&"'"
set fun=con.execute(consulta3)
consulta4="select diagnostico from orelha where nome='"&nome&"'"
set dia=con.execute(consulta4)
%>
<p><font size="1" face="verdana"><strong>Definição:</strong></font>
<p><strong><font size="1" face="verdana">
<input name="definicao" type="text" id="definicao" value="<%=def("definicao")%>">
</font></strong>
<p><strong><font size="1" face="verdana">Localização:</font></strong>
<p><strong><font size="1" face="verdana">
<textarea name="localizacao" cols="50" rows="10" id="localizacao"><%=loc("localizacao")%></textarea>
</font></strong>
<br>
<strong><font size="1" face="verdana">Função:</font></strong>
<br>
<textarea name="funcao" cols="50" rows="10" id="funcao"><%=fun("funcao")%></textarea>
<p><strong><font size="1" face="Verdana, Arial, Helvetica, sans-serif"> Diagnóstico:</font></strong></p>
<textarea name="diagnostico" cols="50" rows="10" id="diagnostico"><%=dia("diagnostico")%></textarea>
<br>
<input type="submit" name="Submit" value="altera" >
<%end if%>
<% if request.Form("Submit")="altera" then
Call inserir()
%>
<%end if%>
</form>
</body>
</html>
