<%
'Response.Redirect("addasite_off.asp")
Select Case Database_Type
Case "Access"
DRIVER="DRIVER={Microsoft Access Driver (*.mdb)};"
DataBase=DRIVER & "DBQ=" & Server.MapPath("\link\linksys.mdb")
Case "My_SQL"
database = "driver={MySQL};server="&MY_SQL_SERVER&";uid="&MY_SQL_UID&";pwd="&MY_SQL_PASSWORD&";database="&MY_SQL_DATABASE_NAME&";option=NUM"
Case Else
Response.Write " DATABASE SELECTION IS NOT VALID "
End Select
form_error = Request.QueryString("form_error")
if form_error = "Yes" then
Form_URL = Replace(Request.querystring("Form_URL"),"http://www.","")
if Form_URL = "" then font_color_url = error_color
Form_Title = Request.QueryString("Form_Title")
if Form_Title = "" then font_color_title = error_color
Form_Description = Request.QueryString("Form_Description")
if Form_Description = "" then font_color_description = error_color
Form_Banner_URL = Replace(Request.querystring("Form_Banner_URL"),"http://www.","")
if Form_Banner_URL = "" then font_color_banner_url = error_color
Form_Reciprocal_Link = Replace(Request.querystring("Form_Reciprocal_Link"),"http://www.","")
if Form_Reciprocal_Link = "" then font_color_reciprocal_link = error_color
Form_Email = Request.QueryString("Form_Email")
if Form_Email = "" then font_color_email = error_color
Form_Username = Request.QueryString("Form_Username")
if Form_Username = "" then font_color_username = error_color
Form_Password = Request.QueryString("Form_Password")
if Form_Password = "" then font_color_password = error_color
Form_Category = Request.QueryString("Form_Category")
if Form_Category = "NULL..Category" then font_color_category = error_color
end if
SelectedCategory = "Select a Category"
Set DataBaseConnection = Server.CreateObject("ADODB.Connection")
Set CategoryRecordSet = Server.CreateObject("ADODB.Recordset")
DataBaseConnection.Open DataBase
CategorySQL = "Select category, LinkedCategory, Status, categoryorder FROM LinkSysCategory ORDER by Categoryorder asc"
CategoryRecordSet.Open CategorySQL, database
CategoryChoice = ""
WHILE NOT CategoryRecordSet.EOF
Status = Trim(CategoryRecordSet("Status"))
Category = CategoryRecordSet("category")
LinkedCategory = CategoryRecordSet("linkedcategory")
if Status = "Yes" then
CategoryChoice = CategoryChoice & ""
end if
CategoryRecordSet.MoveNext
WEND
CategoryRecordSet.Close
DataBaseConnection.Close
Set CategoryRecordSet = Nothing
Set DataBaseConnection = Nothing
%>
Tied Girls Links
*
ALL LINKS WILL BE CHECKED *
You MUST provide a link back to this website with
the ID you are
issued in order to have your link remain visible
to the public.
Neither this site, nor its webmaster nor host,
assume any responsibility for, and makes no guarantees
or representations as to the accuracy of, the content of any third-party
sites whose links appear herein.
