<%
Dim pageFileRS
Dim Discription
Application("MYSQL-Connection") = "DRIVER={MySQL ODBC 3.51 Driver}; SERVER=localhost; DATABASE=eSyndiCat; UID=eSyndiCat;PASSWORD=nihongo5; OPTION=3"
set pageFileRS = Server.CreateObject("ADODB.Recordset")
pageFileRS.Open "v2103_links", Application("MYSQL-Connection"), adOpenKeyset, adLockPessimistic, adCmdtable
do until pageFileRS.EOF
if pageFileRS("title") = "" or isnull(pageFileRS("title")) then
Discription = pageFileRS("recip_domain_name")
else
Discription = pageFileRS("title")
end if
response.write "" & Discription & "
"
pageFileRS.movenext
loop
pageFileRS.close
set pageFileRS = nothing
%>