<%
if request.QueryString("nid")<>"" then%>
<%
dim cnn3,rsn3
set cnn3=createobject("Adodb.Connection")
cnn3.open strcon
qry = "SELECT * FROM news WHERE id="& request.QueryString("nid")
set rs = cnn3.execute(qry)
end if %>
|
|
<%response.Write(rs("caption"))%>
<% response.Write("- " & formatdatetime(rs("sdate"),vblongdate))%>
|
<%=replace(rs("descp"),vbcrlf,"
")%> |
|
|
|
<%
i=0
while i<5
strdes=""
str=""
if i=0 then
if rs("pic1")<>"" then
str=server.MapPath(rs("pic1"))
if strdes=rs("picdes1")<>"" then
strdes=rs("picdes1")
end if
end if
end if
if i=1 then
if rs("pic2")<>"" then
str=server.MapPath(rs("pic2"))
if strdes=rs("picdes2")<>"" then
strdes=rs("picdes2")
end if
end if
end if
if i=2 then
if rs("pic3")<>"" then
str=server.MapPath(rs("pic3"))
if strdes=rs("picdes3")<>"" then
strdes=rs("picdes3")
end if
end if
end if
if i=3 then
if rs("pic4")<>"" then
str=server.MapPath(rs("pic4"))
if strdes=rs("picdes4")<>"" then
strdes=rs("picdes4")
end if
end if
end if
if i=4 then
if rs("pic5")<>"" then
str=server.MapPath(rs("pic5"))
if strdes=rs("picdes5")<>"" then
strdes=rs("picdes5")
end if
end if
end if
if str<>"" then
b=ImageResize(str,245,270)
x=instr(1,str,"admin\documents\")
if x<>0 then
x=x-1
a=Right(str,len(str)-x)
'response.Write(a)
end if
%>
 border=0/> |
<%response.Write(strdes)%>
|
| |
<%end if
i=i+1
wend
set rs=Nothing
set cnn3=Nothing
%>
|
|
