Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
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> <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
Carregando comentários...