[Resolvido] erro de string

razstec · Novembro 28, 2010

Viva, estou mesmo a terminar um projecto e estou com um entrave algo estranho, quando envio por link o nome da pagina com o nome da tabela ele da-me erro no select, este codigo funciona noutras paginas mas nesta parece nao estar a dar.

Já verifiquei a string e ele recebe o nome da tabela certo mas na altura de fazer o select da-me erro do FROM, ainda pensei que o termo tbl fosse proibido mas experimentei outros e continua, alguma ideia do que se passara?

<%
Session.TimeOut = 30
If Session("username") = "" Then
Response.Redirect "welcome.asp"
End If 
%>
<html>

<head>
<form name="view" action="ins.asp?cod=0&pos=0" method="POST">
<form name="insdoenca" method="POST" id="insdoenca" color="#FFFFFF">
<script language="JavaScript">
<!--
function FP_goToURL(url) {//v1.0
 window.location=url;
}
// -->
</script>
</head>


<body bgcolor="#336699" text="#000000">

<div align="center">

<a href="javascript:history.go(-1)">
<img border="0" href="images/back.png" width="25" height="17" src="images/back.png"></a><table border="0" width="592" cellspacing="0" cellpadding="0" style="border-style: double; ">
	<tr>
		<td align="right" width="68"><font face="Verdana" size="1">Titulo:</font></td>
		<td width="469">
<font face="Verdana" size="1">
<input type="text" name="titulo" id="titulo" size="72" style="border: 3px double #C0C0C0; font-family:Verdana; font-size:8pt"></font><font color="#FF0000" face="Verdana" size="1">*</font><font size="1" face="Verdana">  </font></td>
		<td width="49">
 </td>
	</tr>
	<tr>
		<td align="right" width="68" height="21"><font face="Verdana" size="1">Imagem1:</font></td>
		<td width="469" height="21">
<font size="1" face="Verdana">
<input type="text" name="imagem1" id="imagem1" size="72" style="border: 3px double #C0C0C0; font-family:Verdana; font-size:8pt"></font><font color="#FF0000" face="Verdana"><a target="_blank" href="help.htm"><font color="#FF0000">?</font></a></font><font color="#FF0000" face="Verdana" size="1">  </font></td>
		<td width="49" height="21">
 </td>
	</tr>
	<tr>
		<td align="right" width="68" height="21"><font face="Verdana" size="1">Imagem2:</font></td>
		<td width="469" height="21">
<font size="1" face="Verdana">
<input type="text" name="imagem2" id="imagem2" size="72" style="border: 3px double #C0C0C0; font-family:Verdana; font-size:8pt"></font><font color="#FF0000" face="Verdana"><a target="_blank" href="help.htm"><font color="#FF0000">?</font></a></font><font color="#FF0000" face="Verdana" size="1">  </font></td>
		<td width="49" height="21">
 </td>
	</tr>
	<tr>
		<td align="right" width="68" height="21"><font face="Verdana" size="1">Imagem3:</font></td>
		<td width="469" height="21">
<font size="1" face="Verdana">
<input type="text" name="imagem3" id="imagem3" size="72" style="border: 3px double #C0C0C0; font-family:Verdana; font-size:8pt"></font><font color="#FF0000" face="Verdana"><a target="_blank" href="help.htm"><font color="#FF0000">?</font></a></font><font color="#FF0000" face="Verdana" size="1">  </font></td>
		<td width="49" height="21">
 </td>
	</tr>
	<tr>
		<td align="right" width="68" height="21"><font face="Verdana" size="1">Imagem4:</font></td>
		<td width="469" height="21">
<font size="1" face="Verdana">
<input type="text" name="imagem4" id="imagem4" size="72" style="border: 3px double #C0C0C0; font-family:Verdana; font-size:8pt"></font><font color="#FF0000" face="Verdana"><a target="_blank" href="help.htm"><font color="#FF0000">?</font></a></font><font color="#FF0000" face="Verdana" size="1">  </font></td>
		<td width="49" height="21">
 </td>
	</tr>
	<tr>
		<td align="right" width="68" height="21"><font face="Verdana" size="1">Imagem5:</font></td>
		<td width="469" height="21">
<font size="1" face="Verdana">
<input type="text" name="imagem5" id="imagem5" size="72" style="border: 3px double #C0C0C0; font-family:Verdana; font-size:8pt"></font><font color="#FF0000" face="Verdana"><a target="_blank" href="help.htm"><font color="#FF0000">?</font></a></font><font color="#FF0000" face="Verdana" size="1">  </font></td>
		<td width="49" height="21">
 </td>
	</tr>
	<tr>
		<td align="right" width="68" height="21"><font face="Verdana" size="1">Imagem6:</font></td>
		<td width="469" height="21">
<font size="1" face="Verdana">
<input type="text" name="imagem" id="imagem" size="72" style="border: 3px double #C0C0C0; font-family:Verdana; font-size:8pt"></font><font color="#FF0000" face="Verdana"><a target="_blank" href="help.htm"><font color="#FF0000">?</font></a></font><font color="#FF0000" face="Verdana" size="1">  </font></td>
		<td width="49" height="21">
 </td>
	</tr>
	<tr>
		<td align="right" height="21" width="68">
<font size="1" face="Verdana">
		Youtube:</font></td>
		<td width="469" height="21">
<font size="1" face="Verdana">
<input type="text" name="youtube" id="youtube" size="72" style="border: 3px double #C0C0C0; font-family:Verdana; font-size:8pt"></font><font color="#FF0000" face="Verdana"><a target="_blank" href="help.htm"><font color="#FF0000">?</font></a></font></td>
		<td width="49" height="21">
 </td>
		</tr>
	<tr>
		<td align="right" height="21" width="68">
		<font size="1" face="Verdana">
 E-mail:</font></td>
		<td width="469" height="21">
<font size="1" face="Verdana">
<input type="text" name="email" id="email" size="72" style="border: 3px double #C0C0C0; font-family:Verdana; font-size:8pt"><font color="#FF0000">*</font></font></td>
		<td width="49" height="21">
 </td>
		</tr>
			<%
	if request.queryString("tbl")="doencas" then %>
	
	<tr><td align="right" height="45" width="68">
		<p><font face="Verdana" size="1">Sintomas: </font>

		</td>
	<td width="469" height="45">
<font size="1" face="Verdana">
<textarea rows="3" name="sintoma" cols="72" style="border:3px double #C0C0C0; font-family: Verdana; font-size: 8pt"></textarea></font><font color="#FF0000" face="Verdana" size="1">*</font>
</td>	
<td width="49" height="45">
</td>
<%
	else
	end if%>
		
	
	<tr>
		<td align="right" height="58" width="68">
		<p><font face="Verdana" size="1">Descrição: </font>

		</td>
		<td width="469" height="58">
<font size="1" face="Verdana">
<textarea rows="4" name="descricao" cols="72" style="border:3px double #C0C0C0; font-family: Verdana; font-size: 8pt"></textarea></font><font color="#FF0000" face="Verdana" size="1">*</font></td>
		<td width="49" height="58">
<p><input type="image" id="insdoenca" name="insdoenca" src="images/ok1.png" style="border: 0 double #C0C0C0; font-family:Verdana; " alt="OK" width="39" height="33"></td>
		</tr>
	</table>


</div>

</font>
	
</form>
</form>
</body>

</html>


<%

Dim tbl
cod=request.querystring("cod")
tbl= request.queryString("tbl")


set conn = CreateObject("ADODB.Connection")
conn.Provider = "Microsoft.Jet.Oledb.4.0"
conn.Open Server.MapPath("db/DBAquasplender.mdb")
set rs=server.createobject("adodb.recordset")



	if request.form("insdoenca.x")>0 then
	diyyy
	end if
		
	sub diyyy()
	
	if request.form("email")="" or request.form("titulo")="" or request.form("descricao")="" then
	 %>	<p align="center"><%response.write ("Preencha todos os campos")%></p>
	 <%	else
	
	instotal="select * from " & tbl & ";"

	response.write (instotal)

	rs.open instotal,conn,2,2	
	rs.addnew
	
	rs.fields("username")=Session("username")

	if request.queryString("tbl")="doencas" then
	rs.fields("sintoma")=request.form("sintoma")	
	else
	end if
	

	rs.fields("descricao")=request.form("descricao")
    rs.fields("titulo")=request.form("titulo")
	rs.fields("hora")=time()
	rs.fields("data")=date()
	rs.fields("email")=request.form("email")

if request.form("imagem")="" then	
	rs.fields("imagem")="images/semfoto.jpg" 
	else
	rs.fields("imagem")=request.form("imagem")
end if
if request.form("imagem1")="" then	
	rs.fields("imagem1")="images/semfoto.jpg" 
	else
	rs.fields("imagem1")=request.form("imagem1")
end if
if request.form("imagem2")="" then	
	rs.fields("imagem2")="images/semfoto.jpg" 
	else
	rs.fields("imagem2")=request.form("imagem2")
end if
if request.form("imagem3")="" then	
	rs.fields("imagem3")="images/semfoto.jpg" 
	else
	rs.fields("imagem3")=request.form("imagem3")
end if
if request.form("imagem4")="" then	
	rs.fields("imagem4")="images/semfoto.jpg" 
	else
	rs.fields("imagem4")=request.form("imagem4")
end if
if request.form("imagem5")="" then	
	rs.fields("imagem5")="images/semfoto.jpg" 
	else
	rs.fields("imagem5")=request.form("imagem5")
end if
if request.form("youtube")="" then
    rs.fields("youtube")="images/semvideo.jpg"
    else
    rs.fields("youtube")=request.form("youtube")
end if




	rs.update
	rs.close

%>
	<p align="center"><%response.write ("Informação adicionada, Obrigado.")%></p>
<%
	end if

	end sub
	conn.close
	
%>

Obrigado

augustoclaro · Novembro 28, 2010

Cara, pra gente te ajudar, posta o erro que dá e a linha do erro.

razstec · Novembro 28, 2010

Aqui esta o erro que da, como podem ver pelo response.write do select ele nao esta a ir buscar a variavel tbl mas ela esta la visto funcionar para outras coisas.

select * from ;

Microsoft JET Database Engine error '80040e14'

Syntax error in FROM clause.

/newfolder/ins.asp, line 175

razstec · Novembro 28, 2010

Aqui esta o erro que da, como podem ver pelo response.write do select ele nao esta a ir buscar a variavel tbl mas ela esta la visto funcionar para outras coisas.

select * from ;

Microsoft JET Database Engine error '80040e14'

Syntax error in FROM clause.

/newfolder/ins.asp, line 175

augustoclaro · Novembro 28, 2010

tbl está vazio

razstec · Novembro 28, 2010

o problema e que nao esta :S

este codigo funciona noutra pagina mas aqui nao esta a dar embora me pareca estar tudo bem..

augustoclaro · Novembro 28, 2010

mude isto:


Dim tbl
cod=request.querystring("cod")
tbl= request.queryString("tbl")
response.write tbl
response.end()

e posta oq aparece por fvor

razstec · Novembro 28, 2010

quando entro na pagina aparece o nome do tbl mas quando faço inserir simplesmente nao faz nada

razstec · Novembro 28, 2010

quando entro na pagina aparece o nome do tbl(o nome da tabela que vai no link) mas quando faço inserir simplesmente nao faz nada

Patrique · Novembro 28, 2010

Ops, postei uma coisa, mais so depois vi que errei, foi malz

razstec · Novembro 28, 2010

Ops, postei uma coisa, mais so depois vi que errei, foi malz

Viva patrique, postaste?? nao esta ca nada....

Patrique · Novembro 28, 2010

Acho que neste caso você terá que fazer em if ou case esta sql. tipo....

tbl = request.queryString("tbl")

If tbl = "doencas" Then
   instotal = "select * from doencas"
ElseIf tbl = "mulheres" Then
   instotal = "select * from mulheres"
ElseIf tbl = "homens" Then
   instotal = "select * from homens"
Else
   instotal = "select * from doencas"
End if

[]'s

razstec · Novembro 28, 2010

boa patrique, funcionou :)

Alguma ideia porque é que o meu codigo funcionava numa pagina e nesta nao?

Já agora eu estou a ter dificuldades em dar o tbl ao link, alguma sugestao??

ver.asp?tbl=<%"tbl"%>&id=<%= rs("id") %>

augustoclaro · Novembro 28, 2010

Olhe como vce fez o id e ocmo vce fez o tbl...

Correto:

ver.asp?tbl=<%=tbl%>&id=<%= rs("id") %>

razstec · Novembro 28, 2010

mais uma vez obrigado a todos.

estes pormenores passam-me sempre ao lado...

Arquivado

[Resolvido] erro de string

Recommended Posts

razstec 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

augustoclaro 2

Compartilhar este post

Link para o post

Compartilhar em outros sites

razstec 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

razstec 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

augustoclaro 2

Compartilhar este post

Link para o post

Compartilhar em outros sites

razstec 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

augustoclaro 2

Compartilhar este post

Link para o post

Compartilhar em outros sites

razstec 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

razstec 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Patrique 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

razstec 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Patrique 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

razstec 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

augustoclaro 2

Compartilhar este post

Link para o post

Compartilhar em outros sites

razstec 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

PHP+Codeginiter - Orientação para Impressão

Ajuda com Extends e envio para o banco

Fixar div até atingir uma certa altura

Fóruns

Tempo Real

Informação importante