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 ("
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 |