<%
dim fcn,rsp,opt,uname,shotStr
%>
<%
dim rsShot
set rsShot=server.createobject("adodb.recordset")
rsShot.open "select * from tblshots where receiverId=" & cint(session("memId")) & " and shotDrank=false",fcnn,1,1
if not rsshot.eof=true then
shotStr=replace(rsshot("message"),"--quote--","""),"--apost--","’")
else
shotStr="You have been sent a shot with no message"
end if
%>
<%
rsshot.close
set rsshot=nothing
fcn.close
set fcn=nothing
%>