<% docID=Request("docID") Set RS=Server.CreateObject("ADODB.RecordSet") RS.Open "SELECT ID,business,doctor,address,suite,city,state,zip,website,email,phone,photo,bio " & _ " FROM abaw_drdata " & _ " WHERE ID = " & docID, Conn1 docID=RS("ID") business=RS("business") doctor=RS("doctor") address=RS("address") suite=RS("suite") city=RS("city") state=RS("state") zip=RS("zip") website=RS("website") email=RS("email") phone=RS("phone") photo=RS("photo") 'IF RS("bio")<>"" THEN bio=Replace(RS("bio"),vbCrLf,"
") 'bio=Replace(RS("bio"),vbCrLf,"
") bio=RS("bio") IF bio<>"" THEN bio=Replace(bio,vbCrLf,"
") RS.Close ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' Email Form Handler ' Versions: 1.0 - 4/9/2008 ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' IF Request("st")=1 THEN fname=Request.Form("fname") lname=Request.Form("lname") dayphone=Request.Form("dayphone") altphone=Request.Form("altphone") procedures=Request.Form("procedures") questions=Request.Form("questions") strReturnPath=Request.Form("strReturnPath") strHost=Request.Form("strHost") strFrom="leads@americanbeautyandwellness.com" strTo=email strSubject=Request.Form("strSubject") strReplyTo=Request.Form("strReplyTo") strBcc="info@americanbeautyandwellness.com" strBody="" strBody = strBody & "For Doctor: " & doctor & vbcrlf strBody = strBody & " " & vbcrlf strBody = strBody & "You have recieved an inquiry from AmericanBeautyAndWellness.com, please contact this person directly." & vbcrlf strBody = strBody & " " & vbcrlf strBody = strBody & "Name: " & fname & " " & lname & vbcrlf strBody = strBody & "Day Phone: " & dayphone & vbcrlf strBody = strBody & "Alt Phone: " & altphone & vbcrlf strBody = strBody & "Email: " & strReplyTo & vbcrlf strBody = strBody & "--------------------------------------------------" & vbcrlf strBody = strBody & "Procedures: " & procedures & vbcrlf strBody = strBody & " " & vbcrlf strBody = strBody & "Questions: " & questions & vbcrlf strBody = strBody & "--------------------------------------------------" & vbcrlf strBody = strBody & " " & vbcrlf strBody = strBody & " " & vbcrlf strBody = strBody & "CONFIDENTIALITY NOTICE: The information contained in this message may be privileged and confidential, and may or may not contain sensitive and personal information, including identifiable health information, the confidentiality of which may be protected by federal and state law and is only for the use of the individual(s) or entity(ies) named on address line(s)above. This electronic message in no way substitutes for medical. If the reader of this message is not the intended recipient, the reader is hereby notified that any dissemination, distribution or copying of this communication is strictly prohibited, and the reader is requested to notify info@americanbeautyandwellness.com immediately and to delete this message. We assume no responsibility for consequences resulting from the information contained in this email and/or its attachments." & vbcrlf ' CALL EMAIL SEND FUNCTION (Empty Variables Filled in Function) Call Send_Site_Email(strHost,strFrom,strTo,strBcc,strSubject,strReplyTo,strBody) ' RETURN TO DESIRED WEBSITE PAGE (Default to Refering Page if Empty) Response.Redirect strReturnPath & "?st=0&docID=" & docID END IF ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' %> <%=doctor%>, <%=city%> - American Beauty & Wellness
American Beauty & Wellness

To contact the doctor below pleas use the form on the right hand side of the page.

<%=business%>

<%IF photo<>"" THEN%><%END IF%>

 <%=doctor%>
<%=business%>
<%=address%><%IF suite<>"" THEN Response.Write "
" & suite%>
<%=city%>, <%=state%> <%=zip%>
<%=bio%>
Contact <%=doctor%>
<%IF Request("st")<>"0" THEN%>

First Name
Last Name
Day Phone
Cell phone
E-mail

List your procedures of interest.

Questions concerning your area of concern.
<%ELSE%>


Website: <%=website%>

Email: <%=email%>

Phone: <%=phone%>

 
<%END IF%>

 
American Beauty & Wellness | Sitemap