% Response.Buffer = True %>
<%
dim action
action = request("action")
select case action
case "send"
Dim objCDO
Set objCDO = Server.CreateObject("CDONTS.NewMail")
objCDO.To = "mon23@hotmail.com"
objCDO.From = request.form("email")
objCDO.Subject = "Web design inquiry"
'**************change the url to your server!********************
objCDO.Body = "name:" & request.form("name") & vbCrLf & "message:" & request.form("mes")
objCDO.Send
set objCDO = nothing
Response.redirect("thanks3.asp")
response.end
end select
%>
Yahoo Store Designer, OsCommerce Designer, Web Designer, Graphic Designer, RTML Designer
Copyright © 2002-2005 Monhil.com