<%@language=vbscript codepage=1255%> <% name=request.cookies("name") pass=request.cookies("password") whatToDo=request.querystring("whatToDo") mekorotId=request.querystring("mekorotId") categoryId=request.querystring("categoryId") url = "http://" & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("URL") & "?" & Request.QueryString 'url = replace(url, "&", "$") url = replace(url, "?", " ") 'Response.Write url %> Dr. Hoffman - Updating Section <%if whatToDo="more" then%> <%else%> <%end if%>
<%if whatToDo="more" then%>
גרסת הדפסה
 <% 'set conn=server.CreateObject("adodb.connection") 'conn.open "DSN=gol125.hoffman" set rs=server.CreateObject("adodb.recordset") sql="select * from mekorot where mekorotId="&mekorotId&" " rs.Open sql,conn,2,2,1%>
<%=rs("more")%>
<%rs.close set rs=Nothing 'conn.close 'set conn=Nothing end if %>

<%if whatToDo="update" then %> <% 'dim conn 'set conn=server.CreateObject("adodb.connection") 'conn.open "DSN=gol125.hoffman" dim rs, sql set rs=server.CreateObject("adodb.recordset") sql="select * from mekorot where mekorotId="&mekorotId&" " rs.Open sql,conn,2,2,1 if rs("more")<>"" then previewTxt=replace(rs("more"),chr(34),"''") 'previewTxt=replace(previewTxt,chr(39),"") previewTxt=replace(previewTxt,vbCrlf,"") 'previewTxt=replace(previewTxt,chr(60)&chr(66)&chr(82)&chr(62),vbCrlf ) 'previewTxt=rs("more") else previewTxt="" end if %>


:נושא
" dir="rtl" style="border:1px solid navy">



:כותרת



 
<% rs.close set rs=Nothing 'conn.close 'set conn=nothing end if %>