<%@LANGUAGE="VBSCRIPT"%> <% id_pytania = request.QueryString("id") %> <% id_placowki = request.QueryString("idp") %> <% id_spec = request.QueryString("ids") %> <% set objpyt = server.CreateObject("adodb.recordset") set objodp = server.CreateObject("adodb.recordset") %> <% wyswietl_odpowiedzi = 0 %> <% if request.Form.count > 0 then objodp.open "select * from odpowiedzi_na_pyt where 1=2" ,conn,1,3 objodp.addnew objodp("tresc")=request.Form("odp") objodp("autor")=request.Form("podpis") objodp("id_placowki")=id_placowki objodp("id_pytania")=id_pytania objodp.update objodp.close response.redirect "modul_pio_lista.asp?idp="&id_placowki&"&ids="&id_spec end if %> <% objpyt.open "select * from pytania_do_spec where id_pytania="&id_pytania,conn,1,3 objodp.open "select * from odpowiedzi_na_pyt where id_pytania="&id_pytania&" and status=1",conn,1,3 %> Zarz±dzanie pytaniami <% if objpyt("id_choroby")<>"" then nazwa_choroby=conn.execute("select nazwa from choroby where id_choroby="&objpyt("id_choroby"))(0) %> <% end if %>
 Pytanie:
 Choroba: <%=nazwa_choroby%>
<% while not objodp.eof%> <% objodp.movenext wend %>
  <%=objpyt("tresc")%>

<%=objpyt("podpis")%>
 
 
  <%=objodp("tresc")%>
<% if objodp("id_placowki")=1 then %>
Redakcja MEDSERWIS.PL
<% end if %> 		 
 
 Wpisz odpowied¼:
   
  Podpis: