% On Error Resume Next 'To get Country Name''''''========================================================================================== set rsCategory = Server.CreateObject("ADODB.recordset") sstr = "Select * from tbl_link_category order by Category" rsCategory.Open(sstr),con,1,3 subLogin = Request("subLogin") if subLogin<>"" Then '''''To test the link======================================================================================= Dim objLink Dim strLink Set objLink = Server.CreateObject("Msxml2.ServerXMLHTTP") objLink.open "GET", Request("txtLink"), False objLink.send If Err.number <> 0 then mode="siteUrl" 'TrapError Err.description,mode Response.Redirect("w_links_error.asp?mode="&mode) End If ''''To test Reciprocal url============================================= Dim objXmlHttp Dim strHTML Set objXmlHttp = Server.CreateObject("Msxml2.ServerXMLHTTP") objXmlHttp.open "GET", Request("txtPageLink"), False objXmlHttp.send If Err.number <> 0 then mode="pageUrl" 'TrapError Err.description,mode Response.Redirect("w_links_error.asp?mode="&mode) End If strHTML = objXmlHttp.responseText sstrnew= Server.HTMLEncode(strHTML) getlength=InStr(sstrnew,link_name) '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''========= if getlength>0 Then set rsInput = Server.CreateObject("ADODB.recordset") sstr = "Select * from tbl_links" rsInput.Open(sstr),con,1,3 rsInput.AddNew rsInput("Link_Category") = Request("txtCategory") rsInput("Link_Title") = Request("txtTitle") rsInput("Link_Description") = Request("txtDesc") rsInput("Link_Url") = Request("txtLink") rsInput("Link_Email") = Request("txtEmail") rsInput("Link_Graphic_Url") = Request("txtGraphLink") rsInput("Link_Page") = Request("txtPageLink") rsInput("Link_Mode") = "User" rsInput("Link_Date") = now() rsInput("Link_Approval") = "Yes" rsInput("Reciprocal") = "Yes" rsInput.Update userflag="True" Response.Redirect("w_links_entry_result.asp") else userflag="False" end if end if %>
|
|||||||||
<%=footer_text%>
|