<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> [an error occurred while processing this directive] [an error occurred while processing this directive] <% '*** Pure ASP File Upload ----------------------------------------------------- ' Copyright (c) 2001-2002 George Petrov, www.UDzone.com ' Process the upload ' Version: 2.0.9 '------------------------------------------------------------------------------ '*** File Upload to: """images""", Extensions: "GIF,JPG,JPEG,BMP,PNG", Form: NEWAD, Redirect: "", "file", "5", "over", "false", "", "" , "", "", "", "", "600", "fileCopyProgress.htm", "300", "100" Dim GP_redirectPage, RequestBin, UploadQueryString, GP_uploadAction, UploadRequest PureUploadSetup If (CStr(Request.QueryString("GP_upload")) <> "") Then on error resume next Dim reqPureUploadVersion, foundPureUploadVersion reqPureUploadVersion = 2.09 foundPureUploadVersion = getPureUploadVersion() if err or reqPureUploadVersion > foundPureUploadVersion then Response.Write "You don't have latest version of ScriptLibrary/incPureUpload.asp uploaded on the server.
" Response.Write "This library is required for the current page. It is fully backwards compatible so old pages will work as well.
" Response.End end if on error goto 0 GP_redirectPage = "" Server.ScriptTimeout = 600 RequestBin = Request.BinaryRead(Request.TotalBytes) Set UploadRequest = CreateObject("Scripting.Dictionary") BuildUploadRequest RequestBin, """images""", "file", "5", "over" If (GP_redirectPage <> "" and not (CStr(UploadFormRequest("MM_insert")) <> "" or CStr(UploadFormRequest("MM_update")) <> "")) Then If (InStr(1, GP_redirectPage, "?", vbTextCompare) = 0 And UploadQueryString <> "") Then GP_redirectPage = GP_redirectPage & "?" & UploadQueryString End If Response.Redirect(GP_redirectPage) end if else if UploadQueryString <> "" then UploadQueryString = UploadQueryString & "&GP_upload=true" else UploadQueryString = "GP_upload=true" end if end if ' End Pure Upload '------------------------------------------------------------------------------ %> <% ' *** Edit Operations: (Modified for File Upload) declare variables Dim MM_editAction Dim MM_abortEdit Dim MM_editQuery Dim MM_editCmd Dim MM_editConnection Dim MM_editTable Dim MM_editRedirectUrl Dim MM_editColumn Dim MM_recordId Dim MM_fieldsStr Dim MM_columnsStr Dim MM_fields Dim MM_columns Dim MM_typeArray Dim MM_formVal Dim MM_delim Dim MM_altVal Dim MM_emptyVal Dim MM_i MM_editAction = CStr(Request.ServerVariables("SCRIPT_NAME")) If (UploadQueryString <> "") Then MM_editAction = MM_editAction & "?" & UploadQueryString End If ' boolean to abort record edit MM_abortEdit = false ' query string to execute MM_editQuery = "" %> <% ' *** Insert Record: (Modified for File Upload) set variables If (CStr(UploadFormRequest("MM_insert")) = "NEWAD") Then MM_editConnection = MM_directory_STRING MM_editTable = "LINKS" MM_editRedirectUrl = "thankyou.asp" MM_fieldsStr = "LINK_POSTER|value|CATID2|value|SUB_ID|value|LINK_NAME|value|LINK_URL|value|LINK_DESC|value|LINK_NAME1|value|LINK_URL1|value|LINK_DESC1|value|LINK_NAME2|value|LINK_URL2|value|LINK_DESC2|value|LINK_NAME3|value|LINK_URL3|value|LINK_DESC3|value|LINK_NAME4|value|LINK_URL4|value|LINK_DESC4|value|LINK_PHONE|value|LINK_SPECIALTY|value|LINK_IMAGE|value" MM_columnsStr = "LINK_POSTER|',none,''|CAT_ID|none,none,NULL|SUB_ID|none,none,NULL|LINK_NAME|',none,''|LINK_URL|',none,''|LINK_DESC|',none,''|LINK_NAME1|',none,''|LINK_URL1|',none,''|LINK_DESC1|',none,''|LINK_NAME2|',none,''|LINK_URL2|',none,''|LINK_DESC2|',none,''|LINK_NAME3|',none,''|LINK_URL3|',none,''|LINK_DESC3|',none,''|LINK_NAME4|',none,''|LINK_URL4|',none,''|LINK_DESC4|',none,''|LINK_PHONE|',none,''|LINK_SPECIALTY|',none,''|LINK_IMAGE|',none,''" ' create the MM_fields and MM_columns arrays MM_fields = Split(MM_fieldsStr, "|") MM_columns = Split(MM_columnsStr, "|") ' set the form values For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2 MM_fields(MM_i+1) = CStr(UploadFormRequest(MM_fields(MM_i))) Next ' append the query string to the redirect URL If (MM_editRedirectUrl <> "" And UploadQueryString <> "") Then If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0 And UploadQueryString <> "") Then MM_editRedirectUrl = MM_editRedirectUrl & "?" & UploadQueryString Else MM_editRedirectUrl = MM_editRedirectUrl & "&" & UploadQueryString End If End If End If %> <% ' *** Insert Record: (Modified for File Upload) construct a sql insert statement and execute it Dim MM_tableValues Dim MM_dbValues If (CStr(UploadFormRequest("MM_insert")) <> "") Then ' create the sql insert statement MM_tableValues = "" MM_dbValues = "" For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2 MM_formVal = MM_fields(MM_i+1) MM_typeArray = Split(MM_columns(MM_i+1),",") MM_delim = MM_typeArray(0) If (MM_delim = "none") Then MM_delim = "" MM_altVal = MM_typeArray(1) If (MM_altVal = "none") Then MM_altVal = "" MM_emptyVal = MM_typeArray(2) If (MM_emptyVal = "none") Then MM_emptyVal = "" If (MM_formVal = "") Then MM_formVal = MM_emptyVal Else If (MM_altVal <> "") Then MM_formVal = MM_altVal ElseIf (MM_delim = "'") Then ' escape quotes MM_formVal = "'" & Replace(MM_formVal,"'","''") & "'" Else MM_formVal = MM_delim + MM_formVal + MM_delim End If End If If (MM_i <> LBound(MM_fields)) Then MM_tableValues = MM_tableValues & "," MM_dbValues = MM_dbValues & "," End If MM_tableValues = MM_tableValues & MM_columns(MM_i) MM_dbValues = MM_dbValues & MM_formVal Next MM_editQuery = "insert into " & MM_editTable & " (" & MM_tableValues & ") values (" & MM_dbValues & ")" If (Not MM_abortEdit) Then ' execute the insert Set MM_editCmd = Server.CreateObject("ADODB.Command") MM_editCmd.ActiveConnection = MM_editConnection MM_editCmd.CommandText = MM_editQuery MM_editCmd.Execute MM_editCmd.ActiveConnection.Close If (MM_editRedirectUrl <> "") Then Response.Redirect(MM_editRedirectUrl) End If End If End If %> <% If Session("MM_Username") = "" Then Response.Redirect("login.asp") End If %> <% ' *** Logout the current user. MM_Logout = CStr(Request.ServerVariables("URL")) & "?MM_Logoutnow=1" If (CStr(Request("MM_Logoutnow")) = "1") Then Session.Abandon MM_logoutRedirectPage = "default.asp" ' redirect with URL parameters (remove the "MM_Logoutnow" query param). if (MM_logoutRedirectPage = "") Then MM_logoutRedirectPage = CStr(Request.ServerVariables("URL")) If (InStr(1, UC_redirectPage, "?", vbTextCompare) = 0 And Request.QueryString <> "") Then MM_newQS = "?" For Each Item In Request.QueryString If (Item <> "MM_Logoutnow") Then If (Len(MM_newQS) > 1) Then MM_newQS = MM_newQS & "&" MM_newQS = MM_newQS & Item & "=" & Server.URLencode(Request.QueryString(Item)) End If Next if (Len(MM_newQS) > 1) Then MM_logoutRedirectPage = MM_logoutRedirectPage & MM_newQS End If Response.Redirect(MM_logoutRedirectPage) End If %> <% Dim rsSub__MMColParam rsSub__MMColParam = "1" If (Request.QueryString("catid") <> "") Then rsSub__MMColParam = Request.QueryString("catid") End If %> <% set rsSub = Server.CreateObject("ADODB.Recordset") rsSub.ActiveConnection = MM_directory_STRING rsSub.Source = "SELECT * FROM SUBS WHERE CAT_ID = " + Replace(rsSub__MMColParam, "'", "''") + "" rsSub.CursorType = 0 rsSub.CursorLocation = 2 rsSub.LockType = 3 rsSub.Open() rsSub_numRows = 0 %> <% Dim rsUser__MMColParam rsUser__MMColParam = "1" if (Session("MM_Username") <> "") then rsUser__MMColParam = Session("MM_Username") %> <% set rsUser = Server.CreateObject("ADODB.Recordset") rsUser.ActiveConnection = MM_directory_STRING rsUser.Source = "SELECT *, (SELECT COUNT(*) FROM LINKS WHERE LINK_POSTER = U_ID) AS LINK_COUNT FROM USERS WHERE U_ID = '" + Replace(rsUser__MMColParam, "'", "''") + "'" rsUser.CursorType = 0 rsUser.CursorLocation = 2 rsUser.LockType = 3 rsUser.Open() rsUser_numRows = 0 %> <% Dim rsCat2 Dim rsCat2_numRows Set rsCat2 = Server.CreateObject("ADODB.Recordset") rsCat2.ActiveConnection = MM_directory_STRING rsCat2.Source = "SELECT * FROM CATS" rsCat2.CursorType = 0 rsCat2.CursorLocation = 2 rsCat2.LockType = 1 rsCat2.Open() rsCat2_numRows = 0 %> <% Dim rsCat__MMColParam rsCat__MMColParam = "1" If (Request.QueryString("catid") <> "") Then rsCat__MMColParam = Request.QueryString("catid") End If %> <% set rsCat = Server.CreateObject("ADODB.Recordset") rsCat.ActiveConnection = MM_directory_STRING rsCat.Source = "SELECT * FROM CATS WHERE CAT_ID = " + Replace(rsCat__MMColParam, "'", "''") + " ORDER BY CAT_NAME ASC" rsCat.CursorType = 0 rsCat.CursorLocation = 2 rsCat.LockType = 3 rsCat.Open() rsCat_numRows = 0 %> <% Dim rsSettings Dim rsSettings_numRows Set rsSettings = Server.CreateObject("ADODB.Recordset") rsSettings.ActiveConnection = MM_directory_STRING rsSettings.Source = "SELECT URL_Home FROM SETTINGS" rsSettings.CursorType = 0 rsSettings.CursorLocation = 2 rsSettings.LockType = 1 rsSettings.Open() rsSettings_numRows = 0 %> <% If rsUser.Fields.Item("LINK_COUNT") >= rsUser.Fields.Item("U_LINKS") Then Response.Redirect(rsSettings.Fields.Item("URL_Home")) %> Add Link
  HOME | ">LIST YOUR WORK|BROWSE LISTINGS | CONTROL PANEL <% If rsUser.EOF And rsUser.BOF Then %> | REGISTER <% End If ' end rsUser.EOF And rsUser.BOF %> <% If Not rsUser.EOF Or Not rsUser.BOF Then %> | LOGOUT <% End If ' end Not rsUser.EOF Or NOT rsUser.BOF %> <% If rsUser.EOF And rsUser.BOF Then %> | LOGIN <% End If ' end rsUser.EOF And rsUser.BOF %>
 
 
POSTER: " size="20"> <%= Session("MM_Username") %>
CATEGORY SELECTED <%=(rsCat.Fields.Item("CAT_NAME").Value)%>   ">
CHANGE CATEGORY:
SUB CAT :
EXAMPLE 1
TITLE:
SITE SAMPLE :
DESCRIPTION:
EXAMPLE 2
TITLE:
SITE SAMPLE :
DESCRIPTION:
EXAMPLE 3
TITLE:
SITE SAMPLE :
DESCRIPTION:
EXAMPLE 4
TITLE:
SITE SAMPLE :
DESCRIPTION:
EXAMPLE 5
TITLE:
SITE SAMPLE :
DESCRIPTION:
E-mail:
State you live in:
OPTIONAL IMAGE: 5KB
HOME | PRIVACY POLICY | DISCLAIMER ©2002 ENTHRALLWEB INC. DEMOS .

 

<% rsSub.Close() %> <% rsUser.Close() %> <% rsCat2.Close() Set rsCat2 = Nothing %> <% rsCat.Close() %> <% rsSettings.Close() Set rsSettings = Nothing %>