<%@ Language=VBScript %> <% Set Connect = CreateObject("ADODB.Connection") ConString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" &Server.MapPath("\db\ask.mdb") Connect.Open ConString message = session("message") session("message")="" ' .style1 { color: #3366CC ; background-color: #FEE8A5; font-family:arial} '   
' Rabbi Dobrusin's Answers
   %> Ask Rabbi Dobrusin [logo]

Ask Rabbi Dobrusin a Question


If you have a question for Rabbi Dobrusin, please submit it below. In order to avoid duplication of questions, please enter some key words first to see whether your question might have been answered previously. The matching answers will be posted on this page below the optional information. (Press Page Down to see it).
  Search:


    <%'______________________________________________________________________ ' Message %> <% if message<>"" then %> <%=message%>
<% end if %> <%'______________________________________________________________________ ' Ask form %> Question:
CAPTCHA Image
Change Image
Write the characters in the image above


optional information
your name       your email
(will not be shared)

 

_____________________________________________________________________________________________________________________________________ <% ' get Answers Table (with search qfind) Check query: %> <% dim qfinds ' words searched dim qsrch ' as string ' MyString = Replace(string1,"p","Y") qsrch = Replace(request("qsearch"),","," ") qsrch = Replace(qsrch," "," ") ' MyString = Replace(string1,"p","Y") ' response.write qsrch if not isnull(qsrch) then qfind = " " qfinds = split(qsrch," ") ' qfind = "%test%" 'Answers Table " & qfind & " for qf=lbound(qfinds) to ubound(qfinds) qfind = qfind & " and [answer] like '%" & qfinds(qf) & "%' " 'response.write qfind next 'response.write qfind end if %> <%str = "Select * from questions where show='yes' and not isnull([answer])" & qfind & " order by [order], asktime desc;" set aq = connect.execute(str) firsttime = true if not aq.eof then%>
<%do while not aq.eof%> <% if firsttime=true then firsttime= false %> <% end if %> <%'______________________________________________________________________________________________________________________________________ ' Question %> <%'______________________________________________________________________________________________________________________________________ ' Answer %>
           
  
Rabbi Dobrusin's Answers
 		 
<%=aq("question")%>
<% if not isnull(aq("asker")) then response.write "-" & aq("asker") & " "%> <% if not isnull(aq("location")) then response.write "from " & aq("location") & " "%> 		 
   
  <%=aq("answer")%>
 
<%aq.movenext loop aq.close%> <%end if ' if not aq.eof %>


[Return to the Beth Israel Home Page]

This page was last modified on March 8, 2001

This Web site for Beth Israel is maintained under the auspices of the Beth Israel Men's Club "Home Page Initiative."

Contact Beth Israel Webmaster with comments, suggestions, or questions about this initiative.