<%
'取得當天日期 nowdate
strdate=cstr(now)
nowdate = mid(strdate,1,4) & "-"
strdate = mid(strdate, instr(strdate,"/")+1, len(strdate)-instr(strdate,"/") )
if len(mid(strdate,1,instr(strdate,"/")-1)) = 2 then
nowdate = nowdate & mid(strdate,1,instr(strdate,"/")-1) & "-"
else
nowdate = nowdate & "0" & mid(strdate,1,instr(strdate,"/")-1) & "-"
end if
strdate = mid(strdate, instr(strdate,"/")+1, len(strdate)-instr(strdate,"/") )
if mid(strdate,2,1) <> " " then
nowdate = nowdate & mid(strdate,1,2)
else
nowdate = nowdate & "0" & mid(strdate,1,2)
end if
%>
<%
fname=Session("mfname")
fbron=Session("mfbron")
fdate=Session("mfdate")
mmid=session("mid")
mname=session("mname")
if True then
set conn=Server.CreateObject("ADODB.Connection")
conn.open "driver={SQL Server};Server=204.10.105.253;uid=inzoo30_yanazoo;pwd=yanaok;database=inzoo30_yana"
SqlStr = "Select * From friend Where 往生者姓名='" & fname & "' and 往生者生日='" &_
fbron & "' and 往生者祭日='" & fdate & "'"
Set rs = conn.Execute( SqlStr )
end if
if not rs.eof then
cfid = rs("往生者序號")
' cfname = rs("姓名")
fname = rs("往生者姓名")
fbron = rs("往生者生日")
fdate = rs("往生者祭日")
fsex = rs("往生者宗教")
fplace = rs("往生者天堂")
fs1 = Replace(rs("簡略"),vbcrLf," " )
SqlStr = "Select * From friendin Where 往生者姓名='" & fname &_
"' and 來訪日期='" & nowdate & "' and 來訪者='" & mname & "'"
Set rsinchk = conn.Execute( SqlStr )
if rsinchk.eof then
SqlStr = "Insert into friendin(往生者姓名,來訪日期,來訪者) " &_
"values ('" & fname & "','" & nowdate & "','" & mname & "')"
Set rs = conn.Execute( SqlStr )
end if
SqlStr = "Select * From friendin Where 往生者姓名='" & fname & "' order by 來訪日期 desc"
Set rsin = conn.Execute( SqlStr )
if not rsin.eof then
indate1 = rsin("來訪日期")
inname1 = rsin("來訪者")
rsin.movenext
else
indate1 = "_"
inname1 = "_"
end if
if not rsin.eof then
indate2 = rsin("來訪日期")
inname2 = rsin("來訪者")
rsin.movenext
else
indate2 = "_"
inname2 = "_"
end if
if not rsin.eof then
indate3 = rsin("來訪日期")
inname3 = rsin("來訪者")
rsin.movenext
else
indate3 = "_"
inname3 = "_"
end if
if not rsin.eof then
indate4 = rsin("來訪日期")
inname4 = rsin("來訪者")
rsin.movenext
else
indate4 = "_"
inname4 = "_"
end if
if not rsin.eof then
indate5 = rsin("來訪日期")
inname5 = rsin("來訪者")
rsin.movenext
else
indate5 = "_"
inname5 = "_"
end if
if not rsin.eof then
indate6 = rsin("來訪日期")
inname6 = rsin("來訪者")
rsin.movenext
else
indate6 = "_"
inname6 = "_"
end if
if not rsin.eof then
indate7 = rsin("來訪日期")
inname7 = rsin("來訪者")
rsin.movenext
else
indate7 = "_"
inname7 = "_"
end if
if not rsin.eof then
indate8 = rsin("來訪日期")
inname8 = rsin("來訪者")
rsin.movenext
else
indate8 = "_"
inname8 = "_"
end if
if not rsin.eof then
indate9 = rsin("來訪日期")
inname9 = rsin("來訪者")
rsin.movenext
else
indate9 = "_"
inname9 = "_"
end if
if not rsin.eof then
indate10 = rsin("來訪日期")
inname10 = rsin("來訪者")
else
indate10 = "_"
inname10 = "_"
end if
else
response.write sqlstr
response.end
end if
session("fname")=fname
%>
