Jump to content


cerburus's Content

There have been 3 items by cerburus (Search limited from 20/03/2023)


Ordernar por                Order  

#1002315 Quebra De Linha No Form

Posted by cerburus on 07/08/2010, 04:04 in ASP

galera tenho esse form queria que a cada enter dado nele no html que exibe ele fosse dado um ENTER
ou seja a cada enter no form ele fazer a quebra da linha atualmente ele deixa tudo imendado!

segue meu codigo
a parte com ******* e que tentei fazer mas ele da erro! acho q a função nao ta correta!
<!-- #include file="conexaobd.asp" -->
<!-- #include file="ADOVBS.inc" -->
<%

dim conconexao

'Aqui você pode inserir mais dados, siga o exemplo abaixo
Session("nome") = Request.Form("nome")
Session("endereco") = Request.Form("endereco")
Session("tel") = Request.Form("tel")
Session("email") = Request.Form("email")

******* Replace(nome,chr(10),"<br>")


Sub ProcessaPagina

Dim rs
Set rs = Server.CreateObject("ADODB.Recordset")
rs.open "form", conconexao, adOpenDynamic, adlockoptimistic, adcmdtable

rs.Addnew

'Aqui você pode inserir mais dados, siga o exemplo abaixo
rs.fields("nome") = Session("nome")
rs.fields("endereco") = Session("endereco")
rs.fields("tel") = Session("tel")
rs.fields("email") = Session("email")


rs.update
end sub

processapagina
%>

<html>
<title> Lista V.I.P </title>
<body>
<h4>Dados enviados com sucesso!!!</h4>
</body>
</html>



#1002225 Exibir Outra Pagina De Confirmação!

Posted by cerburus on 04/08/2010, 17:46 in ASP

galera e simples! esse meu form atual qndo confirmo ele exibe um script dizendo que os dados foram enviados!
só que eu queria que ela exibi-se uma pagina dizendo isso! pois assim e melhor pra mim personalizar!
segue o meu codigo completo meio bagunçado mas pra voces verem ele no geral!

<%@Language="VBScript"%>
<%Response.Expires = 0%>

<%
	Dim i
	Dim ii
	Dim varCont
	
	If Request.Form("txtDe") <> "" Then
		Dim objConn
		Dim varConn
		Dim varSql
		Dim rsIncluir
		Dim varMensagem
		Dim arrayCarinhas(14)
		
		'Cria a conexão com a base de dados
		Set objConn = Server.CreateObject("ADODB.Connection")
		varConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("BDMuralRecados.mdb") & ";Persist Security Info=False;Jet OLEDB:Database Password="
		objConn.Open varConn
	
		arrayCarinhas(0) = "(1)"
		arrayCarinhas(1) = "(2)"
		arrayCarinhas(2) = "(3)"
		arrayCarinhas(3) = "(4)"
		arrayCarinhas(4) = "(5)"
		arrayCarinhas(5) = "(6)"
		arrayCarinhas(6) = "(7)"
		arrayCarinhas(7) = "(8)"
		arrayCarinhas(8) = "(9)"
		arrayCarinhas(9) = "(10)"
		arrayCarinhas(10) = "(11)"
		arrayCarinhas(11) = "(12)"
		arrayCarinhas(12) = "(13)"
		arrayCarinhas(13) = "(14)"
		arrayCarinhas(14) = "(15)"
		
		varSql = "SELECT * "
		varSql = varSql & "FROM MuralRecados "
		
		Set rsIncluir = Server.CreateObject("ADODB.Recordset")
		rsIncluir.CursorType = 0
		rsIncluir.CursorLocation = 2
		rsIncluir.LockType = 3
		rsIncluir.Open varSql, objConn
		
		
		rsIncluir.AddNew
		rsIncluir.Fields("DataInclusao") = Date()
		rsIncluir.Fields("HoraInclusao") = Time()
		rsIncluir.Fields("De") = Request.Form("txtDe")
		rsIncluir.Fields("Email") = Request.Form("txtEmail")
		rsIncluir.Fields("Para") = Request.Form("txtPara")
		
		
		
		varMensagem = Request.Form("areaMensagem")
		varMensagem = replace(varMensagem, chr(13), "<br>")
		For i = 0 to 14
			varMensagem = Replace(varMensagem, arrayCarinhas(i), "<img src=Imagens/Carinhas/" & i+1 & ".gif>")
		Next
		
		rsIncluir.Fields("Mensagem") = varMensagem
		rsIncluir.Fields("IPConexao") = Request.ServerVariables("REMOTE_ADDR")
		rsIncluir.Update
		
		rsIncluir.Close
		Set rsIncluir = Nothing
		
		objConn.Close
		Set objConn = Nothing
	End If
%>

<html>
<head>
		<title>Enviar nomes para Lista VIP</title>
		<style type="text/css">
		<!--
			a:active{
				text-decoration: none;
				color: #333333;
			}
			a:hover{
				text-decoration: none;
				color: #000000;
			}
			a:link{
				text-decoration: none;
				color: #333333;
			}
			a:visited{
				text-decoration: none;
				color: #333333;
			}
			.Texto1{
				font-family: Verdana;
				font-size: 10px;
				font-weight: none;
				color: #000000;
				text-decoration: none;
			}
			.Texto2{
				font-family: Verdana;
				font-size: 10px;
				font-weight: bold;
				color: #000000;
				text-decoration: none;
			}
			.Borda1{
				border: 1px solid #999999;
			}
			.Form1{
				border: 1px solid #999999;
				font-family: Verdana;
				font-size: 12px;
				color: #000000;
				text-decoration: none;
				background-color: #FFF4CA;
			}
body {
	margin-left: 0px;
	margin-top: 0px;
	margin-right: 0px;
	margin-bottom: 0px;
	background-color: #333333;
	color: #999;
}
.style3 {font-family: Verdana; font-size: 10px; font-weight: bold; color: #FFFFFF; text-decoration: none; }
.style5 {font-family: Verdana; font-size: 12px; text-decoration: none; background-color: #FFF4CA; border: 1px solid #999999;}
.style6 {color: #FFFFFF}
.APAGAO {
	font-weight: bold;
	font-family: "Arial Black", Gadget, sans-serif;
}
.style9 {
	color: #FFFFFF;
	font-size: 12px;
}
.style3 em {
	font-size: 11px;
}
.style11 {
	color: #FFFFFF;
	font-family: Arial, Helvetica, sans-serif;
	font-size: 10px;
}
		-->
		</style>
<script language="JavaScript">
<!--
			<%If Request.Form("txtDe") <> "" Then%>
				opener.location.reload();
				alert('Dados enviados com SUCESSO!');
				window.close();
			<%End If%>
			
			function Incluir(varForm){
				if (varForm.txtDe.value == ""){
					window.alert ("Preencha o campo SEU NOME");
					varForm.txtDe.focus();
					return false;
				}
				if (varForm.txtPara.value == ""){
					window.alert ("Falta preencher o campo SEU EMAIL");
					varForm.txtPara.focus();
					return false;
				}
				if (varForm.areaMensagem.value == ""){
					window.alert ("Falta preencher o campo MENSAGEM");
					varForm.areaMensagem.focus();
					return false;
				}
				varForm.submit();
			}
			
			function Carinhas(varForm, varCarinha){
				var arrayCarinhas = new Array("(1)", "(2)", "(3)", "(4)", "(5)", "(6)", "(7)", "(8)", "(9)", "(10)", "(11)", "(12)", "(13)", "(14)", "(15)")
				
				varCarinha = varCarinha - 1;
				
				varForm.areaMensagem.value = varForm.areaMensagem.value + " " + arrayCarinhas[varCarinha] + " ";

			}
//-->
        </script>
        


<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"></head>
<body onLoad="JavaScript:document.formIncluir.txtDe.focus();">
		<table cellpadding="0" cellspacing="0" border="0" width="100%" height="100%" align="center">
			<tr>
				<td valign="top">
					<table border="0" align="center">
						<form name="formIncluir" method="post" action="mural_new.asp">
							<tr>
							  <td colspan="2" align="center" class="APAGAO">SMIRNOFF EXPERIENCE OPEN</td>
						  </tr>
							<tr>
							  <td colspan="2" align="center" class="style3">QUI|05|AGOSTO</td>
							</tr>
							<tr>
								<td>&nbsp;</td>
								<td>
									<input name="txtPara" type="hidden" class="style5" size="42" maxlength="35" value="sim">								<input type="hidden" name="txtEmail" value="sim">
									<input name="txtDe" type="hidden" class="style5" size="42" maxlength="35" value="sim">
									Enviar nome completo!</td>
							</tr>
							<tr>
								<td><font class="style3">Nomes:</font></td>
								<td><textarea name="areaMensagem" cols="42" rows="6" class="style5" id="areaMensagem"></textarea>
								  <br>
							  <span class="style9"> Chegue cedo!!! Alista encerra &agrave;s 1:30h da manh&atilde;</span></td>
						  </tr>
							<tr>
								<td><span class="style6"></span> </td>
								<td>
									<input name="btnColar" type="button" class="style5" onClick="JavaScript:Incluir(formIncluir)" value="CONFIRMAR NOMES"></td>
							</tr>
							<tr>
							  <td>&nbsp;</td>
							  <td><span class="style11">Lista VIP vale somente como entrada! N&atilde;o da direito ao openbar!</span></td>
						  </tr>
						</form>
					</table>
			  </td>
			</tr>
		</table>
	</body>
</html>



#1002196 Replace No Campo Mensagem!

Posted by cerburus on 03/08/2010, 16:58 in ASP

Galera tenho um campo chamado mensagem
e nele e inserido uns nomes um abaixo do outro porem quando e enviado eles ficam lado a lado! nao ficam com o <br>
como faço para quando der ENTER no campo o ASP inserir o <br>

segue parte do codigo, o campo que preciso e o campo mensagem!
If objRS.Fields("De").properties("IsAutoIncrement") = False Then
      objRS("De") = Trim(Request.Form("De"))
    End If
    If objRS.Fields("Email").properties("IsAutoIncrement") = False Then
      objRS("Email") = Trim(Request.Form("Email"))
    End If
    If objRS.Fields("Mensagem").properties("IsAutoIncrement") = False Then
      objRS("Mensagem") = Trim(Request.Form("Mensagem"))
    End If
    If objRS.Fields("Para").properties("IsAutoIncrement") = False Then
      objRS("Para") = Trim(Request.Form("Para"))
    End If
    objRS.Update
    objRS.Close
    Set objRS = Nothing
%>




IPB Skin By Virteq