<%if session("loc")=0 then response.redirect "admin.asp"
if trim(request("webname"))<>"" then
set com=server.createobject("adodb.connection")
com.open "DBQ="& Server.MapPath("../data.mdb")  &";Driver={Microsoft Access Driver (*.mdb)};"
sz = "'" & request("webname") & "','" & request("weburl") & "'" 
com.Execute("INSERT INTO link ( tit,lin ) VALUES(" & sz & ")")
com.close
end if
response.redirect "adlink.asp"%>
