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%"> <center><form action="<%= Request.ServerVariables("Script_Name") %>" method="post">
<p> </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> </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 " "
End If
%>
</td></tr>
<tr bgcolor="<%=HeadColor%>">
<td ALIGN="left"><font color="#3333FF" face="verdana,arial,helvetica" size="-1"><B>email:</B></font> </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 " "
End If
%>
</td></tr>
<tr bgcolor="<%=HeadColor%>">
<td ALIGN="left"><font color="#3333FF" face="verdana,arial,helvetica" size="-1"><B>
Mensagem:</B></font> </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 " "
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>
<P>
<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
