% '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 --------------------------- %>
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 you have any problem with this form, please contact us. |
|||
©Washington Institute of Natural Medicine |