<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
dim LinkID
LinkID=request.QueryString("id")
dim ID,ItemClass,AreaName,InCludeArea,Linkman,FixTel,Fax,MobTel,Address,Remarks
if LinkID<>"" then
set rs=conn.execute("SELECT * FROM LinkInfo WHERE [id]="&LinkID&" order by id desc")
if not rs.eof then
ID=cint(LinkID)
ItemClass=rs("ItemClass")
AreaName=rs("AreaName")
InCludeArea=rs("InCludeArea")
Linkman=rs("Linkman")
FixTel=rs("FixTel")
Fax=rs("Fax")
MobTel=rs("MobTel")
Address=rs("Address")
Remarks=rs("Remarks")
end if
else
ItemClass=request.QueryString("ClassID")
'response.Write ItemClass
' response.End()
end if
%>