Washington Institute of Natural Medicine
 
 

Testimonial(S)

<% 'Incio do codigo ASP---------------------------------------------------------------- Response.Expires = 0 '------------- Declaracao de Variaveis ---------------------- Dim Conn, RS, SQL, RSB, SQLB, flag, v_titles, v_fname, v_lname, v_subtitles, v_name, v_datetes, v_testimonial ' Set Conn = Server.CreateObject("ADODB.Connection") ' strConnection = "DSN=winmdb;Database=practitioners;" ' strConnection = strConnection & "User ID=sa; Password=healthcenter;" ' Conn.Open strConnection '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 RSB = Server.CreateObject("adodb.recordset") 'Fim Criacao dos objetos Record Set -------------------------- idprac = Request.QueryString("cod") IF idprac = "" THEN Response.Redirect("http://www.washingtoninstituteofnaturalmedicine.com") END IF 'SQL Statements ----------------------------- SQL = "SELECT * FROM testimonials WHERE ((active=True) and (idpra=" &idprac& ")) ORDER BY datetes DESC" 'Fim SQL Statements ----------------------------- 'Seleciona Ultimo ID SQLB = "SELECT idpra, titles, fname, lname, subtitles FROM info WHERE ((active=True) and (idpra=" &idprac& "))" 'Fim SQL Statements ----------------------------- 'Abrindo Record Set --------------------------- RSB.Open SQLB,Conn,3,3 RS.Open SQL,Conn,3,3 'Loop print data on screen IF ((Not RS.EOF) and (Not RSB.EOF)) THEN 'Escaping Data v_titles=RSB("titles") v_titles=server.HTMLEncode(v_titles&"")'Prevent from null values v_fname=RSB("fname") v_fname=server.HTMLEncode(v_fname) v_lname=RSB("lname") v_lname=server.HTMLEncode(v_lname) v_subtitles=RSB("subtitles") v_subtitles=server.HTMLEncode(v_subtitles&"") Response.Write(v_test) Response.Write ("

" &v_titles& " " &v_fname& " " &v_lname& ", " &v_subtitles&"

") While (Not RS.EOF) 'Escaping v_name=RS("name") 'v_name=server.HTMLEncode(v_name) v_datetes=RS("datetes") 'v_datetes=server.HTMLEncode(v_datetes) v_testimonial=RS("testimonial") 'v_testimonial=server.HTMLEncode(v_testimonial) Response.Write ("


From: " &v_name) Response.Write ("
Date: " &v_datetes) Response.Write ("
Testimonial:
"" &v_testimonial& ""

") RS.MoveNext Wend Response.Write "

" ELSE Response.Write ("
No testimonials available. Be the first to write one.
") END IF 'fim do loop RS.close Set RS = Nothing RSB.close Set RSB = Nothing Conn.close Set Conn = Nothing %>
 
 
 
©Washington Institute of Natural Medicine