<%@LANGUAGE="VBSCRIPT"%> <% if request.Form("submit") <> "" then this_email = request.Form("from_email") nombre=this_email subject = request.Form("subject") address = request.Form("address") phone = request.Form("phone") message = request.Form("message") cuerpo = "Email: " & nombre & vbCrLf cuerpo = cuerpo & "Address: " & address & vbCrLf cuerpo = cuerpo & "Phone: " & phone & vbCrLf cuerpo = cuerpo & "Comment: " & message & vbCrLf resultado=send_mail(nombre,this_email,admin_name,admin_email,subject,cuerpo,"TEXT","") end if 'set con=server.CreateObject("ADODB.connection") 'con.open cadena_conexion 'set rs=server.CreateObject("ADODB.recordset") 'rs.activeconnection = con %> Belliveau Photography

Belliveau Photography Email Form

<% if request.form("submit")<>"" then if (resultado) then%>

Thanks for contacting us. We will be replying soon.

<% elseif resultado=false then %>

<%=emailerror%>.Our web server is undergoing maintenance. Please write to amy@belliveauphotography.com or call us.

<%end if else %>  
Spam Filter: Do not fill in this field.

<% end if %>
© Jared Sutherland Designs <%response.write Year(Now())%> All Rights Reserved
admin