<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
dim in_type
dim sql
in_type=2
set rs=server.createobject("adodb.recordset")
sql="select * from HN_info where IN_type="&in_type
rs.open sql,Conn,1,1
IN_dome=replace(rs("IN_dome"),chr(10)+chr(13)," ")%>
<% Response.Write WebName%>