Ir para conteúdo

POWERED BY:

Arquivado

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

cerburus

Inserir o mesmo conteudo 5x

Por , em ASP Clássico

Recommended Posts

cerburus    0

cerburus
Postado

Gente sei que não é difícil porem eu não sei e gostaria da ajuda de vocês!

O que preciso e simplesmente quando clicar em cadastrar esse script gere 5 cadastros!

ou seja com os mesmo dados ele cadastre 5x

 

 

 

 

<html>
<head>
<title>Cadastro de Anuncios</title>
</head>
<body>
<center>
<b>Cadastro de Anúncio</b>
</center>
<%
If IsEmpty( Request.Form("submit") ) Then
%>
<form method=post action="<%=Request.ServerVariables("script_name")%>">
<table border=0 width="80%" align=center>
<tr>
<td align=center valign=top>
<font face="Arial" size="2">
<input type=text name="id" size=30 maxlength=50 style="{<font-family:Arial; font-size:12}">
<input name="anuncio" type=hidden id="anuncio" style="{<font-family:Arial; font-size:12}" value="Ligue a vontade para celular e fixo em todo Brasil, EUA e Canadá. Aproveite nosso teste grátis de 1h
http://www.telexfree.com/ad/" size=15 maxlength=50>
<input type=hidden name="email" value="teste@teste.com" size=15 maxlength=50 style="{<font-family:Arial; font-size:12}">
< Seu usuario na telexfree</td>
</tr>
<tr>
<td align=center valign=top><input type=submit name=submit value=Cadastrar Anúncio style="{<font-family:Arial; font-size:12}"></td>
</tr>
<tr>
<td align=left valign=top> </td>
</tr>
</table>
</form>
<%
Else
If Not IsEmpty(Request.Form("submit")) AND Trim(Request.Form("id")) <> "" AND Trim(Request.Form("email")) <> "" AND Trim(Request.Form("anuncio")) <> "" Then
Set Conexao = Server.CreateObject("ADODB.Connection")
Conexao.Open "DBQ=d:\hshome\registro100br\telexfreero.com.br\anunciar\classificados.mdb;Driver={Microsoft Access Driver (*.mdb)};"
ComandoSQL = "INSERT INTO classificados (id, email, anuncio)"
ComandoSQL = ComandoSQL & " VALUES ("
ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("id")) & "',"
ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("email")) & "',"
ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("anuncio")) & "')"
Set bd = Conexao.Execute(ComandoSQL)
Conexao.Close
Set bd = Nothing
Set Conexao = Nothing
%>
<form method=post action="<%=Request.ServerVariables("script_name")%>">
<table border=0 width="80%" align=center>
<tr>
<td align=center valign=top> </td>
</tr>
<tr>
<td align=center valign=top> Aperte a tecla F5 para gerar um novo link</td>
</tr>
<tr>
<td align=center valign=top><iframe width='360' height='50' frameborder='0' scrolling="no" src='ver.asp'></iframe></td>
</tr>
</table>
</form>
<font face="Arial" size="2">
<center>
Gerar novo anúncio
<br>
<a href="index.asp"><b>Clique aqui</b></a><br><br>
</center>
<br>
<%
Else
%>
<font face="Arial" size="2">
<center><br>Atenção: Alguns dados necessário não foram preenchidos corretamente
<br><a href="javascript:history.go(-1)"><b>Clique aqui</b></a> para voltar</center>
<%
End If
End If
%>
</body>
</html>

 

 

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

faz um loop na sua string SQL....

 

agora deixa eu perguntar vc vai inserir todos os 5x na mesma tabela, ou colocar em outras, poiis se for na mesma tome cuidado com a integridade do banco, pois terá dados duplicados se for na mesma tabela.

Compartilhar este post

Link para o post
Compartilhar em outros sites

cerburus    0

cerburus
Postado

ow me da essa força como faz esse string? não manjo praticamente nada só preciso que: quando eu clicar em cadastrar ele faça o mesmo cadastro 5x dentro da tabela!

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

olha este exemplo, onde eu pego o .count de um checkbox, no seu caso apenas coloque para 5

 


For i = 1 To Request.Form("produtos").Count

Response.write request.form("produtos")(i)&"<BR>" & request.form("qtd_produtos")(i)&"<BR>"
SQL = "INSERT INTO lista (lista_prodID,lista_quant) Values ('"&request.form("produtos")(i)&"','"&request.form("qtd_produtos")(i)&"')"

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