<% Server.ScriptTimeout = 180 %> <% 'NEWS FLASH CODE START sname=request.servervariables("script_name") 'CHANGE IN LIVE SITE !! sname=mid(sname,2) SQL="SELECT * FROM newsflash" set rs=db.execute(SQL) usename=rs("pages") if instr(usename,sname) <> 0 then newsflash=rs("newsflash") if newsflash <> "" then newsflash=replace(newsflash,vbcrlf,"\n") end if else newsflash="" end if rs.close set rs=nothing 'NEWS FLASH CODE END %> <% if request.cookies("adminbod")="True" then thispage=server.mappath(request.servervariables("script_name")) response.write "Edit this page" end if %> Dispensing Optics

<% 'NEWS FLASH DISPLAY START if newsflash <> "" then response.write "" end if 'NEWS FLASH DISPLAY END %>

Dispensing Optics

Dispensing Optics, PO Box 233,
Crowborough, East Sussex TN6 9BD

The following documents are in PDF format and may be viewed on line by clicking the relevant hyperlink. Alternatively, you can download the files by right-clicking the link and selecting Save Target As ... from the context menu.
Adobe Acrobat PDF Reader is quick and easy to install and is available Here
Guide for Authors
Media Information and Advertising Rates 2008

<% if request.cookies("adminbod") <> "True" then httpref=request.servervariables("script_name") response.cookies("members")("url")=httpref wamcookie=request.cookies("members")("userid") if wamcookie="" or isnull(wamcookie) or isempty(request.cookies("members")("userid")) then if request("docheck") <> "no" then server.execute "../memberarea/cookiecheck.asp" end if end if if wamcookie="" or isnull(wamcookie) or isempty(request.cookies("members")("userid")) then response.write "

Member-only Area

" response.write "

Your are not logged in

" response.write "

" response.write "This area is reserved for ABDO members only." response.write "

" response.write "Once you are logged in, you will be able to access the member-only areas of the site." response.write "

" response.write "Please click here to log in." %> <% response.end end if end if %>

<% SQL = "SELECT * FROM Journal ORDER BY ID DESC" set Rs = dB.Execute(SQL) do while not Rs.EOF %>

<% =Rs("Issue") %>

Contents for <%=rs("issue")%>

<% =Rs("Contents") %>

<% ID = Rs("ID") fn=server.mappath(ID & ".pdf") set fso = CreateObject("Scripting.FileSystemObject") if ( fso.FileExists(fn) ) then ' pdf exist so can download Response.Write( "" ) fn=server.mappath(ID & ".gif") set fso = CreateObject("Scripting.FileSystemObject") if ( fso.FileExists(fn) ) then Response.Write( "

" ) else Response.Write( "

" ) end if Response.Write( "

" ) else ' No download fn=server.mappath(ID & ".gif") if ( fso.FileExists(fn) ) then Response.Write( "

" ) else Response.Write( "

" ) end if Response.Write( "Download unavailable" ) end if %>

CET Multiple Choice Questions (6) Form - in PDF format

CET Multiple Choice Questions (12) Form - in PDF format

<% Rs.Movenext loop on error resume next Rs.Close db.Close set Rs=nothing set dB=nothing %>