<% txtname=Request.Form("txtname") txtUrl=Request.Form("txtUrl") txttitle=Request.Form("txttitle") txtDesc=Request.Form("txtDesc") txtemail=Request.Form("txtemail") txtbacklink=Request.Form("txtbacklink") txtcomment=Request.Form("txtcomment") sitename="http://www.nglimpex.com" strSql="select * from tblLink where txturl='"&txtUrl&"' and txttitle='"&txttitle&"'" rs.open strSql,conn,1,3 'if txtbacklink<>"" then if rs.eof then rs.addnew if txtname<>"" then rs("txtname")=txtname end if rs("txturl")=txturl rs("txttitle")=txttitle rs("txtDesc")=txtDesc if txtemail<>"" then rs("txtemail")=txtemail end if if txtbacklink<>"" then rs("txtbacklink")=txtbacklink end if if txtcomment<>"" then rs("txtcomment")=txtcomment end if rs("isactive")=1 rs("dt")=now() if sitename<>"" then rs("sitename")=sitename end if rs.update 'end if end if %>