 |
<%
Sql = "select top 3 * from board17 order by ref desc;"
set rs = con.Execute(sql)
Set rs = server.CreateObject("ADODB.Recordset")
rs.open sql,con,1
Do Until Rs.EOF
%>
<%
title = Rs("title")
if Len(title) > 25 Then
title = Mid(title, 1, 28)&"..."
end if
%>
|
바야흐로
기술 무한경쟁시대입니다.
산업재산권에 관심을 가지고 기술경쟁에 대응해야 할 때입니다.
여러분의 성실한 산업재산권 동반자가 되어 드리겠습니다. |
|
<%
rs.MoveNext
loop
%>
<%
Sql = "select top 4 * from board4 order by ref desc;"
set rs = con.Execute(sql)
Set rs = server.CreateObject("ADODB.Recordset")
rs.open sql,con,1
Do Until Rs.EOF
%>
<%
title = Rs("title")
if Len(title) > 25 Then
title = Mid(title, 1, 26)&"..."
end if
%>
|
|
<%
rs.MoveNext
loop
%>
<%
Sql = "select top 4 * from board5 order by ref desc;"
set rs = con.Execute(sql)
Set rs = server.CreateObject("ADODB.Recordset")
rs.open sql,con,1
Do Until Rs.EOF
%>
<%
title = Rs("title")
if Len(title) > 25 Then
title = Mid(title, 1, 28)&"..."
end if
%>
|
|
<%
rs.MoveNext
loop
%>
<%
Sql = "select top 4 * from board5 order by ref desc;"
set rs = con.Execute(sql)
Set rs = server.CreateObject("ADODB.Recordset")
rs.open sql,con,1
Do Until Rs.EOF
%>
<%
title = Rs("title")
if Len(title) > 25 Then
title = Mid(title, 1, 28)&"..."
end if
%>
|
연락처 및 사무소약도 |
<%
rs.MoveNext
loop
%>
|
 |
<%
Sql = "select top 4 * from board9 order by ref desc;"
set rs = con.Execute(sql)
Set rs = server.CreateObject("ADODB.Recordset")
rs.open sql,con,1
Do Until Rs.EOF
%>
<%
title = Rs("title")
if Len(title) > 25 Then
title = Mid(title, 1, 27)&"..."
end if
%>
|
|
<%
rs.MoveNext
loop
%>
<%
Sql = "select top 4 * from board9 order by ref desc;"
set rs = con.Execute(sql)
Set rs = server.CreateObject("ADODB.Recordset")
rs.open sql,con,1
Do Until Rs.EOF
%>
<%
title = Rs("title")
if Len(title) > 25 Then
title = Mid(title, 1, 27)&"..."
end if
%>
|
|
<%
rs.MoveNext
loop
%>
|
|
| |
|
<%
set con = server.CreateObject("ADODB.Connection")
con.Open "venstock","venstock","ve5116"
%>
<%
Sql = "select top 3 * from board17 order by ref desc;"
set rs = con.Execute(sql)
Set rs = server.CreateObject("ADODB.Recordset")
rs.open sql,con,1
Do Until Rs.EOF
%>
<%
title = Rs("title")
if Len(title) > 25 Then
title = Mid(title, 1, 28)&"..."
end if
%>
 |
| |
|
<%
rs.MoveNext
loop
%>
<%
Sql = "select top 4 * from board5 order by ref desc;"
set rs = con.Execute(sql)
Set rs = server.CreateObject("ADODB.Recordset")
rs.open sql,con,1
Do Until Rs.EOF
%>
<%
title = Rs("title")
if Len(title) > 25 Then
title = Mid(title, 1, 28)&"..."
end if
%>
| |
산업재산권 주요제도 |
<%
rs.MoveNext
loop
%>
<%
Sql = "select top 4 * from board5 order by ref desc;"
set rs = con.Execute(sql)
Set rs = server.CreateObject("ADODB.Recordset")
rs.open sql,con,1
Do Until Rs.EOF
%>
<%
title = Rs("title")
if Len(title) > 25 Then
title = Mid(title, 1, 28)&"..."
end if
%>
| |
산업재산권문답 |
<%
rs.MoveNext
loop
%>
<%
Sql = "select top 3 * from board17 order by ref desc;"
set rs = con.Execute(sql)
Set rs = server.CreateObject("ADODB.Recordset")
rs.open sql,con,1
Do Until Rs.EOF
%>
<%
title = Rs("title")
if Len(title) > 25 Then
title = Mid(title, 1, 28)&"..."
end if
%>
 |
| |
|
<%
rs.MoveNext
loop
%>
<%
Sql = "select top 3 * from board17 order by ref desc;"
set rs = con.Execute(sql)
Set rs = server.CreateObject("ADODB.Recordset")
rs.open sql,con,1
Do Until Rs.EOF
%>
<%
title = Rs("title")
if Len(title) > 25 Then
title = Mid(title, 1, 28)&"..."
end if
%>
 |
| |
|
<%
rs.MoveNext
loop
%>
<%
Sql = "select top 4 * from board5 order by ref desc;"
set rs = con.Execute(sql)
Set rs = server.CreateObject("ADODB.Recordset")
rs.open sql,con,1
Do Until Rs.EOF
%>
<%
title = Rs("title")
if Len(title) > 25 Then
title = Mid(title, 1, 28)&"..."
end if
%>
|
|
|
<%
rs.MoveNext
loop
%>
<%
Sql = "select top 3 * from board17 order by ref desc;"
set rs = con.Execute(sql)
Set rs = server.CreateObject("ADODB.Recordset")
rs.open sql,con,1
Do Until Rs.EOF
%>
<%
title = Rs("title")
if Len(title) > 25 Then
title = Mid(title, 1, 28)&"..."
end if
%>
 |
| |
|
<%
rs.MoveNext
loop
%>
|
