<% 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 %> <%=title_text%>
 
Submit your Link
 
<%if userflag="True" Then%>



Your link has been added in our Link directory...

Click here to enter another link
<%else%> <%if userflag="False" Then%>
We coudn't find our link in your webpage you mentioned here...
<%end if%>
In order for you to submit your link to our directory, you must first add our link to your links page
You can submit your Company Logo with a size of 80 x 80 Pixels.
The upper Limit of the Link Title is 256 charactors.

The upper Limit of the Link Description is 500 charactors.
  Please enter the following...
Link Category
 *
Link Title
" size="75" style="font-size: 8pt; border: 1px solid #7F9DB9"> * (max 256)
Link Description
 *(max 500)
Your site’s URL " size="75" style="font-size: 8pt; border: 1px solid #7F9DB9"> *
(begin with 'http://www.')
Email
" size="25" style="font-size: 8pt; border: 1px solid #7F9DB9"> *
Graphic URL
" size="75" style="font-size: 8pt; border: 1px solid #7F9DB9"> (80x80)
(begin with 'http://www.')
Exact webpage you link to us
" size="75" style="font-size: 8pt; border: 1px solid #7F9DB9"> *
(begin with 'http://www.')
In order for you to submit your link to our directory, you must first add our link to your links page
 
<%end if%>
<%=footer_text%>