<% 'Incio do codigo ASP---------------------------------------------------------------- Response.Expires = 0 '------------- Declaracao de Variaveis ---------------------- Dim Conn, RS, SQL id = Request.QueryString("id") IF ((id = "") OR (Not IsNumeric(id))) THEN Response.Redirect("http://www.washingtoninstituteofnaturalmedicine.com") END IF '------------- Fim Declaracao de Variaveis ---------------------- 'Efetuando a conexão com a base de dados criada ----------------------- ' Set Conn = Server.CreateObject("ADODB.Connection") ' strConnection = "DSN=winmdb;Database=practitioners;" ' strConnection = strConnection & "User ID=sa; Password=healthcenter;" ' Conn.Open strConnection 'Brinkster connection 'Set Conn = Server.CreateObject("ADODB.Connection") 'Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" _ '& "Data Source=c:\sites\Single50\washingtoninst\database\practitioners.mdb;" _ '& "Jet OLEDB:Database Password=healthcenter;" 'Fim Efetuando a conexão com a base de dados criada ----------------------- 'Criacao dos objetos Record Set -------------------------- Set RS = Server.CreateObject("adodb.recordset") Set RSLocation = Server.CreateObject("adodb.recordset") 'Fim Criacao dos objetos Record Set -------------------------- 'SQL Statements ----------------------------- SQL = "SELECT idpra, titles, fname, lname, anchor, pic, email, subtitles, pemail, services, lengths, voucher, schedule, custext FROM info WHERE ((idpra=" &id& ") AND (active=Yes) AND (group<>'staff') AND (email<>'') AND (pemail<>''))" locationSQL = "SELECT locations.*, [location-practitioner].* FROM locations INNER JOIN [location-practitioner] ON locations.locID = [location-practitioner].locationID WHERE (idpra=" &id& ")" 'Fim SQL Statements ----------------------------- 'Abrindo Record Set --------------------------- RS.Open SQL,Conn,3,3 RSLocation.Open locationSQL,Conn,3,3 'Fim Abrindo Record Set --------------------------- %>
Washington Institute of Natural Medicine
 
 

Questions or Appointment Scheduling

<% '------------- Practitioners from info --------------- IF (Not RS.EOF) THEN RS.MoveFirst id = server.HTMLEncode(RS("idpra")&"") titles = server.HTMLEncode(RS("titles")&"") fname = server.HTMLEncode(RS("fname")&"") lname = server.HTMLEncode(RS("lname")&"") subtitles = server.HTMLEncode(RS("subtitles")&"") anchor = server.HTMLEncode(RS("anchor")&"") pic = server.HTMLEncode(RS("pic")&"") voucher = server.HTMLEncode(RS("voucher")&"") schedule = server.HTMLEncode(RS("schedule")&"") if (schedule <> "") then schedule = "

Availability: " & schedule & "

" end if custext = RS("custext") services = server.HTMLEncode(RS("services")&"") services = Split(services,",") lengths = server.HTMLEncode(RS("lengths")&"") lengths = Split(lengths,",") fullname = titles &" "& fname & " " & lname if (not subtitles = "") then fullname = fullname & ", " &subtitles end if practitionerLink = ""&fullname&"" if (pic <> "") then Response.Write("") end if 'Response.Write("test: " & voucher & "
") 'Get location %>

<%=practitionerLink%>

<%=schedule%>

* Required Fields

<%=custext%>














<% if (Not RSLocation.EOF) then RSLocation.MoveFirst %>

<% else %> <% end if %>





<% If (voucher) Then %>



<% Else %> <% End If %>

Office Policies

  • We are not a spa, but rather we are an alternative medicine facility. Our goals are health and healing oriented. Due to this focus there may be unforeseen delays due to health problems we may need to handle. So please be patient at your time of visit.
  • If cancellation is necessary please notify our office as soon as possible. If you cancel the day before your visit after 8pm or the same day as your visit a cancellation fee of $30.00 to $50.00 may apply.

If you Purchased a Promotional Voucher Please Read

  • All Washington Institute Promotional Vouchers have expired several years ago. If you have contacted us because you have purchased a voucher recently please look at your voucher and contact the company that has advertised it. Thank you.
I have read and agree with the policies

<% ELSE Response.Redirect("http://www.washingtoninstituteofnaturalmedicine.com") END IF RS.close RSLocation.close Conn.close Set RS = Nothing Set RSLocation = Nothing Set Conn = Nothing '------------- Fim Practitioners from info --------------- %>

If you have any problem with this form, please contact us.

 
 
 
©Washington Institute of Natural Medicine