<%@LANGUAGE="VBSCRIPT"%>
<%
e_id=request.querystring("e_id")
set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = MM_kworld_STRING
Recordset1.Source = "SELECT link, description, link_txt, country FROM links WHERE link_id=" & e_id
'''response.write(Recordset1.Source)
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 3
Recordset1.Open()
Recordset1_numRows = 0
if NOT Recordset1.EOF then
descript=Recordset1("description")
link=Recordset1("link")
link=replace(link,",","")
link=replace(link," ","")
link_text=Recordset1("link_txt")
Recordset1.Close()
set Recordset1=Nothing
end if
%>
The Fushiginoiroito Workshop
