Ir para conteúdo

POWERED BY:

Arquivado

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

mows

Gerar registros em alguns campos

Por , em ASP Clássico

Recommended Posts

mows    0

mows
Postado

Boa tarde pessoal, estou querendo fazer uma página em que uma pessoa indique para outras 5, assim:

Ela entra numa pagina e digita 5 nomes, 5 emails e 5 telefones de pessoas que ela quer indicar.

 

Queria gravar em banco esses registros deixando como parâmetro o indicador numa combobox antes de digitar todos esses dados.

 

Exemplo na imagem abaixo:

Imagem Postada

 

Como eu faço para gerar esses registros?!

Talvez eu tenha que usar um for para cada registro, mas não sei como usar.

 

Alguém poderia me ajudar?!

 

Agradeço.

 

To tentando fazer com o código a seguir:

 

<%

if Request.Form("Action") = "Enviar" then

	if Request("txtnome1") = "" and Request("txtnome2") = "" and Request("txtnome3") = "" and Request("txtnome4") = "" and Request("txtnome5") = "" then
		
		%>
			<script language="javascript">
			<!--
				window.alert ("Digite ao menos um nome para indicação.");
			   history.back();
			//-->
			</script>
		<%
		
	if Request("txtEmail1") = "" and Request("txtEmail2") = "" and Request("txtEmail3") = "" and Request("txtEmail4") = "" and Request("txtEmail5") = "" then
		
		%>
			<script language="javascript">
			<!--
				window.alert ("Digite ao menos um email válido para indicação.");
			   history.back();
			//-->
			</script>
		<%
								
	else
	

	Set rsIndicado = Server.CreateObject("ADODB.Recordset")
	strSql = " execute indicacao.dbo.spInsIndicado "&Request("cboIn")&", "&strNome&", "&strEmail&", "&strFome&""

	set rsIndicado = ConSql.Execute(strSql)
	
	strHTML = strHTML & "<table border=0 cellspacing=2 cellpadding=2 width=""100%"">" & chr(13) & chr(10)
	
	strHTML = strHTML & "<tr><td height=20></td></tr>" & chr(13) & chr(10)
	strHTML = strHTML & "<tr><td align=left><font face=arial><STRONG>"&Request("txtnome")&"</STRONG></font><BR><BR></td></tr>" & chr(13) & chr(10)
	strHTML = strHTML & "<tr><td align=left><font face=arial>Email: "&Request("txtEmail")&"</font><BR><BR></td></tr>" & chr(13) & chr(10)
	strHTML = strHTML & "<tr><td align=left><font face=arial>Mensagem: "&Request("txtMsg")&"</font><BR><BR></td></tr>" & chr(13) & chr(10)
	
	strHTML = strHTML & "</table>" & chr(13) & chr(10)
														
												
	Set Mail = Server.CreateObject("Persits.MailSender")
	Mail.Host = "" 
	Mail.FromName = Request("txtNome")
	Mail.From = request("txtEmail")
	Mail.AddAddress ""
	Mail.AddBCC ""
	Mail.Subject = ""
																				
	Mail.IsHTML = True
	Mail.Body = "<HTML><BODY><CENTER>" & strHTML & "</CENTER></BODY></HTML>"

	On Error Resume Next
	
	
	Mail.Send
	
	If Err <> 0 Then
	
		%>
		
		<script language="javascript">
		<!--
			window.alert ("Erro ao tentar enviar email. Por favor tente novamente mais tarde.");
			history.back();
		//-->
		</script>
		
		<%
		
	Else
	
		If Err = 0 Then
		
			Response.Redirect("indica.asp?status=env")
			
		end if
		
	End If 
	

End If
	
end if
%>
<link rel="stylesheet" link="text/css" href="css/style.css">

<body>

<div id="wrapper" class="encadre">
	<div class="tl"></div>
	<div class="tr"></div>

    	<div id="header">
			
        </div> <!--header ends-->
		<div id="headerlogo">	
				
		
        </div>
        
        <div id="banner">
        </div>
        
        <div id="navigation">
        	<ul>
			<li class="home active"><a href="" >Home</a></li>
            <li><a href="">Equipe</a></li>
            <li><a href="">Sistema de Jobs</a></li>
        	</ul>
        </div> <!--navigation ends-->
        
        
<div id="content"  class="encadre">
			<div class="bl"></div>
			<div class="br"></div>
<div id="left_column">
<div id="tab-content-post">
<div class="home-post">
 <ul>
 
 
        <form name="form" method="post" action="">
        
        <div id="indicador">
        
        	<h1>Indicador</h1>
            
            
            <p>
            Selecione seu nome
            </p>
            
         
            
            <select name="cboCidade" class="PadraoSelect1" value="<%=Request("cboCidade")%>">
              <option selected value="0">Selecione...</option>
              
              <%
                Set rsComunidade = Server.CreateObject("ADODB.Recordset")
                strSql = " execute indicacao.dbo.spSelComunidade"
    
                set rsComunidade = ConSql.Execute(strSql)
                                            
                if not rsComunidade.EOF then
                    while not rsComunidade.EOF
                        
                        Response.Write("<OPTION VALUE="&rsComunidade("chaveindicador")&">"&rsComunidade("nome")&"</OPTION>")
    
                        rsComunidade.MoveNext
                    wend
                end if
              %>
            </select>
    
            <BR /><BR /> <BR /><BR />
            
            <h1>Indicados</h1>
            
            <p>Digite os nomes e emails de quem deseja indicar</p>
            
          
            <table width="100%" border="0" cellspacing="3" cellpadding="3" class="tableemails">
              <tr>
                <td width="30">Nome</td><td><input name="txtNome1" class="input" type="text" /></td>
              </tr>
              <tr>
                <td>Email</td><td><input name="txtEmail1" class="input" type="text" /></td>
              </tr>
              <tr>
                <td>Telefone</td><td><input name="txtTel1" class="input-tel" type="text" id="phone1" /></td>
              </tr>
              <tr><Td height=20></Td></tr>
              <tr>
                 <td>Nome</td><td><input name="txtNome2" class="input" type="text" /></td>
              </tr>
              <tr>
                <td>Email</td><td><input name="txtEmail2" class="input" type="text" /></td>
              </tr>
              <tr>
                <td>Telefone</td><td><input name="txtTel2" class="input-tel" type="text" id="phone2" /></td>
              </tr>
               <tr><Td height=20></Td></tr>
              <tr>
                <td>Nome</td><td><input name="txtNome3" class="input" type="text" /></td>
              </tr>
              <tr>
                <td>Email</td><td><input name="txtEmail3" class="input" type="text" /></td>
              </tr>
              <tr>
                <td>Telefone</td><td><input name="txtTel3" class="input-tel" type="text" id="phone3" /></td>
              </tr>
               <tr><Td height=20></Td></tr>
              <tr>
                <td>Nome</td><td><input name="txtNome4" class="input" type="text" /></td>
              </tr>
              <tr>
                <td>Email</td><td><input name="txtEmail4" class="input" type="text" /></td>
              </tr>
              <tr>
                <td>Telefone</td><td><input name="txtTel4" class="input-tel" type="text" id="phone4" /></td>
              </tr>
               <tr><Td height=20></Td></tr>
              <tr>
                 <td>Nome</td><td><input name="txtNome5" class="input" type="text" /></td>
              </tr>
              <tr>
                <td>Email</td><td><input name="txtEmail5" class="input" type="text" /></td>
              </tr>
              <tr>
                <td>Telefone</td><td><input name="txtTel5" class="input-tel" type="text" id="phone5" /></td>
              </tr>
            </table>
            
            
            <BR /><BR /><BR />
            
            <input name="Action" type="submit" value="Enviar" class="botao" />
            
            <BR /><BR />

            
        </div>
        
        </form>

</li> 

 
</ul>

	
</div>

</div>

</div> 

</body>

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

como esta seu SQL Insert, você esta usando uma stored procedure, posta ela...

Compartilhar este post

Link para o post
Compartilhar em outros sites

mows    0

mows
Postado

Essa é a SP

 

insert into indicado(chaveindicador,nome,email,fone,dataindicacao)	
values (@chaveindicador,@nome,@email,@fone,getdate())

Estou conseguindo enviar os emails, porém ele junta todos e manda para todos os emails juntos, acho que tem algum problema no FOR

 

For Each item In Request.Form
		
		
				Set rsIndicado = Server.CreateObject("ADODB.Recordset")
				strSql = " execute indicacao.dbo.spInsIndicado "&Request("cboIndicador")&", "&Request("txtNome")&", " & _
						" "&Request("txtEmail")&", "&Request("txtFone")&" "		
				set rsIndicado = ConSql.Execute(strSql)					
				
				strHTML = strHTML & "<table border=0 cellspacing=2 cellpadding=2 width=""100%"">" & chr(13) & chr(10)
				
				strHTML = strHTML & "<tr><td height=20></td></tr>" & chr(13) & chr(10)
				strHTML = strHTML & "<tr><td align=left><font face=arial><STRONG>"&Request("txtnome")&"</STRONG></font><BR><BR></td></tr>" & chr(13) & chr(10)
				strHTML = strHTML & "<tr><td align=left><font face=arial>Email: "&Request("txtEmail")&"</font><BR><BR></td></tr>" & chr(13) & chr(10)
				strHTML = strHTML & "<tr><td align=left><font face=arial>Mensagem: "&Request("txtMsg")&"</font><BR><BR></td></tr>" & chr(13) & chr(10)
				
				strHTML = strHTML & "</table>" & chr(13) & chr(10)
																	
															
				Set Mail = Server.CreateObject("Persits.MailSender")
				Mail.Host = "10.0.0.xxx" 
				Mail.From = "  "
				Mail.FromName = ""
				Mail.AddAddress Request("txtEmail")
				Mail.AddBCC ""
				Mail.Subject = ""
																							
				Mail.IsHTML = True
				Mail.Body = "<HTML><BODY><CENTER>" & strHTML & "</CENTER></BODY></HTML>"
				
			
				On Error Resume Next
				
				
				Mail.Send
				
			next

Este for está gerando os 5 registros que eu quero, porém ele está inserindo em cada registro todos os 5 valores dentro dos campos.

 

Tipo campo nome: indicado 1, indicado 2, indicado 3, ,

 

Como posso resolver isso?!

 

Agradeço a ajuda.

 

Abraços.

 

Fiz um split nos campos, não está gravando mais todos juntos, porém só está gravando o primeiro nome, email e fone digitados.

 

Alguém pode me ajudar?!

 

Agradeço a ajuda.

 

Dim i

			nome=(Split(request.Form("txtnome"),","))
			email=(Split(request.Form("txtEmail"),","))
			fone=(Split(request.Form("txtFone"),","))
			
			i = 0
			
			For Each item in Request.Form
			
				'#############################
				'INSERE NA TABELA DE INDICADOS
				'#############################
				Set rsIndicado = Server.CreateObject("ADODB.Recordset")
				strSql = " execute indicacao.dbo.spInsIndicado '"&Request("cboIndicador")&"', " & _
				" '"&nome(i)&"', '"&email(i)&"', '"&fone(i)&"' "		
				set rsIndicado = ConSql.Execute(strSql)

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