Ir para conteúdo
Fórum Script Brasil

cyberalexxx

Membros
 Perfil  Explorar Conteúdo

  • Total de itens

    2.500

  • Registro em

  • Última visita

 Tipo de Conteúdo 

Posts postados por cyberalexxx

  4. Cadastrado

    em ASP

    Postado

    tenta assim:

    <%
      Dim SqlInsere
      Dim RsIns

      nome   = TRIM ( Request.Form( "nome" ) )
      senha    = TRIM ( Request.Form( "senha" ) )
   
      Dim Conn
      Set Conn = Server.CreateObject("ADODB.Connection")
      Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("cadastro.mdb")

      Set RsIns = Server.CreateObject("ADODB.RecordSet")
      Set RsCons = Server.CreateObject("ADODB.RecordSet")
      Sqlconsulta = "Select count(nome) as total from Teste Where nome='" & nome & "'"
      set RsCons = Conn.execute(Sqlconsulta)
      if RsCons("total") > 0 then
         SqlInsere = "Insert Into Teste(nome, senha)Values('" & nome &  "','" & senha &  "') "      
         set RsIns = Conn.execute(SqlInsere)
      else
         Response.write "Nome de usuário já existe"
      end if

%>

  8. Exibir Primeiro Nome

    em ASP

    Postado

    criando funções com o meu método e com o método do Decio:

    1 - Cyberalexxx

    function nome(valor)
   nome = left(valor,(Instr(valor,chr(32))-1))
end function
    2 - Decio
    function nome(valor)
   temp = Split(valor,chr(32))
   nome = temp(0)
end function
    para usar a função:
    response.write nome(rs("Operadora"))

  21. Criação De Formulário

    em ASP

    Postado

    Voce quer um formulário de contato (envio de email) ???

    se for olha aki um:

    <%
sYouEmail="sueemail@seudominio.com.br"
EmailSubject="mensagem de usuario do SITE"
FontColor="#3333FF"
HeadColor="#ffc500"
FormFontColor="#FFFFFF"
FormBackColor="#3333FF"
ErrorColor="red"

Function ValidateField(sFieldvalue, sFieldtype)
	ValidField = true
	Select Case LCase(sFieldtype)
  Case "name"
  If Len(sFieldvalue) = 0 Then ValidField = False
  Case "email"
  	If Len(sFieldvalue) < 5 Then
    ValidField = False
  	Else
    If InStr(1, sFieldvalue, "@", 1) < 2 Then
    	ValidField = False
    Else
    	If InStr(1, sFieldvalue, ".", 1) < 4 Then
      ValidField = False
    	End If
    End If
  	End If
  Case "message"
  	If Len(sFieldvalue) = 0 Then ValidField = False
  Case "else"
  	ValidField = False
	End Select
ValidateField = ValidField
End Function
Sub ShowForm
%>
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#FFFFFF" width="634">
<tr>
<td width="100%">&nbsp;<center><form action="<%= Request.ServerVariables("Script_Name") %>" method="post">
<p>&nbsp;</p>
<table border="0" cellspacing="0" width="240" cellpadding=0><tr bgcolor="<%=HeadColor%>">
<td ALIGN="left"><font color="<%=FontColor%>" face="verdana,arial,helvetica" size="-1"><B>
Seu Nome:</B></font>&nbsp;</td></tr>
<tr><td><input name="name" type="text" value="<%= Request.Form("name") %>" SIZE="45" style="FONT-SIZE: 11px; COLOR: <%=FormFontcolor%>; FONT-FAMILY: verdana, helvetica, arial; BACKGROUND-COLOR: <%=FormBackColor%>"></INPUT></td>
</tr><tr><td><%
  If dictFields(LCase("name")) Then
  Response.Write "<font color=""" & ErrorColor & """ face=""verdana,arial,helvetica"" size=-2>Voce precisa informar um nome</font>"
	Else  
  Response.Write "&nbsp;"
  End If
  %>
</td></tr>
	<tr bgcolor="<%=HeadColor%>">
  <td ALIGN="left"><font color="#3333FF" face="verdana,arial,helvetica" size="-1"><B>email:</B></font>&nbsp;</td></tr>
  <tr><td><input name="email" type="text" value="<%= Request.Form("email") %>" SIZE="45" style="FONT-SIZE: 11px; COLOR: <%=FormFontcolor%>; FONT-FAMILY: verdana, helvetica, arial; BACKGROUND-COLOR: <%=FormBackColor%>"></INPUT></td>
  </tr><tr><td><%
  If dictFields(LCase("email")) Then
  Response.Write "<font color=""" & ErrorColor & """  face=""verdana,arial,helvetica"" size=-2>voce precisa informar um endereço de email valido</font>"
	Else  
  Response.Write "&nbsp;"
  End If
  %>
</td></tr>
	<tr bgcolor="<%=HeadColor%>">
  <td ALIGN="left"><font color="#3333FF" face="verdana,arial,helvetica" size="-1"><B>
        Mensagem:</B></font>&nbsp;</td></tr>
  <tr><td><TEXTAREA NAME="message" WRAP=VIRTUAL COLS="45" ROWS=7 style="FONT-SIZE: 11px; COLOR: <%=FormFontcolor%>; FONT-FAMILY: verdana, helvetica, arial; BACKGROUND-COLOR: <%=FormBackColor%>"><%= Request.Form("message") %></TEXTAREA></td>
  </tr><tr><td><%
  If dictFields(LCase("message")) Then
  Response.Write "<font color=""" & ErrorColor & """  face=""verdana,arial,helvetica"" size=-2> Você precisa digitar uma mensagem</font>"
	Else  
  Response.Write "&nbsp;"
  End If
%>
</td></tr>
<tr><td colspan=2><font color="#000000" face="verdana,arial,helvetica" size="-1"><input type="checkbox" name="agree" value="true" <% 
  if Len(Request.Form("agree")) > 0 then 
  Response.Write "checked"
  End If
  %>> Clique aqui caso deseje fazer parte de nossa lista de contatos</td></tr>
</table><p><input type="submit" value="Envia Mensagem"></input><br></form>
<P>
<%
End Sub
Sub Send
sPunter = Request.Form("Name")
sPunterEmail = Request.Form("Email")
Message = Request.Form("message")
If Request.Form("agree") = "true" then
Mailout = "Ele deseja ser incluido em nossa lista de contatos"
Else
Mailout ="Ele NÃO deseja ser incluido em nossa lista de contatos"
End If
sMessage = "Essa é uma mensagem de " & sPunter & vbcrlf _
        & vbcrlf _
  & vbcrlf _
  & Message & vbcrlf _
  & vbcrlf _
  & "Seu email é: " & sPunterEmail & vbcrlf _
  & vbcrlf _
  & Mailout & vbcrlf _
  & vbcrlf  
Set objNewMail = CreateObject("CDONTS.NewMail")
objNewMail.Send sPunterEmail, sYouEmail, EmailSubject, sMessage
Set objNewMail = Nothing
End Sub

Set dictFields = Server.CreateObject("Scripting.Dictionary")
For Each Field in Request.Form
If ValidateField(Request.Form(Field), Field) = False Then
dictFields.Add LCase(Field), true
End If
Next
If Request.Form.Count <> 0 And dictFields.Count  = 0 Then
%><P>
&nbsp;<P>
&nbsp;<b>Sua Mensagem foi enviada!<BR></b><P><b><i>Obrigado por entrar em contato.</i></b><BR>
<%
Call Send
Else
ShowForm
End If
%></td>
</tr>
</table>

    voce tem que ter o compomente cdonts instalado para funcionar

×
×
  • Criar Novo...