Criação De Formulário

[shamam]

Estou desenvolvendo uma home page no dreamweaver e gostaria de saber como inserir um formuário simples com nome, e mail, assunto, mensagem e o botao enviar/limpar.

Se possivel um formulário já pronto com a dica de onde devo inserir o codigo e se preciso de mais algum programa instalado no pc para faze-lo funcionar. Obrigado.

[cyberalexxx]

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