Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
boas mais uma vez
e o seguinte eu estou querendo inserir o url de uma imagem e ao mesmo tempo de um documento pdf na minha base de dados mas o que me acontece e que insere 2 registos em que no 1 insere so a imagem e no seguinte insere so o documento pdf, o nome do campo onde vai ficar o url do pdf e anexo
<form method="post" enctype="multipart/form-data" name="cadastro" onSubmit="return validaForm()" action="inserircomunicado2.asp">
<%
SET RS=Conexao.Execute("COMUNICADO")
IF RS.EOF THEN
Response.Write "<script type=""text/javascript"">" & vbCrLf
Response.Write "<!--" & vbCrLf
Response.Write "alert ('Ainda Nao tem registos Inseridos');" & vbCrLf
Response.Write "-->" & VbCrLf
Response.Write "</script>" & vbCrLf
Set RS = Conexao.Execute("SELECT * FROM comunicado ")
END IF
%>
<center>
<br>
<div id="container">
<table border=2 >
<td style="border-left-width: 1px;border-left-style: solid;">Titulo:</td><td><input type="text" name="titulo"></td>
<tr>
<td>Texto:</td><td><input type="hidden" id="FCKeditor1" name="texto" value="" style="display:none" />
<input type="hidden" id="FCKeditor1___Config" style="display:none" />
<iframe id="FCKeditor1___Frame" src="fckeditor/editor/fckeditor.html?InstanceName=texto&Toolbar=Default" width="700%" height="400" frameborder="0" scrolling="no"></iframe> <br />
</td>
</tr>
<tr>
<td>Data Inicio:</td><td><input type="text" name="datai" ></td>
</tr>
<tr>
<td>Data Fim:</td><td><input type="text" name="dataf" ></td>
</tr>
<tr>
<th>Insira o Endereco Imagem:</th><td><input type="file" size="40" name="img00" /></td></tr><tr>
<th>Nome da Imagem:</th><td><input type="text" size="40" name="text2" /></tr>
<th>Insira o Endereco Anexo:</th><td><input type="file" size="40" name="img00" /></td></tr><tr>
<th>Nome do Anexo:</th><td><input type="text" size="40" name="anexo" /></tr>
</table>
<input type="hidden" name="codigo" value="codigo">
<p>
<p>
<input name="enviar" type="submit" value="enviar">
</form>
</table><!--#include file="conn.asp" -->
<html>
<head>
<title>AspUpload : Upload Simples</title>
</head>objUpload.UseUniqueNames = False
' Limita o tamanho máximo do ficheiro em 1MB
objUpload.MaxFileSize = 22550000
' Salva o ficheiro
objUpload.Save("c:\Inetpub\wwwroot\estagio")
For Each File in objUpload.Files
ficheiro= File.Path
titulo1=objUpload.Form("titulo")
texto1=objUpload.Form("texto")
datai1=objUpload.Form("datai")
dataf1=objUpload.Form("dataf")
ficheiro = replace(replace(ficheiro,"\","/"),"c:/Inetpub/wwwroot/", "http://localhost/")
sql = "insert into comunicado(titulo,texto,datai,dataf,imagens,anexo) values ('"&titulo1&"','"&texto1&"','"&datai1&"','"&dataf1&"','"&ficheiro&"','"&ficheiro&"')"
Conexao.Execute(SQL)If Err <> 0 Then
Response.Write "Erro. " & Err.Description
Else
Response.Write "Upload realizado com sucesso."
End If
Set objUpload = Nothing
Conexao.Close
%>
</html>
Carregando comentários...